Guys:
I'm printing a statement of account type report where I need to print at the top of each page the customer's name, address, etc. BEFORE listing the actual transactions. How can I do this ? Thank you.
CabeceraENTR(oPrn,nRowStep,nColStep,nLinNumDoc,nColNumdoc,nLinFecha,nColFecha,nLinProvee,nColProvee,nLinPedido,nColPedido,nLinRemisio, nColRemisio,oFont,oFont2,nPag,dFecha)
nRow:= nLinItems //linea donde comienzan los items
nLineas:=1
While (cAlias)->(!Eof())
oPrn:Say( nRow, nCol1, Transform(field->Canti,"@Z 99,999,999.99"), oFont1,,,,PAD_RIGHT )
oPrn:Say( nRow, nCol2, field->Und, oFont1,,,,PAD_LEFT )
oPrn:Say( nRow, nCol3, str(Field->codigo)+" "+ALLTRIM(field->DESCRIPCIO), oFont1,,,,PAD_LEFT )
oPrn:Say( nRow, nCol4, Transform(field->pUnit,"@Z 999,999.9999"), oFont1,,,,PAD_RIGHT )
oPrn:Say( nRow, nCol5, Transform(field->SubTotal,"@Z 99,999,999.99"), oFont1,,,,PAD_RIGHT )
(cAlias)->(dbSkip())
nRow+= nRowStep
nLineas+=1
if nLineas > nLineasMax //lineas maximas a imprimir en cada hoja
ENDPAGE
MsgInfo("Introduzca una nueva hoja para continuar, y presione enter")
PAGE
nPag+=1
nRow:= nLinItems //linea donde comienzan los items
nLineas:=1
CabeceraENTR(oPrn,nRowStep,nColStep,nLinNumDoc,nColNumdoc,nLinFecha,nColFecha,nLinProvee,nColProvee,nLinPedido,nColPedido,nLinRemisio, nColRemisio,oFont,oFont2,nPag,dFecha)
endif
Enddo
REPORT oReport;
HEADER ;
"Invoice: "+trim(::invno), "Page: "+;
ltrim(str(oReport:nPage,3)) RIGHT;
TITLE ::oSysdata:company, ;
::oSysdata:address,;
trim(::oSysdata:city)+", "+trim(::oSysdata:state)+" "+::oSysdata:zip,;
" "," ",;
"Ship to:", ;
" ",;
::oCustomer:Contact,;
::oCustomer:company,;
trim(::oCustomer:address1)+if(!empty(::oCustomer:address2),", "+::oCustomer:address2,""),;
trim(::oCustomer:city)+", "+trim(::oCustomer:state)+" "+::oCustomer:zip,;
::oCustomer:phone," "," ",;
"PO No: "+::oInvmast:PONum+" Invoice date: "+dtoc(::oInvmast:invdte)+;
" Terms: "+::oInvmast:pterms LEFT;
FONT oFont;
TO DEVICE oDevice
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 41 guests