edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MIC, Fahrerdata, Formulare(VM),divers

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-30 22:19:33 +02:00
parent 89d8f5a9b2
commit 431201cdfc
32 changed files with 79314 additions and 12646 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
VERAG_PROG_ALLGEMEIN/Schnittstellen/MIC/cMIC.vb
View File

@@ -31,10 +31,10 @@
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT_Invoice.TPartner
Shared Function getInvPartner(KdNr As Integer, NameText As String, Type As String) As MIC_IMPORT.TPartner
If KdNr > 0 Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
Dim PARTNER As New MIC_IMPORT.TPartner
Dim AD As New cAdressen(KdNr)
Dim KD As New cKunde(KdNr)
PARTNER.partnerType = Type
@@ -48,7 +48,7 @@
PARTNER.PartnerAddress.addrTin = KD.EORITIN
Return PARTNER
ElseIf If(NameText, "") <> "" Then
Dim PARTNER As New MIC_IMPORT_Invoice.TPartner
Dim PARTNER As New MIC_IMPORT.TPartner
PARTNER.partnerType = Type
PARTNER.PartnerAddress.addrName.Add(NameText)
Return PARTNER
@@ -63,7 +63,7 @@
'Dim Interface_VERSION = "003"
'Dim ObjectAktion = DY_ACTION
Dim XML As New MIC_EXPORT_Shipment.ExportShipment
Dim XML As New MIC_EXPORT.ExportShipment
'Transaktion:
XML.ShipmentHead.company = "VERAG"
XML.ShipmentHead.plant = "GB/01"
@@ -98,48 +98,50 @@
Shared Function generateIMPORT(AVISO As cAviso, SENDUNG As cSendungen, ByRef saveFile As String, ByRef BezugsNr As String) As Boolean
Dim Interface_VERSION = "000"
Dim XML As New MIC_IMPORT.ImportShipment
Dim XML As New MIC_IMPORT.InsertImportShipment
Dim XML_IMP = XML.ImportShipmentMessage.ImportShipment
'XML.schemaVersion =
XML.Shipment.company = "VERAG"
XML.Shipment.plant = "GB/01"
XML.Shipment.shipmentId = BezugsNr
XML_IMP.Shipment.company = "VERAG"
XML_IMP.Shipment.plant = "GB/01"
XML_IMP.Shipment.shipmentId = BezugsNr
XML.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
XML.Shipment.ShipmentHead.customsDate = Now
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
XML_IMP.Shipment.ShipmentHead.shipmentType = MIC_IMPORT.TShipmentHeadShipmentType.E 'E:Import
XML_IMP.Shipment.ShipmentHead.customsDate = Now
If SENDUNG.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG.tblSnd_Gewicht) Then XML_IMP.Shipment.ShipmentHead.grossWeight = CDec(SENDUNG.tblSnd_Gewicht)
'XML.Shipment.ShipmentHead.departurePlace = Now
XML.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
XML.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
XML.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
XML.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motVehicle = AVISO.LKW_Nr
XML_IMP.Shipment.ShipmentHead.MotBorderCrossing.motCountry = AVISO.LKW_Nationalitaet
XML_IMP.Shipment.ShipmentHead.MotBorder.motVehicle = AVISO.LKW_Nr
XML_IMP.Shipment.ShipmentHead.MotBorder.motCountry = AVISO.LKW_Nationalitaet
XML_IMP.Shipment.ShipmentHead.MotInland.motVehicle = AVISO.LKW_Nr
XML_IMP.Shipment.ShipmentHead.MotInland.motCountry = AVISO.LKW_Nationalitaet
Dim INV As New MIC_IMPORT_Invoice.TInvoice
Dim ILN As New MIC_IMPORT_Invoice.TInvoiceLine
Dim INV As New MIC_IMPORT.TInvoice
Dim ILN As New MIC_IMPORT.TInvoiceLine
Dim Partner_IM = getInvPartner(SENDUNG.tblSnd_EmpfaengerKdNr, SENDUNG.tblSnd_Empfaenger, "IM")
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
If Partner_IM IsNot Nothing Then ILN.Partners.Add(Partner_IM)
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
Dim Partner_CZ = getInvPartner(SENDUNG.tblSnd_AbsenderKdNr, SENDUNG.tblSnd_Absender, "CZ")
If Partner_CZ IsNot Nothing Then ILN.Partners.Add(Partner_CZ)
INV.InvoiceLines.Add(ILN)
INV.InvoiceLines.Add(ILN)
XML.Invoice.Add(INV)
XML_IMP.Invoice.Add(INV)
Dim CF_BezugsNr = New MIC_IMPORT_Invoice.TCustomerText()
Dim CF_BezugsNr = New MIC_IMPORT.TCustomerText()
CF_BezugsNr.key = 1
CF_BezugsNr.value = BezugsNr
XML.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
CF_BezugsNr.value = BezugsNr
XML_IMP.Shipment.ShipmentHead.CustomerFields.Texts.Add(CF_BezugsNr)
XML.Shipment.ShipmentHead.countryDestination = "UK"
XML.Shipment.ShipmentHead.creationDate = Now
XML.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
XML_IMP.Shipment.ShipmentHead.countryDestination = "UK"
XML_IMP.Shipment.ShipmentHead.creationDate = Now
XML_IMP.Shipment.ShipmentHead.creationUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
If SENDUNG.tblSnd_Frachtkosten IsNot Nothing Then XML_IMP.Shipment.ShipmentHead.Freight.frtAmount = SENDUNG.tblSnd_Frachtkosten
saveFile = getDefaultFolder_SEND("IMPORT") & "MIC_IMPORT_" & Now.ToString("yyMMdd_HHmmss") & ".xml"