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

cFakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-06 17:03:43 +01:00
parent 655614a6ee
commit cf130e2056
6 changed files with 15 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Fakturierung/cFakturierung.vb
View File

@@ -352,7 +352,8 @@ Public Class cFakturierung
Select Case RECHNUNG.RechnungSprache
Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days as of document date"
Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum"
Case "TR" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii"
Case Else : strZahlbar = "ödeme tarihi: " & ZZTage & " gün fatura tarihinden itibaren"
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
End Select

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.8.6")>
<Assembly: AssemblyFileVersion("1.4.8.6")>
<Assembly: AssemblyVersion("1.4.8.7")>
<Assembly: AssemblyFileVersion("1.4.8.7")>

2
SDL/kunden/usrCntlCBAM.vb
View File

@@ -680,7 +680,7 @@ Public Class usrCntlCBAM
,isnull(max(Empfänger_CN_EORI),'') as 'importer identification number'
,'' as 'exporter identification number'
, max(Warentarifnummer) as 'commodity code'
,max([VersendungsLand]) as 'origin country code'
,max(Ursprungsland_ISO2) as 'origin country code'
,Left(max(Verfahren2),2) as 'requested procedure'
,'' as 'previous procedure'
,(max(Eigenmasse) / 1000) as 'net mass'

2
VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb
View File

@@ -145,6 +145,7 @@ Public Class cDY_Zollanmeldungen_Import
Property Importstatus As Object = Nothing
Property Importdate As Object = Nothing
Property Importfile As Object = Nothing
Property Ursprungsland_ISO2 As Object = Nothing
Public hasEntry = False
@@ -301,6 +302,7 @@ Public Class cDY_Zollanmeldungen_Import
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importstatus", Importstatus))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importdate", Importdate))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Importfile", Importfile))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Ursprungsland_ISO2", Ursprungsland_ISO2))
Return list
End Function

2
VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
View File

@@ -219,7 +219,7 @@ Public Class cUIDPruefung
Case "FINANZONLINE"
Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"
'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" WARUM?
FO.initValues()
Dim counter = 0
Dim errorCounter As Integer = 0

7
VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb
View File

@@ -639,6 +639,13 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
End Function
Shared Function getISO2LandFromLandbezeichnung(LandBez As String)
If LandBez Is Nothing Then Return Nothing
Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.Land='" & LandBez & "' "
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
End Function
Shared Function getISO2LandFromISO1Land(Iso1Land As String)
Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel WHERE Währungstabelle.LandKz='" & Iso1Land & "' "