FiveTech Software tech support forums

... cCodProDes ), nValor,dDataPagto,cNomeTrab,cNomeProv } lConfirmado := .F. ENDIF Select( nSele ) RETURN( aRet ) FUNCTION RetornaNomeEmpresa( cCodigo ) LOCAL nSele := Select() LOCAL cNome := Space(40) SELECT MULTIEMP MULTIEMP->(DBSETORDER(1)) MULTIEMP->(DBGOTOP()) IF MULTIEMP->(DBSEEK(STRZERO(VAL(cCodigo),4))) ...

... button sin bmp/png, pero no lo consigo. He probado así: @190,102 BUTTON "Ver petición" OF oDlg SIZE 43,10 PIXEL ACTION VERPETICION(CRUTA,CCODIGO,CAPUNTE); TOOLTIP "Ver petición de reserva de denominación" y con variable : @190,102 BUTTON oBtn "Ver petición" OF oDlg ...

... pero funciona cuando quiero pasar un array como parámetro; a lo que me refiero es que el origen se trate de variables independientes como "cCodigo", "cNombre" ó "dFecha"; hablo de pasarlos en la forma de array {cCodigo,cNombre,dFecha} para poder pasar una cantidad ...

... [<(oGet)>], [<cCueText>] )  En ese momento lo inclui en fivewin.ch @ 1, 2 say 'Ingeresa código' get cCodigo picture '99999999'; when ... valid ... En la nueva version de fwh creo ya biene incluida...

... 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( nKey == K_CTRL_INS,MsgInfo("Hola") ...

Hola.

Gracias por tu interés

Es el objeto get, la variable es cCodigo

Saludos.

Enviado desde mi POCOPHONE F1 mediante Tapatalk

... 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( nKey == K_CTRL_INS,MsgInfo("Hola") ...

... los que no usamos ADORDD. A ver. Yo no uso ADORDD, pero su uso es totalmente transparente. Esto debe funcionar tal cual: SELECT Articulos SEEK cCodigo Si no funciona es porque te falte poner algo al principio del programa. Creo que habia que poner la lista de indices que se iban a usar o algo ...

... /* WITH OBJECT aBrw:aCols[ 1 ] :addbmpfile( op:bmp16+"eye.bmp" ) :nBtnBmp := 1 :nEditType := EDIT_BUTTON :bEditBlock := {|| VerItems( cCodigo,cQry:tipo,cQry:ord_comp )} :lBtnTransparent := .t. :lBmpStretch := .t. END */ he tenido que solucionarlo usando :aCols[01]:bLDClickData := { ...

Olá, Utilizo a TImprime e a UtilPrn, ótimas classes. Para gerar código de barras com elas e a barlib do caetano, faço assim: ::Salto() aCoord := ::oPrn:Cmtr2Pix( ::nLinea, 1.00 ) INT25( aCoord[ 1 ], aCoord[2], AllTrim( cCodigo_Barra ), ::oPrn, .F., 0, .T., 0.30, 1.20 ) *-----------------------------...

... con imágenes en Mysql lo hago asi: creo una tabla donde solo grabo la imagen mediante el sgte Query: INSERT INTO maefotos (codigo,foto) VALUES (cCodigo, LOAD_FILE(cFoto)) en cFoto es la ruta y nombre de la imagen ejm: c:/ruta/imagen.bmp Para cargar la imagen lo hago asi: REDEFINE IMAGE ::oBmp:Foto ...

... + " AND " +; " MOC_FECHA"+GetWhere("<=",oFrm:dHasta) IF !Empty(oFrm:cCodigo) .AND. !Empty(oFrm:cCodHas) cWhere:=cWhere + " AND MOC_CUENTA"+GetWhere(">=",oFrm:cCodigo) + " AND " +; " ...

... This filter produces a GPF and a hb_out.log: SET FILTER TO alltrim(AUXILIAR->RELACION) == alltrim(cValToChar( cCodigo )) I also have minor things for other post. Thank you.

... haga clic en la segunda BMP no obedece al WHEN do GET. ¿Qué hacer para corregirlo? sigue un tramo de código de prueba: redefine Get oGet1 var cCodigo picture '99999' id 101 of oDlg_0051 valid( val_0051() ) action( Eval( bLista01 ) ) Bitmap "Lupa2" update oGet1:lBtnTransparent := ...

... IF oTable:RecCount()=0 oTable:AppendBlank() oTable:cWhere:="" cWhereInc:="DIR_CODIGO"+GetWhere("=",cCodigo )+" AND "+; "DIR_APLICA"+GetWhere("=",cAplica )+" AND "+; "DIR_VERSIO"+GetWhere("=",nVersion) ...