Error en la Main al retornar de un Reporte

[Willi Quintana]

Hola amigos, cuando pretendo imprimir datos, mando a la impresora con este modo:,

Code: Select all

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

[karinha]

Post la Function completa porfa.