FiveTech Software tech support forums

Es EXACTAMENTE lo que necesitaba,

Gracias, Arigato

Esto está trabajando bién ******************************************************************************* static procedure GrabaZip(cOrig,aFileList) ******************************************************************************* local     cFile ,;           aFiles,;                     nItem,;      ...

Gracias, Intentaré esto

Necesito Imprimir desde Sql utilizando la clase tReport, Alguien me pudiera dar un empujoncito???

Gracias

edita el recurso y apaga 'tab stop' de los botones, además que el listbox debe estar primero en la lista del orden

YO UTILIZO UNA TABLA DE TRABAJOS POR FACTURAR Y CADA VEZ QUE SE TERMINA UN TRABAJO SE INSERTA UN REGISTRO EN DICHA TABLA

AHORA, EL BROWSE DE FACTURACIÓN SE REFRESCA CADA CIERTO TIEMPO Y ENTONCES APARECE REFLEJADO LO QUE TIENE QUE FACTURAR

Esto hace lo que tu dices: Espero que te sirva de ejemplo     REDEFINE LISTBOX oLbx ;              FIELDS TRANSFORM(TMPLIMIT->F_INICIO,'99/99/9999')  ,;                     TRANSFORM(TMPLIMIT->F_FINAL,'99/99/9999')   ,;                     TMPLIMIT->VERSION+CRLF                      ,;              ...

TIENES QUE ENCADENAR LA LIBRERÍA:hbzip.lib

TODO DEPENDE COMO ABRAS LA TABLA,
SI UTILIZAS INDICES NTX DE TODAS FORMAS TRABAJARÁ EL OBJETO BROWSE
EL ORDEN DE LA INFORMACIÓN VA A DEPENDER DE CUAL DE LOS .NTX TENGAS APUNTADO EN ESE MOMENTO
SET INDEX TO IND1,IND2,IND3 // INDICES NTX
O
SET ORDER TO 1

Aunque esto es parte de algo más complejo, te puede servir para que desarrolles tu propia función para imprimir justificado una cadena de texto; *************************************************************************************** FUNCTION pSay3(nline,ncol,cTexto,nFont,nJust)  * pSay3(Linea,Col,&q...

Claro José, si lo que retorna Publicas:cTipo$"PDO" es numérico REDEFINE BTNGET opd VAR Publicas:cTipo  ID 111 Of oDlg Update Picture "@!";                     valid eval ({||Publicas:cTipo$"PDO",(iif(Publicas:ctipo='O',(ocopro2:Show(),opd:oJump:=ocopro2,ocopro2:setfocus...

Yo Utilizo Eagle y agrego de la siguiente forma: ***************************************************************************************************** FUNCTION CARGACONDI() ***************************************************************************************************** LOCAL cCommand   ,;      ...

Bueno, y si utilizas una variable local lógica que le cambias el valor en el ON MODIFY del get Algo Asi: LOCAL oGet,; cVariable,; lChange:=.F.,; bModif bModif:={ || lChange:=.T. } REDEFINE GET oGET VAR cVariable .......,; ON CHANGE eval(bModif) . . . . . IF lChange // Almaceno ENDIF :oops: No se, pu...

Intenta esto: FUNC MAIN() DEFINE WINDOW oWnd TITLE "Sistema" PIXEL DEFINE TIMER oTimer OF oWnd INTERVAL aConfig[5] ACTION USBChk() oTimer:Activate() ACTIVATE WINDOW oWnd ICONIZED ON INIT START(oWnd) RETU NIL FUNC START(oWnd) LOCAL oDlg,oSAY,oLOGO,oPANEL,oBtn,oBtnLOGO,oCBX,nEle LOCAL oCOM1,...

No se en la clase Treport, pero prueba con:

oReport:lprvmodal:=.t.