Predmet:Re: Fiskalizacija u FBiH

---

++++++++++++++++++++

[color=#FF3300] PrintEPSON ROUTINE[/color]

CLEAR(W2_UKP)

IF L1:W1_REKL = 1
L1:W1_ZAHT = 1
ELSE
L1:W1_ZAHT = 2
END

IF L1:W1_ZAHT = 1
L1:W1_UKR10 = 'C:\Epson\Prodaja'
END

IF L1:W1_ZAHT = 2
L1:W1_UKR10 = 'C:\Epson\Prodaja'
END

IF ~XML:CreateXMLFILE((CLIP(LEFT(FORMAT(L1:W1_UKR10,@
S35))) & '.xml'),'1.0','UTF-8','')

CLEAR(KRE2:KRE_RED)

KRE2:KRE_PRE = G1:W1_PRE
KRE2:KRE_SRE = G1:W1_SRE
KRE2:KRE_RAK = G1:W1_RAJ
KRE2:KRE_BRJ = G1:W1_BRJ
SET(KRE2:KeyKRE_PRE,KRE2:KeyKRE_PRE)
NEXT(KREDITU)

PKO:U3_SPA = KRE2:KRE_SIB
GET(PKOMIT,PKO:KeyU3_SPA)
IF ERROR()
MESSAGE('Nema podataka za kupca')
END

XML:CreateParent('TremolFpServer')

XML:CreateAttribute('Command', 'Receipt')
XML:CreateAttribute('CompanyID', PKO:U3_MBR)
XML:CreateAttribute('CompanyName', PKO:U3_NPA)
XML:CreateAttribute('CompanyHQ', 'HQ')
XML:CreateAttribute('CompanyAddress', PKO:U3_ADR)
XML:CreateAttribute('CompanyCity', PKO:U3_MPA)
XML:CreateAttribute('Description', 'Račun')

IF L1:W1_REKL = 1
XML:CreateAttribute('RefundReceipt', '1')
END
XML:AddParent()

CLEAR(KRE2:KRE_RAK)

KRE2:KRE_PRE = G1:W1_PRE
KRE2:KRE_SRE = G1:W1_SRE
KRE2:KRE_RAK = G1:W1_RAJ
KRE2:KRE_BRJ = G1:W1_BRJ
SET(KRE2:KeyKRE_PRE,KRE2:KeyKRE_PRE)

LOOP
NEXT(KREDITU)
IF ERROR() THEN BREAK.

IF KRE2:KRE_PRE <> G1:W1_PRE OR KRE2:KRE_SRE <> G1:W1_SRE OR KRE2:KRE_RAK <> G1:W1_RAJ OR KRE2:KRE_BRJ <> G1:W1_BRJ THEN BREAK.

G1:W1_ART += 1

! 2 Naziv artikla

MPA:MA_ART = KRE2:KRE_ART
GET(MPART,MPA:KeyMA_ART)

L1:WU_NAR = MPA:MA_NAR[1:30]
L1:WIZ_NAR = CLIP(LEFT(FORMAT(KRE2:KRE_ART,@n_6))) & ' ' & CLIP(LEFT(FORMAT(L1:WU_NAR,@S30)))

L1:W1_UKR2 = CHOOSE(LEN(CLIP(L1:WIZ_NAR))>36,L1:WIZ_NAR[1:36],CLIP(L1:WIZ_NAR))

!-------------------------------------------------
-------------------------------------------
! 3 Cijena
W1_RAB = 0

W1_UKP = KRE2:KRE_KOL * KRE2:KRE_PCI
W2_UKP += W1_UKP

! Kraj cijena

XML:CreateParent('Item')

XML:CreateAttribute('Description', L1:W1_UKR2)
XML:CreateAttribute('Quantity', CLIP(LEFT(FORMAT(KRE2:KRE_KOL,@n_9.3))))
XML:CreateAttribute('Price', CLIP(LEFT(FORMAT(KRE2:KRE_PCI,@n_9.2))))
XML:CreateAttribute('VatInfo', '1')
XML:CreateAttribute('Department', KRE2:KRE_RAK)
XML:CreateAttribute('Discount', CLIP(LEFT(FORMAT(W1_RAB,@n_6.2))))
XML:CreateAttribute('UnitName', CLIP(LEFT(MPA:MA_JEM)))

XML:AddParent(True)

! Ako je reklamni račun
IF L1:W1_REKL = 1 AND KRE2:KRE_KOL < 0
KRE2:KRE_KOL = KRE2:KRE_KOL * -1
END

END

L1:W1_VPL = 4

IF L1:W1_VPL = 1
L1:W1_GPL = 'Gotovina'
END

IF L1:W1_VPL = 2
L1:W1_GPL = 'Kartica'
END
IF L1:W1_VPL = 3
L1:W1_GPL = 'Cek'
END

IF L1:W1_VPL = 4
L1:W1_GPL = 'Virman'
END

XML:CreateParent('Payment')
XML:CreateAttribute('Type', L1:W1_GPL)
XML:CreateAttribute('Amount', CLIP(LEFT(FORMAT(W2_UKP,@n_9.2))))

XML:AddParent(True)

XML:CloseParent('TremolFpServer')

XML:CloseXMLFILE()

ELSE

MESSAGE('Greska pri kreiranju XML datoteke')

END