FiveTech Software tech support forums

... local oDlg1,oError,lNuevo:=.F.,cText := ""
local oGet := ARRAY(10)
LOCAL lSalir := .F.
LOCAL lSalvar := .F.
local oBoton1,oBoton2,oBr,vFECHALIMI :=space(12),vINTMORA:=0,vDESIMPTO:=0,vDESMORA:=0,vANOVIG:=space(4)
local cServer := "127.0.0.1"
local ...

... static function Nuevocatas( oBrw, lNuevo,oRs )
//---------------------------------------------------------//
local oDlg,lSalvar := .f.,vcodigo:=space(21),vnombre:=space(33)
local lSaved := .f.

IF lNuevo
oRs:AddNew()
ENDIF



DEFINE DIALOG oDlg SIZE 500,210 PIXEL ...

... nDer-nIzq)/2-71 SBUTTON oBtn[1] PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1);
ACTION ( lSalir:=ValidaVent(aVent),;
IF( lSalir,;
( _lSalvar:=.T.,;
AfectaDBF(aVent,lBloquea,bProceso),;
oDLG(1):End() ),;
NIL) );
XP COLOR COLOR_ACEPTA;
SIZE 33,12 TEXT POSITION 4;
PIXEL

@ (nBot ...

... PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1);
ACTION ( lSalir:=ValidaVent(aVent),; // valida que los gets se cumplan
IF( lSalir,;
( _lSalvar:=.T.,;
AfectaDBF(aVent,lBloquea,bProceso),;
NIL) );
XP COLOR COLOR_ACEPTA;
SIZE 33,12 TEXT POSITION 4;
PIXEL

@ 11,100 SBUTTON oBtn[2 ...

... codigo , donde el cliente introduce el lector de codigo
> de barras y mete un codigo de 13 numeros
>
> mcodart=space(len(ticket->codart1))
> lSalvar:=.F.
> lCancelar:=.F.
> DEFINE DIALOG tic_diaCodigo FROM 40,20 TO 45,70
> SET FONT OF tic_diaCodigo TO tic_Font
>
> @0,0 say "CODIGO ARTICULO:" OF ...

... oDlg:End() )

RETURN NIL

//=================================
FUNCTION EditC1(SiNuevo, oLbx )
//=================================

Local oDlg, lSalvar := .f.

IF sinuevo = .t.
oRs:ADDNEW()
oRs:Fields("codigo"):value := SPACE(12)
oRs:Fields("nombre"):value := SPACE(45)
oRs:Fields("naturaleza ...

... Y ME REEMPLAZABA EL PRIMER registro de este archivo por el cliente en cuestión ya que en ningún momento cambiaba el puntero en maeclie (oMae)

IF lSalvar .AND. !EMPTY( odata:nape)
IF lnuevo
oData:append()
else
oData:goto(nRecno)
endif

Gracias.
Igual me gustaría saber en que fallaba el código.

... of oFold:adialogs[4];
message "Datos varios del cliente" UPDATE;
MULTILINE
oMem:SetSel(0,0)

REDEFINE BUTTON nbut[1] ID 105 of oDlgcli ACTION(lSalvar := .T.,oDlgcli:End())

REDEFINE BUTTON nbut[2] ID 106 of oDlgcli ACTION(oDlgcli:End()) CANCEL

REDEFINE BUTTON nbut[3] ID 122 of oDlgcli when ...

... DIALOG oDlg CENTERED

RETURN

//=================================
FUNCTION EditC1(SiNuevo, oLbx )
//=================================

Local oDlg, lSalvar := .f.

IF sinuevo = .t.
oRs:ADDNEW() // crea un nuevo registro en blanco
oRs:Fields("codigo"):value := SPACE(12)
oRs:Fields("nombre"):value ...

... nuestro ejemplo, se trata de un programa de recetas
de cocina,
/////////////////////////////////////////////////

FUNCTION BrwCocina(oCon)
Local lSalvar := .f., oDlg, oLbx, oBtn:= ARRAY(9)

// orden SQL
LOCAL cSql := 'SELECT * FROM RECETAS ORDER BY NOMBRE'

// crea recordset
Local oRs := F ...

... STATIC FUNCTION AGREGO( lAlta, oBrw, oRs )
//========================================
Local oDlg, lSalvar := .f.

IF lAlta = .t.
oRs:ADDNEW() // crea un nuevo registro en blanco
oRs:Fields("Numero"):value := SPACE(5)
oRs:Fields("Nombre"):value ...

... vmts:=0
local vConst:=0
local vVigen:=space(4)
local vAva:=0
local vResolu:=space(10)
LOCAL mcbxident:={"C","N","X"}
LOCAL lSalir := .F.
LOCAL lSalvar := .F.
LOCAL nRecNo2

DEFAULT lNuevo := .F.

IF lNuevo
GOTO BOTTOM
SKIP
ENDIF
vCodigo:= catastro->codip01
vPropie:= catastro->nomip01 ...

... VK_F9, {|nKey| Calculadora() })

oBtn1:bkeydown:={|nKey|IIF((nKey == Asc( "S" ) .OR. nKey == Asc( "s" ) ) .AND. GetKeyState( VK_CONTROL ),;
( lSalvar := .T. , oDlgCodigo:End(), oLBx:refresh() ),)}

Un saludo,
Manuel

Olá a todos,

Alguém saberia me informar, por favor, como faço para emular as ...

... oGet3

local vcuenta:=space(8)
local vnomcuenta:=space(40)
LOCAL VNOM_PA:=space(20)
static vreq_pa:=.F.

static ccampo1

LOCAL lSalir := .F.
LOCAL lSalvar := .F.
use IDENTIFI alias "NOMB" NEW SHARED

DEFINE DIALOG oDlg1 RESOURCE DIALOG_3 of oDlg

REDEFINE GET oGet1 var vcuenta PICTURE "########" ID ...

... oGet3

local vcuenta:=space(8)
local vnomcuenta:=space(40)
LOCAL VNOM_PA:=space(20)
static vreq_pa:=.F.

static ccampo1

LOCAL lSalir := .F.
LOCAL lSalvar := .F.
use IDENTIFI alias "NOMB" NEW SHARED

DEFINE DIALOG oDlg1 RESOURCE DIALOG_3 of oDlg

REDEFINE GET oGet1 var vcuenta PICTURE "########" ID ...