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" ...

... 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 ; TITLE ...

Saludos foro. Por sentir que es mas practico con algunos clientes el uso de la tecla ESC en lugar del tsbutton 7.0 con la opcion cancelar no he podido resolver como hacerlo, tengo esto: DEFINE DIALOG oDLG(1) FROM nTop,nIzq-3 TO nBot+40,nDer STYLE nOR( DS_MODALFRAME, WS_POPUP ) PIXEL; COLOR aCOLOR(19...

Saludos. habia dejado este detalle al olvido, pero si alguien ha resuelto el problema del la clausula CANCEL en el sbrowse 7.0 y si lo pudiera compartir. Caso. @ 11,10 SBUTTON oBtn[1] PROMPT '&Aceptar' RESOURCE 'GOSEMA','GOSEMV' OF oDLG(1); ACTION ( lSalir:=ValidaVent(aVent),; // valida que los ...

... 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 ...

... ( 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"):value ...

... 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.

... 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 ...

... En 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_RECORDSET ...

... ) ) //======================================== 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 videntif:=catastro->tipip01 ...

... {|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 ...

... 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 "########" ...

... 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 "########" ...