FiveTech Software tech support forums

... "DBFCDX" ) dbcreate( 'PRUEBA', aCampos ) select 1 use PRUEBA alias PRUEBA APPEND BLANK prueba->NUMERO := "1" INDEX ON prueba->NUMERO TAG prueba1 TO prueba FOR !DELETED() GO TOP DO WHILE !eof() IF prueba->NUMERO = "1" DELETE ENDIF //si comento la siguiente linea funciona mal ( el mensaje ...

... BLANK prueba->NUMERO := "200000" // CASO 1: Con este indice funcion bien lee unicamente el numero "100000" // INDEX ON prueba->NUMERO TAG prueba1 TO prueba // CASO 2: Con este indice lee todos los registros INDEX ON prueba->NUMERO TAG prueba1 TO prueba FOR !DELETED() cNumero := "100000" ...

... BLANK prueba->NUMERO := "200000" // CASO 1: Con este indice funcion bien lee unicamente el numero "100000" // INDEX ON prueba->NUMERO TAG prueba1 TO prueba // CASO 2: Con este indice lee todos los registros INDEX ON prueba->NUMERO TAG prueba1 TO prueba FOR !DELETED() cNumero := "100000" ...

... TITLE "CAPTURA DE GETS" OF oWPpal; PIXEL SIZE 760,560 @ 10,10 SAY "DESPLIEGUE EN BLOQUE DEFINE-ACTIVE" OF oDlg PIXEL @ 10,280 SAY oText1 PROMPT "PRUEBA1 " OF oDlg SIZE 50,12 PIXEL @ 10,360 GET cwopc PIXEL read ACTIVATE DIALOG oDlg NOWAIT CENTER ON INIT (VERA(ODLG)) activate window oWPpal VALID ...

Chantiel !!Que raro!! prueba este ejemplo, por lo menos a mi me funciona bien.. procedure prueba() local cCambiar1:= "prueba1", cCambiar2:= "prueba2", cCambiar3:= "prueba3", cCambiar4:= "prueba4", cCambiar5:= "prueba5" prueba2( @cCambiar1,@cCambiar2,@cCambiar3,@cCambiar4,@cCambiar5 ...