Type 1.1 - Invoice in Greece

Dim sni As New SendInvoices("AADEUserID", "OcpApimSubscriptionKey", "Arbitrans User", "Arbitrans Key", False)
 Dim invoice As invoice = sni.newInvoice
  
 #Region "issuer and counterpart"
         invoice.issuer.vatNumber = "555777001"
         invoice.issuer.country = "GR"
  
         invoice.counterpart.vatNumber = "555777002"
         invoice.counterpart.country = "GR"
 #End Region
  
 #Region "elements"
         invoice.elements.series = "IZ"
         invoice.elements.aa = 1
         invoice.elements.issueDate = Date.Now
         invoice.elements.invoiceType = "1.1"
 #End Region
  
 #Region "Lines"
         For i = 1 To 2
             Dim ln As invoiceLine = sni.newLine
             ln.netValue = 200.0
             ln.VatCategory = 1
             ln.VatAmount = 48.0
             ln.lineComments = "line comment"
             ln.classification.Type = "" ' This field refers to the E3 code
             ln.classification.Category = "category1_95"
  
             invoice.lines.Add(ln)
         Next
 #End Region
  
 #Region "payments"
         Dim tmpPay As paymentMethod = sni.newPaymentMethod
         tmpPay.type = 1
         tmpPay.amount = 325.0
         invoice.payments.Add(tmpPay)
         Dim tmpPay2 As paymentMethod = sni.newPaymentMethod
         tmpPay2.type = 4
         tmpPay2.amount = 171.0
         tmpPay2.paymentMethodInfo = "payment info of 171 euros"
         invoice.payments.Add(tmpPay2)
 #End Region
  
         Dim result As String = sni.SendInvoice(invoice)
         Dim qrURL As String = sni.getQRUrl ' get the QR URL
         Dim qrImage As Image = sni.getQRImage(500) ' get an image of the QR