Hello,
continuing an old topic
<https://www.mail-archive.com/gnucash-devel@gnucash.org/msg43790.html>,
I parsed the Romanian e-Invoice example through Guile using a very
simple script file.
Both the script and the output file are attached.
So, what do I with it?
Any suggestions, guidance?
Thank you.
--
Cu stima,
*Mihai DEMIAN*
Administrator and PLC programmer
*SC Easy Engineering and Automation SRL* <https://easyea.ro>
Str. Transilvaniei nr. 1, Baia Mare, Maramures, Romania
Call<tel:+40755069757> Mail<mailto:mihai.dem...@easyea.ro>
website<https://easyea.ro>
LinkedIn<https://www.linkedin.com/company/easyea/>
(*TOP* (*PI* xml version="1.0" encoding="UTF-8") (default:Invoice
(cbc:UBLVersionID 2.1)
(cbc:CustomizationID
urn:cen.eu:en16931:2017#compliant#urn:efactura.mfinante.ro:CIUS-RO:1.0.0)
(cbc:ID 6422451356)
(cbc:IssueDate 2022-05-31)
(cbc:DueDate 2022-05-31)
(cbc:InvoiceTypeCode 380)
(cbc:Note some text for invoice note)
(cbc:DocumentCurrencyCode RON)
(cac:InvoicePeriod
(cbc:EndDate 2022-05-31)
)
(cac:AccountingSupplierParty
(cac:Party
(cac:PartyName
(cbc:Name Seller SRL)
)
(cac:PostalAddress
(cbc:StreetName line1)
(cbc:CityName SECTOR1)
(cbc:PostalZone 013329)
(cbc:CountrySubentity RO-B)
(cac:Country
(cbc:IdentificationCode RO)
)
)
(cac:PartyTaxScheme
(cbc:CompanyID RO1234567890)
(cac:TaxScheme
(cbc:ID VAT)
)
)
(cac:PartyLegalEntity
(cbc:RegistrationName Seller SRL)
(cbc:CompanyLegalForm J40/12345/1998)
)
(cac:Contact
(cbc:ElectronicMail m...@seller.com)
)
)
)
(cac:AccountingCustomerParty
(cac:Party
(cac:PartyIdentification
(cbc:ID 123456)
)
(cac:PartyName
(cbc:Name Buyer name)
)
(cac:PostalAddress
(cbc:StreetName BD DECEBAL NR 1 ET1)
(cbc:CityName ARAD)
(cbc:PostalZone 123456)
(cbc:CountrySubentity RO-AR)
(cac:Country
(cbc:IdentificationCode RO)
)
)
(cac:PartyTaxScheme
(cbc:CompanyID RO987456123)
(cac:TaxScheme
(cbc:ID VAT)
)
)
(cac:PartyLegalEntity
(cbc:RegistrationName Buyer SRL)
(cbc:CompanyID J02/321/2010)
)
)
)
(cac:PaymentMeans
(cbc:PaymentMeansCode 31)
(cac:PayeeFinancialAccount
(cbc:ID RO80RNCB0067054355123456)
)
)
(cac:TaxTotal
(cbc:TaxAmount (@ (currencyID RON)) 6598592.6)
(cac:TaxSubtotal
(cbc:TaxableAmount (@ (currencyID RON)) 696.12)
(cbc:TaxAmount (@ (currencyID RON)) 34.79)
(cac:TaxCategory
(cbc:ID S)
(cbc:Percent 5.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:TaxSubtotal
(cbc:TaxableAmount (@ (currencyID RON)) 22875.45)
(cbc:TaxAmount (@ (currencyID RON)) 2059.43)
(cac:TaxCategory
(cbc:ID S)
(cbc:Percent 9.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:TaxSubtotal
(cbc:TaxableAmount (@ (currencyID RON)) 34718412.54)
(cbc:TaxAmount (@ (currencyID RON)) 6596498.38)
(cac:TaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
)
(cac:LegalMonetaryTotal
(cbc:LineExtensionAmount (@ (currencyID RON)) 34741984.11)
(cbc:TaxExclusiveAmount (@ (currencyID RON)) 34741984.11)
(cbc:TaxInclusiveAmount (@ (currencyID RON)) 41340576.71)
(cbc:PayableAmount (@ (currencyID RON)) 41340576.71)
)
(cac:InvoiceLine
(cbc:ID 1)
(cbc:InvoicedQuantity (@ (unitCode C62)) 46396.67)
(cbc:LineExtensionAmount (@ (currencyID RON)) 334641.38)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 801.98)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -19272.48)
(cbc:BaseAmount (@ (currencyID RON)) 354715.84)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0102)
)
(cac:CommodityClassification
(cbc:ItemClassificationCode (@ (listID STI)) 03222000-3)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.6453)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 2)
(cbc:InvoicedQuantity (@ (unitCode C62)) 622078.28)
(cbc:LineExtensionAmount (@ (currencyID RON)) 4289031.25)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 10454.98)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -116445.65)
(cbc:BaseAmount (@ (currencyID RON)) 4415931.88)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0104)
)
(cac:CommodityClassification
(cbc:ItemClassificationCode (@ (listID TSP)) 08055010)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.0987)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 3)
(cbc:InvoicedQuantity (@ (unitCode C62)) 94104.55)
(cbc:LineExtensionAmount (@ (currencyID RON)) 662151.44)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 3589.66)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -19458.05)
(cbc:BaseAmount (@ (currencyID RON)) 685199.15)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0106)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.2813)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 4)
(cbc:InvoicedQuantity (@ (unitCode C62)) 3764335.51)
(cbc:LineExtensionAmount (@ (currencyID RON)) 25444505.23)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 63265.49)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -650523.32)
(cbc:BaseAmount (@ (currencyID RON)) 26158294.04)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0107)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 6.9490)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 5)
(cbc:InvoicedQuantity (@ (unitCode C62)) 51772.34)
(cbc:LineExtensionAmount (@ (currencyID RON)) 379456.48)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 2980.02)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -654.54)
(cbc:BaseAmount (@ (currencyID RON)) 383091.04)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0108)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.3995)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 6)
(cbc:InvoicedQuantity (@ (unitCode C62)) 20807.57)
(cbc:LineExtensionAmount (@ (currencyID RON)) 137685.72)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 757.66)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -4664.27)
(cbc:BaseAmount (@ (currencyID RON)) 143107.65)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0201)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 6.8777)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 7)
(cbc:InvoicedQuantity (@ (unitCode C62)) 217932.24)
(cbc:LineExtensionAmount (@ (currencyID RON)) 1371322.68)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 3662.64)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -41460.64)
(cbc:BaseAmount (@ (currencyID RON)) 1416445.96)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0203)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 6.4995)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 8)
(cbc:InvoicedQuantity (@ (unitCode C62)) 137142.39)
(cbc:LineExtensionAmount (@ (currencyID RON)) 875772.03)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 2305.01)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -26705.29)
(cbc:BaseAmount (@ (currencyID RON)) 904782.33)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0204)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 6.5974)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 9)
(cbc:InvoicedQuantity (@ (unitCode C62)) 40993.25)
(cbc:LineExtensionAmount (@ (currencyID RON)) 282140.46)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 1568.00)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -8434.52)
(cbc:BaseAmount (@ (currencyID RON)) 292142.98)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0205)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.1266)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 10)
(cbc:InvoicedQuantity (@ (unitCode C62)) 32676.41)
(cbc:LineExtensionAmount (@ (currencyID RON)) 105566.28)
(cac:AllowanceCharge
(cbc:ChargeIndicator false)
(cbc:AllowanceChargeReasonCode 95)
(cbc:AllowanceChargeReason Discount)
(cbc:Amount (@ (currencyID RON)) 548.95)
)
(cac:AllowanceCharge
(cbc:ChargeIndicator true)
(cbc:AllowanceChargeReasonCode ZZZ)
(cbc:AllowanceChargeReason Mutually defined)
(cbc:Amount (@ (currencyID RON)) -6057.84)
(cbc:BaseAmount (@ (currencyID RON)) 112173.07)
)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0330)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 3.4328)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 11)
(cbc:InvoicedQuantity (@ (unitCode C62)) 2730.01)
(cbc:LineExtensionAmount (@ (currencyID RON)) 318422.49)
(cac:Item
(cbc:Name Vignieta)
(cac:SellersItemIdentification
(cbc:ID 0452)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 116.6378)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 12)
(cbc:InvoicedQuantity (@ (unitCode C62)) 958.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 115615.43)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0454)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 120.6842)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 13)
(cbc:InvoicedQuantity (@ (unitCode C62)) 125.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 3009.43)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0501)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 24.0754)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 14)
(cbc:InvoicedQuantity (@ (unitCode C62)) 35.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 13.50)
(cac:Item
(cbc:Name Taxa Ulei)
(cac:SellersItemIdentification
(cbc:ID 0520)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 0.3857)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 15)
(cbc:InvoicedQuantity (@ (unitCode C62)) 8875.75)
(cbc:LineExtensionAmount (@ (currencyID RON)) 52726.75)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0540)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 5.9405)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 16)
(cbc:InvoicedQuantity (@ (unitCode C62)) 538.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 64490.35)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0541)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 119.8705)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 17)
(cbc:InvoicedQuantity (@ (unitCode C62)) 17.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 281.13)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0550)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 16.5371)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 18)
(cbc:InvoicedQuantity (@ (unitCode C62)) 639.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 13339.83)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0552)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 20.8761)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 19)
(cbc:InvoicedQuantity (@ (unitCode C62)) 1084.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 11739.14)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0632)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 10.8295)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 20)
(cbc:InvoicedQuantity (@ (unitCode C62)) 5.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 20.96)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0640)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 4.1920)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 21)
(cbc:InvoicedQuantity (@ (unitCode C62)) 9.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 570.37)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0702)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 63.3744)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 22)
(cbc:InvoicedQuantity (@ (unitCode C62)) 198.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 2662.44)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0710)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 13.4467)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 23)
(cbc:InvoicedQuantity (@ (unitCode C62)) 36.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 876.06)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0724)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 24.3350)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 24)
(cbc:InvoicedQuantity (@ (unitCode C62)) 382.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 6304.10)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0810)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 16.5029)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 25)
(cbc:InvoicedQuantity (@ (unitCode C62)) 18.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 254.65)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0812)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 9.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 14.1472)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 26)
(cbc:InvoicedQuantity (@ (unitCode C62)) 1.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 14.61)
(cac:Item
(cbc:Name Mancare)
(cac:SellersItemIdentification
(cbc:ID 0820)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 14.6100)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 27)
(cbc:InvoicedQuantity (@ (unitCode C62)) 2228.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 15754.58)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0824)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 9.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.0712)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 28)
(cbc:InvoicedQuantity (@ (unitCode C62)) 40.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 606.29)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0830)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 15.1573)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 29)
(cbc:InvoicedQuantity (@ (unitCode C62)) 1242.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 6866.22)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0832)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 9.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 5.5284)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 30)
(cbc:InvoicedQuantity (@ (unitCode C62)) 64.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 448.73)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0851)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 5.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 7.0114)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 31)
(cbc:InvoicedQuantity (@ (unitCode C62)) 1359.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 25135.83)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0854)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 18.4958)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 32)
(cbc:InvoicedQuantity (@ (unitCode C62)) 6.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 247.39)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 0856)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 5.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 41.2317)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 33)
(cbc:InvoicedQuantity (@ (unitCode C62)) 2315.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 10417.50)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 9000)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 4.5000)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 34)
(cbc:InvoicedQuantity (@ (unitCode C62)) 1.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 1.12)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 9008)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 1.1200)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
(cac:InvoiceLine
(cbc:ID 35)
(cbc:InvoicedQuantity (@ (unitCode C62)) 15629.00)
(cbc:LineExtensionAmount (@ (currencyID RON)) 209892.26)
(cac:Item
(cbc:Name item name)
(cac:SellersItemIdentification
(cbc:ID 9012)
)
(cac:ClassifiedTaxCategory
(cbc:ID S)
(cbc:Percent 19.00)
(cac:TaxScheme
(cbc:ID VAT)
)
)
)
(cac:Price
(cbc:PriceAmount (@ (currencyID RON)) 13.4297)
(cbc:BaseQuantity (@ (unitCode C62)) 1)
)
)
))#!/usr/bin/guile -s
!#
(use-modules (sxml simple))
(define ifileport
(open-file
"/home/demian/Downloads/DeStat/exemple_Invoice_CreditNote/eInvoice_ex.xml" "r"
#:encoding "UTF-8"))
(define filecontents
(xml->sxml ifileport
#:namespaces '((default .
"urn:oasis:names:specification:ubl:schema:xsd:Invoice-2")
(cac .
"urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2")
(cbc .
"urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2"))))
(define ofileport
(open-file "/home/demian/Projects/testGuile/output-ublexample.txt" "w"))
(display filecontents ofileport)
(close-port ifileport)
(close-port ofileport)
_______________________________________________
gnucash-devel mailing list
gnucash-devel@gnucash.org
https://lists.gnucash.org/mailman/listinfo/gnucash-devel
