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

Telotec Importer, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-03-26 14:12:07 +01:00
parent acba79c48d
commit bc8128c389
2 changed files with 16 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
DAKOSY_Worker/cImporter_TelotecToVERAG.vb
View File

@@ -167,19 +167,24 @@ Public Class cImporter_TelotecToVERAG
If p.DOC_CERTS IsNot Nothing Then
For Each doc In p.DOC_CERTS
Try
Dim ItemId = Nothing
Dim Doc_Code As String = ToStringSafe(doc.DocCerts_DocCd)
Dim Doc_Reference As String = ToStringSafe(doc.DocCerts_DRef)
Dim Doc_Date As String = ToStringSafe(doc.DocCerts_IssD)
Try
Dim dd As New cVERAG_CustomsDeclarations_Document With {
.zaDoc_ItemId = Nothing,
.zaDoc_Code = ToStringSafe(doc.DocCerts_DocCd),
.zaDoc_Reference = ToStringSafe(doc.DocCerts_DRef),
.zaDoc_Date = If(doc.DocCerts_IssD IsNot Nothing, ToNullableDate(doc.DocCerts_IssD), Nothing)'ToNullableDate(doc.DocCerts_IssD)
.zaDoc_ItemId = ItemId,
.zaDoc_Code = Doc_Code,
.zaDoc_Reference = Doc_Reference,
.zaDoc_Date = Doc_Date
}
it.Documents.Add(dd)
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
Catch ex As Exception
cErrorHandler.ERR(ex.Message, ex.StackTrace, MethodInfo.GetCurrentMethod.Name)
End Try
Next
End If

4
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -5891,7 +5891,7 @@ Public Class frmStartOptions
Dim iso2Laneder = ""
Select Case sender.Name
Case "UTA_Laender" : iso2Laneder = "select distinct (Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null"
Case "UTA_Laender" : iso2Laneder = "select distinct (Steuerliches_Lieferland) FROM [VERAG].[dbo].[tblUTAImportNew] where Lieferland_ISO2 is null" 'wichtig STEUERLAND!!!'
Case "IDS_Laendercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tbl_IDS_Länder] where Lieferland_ISO2 is null"
Case "Laender_Steuercode" : iso2Laneder = "select distinct (LandNr) FROM [VERAG].[dbo].[tblSteuernummern] where LandKZ is null"
@@ -5903,7 +5903,7 @@ Public Class frmStartOptions
If dtiso2Laneder.Rows.Count > 0 Then
For Each r As DataRow In dtiso2Laneder.Rows
Select Case sender.Name
Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Lieferland")) & "' where Lieferland = '" & r.Item("Lieferland") & "'", "FMZOLL")
Case "UTA_Laender" : SQL.doSQL("Update [VERAG].[dbo].[tblUTAImportNew] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromISO3Land(r.Item("Steuerliches_Lieferland")) & "' where Steuerliches_Lieferland = '" & r.Item("Steuerliches_Lieferland") & "'", "FMZOLL")
Case "IDS_Laendercode" : SQL.doSQL("Update [VERAG].[dbo].[tbl_IDS_Länder] set Lieferland_ISO2 = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
Case "Laender_Steuercode" : SQL.doSQL("Update [VERAG].[dbo].[tblSteuernummern] set LandKZ = '" & VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2LandFromLandNr(r.Item("LandNr")) & "' where LandNr = '" & r.Item("LandNr") & "'", "FMZOLL")
End Select