FiveTech Software tech support forums

... DEFINE DIALOG oDlgMa RESOURCE "Material" DEFINE TIMER oTmr INTERVAL 50 ACTION (Fnct_Blinker(@oVeoRamo),oVeoRamo:Refresh()) REDEFINE GET oCodigo VAR nCodigo PICTURE "9999" ID Ma_Codigo OF oDlgMa when .f. //valid nCodigo > 0 .and. ValCodigo(nCodigo,agrega,'Código de Cliente ...

... un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion. hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya. #include "inkey.ch"oCodigo:bKeyDown := { | nKey | IIf( ...

compubrion wrote:Saludos !
oCodigo es la variable ó el objeto get

Disculpen use este modo, saludos Compubrion, por favor comunicate conmigo por joseluisturiz@yahoo.com, 04142317600, wsap, gracias...

Saludos !
oCodigo es la variable ó el objeto get

... un cuadro de dialogo me gustaria que al pulsar una combinacion de letras realizara una determinada accion. hago esto. Tengo puesto en el valid del oCodigo !(Empty(cCodigo)) para que no dejen el campo vacio. No creo que influya. #include "inkey.ch"oCodigo:bKeyDown := { | nKey | IIf( ...

... Saludos function barcode2tp() local opr, xStep, yStep, oBr, oFont , N := 0 * public XCANCELA := "N" PUBLIC XCODIGOC := SPACE(13) public ocodigo if msgyesno ("Imprime Codigo de trazabilidad ","Trazabilidad Compras") printersetup() printer oprinter NAME "IMPRESION ...

... una Cuenta Contable del Browse y luego tomarla con Enter y llenar el Get FUNCTION CtaContab( ONUMBCO) LOCAL oDlg, oBtn LOCAL oBrw, oCol LOCAL oCodigo := Space(10) LOCAL cCuenta := Select() DBSELECTAREA( "CTA" ) ( "CTA" )->( ORDSETFOCUS(1) ) ( "CTA" )->( ...

... deshabilitar un GET para que no permita ingresar datos cuando se consulten registros en dicho dialogo. Aca un ejm de como tengo los GET @ 1,1 GET oCodigo VAR CODBCO OF oDlg PICTURE "@!" SIZE 40, 10 ; VALID (CODBCO := StrZero( Val( CODBCO), 12 ), oCodigo:Refresh(), .T. ); @ 2,1 GET oNombre ...

... tomar el último código y sumarle uno CODBCO := StrZero(VAl(CODBCO),12)----> Si ademas quieres ponerlo con todos los ceros y después @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID (CODBCO := StrZero( Val( CODBCO), 12 ), CODBCO: = cCODANT+1, oCodigo:Refresh(), .T. ) la lectura del ...

... registro, asigne un nuevo numero de codigo en forma consecutiva. Aca el codigo que estoy utilizando cCODANT := BANCO->BCO_CODIGO @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID (CODBCO := StrZero( Val( CODBCO), 12 ), CODBCO: = cCODANT+1, oCodigo:Refresh(), .T. ) STATIC FUNCTION ...

... 10, debe mostrar 0000000010. Aca el codigo que estoy tratando de usar: cCODANT := BANCO->BCO_CODIGO NUMERO := BANCO->BCO_CODIGO @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID CHKBANCO(CODBCO, cCODant) NUMERO := STRZERO(VAL(NUMERO),12) El codigo que pones de ejemplo es algo confuso... ...

... 10, debe mostrar 0000000010. Aca el codigo que estoy tratando de usar: cCODANT := BANCO->BCO_CODIGO NUMERO := BANCO->BCO_CODIGO @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID CHKBANCO(CODBCO, cCODant) NUMERO := STRZERO(VAL(NUMERO),12) Agradeciendo de antemano sus valiosos comentarios

Prueba de esta manera a ver si te sirve..... cCODANT := BANCO->BCO_CODIGO @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID CHKBANCO(CODBCO, cCODant) STATIC FUNCTION CHKBANCO( COD, cCODant) LOCAL nRegAnt := BANCO->(RECNO()) BANCO->( GOTOP( ) ) IF BANCO->(DBSEEK( ...

... funcion que valida si un campo o registro ya existe, la cual no esta funcionando. Aca el codigo del GET cCODANT := BANCO->BCO_CODIGO @ 1,1 GET oCodigo VAR CODBCO OF oDlg SIZE 40, 10 ; VALID IF(ALLTRIM(cCODANT) <> ALLTRIM(BANCO->BCO_CODIGO), CHKBANCO(BANCO->BCO_CODIGO,LVAN), .T.) ...

... oBrw:CreateFromCode() oWnd:oClient := oBrw ACTIVATE WINDOW oWnd ; ON INIT oBrw:SetFocus() RETURN (.T.) FUNCTION CBANCO(TNUEVO) STATIC oDlg, oGet, oCodigo, oNombre, oNumero, oCuenta, oBtn SetGetColorFocus() // change GET colors when focused SET 3DLook OFF IIF(TNUEVO, BCONUEVO(.T.), BCONUEVO(.F.)) ...