cPORT := "LPT" + ltrim(str(I_VAR[8])) // port
oPrn := TDosPrn():New(cPORT) // !!!!!!
oPrn:SetCoors(0,0)
oPrn:Command(I_VAR[9]) // German fonts
oPrn:Command(I_VAR[10]) // Font
i := 1
FOR i := 1 TO I_VAR[12] // returns for distance between labels
oPrn:Command(I_VAR[11]) // carriage return command
NEXT
oPrn:SetCoors(0,0)
oPrn:Say(1,25, d_Etti[1]) // Line 1
oPrn:Say(2,25, d_Etti[2]) // Line 2
oPrn:Say(3,25, d_Etti[3]) // Line 3
oPrn:Say(4,25, d_Etti[4]) // Line 4
oPrn:Say(5,25, d_Etti[5]) // Line 5
oPrn:Say(6,25, d_Etti[6]) // Line 6
i := 1
FOR i := 1 TO I_VAR[14] // lines
oPrn:Command(I_VAR[13]) // carriage command
oPrn:End()
function druk_Ketting()
Local nDruk:=0, nDrukafstand:= 0.5, nDrukstart:= 12.7
cPagtitel = "GROOT"
cDagboek = "VER"
Rec_lock("factinfo")
factinfo->factuur = oTellers:factnummer
factinfo->toestand = "Factuur GR="+str(oTellers:factnummer,7)
factinfo->Docstatus = "A"
rec_unlock("factinfo")
Public oPrn
Public oF12,oF12B,oF12I,oF12U,oFlarge
PRINTER oPrn NAME "Afdruk" // FROM USER //PREVIEW MODAL
oPrn:setup()
oPrn:setsize(2400,3050)
DEFINE FONT oF12 NAME "ARIAL" SIZE 0, -9 OF oPrn
DEFINE FONT oF12B NAME "ARIAL" BOLD SIZE 0, -12 OF oPrn
DEFINE FONT oF12I NAME "ARIAL" ITALIC SIZE 0, -12 OF oPrn
DEFINE FONT oF12U NAME "ARIAL" UNDERLINE BOLD SIZE 0, -10 OF oPrn
DEFINE FONT oFLarge NAME "ARIAL" BOLD SIZE 0, -18 OF oPrn
oPrn:startpage()
hoofding(oPrn,"KETTING",cPagTitel) // afdruk hoofding
nDruk = nDrukstart
dbselectarea("DETAIL")
detail->(dbgotop())
nTotaal := 0
cDrukbon = ""
do while !detail->(eof())
if nDruk >= 23.5
oPrn:endpage()
oPrn:startpage()
hoofding(oPrn,"KETTING",cPagTitel) // afdruk hoofding
nDruk = nDrukstart
endif
If cDrukbon <> alltrim(detail->drukdoc)
cDrukbon = alltrim(detail->drukdoc)
nDruk += +.3
oPrn:cmsay (nDruk,6.1,"Leveringsbon " + cDrukbon,oF12)
if factinfo->(dbseek(cDrukbon))
If !empty(factinfo->bestelbon)
oPrn:cmsay (nDruk,11,"Uw order " + alltrim(factinfo->bestelbon),oF12)
EndIF
Rec_lock("factinfo")
factinfo->factuur = oTellers:factnummer
factinfo->toestand = "Factuur GR="+str(oTellers:factnummer,7)
factinfo->Docstatus = "A"
rec_unlock("factinfo")
endif
factinfo->(dbseek(cDocnummer))
nDruk += nDrukafstand+.3
EndIF
oPrn:cmsay (nDruk, 3.9 ,detail->refnummer,oF12)
oPrn:cmsay (nDruk, 6.1 ,detail->benaming,oF12)
oPrn:cmsay (nDruk,16.8 ,str(detail->aantal,9),oF12,,,,1)
oPrn:cmsay (nDruk,18.5 ,str(detail->eenh_prijs,9,2),oF12,,,,1)
oPrn:cmsay (nDruk,19.5 ,if(detail->korting <> 0, "-"+stzero(detail->korting,3,0),""),oF12,,,,1)
oPrn:cmsay (nDruk,21.6 ,str(detail->totaal,9,2),oF12,,,,1)
oPrn:cmsay (nDruk,22.6 ,"21",oF12,,,,1)
nTotaal = nTotaal + detail->totaal
nDruk += nDrukafstand
detail->(dbskip())
enddo
if !empty(factinfo->voldaan)
oPrn:cmsay (24 , 3 ,"Betaalwijze : "+factinfo->voldaan,oF12)
endif
//oPrn:cmsay (25 , 3 ,"-2 % korting op de goederenprijs bij betaling",oF12)
//oPrn:cmsay (25.5 , 3 ," voor "+dtoc(date()+10)+" - €"+str( (nTotaal*2/100),6,2),oF12)
oPrn:cmsay (27.6 , 17.8 ,str(nTotaal,11,2),oF12b,,,,1)
oPrn:cmsay (27.6 , 18.4 ,"21",oF12b)
If upper(klant->btwjn) == "N"
nNoBtw:= 0
oPrn:cmsay (27.6 , 20.6 ,str(nNoBtw,11,2),oF12b,,,,1)
oPrn:cmsay (27.6 , 22.6 ,str(nTotaal,11,2),oF12b,,,,1)
else
oPrn:cmsay (27.6 , 20.6 ,str(Btw(21,nTotaal),11,2),oF12b,,,,1)
oPrn:cmsay (27.6 , 22.6 ,str(BtwIncl(21,nTotaal),11,2),oF12b,,,,1)
cSom = alltrim(str(BtwIncl(21,nTotaal)))
nPos = at(".",cSom)
nSomEuro = val(substr(cSom,1,nPos-1))
nSomCent = val(substr(cSom,nPos+1))
cEuro = Numconv(nSomEuro)+ " EURO EN " + Numconv(nSomCent)+" CENT"
oPrn:cmsay (28.8 , 3,"Waar en echt verklaard voor de som van",oF12)
oPrn:cmsay (29.3 , 3,cEuro,oF12)
EndIF
oPrn:cmsay (28.7 , 19.3 ,dtoc(vervaldat()),oFLarge)
oPrn:endpage()
//oPrn:Preview()
oF12:end();oF12B:end();oF12I:end();oF12U:end();oFlarge:end();oPrn:end()
return
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 93 guests