|
QR code
Apr 22, 2019 16:46:37 GMT -5
Post by tenochtitlanuk on Apr 22, 2019 16:46:37 GMT -5
Not sure why you first remove the < and > You can find the texts you want with something like this ( ugly but self-documenting) code reading your xml ( wbut hich I saved as 'xml,xml)..
'`use AFTERLAST$() and AFTER$() might be helpful? ??
start$ ="<cbc:Description" lenS =len( start$) finish$ ="/cbc:Description>" lenF =len( finish$)
open "xml.xml" for input as #fIn file$ =input$( #fIn, lof( #fIn)) close #fIn
current =1
[look] pointer =instr( file$, start$, current) if pointer <>0 then endItem =instr( file$, finish$, pointer +2) data$ =mid$( file$, pointer +lenS +1, endItem -pointer -1 -lenF) current =endItem print data$ else end end if
scan goto [look]
...which outputted
Certificering melkvee Test Programma Algemene eenheid Programma Onverdacht Tankmelk bewaking jongvee route intake bewaking
Have you looked at my ImageMagick examples on my website- if you are using LB under Windows it should be easy to do the image-type conversion. A year or so since I've done this, 'tho.
|
|
|
QR code
Apr 23, 2019 4:04:25 GMT -5
Post by Rod on Apr 23, 2019 4:04:25 GMT -5
If that is the length of the message it is possible and simpler to do this with a barcode.
'code128 barcode drawing 'http://www.barcodeisland.com/code128.phtml nomainwin
quietZone$ = "00000000000" startBsymbol$ = "11010010000" codeCsymbol$ = "10111011110" stopsymbol$ = "11000111010" termination$ = "11" codeCvalue = 99 dim barcodeimage$(127)'barcode images dim barcodevalues(127)'barcode value
'load character set B symbols i=0 while i<127 read i,v,b$ barcodeimage$(i)=b$ barcodevalues(i)=v wend
'open a small window graphicbox #bc.gb1, 20, 20, 300, 30 graphicbox #bc.gb2, 20, 100, 300, 30 textbox #bc.tb1, 20, 60, 300, 25 textbox #bc.tb2, 20, 150, 300, 25 WindowWidth = 400 WindowHeight = 300 open "Code128 Bar Code" for window as #bc print #bc, "trapclose [quit]"
'build a simple, uncompressed barcode 'calculate checksum and build barcode image 'the checksum starts as the initial startsymbol value 'to that we add the value of every subsequent symbol times 'its position in the message. Then mod 103 the total
message$="route intake bewaking"
'select character set B ,B has upper and lower case alpha and numeric characters startBvalue=104 'start checksum calculation checksum=startBvalue barcode$="" for n = 1 to len(message$) checksum = checksum + n * barcodevalues(asc(mid$(message$,n,1))) barcode$ = barcode$ + barcodeimage$(asc(mid$(message$,n,1))) next
'calculate modulus checkdigit value checksum = checksum mod 103
'create total barcode image barcode$=quietZone$+startBsymbol$+barcode$+barcodeimage$(checksum)+stopsymbol$+termination$
'draw barcode #bc.gb1 "down ; fill white " x=0 for n = 1 to len(barcode$) if mid$(barcode$,n,1)="1" then #bc.gb1 "line ";x;" 0 ";x;" 40" end if x=x+1 next #bc.gb1 "flush" #bc.tb1 message$
wait
[quit] close #bc end
'barcode value and image table 'this is table B that has upper and lower case alpha and numeric 'table C is simply numeric pairs 00 01 etc so we dont need the data for that. 'Table A has upper case alpha and numeric but not lower case alpha. 'You will need to get Table A from the web site if you wish to use 'the special characters available in table A data 32,00,11011001100'space data 33,01,11001101100'! data 34,02,11001100110'" data 35,03,10010011000'# data 36,04,10010001100'$ data 37,05,10001001100'% data 38,06,10011001000'& data 39,07,10011000100'' data 40,08,10001100100'( data 41,09,11001001000') data 42,10,11001000100'* data 43,11,11000100100'+ data 44,12,10110011100', data 45,13,10011011100'- data 46,14,10011001110'. data 47,15,10111001100'/ data 48,16,10011101100'0 data 49,17,10011100110'1 data 50,18,11001110010'2 data 51,19,11001011100'3 data 52,20,11001001110'4 data 53,21,11011100100'5 data 54,22,11001110100'6 data 55,23,11101101110'7 data 56,24,11101001100'8 data 57,25,11100101100'9 data 58,26,11100100110': data 59,27,11101100100'; data 60,28,11100110100'< data 61,29,11100110010'= data 62,30,11011011000'> data 63,31,11011000110'? data 64,32,11000110110'@ data 65,33,10100011000'A data 66,34,10001011000'B data 67,35,10001000110'C data 68,36,10110001000'D data 69,37,10001101000'E data 70,38,10001100010'F data 71,39,11010001000'G data 72,40,11000101000'H data 73,41,11000100010'I data 74,42,10110111000'J data 75,43,10110001110'K data 76,44,10001101110'L data 77,45,10111011000'M data 78,46,10111000110'N data 79,47,10001110110'O data 80,48,11101110110'P data 81,49,11010001110'Q data 82,50,11000101110'R data 83,51,11011101000'S data 84,52,11011100010'T data 85,53,11011101110'U data 86,54,11101011000'V data 87,55,11101000110'W data 88,56,11100010110'X data 89,57,11101101000'Y data 90,58,11101100010'Z data 91,59,11100011010'[ data 92,60,11101111010'\ data 93,61,11001000010'] data 94,62,11110001010'^ data 95,63,10100110000'_ data 96,64,10100001100'` data 97,65,10010110000'a data 98,66,10010000110'b data 99,67,10000101100'c data 100,68,10000100110'd data 101,69,10110010000'e data 102,70,10110000100'f data 103,71,10011010000'g data 104,72,10011000010'h data 105,73,10000110100'i data 106,74,10000110010'j data 107,75,11000010010'k data 108,76,11001010000'l data 109,77,11110111010'm data 110,78,11000010100'n data 111,79,10001111010'o data 112,80,10100111100'p data 113,81,10010111100'q data 114,82,10010011110'r data 115,83,10111100100's data 116,84,10011110100't data 117,85,10011110010'u data 118,86,11110100100'v data 119,87,11110010100'w data 120,88,11110010010'x data 121,89,11011011110'y data 122,90,11011110110'z data 123,91,11110110110'{ data 124,92,10101111000'| data 125,93,10100011110'} data 126,94,10001011110'~ data 127,95,10111101000'DEL
|
|
|
QR code
Apr 24, 2019 4:01:39 GMT -5
Post by Rod on Apr 24, 2019 4:01:39 GMT -5
You don't need an expensive scanner the cheap ones work perfectly well and you can also go wireless. Plug and play really. To Liberty it just looks like you keyed in the data so a textbox is all you need, point the wand at the barcode press the trigger and the info appears in the textbox.
|
|
konijn
Junior Member
Posts: 96
|
QR code
Apr 25, 2019 11:58:52 GMT -5
Post by konijn on Apr 25, 2019 11:58:52 GMT -5
I know its stupid but I am struggle here: '`use AFTERLAST$() and AFTER$() might be helpful? ??
start$ ="<cbc:Name" lenS =len( start$) finish$ ="/cbc:Name>" lenF =len( finish$)
open "c:\factuur\SEPA\SEPAbestanden\ubl.xml" for input as #fIn file$ =input$( #fIn, lof( #fIn)) close #fIn
current =1
[look] i = 0 for i = 1 to ?? pointer =instr( file$, start$, current) if pointer <>0 then endItem =instr( file$, finish$, pointer +2) data$(i) =mid$( file$, pointer +lenS +1, endItem -pointer -1 -lenF) current =endItem print data$(i) i= i + 1 next i else goto [print] end if
scan goto [look]
[print] for i = 1 to ?? print data$(i) next i
I want have the data$(i) have a number that I can use that later by de bar/qr codes. I am a beginner....
|
|
konijn
Junior Member
Posts: 96
|
QR code
Apr 25, 2019 12:17:23 GMT -5
Post by konijn on Apr 25, 2019 12:17:23 GMT -5
And how to split this one? <cbc:PriceAmount currencyID="EUR">16.98</cbc:PriceAmount> to get the price. I have to replace the "."for a "," otherwise I get an error in the financialsoftware
What I try to make is just as what tenochtitlanuk made in the example (or with barcodes, i dont what will work best?) First the data in text then the QR code then the price in text an as last the qr code off the price. I dont if thats possible?
|
|
konijn
Junior Member
Posts: 96
|
QR code
Apr 26, 2019 9:49:20 GMT -5
Post by konijn on Apr 26, 2019 9:49:20 GMT -5
Not sure why you first remove the < and > You can find the texts you want with something like this ( ugly but self-documenting) code reading your xml ( wbut hich I saved as 'xml,xml).. '`use AFTERLAST$() and AFTER$() might be helpful? ??
start$ ="<cbc:Description" lenS =len( start$) finish$ ="/cbc:Description>" lenF =len( finish$)
open "xml.xml" for input as #fIn file$ =input$( #fIn, lof( #fIn)) close #fIn
current =1
[look] pointer =instr( file$, start$, current) if pointer <>0 then endItem =instr( file$, finish$, pointer +2) data$ =mid$( file$, pointer +lenS +1, endItem -pointer -1 -lenF) current =endItem print data$ else end end if
scan goto [look]
...which outputted Certificering melkvee Test Programma Algemene eenheid Programma Onverdacht Tankmelk bewaking jongvee route intake bewaking
Have you looked at my ImageMagick examples on my website- if you are using LB under Windows it should be easy to do the image-type conversion. A year or so since I've done this, 'tho.Yes I am looking but not working yet.How can I label te outputted data wit an (i)? I can not say i = 1 to 10 because you never know how much i 's there are.
|
|
konijn
Junior Member
Posts: 96
|
QR code
Apr 26, 2019 9:52:54 GMT -5
Post by konijn on Apr 26, 2019 9:52:54 GMT -5
Have you looked at my ImageMagick examples on my website- if you are using LB under Windows it should be easy to do the image-type conversion. A year or so since I've done this, 'tho.
Yes I am looking but not working yet.
How can I label te outputted data wit an (i)? I can not say i = 1 to 10 because you never know how much i 's there are.
|
|
|
QR code
Apr 26, 2019 12:56:08 GMT -5
Post by tenochtitlanuk on Apr 26, 2019 12:56:08 GMT -5
Code below seems to happily strip out the required data and do the QR codes. If I understand right, you want the number values too, but with the '.' replaced by ','. I'll see if I can add that tonight... I don't know if you are going to use this web/QR technique, but I've had fun playing with it. To use you first need to download and install ImageMagick- free on the web. Change the file path to what is appropriate for you. It will print to your DEFAULT printer. I often set this to 'print to PDF' when testing, to save paper! link to pdf produced by this code ' <cbc:PriceAmount currencyID="EUR">16.98</cbc:PriceAmount> to get the price. ' I have to replace the "."for a "," otherwise I get an error in the financialsoftware ' data_text, data_QR, price_text, price_QR.
'nomainwin
WindowWidth =800 WindowHeight =800 UpperLeftX = 10 UpperLeftY = 10
open "Create and print QR and text" for graphics_nsb as #1
#1 "trapclose quit"
start$ ="<cbc:Name>" lenS =len( start$) finish$ ="</cbc:Name>" lenF =len( finish$)
start2$ ="EUR" +chr$( 34) +">" lenS2 =len( start2$) finish2$="</cbc:PriceAmount>" lenF2 =len( finish2$)
'open "c:\factuur\SEPA\SEPAbestanden\ubl.xml" for input as #fIn ' I have the file in the same directory as the program so don't need full pathname. open "xml.xml" for input as #fIn file$ =input$( #fIn, lof( #fIn)) close #fIn
current =1 i =0 ' You may to use 1 as the first bit of data.
[look] pointer =instr( file$, start$, current) if pointer <>0 then endItem =instr( file$, finish$, pointer +2) data$(i) =mid$( file$, pointer +lenS, endItem -pointer +1 -lenF) current =endItem print i, data$( i) i =i +1 else goto [print] end if
scan goto [look]
[print] for j = 0 to i -1 print data$( j) http$ ="http://chart.apis.google.com/chart?cht=qr&chs=150x150&chl=" +data$( j) result = DownloadToFile( http$, "QR" +str$( j) +".png") timer 2000, [o1] ' wait 2 seconds for code to be sent back wait [o1] timer 0
' call IM to convert png to 24 bit bmp ' load chosen image; remove transparency; resize; save temporarily as bmp. ' Note if your directory or file names include spaces you have to add the quote here.. ' ie put chr$( 34) either side of the file/pathname. ' trucolor to force 24 bit. Resize if you want- here not needed.
IM$ ="convert +matte -resize 150x150 -type truecolor " +chr$( 34) +"QR" +str$( j) +".png" +chr$( 34) +" temp.bmp " print IM$ ' use when debugging!!
run "cmd.exe /c "; chr$( 34); IM$; chr$( 34), HIDE ' Give it 2 seconds to execute ( may not be enough for large images) timer 2000, [o2] wait [o2] timer 0
loadbmp "imx", "temp.bmp" kill "temp.bmp" kill "QR" +str$( j) +".png"
#1 "up ; goto 20 "; j *150 +50 #1 "down" #1 "\"; data$( j) #1 "drawbmp imx 300 "; j *150 next j
#1 "flush ; print 800"
close #1 end
sub quit h$ close #h$ end end sub
Function DownloadToFile( urlfile$, localfile$) open "URLmon" for dll as #url calldll #url, "URLDownloadToFileA",_ 0 as long,_ ' null urlfile$ as ptr,_ ' url to download localfile$ as ptr,_ ' save file name 0 as long,_ ' reserved, must be 0 0 as long,_ ' callback address, can be 0 DownloadToFile as ulong ' 0 =success close #url end function
|
|
konijn
Junior Member
Posts: 96
|
QR code
Apr 26, 2019 15:44:43 GMT -5
Post by konijn on Apr 26, 2019 15:44:43 GMT -5
Yes I see. Great I will test it. Yes I want to use the QR codes to try make the administration eassier. It take a lot of time and I think with this way it will save time. What I see in the xml files, some of them have no data in the <cbc:Description> So I have to use <cbc:Name> But then I get also some names, like the invoice sender. And there is no price on connected. All my data I need is located in this chapter: <cac:InvoiceLine> Thats the last part off the xml. I will send you one xml. Yes the program need a , instead an , Tommorow we gonna test the cow system where you helped me with, last year. We have a transponder on the cow his neck and a reader. And I receive and send the data over UPD. I hope it wel work I should receive PM I think?
|
|
|
QR code
Apr 27, 2019 16:28:56 GMT -5
Post by tenochtitlanuk on Apr 27, 2019 16:28:56 GMT -5
This is a clearer example of parsing the xml to get your data name and value ( in comma rather than decimal point form) May give you some more ideas.
' <cbc:PriceAmount currencyID="EUR">16.98</cbc:PriceAmount> to get the price. ' I have to replace the "."for a "," otherwise I get an error in the financial software ' data_text, data_QR, price_text, price_QR.
start1$ ="<cbc:Name>": len1S =len( start1$) finish1$ ="</cbc:Name>": len1F =len( finish1$)
start2$ ="EUR" +chr$( 34) +">": len2S =len( start2$) finish2$ ="</cbc:PriceAmount>": len2F =len( finish2$)
open "xml.xml" for input as #fIn file$ =input$( #fIn, lof( #fIn)) close #fIn
pointer =1 i =0
dim data1$( 100), data2$( 100)
while not( pointer >=len( file$)) and i <10 startOfItem1 =instr( file$, start1$, pointer) +len1S
if ( pointer =0) then exit while endOfItem1 =instr( file$, finish1$, pointer) data1$( i) =mid$( file$, startOfItem1, endOfItem1 -startOfItem1)
startOfItem2 =instr( file$, start2$, endOfItem1) +len2S endOfItem2 =instr( file$, finish2$, startOfItem2) data2$( i) =mid$( file$, startOfItem2, endOfItem2 -startOfItem2)
print i; tab( 6); data1$( i); tab( 30); decToComma$( data2$( i)) i =i +1 pointer =instr( file$, start2$, endOfItem2)
scan wend
end
function decToComma$( a$) for j =1 to len( a$) c$ =mid$( a$, j, 1) if c$ ="." then decToComma$ =decToComma$ +"," else decToComma$ =decToComma$ +c$ end if next j end function
Which uses the known leaders and tails of the sections required and produced
Notice I'm saving in two arrays, indexed from zero, which can then be referred to when laying out a page and calling QR or barcode routines. It stops reading when no more are found. You'd have to detect when a page has been filled ( at previous scale, abot 7 items) and print, clear screen, and print further values as necessary...
|
|
konijn
Junior Member
Posts: 96
|
QR code
May 24, 2019 12:15:37 GMT -5
Post by konijn on May 24, 2019 12:15:37 GMT -5
Hello John, I have it not working yet. With the above code you wrote for me, I dont get all the invoice lines. I Enclose a xml file. I need all the <cbc:Name> and <cbc:PriceAmount currencyID="EUR"> data between the <cac:InvoiceLine> and </cac:InvoiceLine> In this example are 13 items off <cbc:Name>. But the tricky is in the begin off the file is <cbc:Name> also used for the name off the person for who the invoice is send. But that is not needed. Needed are the invoice lines. With this program is the xml file good for checking also to see the invoicelines: UBL/XML viewer toolTest file: (save as xml on your computer) <?xml version="1.0" encoding="UTF-8"?> <Invoice xmlns="urn:oasis:names:specification:ubl:schema:xsd:Invoice-2" xmlns:udt="urn:un:unece:uncefact:data:draft:UnqualifiedDataTypesSchemaModule:2" xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2" xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2" xmlns:stat="urn:oasis:names:specification:ubl:schema:xsd:DocumentStatusCode-1.0" xmlns:ccts="urn:oasis:names:specification:ubl:schema:xsd:CoreComponentParameters-2" xmlns:qdt="urn:oasis:names:specification:ubl:schema:xsd:QualifiedDatatypes-2"> <cbc:UBLVersionID>2.0</cbc:UBLVersionID> <cbc:CustomizationID>10</cbc:CustomizationID> <cbc:ProfileID>NL</cbc:ProfileID> <cbc:ID>83500 </cbc:ID> <cbc:IssueDate>2019-05-16</cbc:IssueDate> <cbc:InvoiceTypeCode>380</cbc:InvoiceTypeCode> <cbc:TaxPointDate>2019-05-16</cbc:TaxPointDate> <cbc:DocumentCurrencyCode>EUR</cbc:DocumentCurrencyCode> <cbc:LineCountNumeric>13</cbc:LineCountNumeric> <cac:AdditionalDocumentReference> <cbc:ID>83500 </cbc:ID> <cbc:DocumentType>PrimaryImage</cbc:DocumentType> <cac:Attachment> </cac:Attachment> </cac:AdditionalDocumentReference> <cac:AccountingSupplierParty> <cac:Party> <cac:PartyIdentification> <cbc:ID schemeAgencyName="BTW" schemeAgencyID="NL">NL8003.74.800.B.01</cbc:ID> </cac:PartyIdentification> <cac:PartyIdentification> <cbc:ID schemeAgencyName="KVK" schemeAgencyID="NL">37062662</cbc:ID> </cac:PartyIdentification> <cac:PartyName> <cbc:Name>Invoice Sender</cbc:Name> </cac:PartyName> <cac:PostalAddress> <cbc:StreetName>Adress 1</cbc:StreetName> <cbc:CityName>City</cbc:CityName> <cbc:PostalZone>Zip</cbc:PostalZone> <cac:Country> <cbc:IdentificationCode>NL</cbc:IdentificationCode> <cbc:Name>The Netherlands</cbc:Name> </cac:Country> </cac:PostalAddress> <cac:PartyTaxScheme> <cbc:CompanyID>NL123456789</cbc:CompanyID> <cac:TaxScheme> <cbc:ID>VAT</cbc:ID> </cac:TaxScheme> </cac:PartyTaxScheme> <cac:PartyLegalEntity> <cbc:CompanyID>1234545</cbc:CompanyID> </cac:PartyLegalEntity> <cac:Contact> </cac:Contact> </cac:Party> </cac:AccountingSupplierParty> <cac:AccountingCustomerParty> <cbc:SupplierAssignedAccountID></cbc:SupplierAssignedAccountID> <cac:Party> <cac:PartyName> <cbc:Name>Invoice adress</cbc:Name> </cac:PartyName> <cac:PostalAddress> <cbc:StreetName>Adress 1</cbc:StreetName> <cbc:CityName>City</cbc:CityName> <cbc:PostalZone>ZIP</cbc:PostalZone> <cac:Country> <cbc:IdentificationCode>NL</cbc:IdentificationCode> <cbc:Name>The Netherlands</cbc:Name> </cac:Country> </cac:PostalAddress> <cac:PartyTaxScheme> <cbc:CompanyID/> <cac:TaxScheme> <cbc:ID>VAT</cbc:ID> </cac:TaxScheme> </cac:PartyTaxScheme> <cac:Contact> <cbc:ID>1</cbc:ID> <cbc:Name></cbc:Name> <cbc:ElectronicMail></cbc:ElectronicMail> </cac:Contact> </cac:Party> </cac:AccountingCustomerParty> <cac:PaymentMeans> <cbc:PaymentMeansCode listURI="http://docs.oasis-open.org/ubl/os-UBL-2.0-update/cl/gc/default/PaymentMeansCode-2.0.gc" listName="Payment Means" listID="UN/ECE 4461">1</cbc:PaymentMeansCode> <cbc:PaymentDueDate></cbc:PaymentDueDate> <cbc:InstructionNote></cbc:InstructionNote> <cac:PayeeFinancialAccount> <cbc:ID>NL 99 RABO 1234 1234 00 </cbc:ID> <cac:FinancialInstitutionBranch> <cac:FinancialInstitution> <cbc:ID schemeName="BIC"></cbc:ID> </cac:FinancialInstitution> </cac:FinancialInstitutionBranch> </cac:PayeeFinancialAccount> </cac:PaymentMeans> <cac:PaymentTerms> <cbc:Note></cbc:Note> </cac:PaymentTerms> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">535.41</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">2368.08</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">213.12</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">1560.42</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">322.29</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">S</cbc:ID> <cbc:Percent>21.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:LegalMonetaryTotal> <cbc:LineExtensionAmount currencyID="EUR">3980.03</cbc:LineExtensionAmount> <cbc:TaxExclusiveAmount currencyID="EUR">3980.03</cbc:TaxExclusiveAmount> <cbc:TaxInclusiveAmount currencyID="EUR">4515.44</cbc:TaxInclusiveAmount> <cbc:PayableAmount currencyID="EUR">4515.44</cbc:PayableAmount> </cac:LegalMonetaryTotal> <cac:InvoiceLine> <cbc:ID>1</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">2226.00</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">200.34</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">2226.00</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">200.34</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>21 Eenh. 2315 Eenh. Snijmais "LG30.211" "Ontsmet"</cbc:Description> <cbc:Name>21 Eenh. 2315 Eenh. Snijmais "LG30.211" "Ontsmet"</cbc:Name> <cbc:AdditionalInformation>21 Eenh. 2315 Eenh. Snijmais "LG30.211" "Ontsmet"</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">2226.00</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>2</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">841.43</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">176.70</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">841.43</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">176.70</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>21.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>325 Kg 3427 Physiostart P-plus NP6+27+4SO3+2Zn</cbc:Description> <cbc:Name>325 Kg 3427 Physiostart P-plus NP6+27+4SO3+2Zn</cbc:Name> <cbc:AdditionalInformation>325 Kg 3427 Physiostart P-plus NP6+27+4SO3+2Zn</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">841.43</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>3</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">0.00</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">0.00</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>0.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>1 Stuks 9005 Pallets inclusief</cbc:Description> <cbc:Name>1 Stuks 9005 Pallets inclusief</cbc:Name> <cbc:AdditionalInformation>1 Stuks 9005 Pallets inclusief</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">0.00</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>4</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">19.88</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">19.88</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Description> <cbc:Name>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">19.88</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>5</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">27.48</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">27.48</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1758 Kaliber Start (muesli) *</cbc:Description> <cbc:Name>40 Kg 1758 Kaliber Start (muesli) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1758 Kaliber Start (muesli) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">27.48</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>6</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">718.99</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">150.99</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">718.99</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">150.99</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>21.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>1.575 Kg 3421 Maismest 24+0 HUMICoat</cbc:Description> <cbc:Name>1.575 Kg 3421 Maismest 24+0 HUMICoat</cbc:Name> <cbc:AdditionalInformation>1.575 Kg 3421 Maismest 24+0 HUMICoat</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">718.99</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>7</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">90.80</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">90.80</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>0.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>2 Stuks 9060 Kisten</cbc:Description> <cbc:Name>2 Stuks 9060 Kisten</cbc:Name> <cbc:AdditionalInformation>2 Stuks 9060 Kisten</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">90.80</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>8</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">19.88</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">19.88</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Description> <cbc:Name>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">19.88</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>9</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">27.48</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">27.48</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1758 Kaliber Start (muesli) *</cbc:Description> <cbc:Name>40 Kg 1758 Kaliber Start (muesli) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1758 Kaliber Start (muesli) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">27.48</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>10</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">19.88</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">19.88</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">1.79</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Description> <cbc:Name>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1130 Kaliber opfok (kalveropfokkorrel) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">19.88</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>11</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">27.48</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">27.48</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">2.47</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">AA</cbc:ID> <cbc:Percent>9.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>40 Kg 1758 Kaliber Start (muesli) *</cbc:Description> <cbc:Name>40 Kg 1758 Kaliber Start (muesli) *</cbc:Name> <cbc:AdditionalInformation>40 Kg 1758 Kaliber Start (muesli) *</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">27.48</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>12</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">-39.27</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">-39.27</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">0.00</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>0.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>Betalingskorting 1 %</cbc:Description> <cbc:Name>Betalingskorting 1 %</cbc:Name> <cbc:AdditionalInformation>Betalingskorting 1 %</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">-39.27</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> <cac:InvoiceLine> <cbc:ID>13</cbc:ID> <cbc:Note/> <cbc:InvoicedQuantity unitCode="EA">1.00</cbc:InvoicedQuantity> <cbc:LineExtensionAmount currencyID="EUR">0.00</cbc:LineExtensionAmount> <cac:TaxTotal> <cbc:TaxAmount currencyID="EUR">-5.40</cbc:TaxAmount> <cac:TaxSubtotal> <cbc:TaxableAmount currencyID="EUR">0.00</cbc:TaxableAmount> <cbc:TaxAmount currencyID="EUR">-5.40</cbc:TaxAmount> <cac:TaxCategory> <cbc:ID schemeAgencyID="6" schemeID="UNCL5305">S</cbc:ID> <cbc:Percent>21.00</cbc:Percent> <cac:TaxScheme> <cbc:ID schemeAgencyID="6" schemeID="UN/ECE 5305">VAT</cbc:ID> </cac:TaxScheme> </cac:TaxCategory> </cac:TaxSubtotal> </cac:TaxTotal> <cac:Item> <cbc:Description>BTW BEDRAG KORTING HOOG</cbc:Description> <cbc:Name>BTW BEDRAG KORTING HOOG</cbc:Name> <cbc:AdditionalInformation>BTW BEDRAG KORTING HOOG</cbc:AdditionalInformation> <cac:SellersItemIdentification> <cbc:ID>DIV</cbc:ID> </cac:SellersItemIdentification> </cac:Item> <cac:Price> <cbc:PriceAmount currencyID="EUR">0.00</cbc:PriceAmount> <cbc:BaseQuantity unitCode="EA">1.00</cbc:BaseQuantity> </cac:Price> </cac:InvoiceLine> </Invoice> Thanks Jack
|
|