FiveTech Software tech support forums

... de un campo determinado, saludos... Ejemplo: cQryMI := "SELECT * FROM mi_tabla " +; "WHERE movi_numdoc = " + ClipValue2SQL( aVar[1] ) +; " AND movi_modulo = '" + cModulo +; "' ORDER BY movi_numdoc" espero te ayude.

... y cuando lo ejecuto manual me dice que no es una aplicacion 32 REDEFINE BUTTONBMP aBtn[1] ID 201 OF oDlg ; // GUARDAR ACTION ( graba_certi( .t., aVar ), oDlg:End() ) ; BITMAP "SALVAR32" PROMPT "Guardar" REDEFINE BUTTONBMP aBtn[2] ID 202 OF oDlg ; // CANCELAR ACTION ( oDlg:End() ...

Hola foreros. Tengo la constumbre de guardar Arrays en campos MEMO con ASave( aVar ), que después recupero con ARead(). A veces tambien guardo pequeños bitmaps cargados con MEMOREAD(). El problema me surgió a la hora de leer dichos campos MEMO. Para saber si guardo ...

... oCol | mayorqcero( oGet:value() ) } :bOnPostEdit := { | oCol, xVal, nKey | If( nKey <> VK_ESCAPE ,; ( oCol:value := xVal ,; totalinea( oBrw, aVar, aGet ) ,; graba_movbco( lNew, aVar, oDlg, oBrw, oQryBancos ) ,; addrow( oBrw, oQryBancos, lNew ) ), ) } :bEditWhen := {|| !EMPTY( aItems[oBrw:nArrayAt, ...

... COL. :bClrStd := {|| IF( oBrw:nArrayAt % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203, 226, 254)} ) } :bKeyDown := {| nKey | teclado( nKey, oBrw, aVar, aGet, oQryCJ ) } // CONTROLA VIRTUAL KEY ***:bPastEof := { || addrow( oBrw ) } // HACE EDICION DE CELDA AUTOMATICAMENTE CON FLECHA ABAJO... :bChange ...

... COL. :bClrStd := {|| IF( oQryCJ:RecNo() % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203, 226, 254)} ) } :bKeyDown := {| nKey | teclado( nKey, oBrw, aVar, aGet, oQryCJ ) } // CONTROLA VIRTUAL KEY :lFastEdit := .t. // OBLIDADO PARA EDICION DE CELDA ***:bPastEof := { || addrow( oBrw ) } // HACE EDICION ...

... IF MONTH( oQryPCUO:fch_pago ) == MONTH( DATE() ) .AND. ; YEAR( oQryPCUO:fch_pago ) == YEAR( DATE() ) .AND. ; oQryPCUO:num_insc == oQryINS:numero aVar[5] := aVar[5] + oQryPCUO:mto_aporte // SUMO COBRADO CUOTAS DEL MES ENDIF oQryPCUO:SKIP() ENDDO AADD( aDatos, aReg ) // LLENO aDatos PARA EL xBROWSE ...

Excuse, i dont speake english, try again use UPDATE en los GET...

REDEFINE GET aGet[2] VAR aVar[2] ID 102 OF oDlg UPDATE READONLY // NOMB.CLIENTE

saludos...

... COL. :bClrStd := {|| IF( oBrw:nArrayAt % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203, 226, 254)} ) } :bKeyDown := {| nKey | teclado( nKey, oBrw, aVar, aGet, oQryBancos ) } // CONTROLA VIRTUAL KEY ***:bPastEof := { || addrow( oBrw ) } // HACE EDICION DE CELDA AUTOMATICAMENTE CON FLECHA ABAJO... ...

... COL. :bClrStd := {|| IF( oBrw:nArrayAt % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203, 226, 254)} ) } :bKeyDown := {| nKey | teclado( nKey, oBrw, aVar, aGet, oQryBancos ) } // CONTROLA VIRTUAL KEY ***:bPastEof := { || addrow( oBrw ) } // HACE EDICION DE CELDA AUTOMATICAMENTE CON FLECHA ABAJO... ...

How solve it.

If i call xBrowse( aVar )

con los últimos cambios en Tdpicker me genera un error . REDEFINE DTPICKER aObj[vFECHA] VAR aVAr[vFECHA] ID IDFECHA OF oDlg UPDATE FONT ofont2 el problema es que no tiene valor de bValid la nueva Data se inicializa a .t. DATA lClosed INIT .T. por ello a llegar a la linea ...

... ejemplo sencillo..espero te sirva y sea sobre lo que hablas, saludos... :shock: // PARA VALIDAR NO SE REPITA CAMPO CLAVE FUNCTION existe( cQuery, aVar, cVar ) // cVar CONTROLA EL CAMPO POR EL CUAL SE HACE LA VALIDACION, ES DECIR ES EL CAMPO CLAVE // cQuery LA CONSULTA // aVar ES EL VALOR ENTRADO... ...

... TITLE pEmpresa REDEFINE CHECKBOX oTranslate VAR lTranslate ID 116 OF oDlg VALID IIF(CHECKPTO(lTranslate)=.T.,.T.,.T.) Redefine say aVar[6,1] PROMPT aVar[6,2] ID 114 OF oDlg UPDATE COLOR CLR_BLUE, CLR_GRAY // Fecha Redefine Get aVar[3,1] VAR aVar[3,2] ID 104 OF oDlg PICTURE "99/99/99" ...

... y linkeo con Ajm tiene que ver? 1. Leer (ReadComm->Robert Frank) por puerto serial(scanner) el codigo de barras y pasarlo al -> campo(aVar[26,2]t) validar que exista en el Dbf y que muestre descripcion y precio Redefine Get aVar[26,1] VAR aVar[26,2] ID 121 OF oDlg Picture replicate("!",30); ...