www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Code: Select all
Cabezara del Reporte
------------------------------------------------------------*/
FUNC HEADERC(nPage)
PSSetFont(APS_SYSTEM, APS_BOLD, 12, APS_BLACK, APS_NONE)
PSTextOut(1 , 2, FECHA)
PSTextOut(1 ,71, "Pág: " + Str(nPage, 3, 0))
PSTextOut(1 ,39, NOMEMP,, APS_CENTER)
PSTextOut(2 ,39, "NIT "+NITC,, APS_CENTER)
PSTextOut(3 ,39, DETA,, APS_CENTER)
PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE)
PSLine(4.25, 1, 4.25, 81, .5, APS_BLACK)
PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE)
PSTextOut(5 , 2, "CODIGO")
PSTextOut(5 , 10, "N O M B R E D E L A C U E N T A")
PSTextOut(5 , 47, "P A R C I A L E S")
PSTextOut(5 , 70, "S A L D O S")
PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE)
PSLine(6.50, 1, 6.50, 81, 1, APS_BLACK)
RETURN 7Code: Select all
FUNC REPBALC
Local nRow := 6
Local nPage := 1
PSSetPageSize(DMPAPER_LETTER)
PSBeginDoc(, "Balance General", APS_PORTRAIT)
PSSetUnit(APS_TEXT)
nRow := HeaderC(nPage)
DO WHILE .NOT. EOF()
PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE)
IF HYMTIT=1
PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,1)),, APS_LEFT)
PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT)
PSTextOut(nRow ,78, HMSALDOS, &DIGS, APS_DECIMAL)
HYMTIT=0
ENDIF
IF CLA#SUBS(HMCODIGO,1,1)
PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,1)),, APS_LEFT)
PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT)
PSTextOut(nRow ,78, HMSALDOS, &DIGS, APS_DECIMAL)
CLA:=SUBS(HMCODIGO,1,1)
ELSEIF GRU#SUBS(HMCODIGO,1,2)
PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,2)),, APS_LEFT)
PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT)
PSTextOut(nRow ,65, HMSALDOS, &DIGS, APS_DECIMAL)
GRU:=SUBS(HMCODIGO,1,2)
ELSEIF CTA#SUBS(HMCODIGO,1,4)
PSSetFont(APS_SYSTEM, APS_PLAIN, 8, APS_BLACK, APS_NONE)
PSTextOut(nRow , 1, (SUBS(HMCODIGO,1,4)),, APS_LEFT)
PSTextOut(nRow , 7, HMCUENTA,, APS_LEFT)
PSTextOut(nRow ,52, HMSALDOS, &DIGS, APS_DECIMAL)
PSSetFont(APS_SYSTEM, APS_BOLD, 8, APS_BLACK, APS_NONE)
CTA:=SUBS(HMCODIGO,1,4)
IF SUBS(HMCODIGO,1,1)="1"
ACTIVO:=ACTIVO+HMSALDOS
ENDIF
IF SUBS(HMCODIGO,1,1)="2"
PASIVO:=PASIVO+HMSALDOS
ENDIF
IF SUBS(HMCODIGO,1,1)="3"
PATRIMO:=PATRIMO+HMSALDOS
ENDIF
ENDIF
nRow += 1
IF nRow > 58
PSNewPage()
nPage++
nRow := HeaderC(nPage,NOMEMP)
ENDIF
DBSKIP()
ENDDO