FiveTech Software tech support forums

Es EXACTAMENTE lo que necesitaba,

Gracias, Arigato

Esto está trabajando bién


*******************************************************************************static procedure GrabaZip(cOrig,aFileList)*******************************************************************************local     cFile ,;        &nbsp ...

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 ,; TRANSFORM(TMPLIMIT->LIMITE,'999,999,999.99'),; IIF(TMPLIMIT ...

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)&nbsp ...

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',&#40 ...

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 ...

Intenta esto:

[code]
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 ...

No se en la clase Treport, pero prueba con:

oReport:lprvmodal:=.t.