- Code: Select all Expand view
- REPORT oPrn CAPTION cTitle PREVIEW ;
HEADER _DELEN3(oApp:cMaster),"Página:"+Str(oPrn:nPage,3) ;
TITLE cTitle;
FOOTER "Fecha:" + DTOC(oApp:dDate) + " Hora:" + Time() + " > " + UPPER(oApp:oDbName)
COLUMN TITLE "Razon Social" DATA QCliente(oMySQL, MyCampo(oCobranza, 3))[4] SIZE 34
COLUMN TITLE "Tipo" DATA MyCampo(oCobranza, 4) SIZE 2
COLUMN TITLE "Documento" DATA MyCampo(oCobranza, 5) SIZE 13
COLUMN TITLE "Fecha" DATA SETFECHA(MyCampo(oCobranza, 6)) SIZE 9
COLUMN TITLE "Monto S/." DATA If(MyCampo(oCobranza, 9)="S", MyCampo(oCobranza, 7), 0.00) TOTAL SIZE 9
COLUMN TITLE "Monto U$" DATA If(MyCampo(oCobranza, 9)="D", MyCampo(oCobranza, 7), 0.00) TOTAL SIZE 9
COLUMN TITLE "E" DATA MyCampo(oCobranza,10) SIZE 1
oPrn:bSkip := {|| (oCobranza:Skip(),SYSREFRESH()) }
END REPORT
ACTIVATE REPORT oPrn WHILE !oCobranza:EOF()
luego de imprimir, al retorna a la pantalla anterior, esta no se dibuja correctamente, sucede en WIN10
https://ibb.co/P6Cdg1y
