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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-01-19 20:27:19 +01:00
parent 1c8b5afac9
commit 595851ec3c
37 changed files with 1293 additions and 479 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Classes/cRKSV.vb
View File

@@ -338,7 +338,7 @@ Public Class cRKSV
Shared Function getGJ(BelegDat As Date, Optional FIRMA As String = "") As Integer
If FIRMA = "" Then FIRMA = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA
Case "IMEX", "FRONTOFFICE"
Case "IMEX", "FRONTOFFICE", "UNISPED", "AMBAR"
Return BelegDat.Year
Case Else
Return IIf(BelegDat.Month = 1, BelegDat.Year - 1, BelegDat.Year)

272
SDL/Fakturierung/cFakturierung.vb
View File

@@ -6,6 +6,14 @@ Public Class cFakturierung
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public Shared Function fktSVSRVS(firmaId As Integer, varWert As Object, Optional varWährungscode As Object = "EUR") As Object
Select Case firmaId
Case 21, 22, 23
fktSVSRVS_UNISPED(varWert, varWährungscode)
Case Else
fktSVSRVS(varWert, varWährungscode)
End Select
End Function
Public Shared Function fktSVSRVS(varWert As Object, Optional varWährungscode As Object = "EUR") As Object
Dim varVersicherungssumme As Object
@@ -180,6 +188,65 @@ Public Class cFakturierung
End Function
Public Shared Function fktSVSRVS_UNISPED(varWert As Object, Optional varWährungscode As Object = "EUR") As Object
Dim varVersicherungssumme As Object
Dim varRechnungswährung As Object
' Versicherungssumme prüfen
varVersicherungssumme = varWert
If varVersicherungssumme Is Nothing OrElse varVersicherungssumme = 0 Then
MsgBox("Die SVS/RVS-Prämie kann nicht ermittelt werden. Der Warenwert zur Bestimmung der Versicherungssumme ist nicht bekannt.", , "fktSVSRVS")
fktSVSRVS_UNISPED = Nothing
Exit Function
ElseIf varVersicherungssumme < 0 Then
varVersicherungssumme = 0 - varVersicherungssumme
End If
' Die SVS/RVS-Tabelle ist in der Währung ATS geführt.
' Wenn der Wert zur Bestimmung der Versicherungssumme auf einer anderen Währung basiert,
' wird der Wert in ATS umgerechnet.
' Die Versicherungsprämie ist in der Währung ATS angegeben. Lautet die Rechnung auf eine
' andere Währung, wird die Versicherungsprämie auf diese Währung umgerechnet.
varRechnungswährung = varWährungscode
Select Case VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(varVersicherungssumme, varRechnungswährung, "EUR")
Case Is <= 2500
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(2.91, "EUR", varRechnungswährung)
Case Is <= 3750
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(4.42, "EUR", varRechnungswährung)
Case Is <= 5000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(5.82, "EUR", varRechnungswährung)
Case Is <= 6250
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(7.1, "EUR", varRechnungswährung)
Case Is <= 7500
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(8.67, "EUR", varRechnungswährung)
Case Is <= 10000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(11.34, "EUR", varRechnungswährung)
Case Is <= 15000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(16.24, "EUR", varRechnungswährung)
Case Is <= 20000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(21.13, "EUR", varRechnungswährung)
Case Is <= 25000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(25.3, "EUR", varRechnungswährung)
Case Is <= 50000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(44.73, "EUR", varRechnungswährung)
Case Is <= 100000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(73.8, "EUR", varRechnungswährung)
Case Is <= 150000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(104.87, "EUR", varRechnungswährung)
Case Is <= 200000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(134, "EUR", varRechnungswährung)
Case Is <= 300000
fktSVSRVS_UNISPED = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(160.85, "EUR", varRechnungswährung)
Case Is <= 1500000
fktSVSRVS_UNISPED = Int((varVersicherungssumme * 0.00055) * 100 + 0.5) / 100
Case Else
fktSVSRVS_UNISPED = Int((1500000 * 0.00055) * 100 + 0.5) / 100
End Select
End Function
Shared Sub setGesamtBetraege(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional Steuersatz_Proz As Object = Nothing)
Dim steuerPflichtigerBetrag As Double = 0
@@ -235,12 +302,16 @@ Public Class cFakturierung
' Dim Nettozahlungsziel
Dim ZZTage = 10
If RECHNUNG.RechnungsKundenNr > 0 Then
Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr)
If RECHNUNG_KD.Zahlungsziel IsNot Nothing AndAlso IsNumeric(RECHNUNG_KD.Zahlungsziel) Then
ZZTage = RECHNUNG_KD.Zahlungsziel
End If
Select Case RECHNUNG.[BelegartenNr]
Case 70 'RECHNUNG
@@ -249,10 +320,10 @@ Public Class cFakturierung
strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
Else
If checkIfKreditaufwendungen(RECHNUNG) Then
strZahlbar = "Zahlbar innerhalb 10 Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig."
strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig."
Else
'Zahlungsziel allgemein.
strZahlbar = "Zahlbar innerhalb 10 Tagen ab Rechnungsdatum."
strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
End If
'Zahlungsziel bei Maut/Diesel.
@@ -296,38 +367,54 @@ Public Class cFakturierung
End If
End Select
' Informations- und Werbetexte drucken
Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) "
If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) "
If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) "
'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
Select Case RECHNUNG.[BelegartenNr]
Case 70
sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
Case 71
sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
End Select
Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
If dt_RechnungsTexte.Rows.Count > 0 Then
strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
' MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf)
If getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, RECHNUNG.OffertenNr, True) Then
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True) Then
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True) Then
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, True) Then
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False) Then
End If
'' Informations- und Werbetexte drucken
'Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
'If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) "
'If If(RECHNUNG_AD.LandKz, "") <> "" Then sqlStr &= " AND (LandKz='" & RECHNUNG_AD.LandKz & "' or LandKz is null) "
'If If(RECHNUNG.OffertenNr, 0) > 0 Then sqlStr &= " AND (OffertenNr='" & RECHNUNG.OffertenNr & "' or OffertenNr is null) "
strText = strZahlbar & vbNewLine & strText
' Text in Rechnungskopfsatz übernehmen.
If strText = "" Then
''Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
'If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
'Select Case RECHNUNG.[BelegartenNr]
' Case 70
' sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
' Case 71
' sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
'End Select
'Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
'If dt_RechnungsTexte.Rows.Count > 0 Then
' strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
' ' MsgBox(dt_RechnungsTexte.Rows(0)("Text") & vbCrLf)
'End If
Select Case RECHNUNG.Firma_ID
Case 21, 22, 23
Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+10T> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
End If
End Select
strText = strZahlbar & vbNewLine & strText
' Text in Rechnungskopfsatz übernehmen.
strText = strText.Replace("<Vorlageprovision>", "")
If strText = "" Then
RECHNUNG.Text = Nothing
Else
strText.Replace("<EMailAdresse>", If(RECHNUNG_AD.E_Mail, " - "))
' varPos = InStr(1, strText, "<EMailAdresse>")
' If varPos > 0 And Not rstAdr.EOF And Not IsNull(rstAdr![E-Mail]) Then
'If Len(strText) > (varPos - 1 + Len("<EMailAdresse>")) Then
@@ -338,9 +425,18 @@ Public Class cFakturierung
' End If
' Me![Text] = strText
RECHNUNG.Text = strText
End If
End If
End If
'Select Case RECHNUNG.Firma_ID
' Case "21", "22", "23"
' strText = strText.Replace("", "")
'End Select
'MsgBox("Firma:" & RECHNUNG.Firma_ID & " - Land:" & "" & RECHNUNG.RechnungsLandKz & " - OffertenNr:" & RECHNUNG.OffertenNr & " - TXT: " & strText)
Return strText
@@ -348,6 +444,47 @@ Public Class cFakturierung
End Function
Shared Function getRTXT_SQL(ByRef strText, RECHNUNG, RECHNUNG_AD, Optional FIRMA_ID = Nothing, Optional LandKz = Nothing, Optional OffertenNr = Nothing, Optional EMailRechnung = Nothing) As Boolean
' Informations- und Werbetexte drucken
Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
If FIRMA_ID IsNot Nothing Then
sqlStr &= " AND Firma_ID='" & RECHNUNG.Firma_ID & "' "
Else
sqlStr &= " AND Firma_ID is null"
End If
If LandKz IsNot Nothing Then
sqlStr &= " AND LandKz='" & LandKz & "' "
Else
sqlStr &= " AND LandKz is null"
End If
If OffertenNr IsNot Nothing Then
sqlStr &= " AND OffertenNr='" & OffertenNr & "' "
Else
sqlStr &= " AND OffertenNr is null"
End If
If EMailRechnung IsNot Nothing Then
'Wennn Rechnung als Email geschickt werden sollte Rechnungsdruck=2
If If(RECHNUNG_AD.Rechnungsdruck, -1) = 2 And If(RECHNUNG_AD.E_Mail, "") <> "" Then sqlStr &= " AND EMailRechnung=1 "
End If
Select Case RECHNUNG.[BelegartenNr]
Case 70
sqlStr &= " AND (DrucksteuerungsKz='R' OR DrucksteuerungsKz='') "
Case 71
sqlStr &= " AND (DrucksteuerungsKz='G' OR DrucksteuerungsKz='') "
End Select
' MsgBox(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc")
Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
If dt_RechnungsTexte.Rows.Count > 0 Then
strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
Return True
End If
Return False
End Function
Shared Function checkIfcheckIfZollbelege(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean
For Each POS In RECHNUNG.POSITIONEN
If (POS.LeistungsNr = 10 Or POS.LeistungsNr = 60 Or POS.LeistungsNr = 70) Then
@@ -746,6 +883,9 @@ Public Class cFakturierung
rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty)
rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
If RECHNUNG.RechnungsDatum IsNot Nothing Then
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
End If
' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
@@ -949,6 +1089,31 @@ Public Class cFakturierung
End Try
'-------------------------------------------------------------------------------
'ABRECHNUNGS API:
'-------------------------------------------------------------------------------
If Not Kopie Then
Try
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
If KUNDE_ERW IsNot Nothing Then
'TRADESHIFT:
Try
If KUNDE_ERW.kde_API_Tradeshift Then
Select Case RECHNUNG.Firma_ID
Case 21, 22, 23
System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True)
End Select
End If
Catch ex As Exception
MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
End Try
End If
Catch ex As Exception
MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
End Try
End If
'-------------------------------------------------------------------------------
Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
Case 0, 1 'DRUCKEN
@@ -1116,6 +1281,31 @@ Public Class cFakturierung
End Select
getSignature &= "<br>"
'BREXIT
If True Then
Select Case firma
Case 21 'UNISPED
getSignature &= "<br>"
getSignature &= "<div style=""font-size:14px"">"
getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
getSignature &= "Weiter Infos finden Sie unter: <a href=""http://www.brexit.at"">http://www.brexit.at<br/>"
getSignature &= "<img width=""250"" height=""80"" src=""" & imgsrc & "bexit.png""/></a><br/>"
getSignature &= "<b>BREXIT Hotline:</b> +43 7711 2677 - 27| <b>@</b> <a href=""mailto:brexit@unisped.at"">brexit@unisped.at</a> <br/>"
getSignature &= "</div>"
getSignature &= "<br>"
getSignature &= "<br>"
Case Else
getSignature &= "<br>"
getSignature &= "<div style=""font-size:14px"">"
getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
getSignature &= "Weiter Infos finden Sie unter: <a href=""http://www.brexit.at"">http://www.brexit.at<br/>"
getSignature &= "<img width=""250"" height=""80"" src=""" & imgsrc & "brexit.png""/></a><br/>"
getSignature &= "<b>BREXIT Hotline:</b> +43 7711 2777 - 885 | <b>@</b> <a href=""mailto:brexit@verag.ag"">brexit@verag.ag</a> <br/>"
getSignature &= "</div>"
getSignature &= "<br>"
getSignature &= "<br>"
End Select
End If
Select Case landKz
Case "D", "A", "DE", "AT", "CH"
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
@@ -1450,6 +1640,32 @@ Public Class cFakturierung
End Try
'-------------------------------------------------------------------------------
'ABRECHNUNGS API:
'-------------------------------------------------------------------------------
Try
If Not SRDruckWiederholen Then
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(dt.Rows(0)("RechnungsKundenNr"))
If KUNDE_ERW IsNot Nothing Then
'TRADESHIFT:
Try
If KUNDE_ERW.kde_API_Tradeshift Then
Select Case dt.Rows(0)("Firma_ID")
Case 21, 22, 23
System.IO.File.Copy(pathPDF, "\\srv01.unisu.at\Unisped\___AR_PDF\Sammelrechnung_" & RechnungsNr & ".pdf", True)
End Select
End If
Catch ex As Exception
MsgBox("Tradeshift Export fehlgeschalgen! " & ex.Message & ex.StackTrace)
End Try
End If
End If
Catch ex As Exception
MsgBox("API Fehler!" & ex.Message & ex.StackTrace)
End Try
'-------------------------------------------------------------------------------
End If
'-------------- ENDE --------------
End Function

25
SDL/Fakturierung/frmAbrechnungsMaske.vb
View File

@@ -317,11 +317,16 @@ Public Class frmAbrechnungsMaske
If MyDatagridview1.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen in ein PDF gewandelt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
'Rechnungsdatum festlegen:
Dim RechnungsDatumTMP As Date = Now
cFakturierung.getRgDatInput("", RechnungsDatumTMP)
Dim list As New List(Of String) ' Sammlung PDFs
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
Dim path = ""
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 4, path, cboPrinter.Text)
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 4, path, cboPrinter.Text)
If path <> "" Then list.Add(path)
Next
@@ -368,11 +373,18 @@ Public Class frmAbrechnungsMaske
ElseIf MyDatagridview1.SelectedRows.Count > 1 Then
If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail angefügt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
'Rechnungsdatum festlegen:
Dim RechnungsDatumTMP As Date = Now
cFakturierung.getRgDatInput("", RechnungsDatumTMP)
Dim list As New List(Of String) ' Sammlung PDFs
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
Dim path = ""
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 4, path, cboPrinter.Text)
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 4, path, cboPrinter.Text)
If path <> "" Then list.Add(path)
Next
@@ -459,8 +471,15 @@ Public Class frmAbrechnungsMaske
Private Sub Button7_Click2(sender As Object, e As EventArgs) Handles Button7.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Es werden " & MyDatagridview1.SelectedRows.Count & " Rechnungen ans Mail gedruckt." & vbNewLine & "Möchten Sie fortfahren?", vbYesNoCancel) Then
'Rechnungsdatum festlegen:
Dim RechnungsDatumTMP As Date = Now
cFakturierung.getRgDatInput("", RechnungsDatumTMP)
For Each r As DataGridViewRow In MyDatagridview1.SelectedRows
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value,,, 0, cboPrinter.Text)
cFakturierung.doRechnungsDruck(r.Cells("RK_ID").Value, RechnungsDatumTMP,, 0, cboPrinter.Text)
Next
'merge PDFs path
initDGV()

34
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -1078,29 +1078,31 @@ Public Class usrCntlFaktAbrechnung
If RECHNUNG Is Nothing Then loaded = loadedtmp : Exit Sub
' MsgBox(RECHNUNG.POSITIONEN.Count)
For Each POS In RECHNUNG.POSITIONEN
If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
If .Columns.Count > 0 Then
If POS.Anzahl > 0 And POS.Preis <> 0 Then 'HIER WIRD GEFILTERT --> Nur wo etwas zu verrechnen ist!
'If RECHNUNG.Steuersatz_Proz = 0 Then
' .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, 0, (If(POS.SteuerfreierBetrag, 0) + If(POS.SteuerpflichtigerBetrag, 0)), POS.AufschubkontoNr)
'Else
' .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, POS.SteuerpflichtigerBetrag, POS.SteuerfreierBetrag, POS.AufschubkontoNr)
'End If
'If RECHNUNG.Steuersatz_Proz = 0 Then
' .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, 0, (If(POS.SteuerfreierBetrag, 0) + If(POS.SteuerpflichtigerBetrag, 0)), POS.AufschubkontoNr)
'Else
' .Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis, POS.SteuerpflichtigerBetrag, POS.SteuerfreierBetrag, POS.AufschubkontoNr)
'End If
.Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis * vorzeichen, If(POS.SteuerpflichtigerBetrag = 0, "", POS.SteuerpflichtigerBetrag * vorzeichen), If(POS.SteuerfreierBetrag = 0, "", POS.SteuerfreierBetrag * vorzeichen), POS.AufschubkontoNr)
.Rows.Add(POS.LeistungsNr & " " & POS.LeistungsBez, POS.Anzahl, POS.Preis * vorzeichen, If(POS.SteuerpflichtigerBetrag = 0, "", POS.SteuerpflichtigerBetrag * vorzeichen), If(POS.SteuerfreierBetrag = 0, "", POS.SteuerfreierBetrag * vorzeichen), POS.AufschubkontoNr)
If CBool(POS.Steuerpflichtig) Then
steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
Else
steuerFreierBetrag += POS.SteuerfreierBetrag
End If
If CBool(POS.Steuerpflichtig) Then
steuerPflichtigerBetrag += POS.SteuerpflichtigerBetrag
Else
steuerFreierBetrag += POS.SteuerfreierBetrag
End If
If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
If CBool(SQL.DLookup("[Abfertigungskosten]", "Leistungen", "[LeistungsNr]=" & POS.[LeistungsNr], "FMZOLL", False)) Then
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerpflichtigerBetrag], RECHNUNG.Währungscode, "EUR")
Abfertigungskosten += VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(POS.[SteuerfreierBetrag], RECHNUNG.Währungscode, "EUR")
End If
End If
End If
Next
@@ -1248,9 +1250,9 @@ Public Class usrCntlFaktAbrechnung
'Die 0-Einträge löschen:
RECHNUNG.POSITIONEN.RemoveAll(Function(p) p.Anzahl = 0 Or p.Preis = 0)
initDGVRechnungenPositionen()
'loaded = True
loaded = loadedTmp

759
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

65
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -108,18 +108,22 @@
txtAnzVerp.Text = If(SENDUNG.tblSnd_Colli, "")
txtGewicht.Text = If(SENDUNG.tblSnd_Gewicht, "")
txtAbsender.Text = If(SENDUNG.tblSnd_Absender, "")
If SENDUNG.AbfertigungsNr > 0 Then
' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
If SENDUNG.FilialenNr > 0 Then
cboFiliale.changeItem(SENDUNG.FilialenNr)
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
If VK IsNot Nothing Then setValues(VK)
initBerechnung()
If SENDUNG.AbfertigungsNr > 0 Then
' txtAbfertigungsNr.Text = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
txtAbfertigungsNr.Text = SENDUNG.AbfertigungsNr
If SENDUNG.FilialenNr > 0 Then
cboFiliale.changeItem(SENDUNG.FilialenNr)
Dim VK = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(SENDUNG.FilialenNr, SENDUNG.AbfertigungsNr, ROLLE)
If VK IsNot Nothing Then setValues(VK)
initBerechnung()
End If
End If
End If
End If
If IsNumeric(If(SENDUNG.tblSnd_Frachtkosten, "")) Then
txtFrachtkostenAusl._value = CDbl(SENDUNG.tblSnd_Frachtkosten)
End If
End If
If AVISO IsNot Nothing Then
txtLKWKennz.Text = If(AVISO.LKW_Nr, "")
txtUnternehmer.Text = If(AVISO.Frächter, "")
@@ -188,12 +192,13 @@
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05"))
'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19"))
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20"))
txtEustProzent.changeItem("0,16")
txtEustProzent.changeItem("0,19")
' txtEustProzent.changeItem("0,16")
Else
txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0"))
@@ -261,27 +266,27 @@
End If
Dim zwTMP As Double =
Vl(txtVerzollungskosten) +
Vl(txtWeitereTarifPos) +
Vl(txtATLAS) +
Vl(txtClearing) +
Vl(txtKorrRechnung) +
Vl(txtUebersetzungRg) +
Vl(txtAviso) +
Vl(txtSvs) +
Vl(txtSonstigeKosten)
Vl(txtVerzollungskosten) +
Vl(txtWeitereTarifPos) +
Vl(txtATLAS) +
Vl(txtClearing) +
Vl(txtKorrRechnung) +
Vl(txtUebersetzungRg) +
Vl(txtAviso) +
Vl(txtSvs) +
Vl(txtSonstigeKosten) +
Vl(txtPapierePorti)
' Vl(txtMWST) +
'Vl(txtPapierePorti)
txtMWST._value = Vl(txtMwstProzent) * zwTMP
txtGesamtsumme._value =
Vl(txtZoll2) +
Vl(txtEust2) +
Vl(txtAndereAbgabenBetrag) +
zwTMP +
Vl(txtMWST) +
Vl(txtPapierePorti)
Vl(txtZoll2) +
Vl(txtEust2) +
Vl(txtAndereAbgabenBetrag) +
zwTMP +
Vl(txtMWST)
'----------------------------------------------------------------
End Sub
@@ -338,7 +343,7 @@
Case "CS"
txtEustProzent.changeItem("0,20")
Case "AG"
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then
If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then
txtEustProzent.changeItem("0,16")
Else
txtEustProzent.changeItem("0,19")

33
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -3140,11 +3140,17 @@ Public Class FormularManagerNEU
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 53, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
@@ -4268,6 +4274,19 @@ Public Class FormularManagerNEU
End Function
Shared Function Zollstopp(Zollstop, Entladestelle, Kommentare, Absender) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Absender, 70, 44, 100, 10, "normal", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Zollstop, 50, 80, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Entladestelle, 50, 145, 110, 30, "bold", 14, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Kommentare, 50, 212, 110, 30, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Zollstopp", listTowrite)
End Function
Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
@@ -4310,14 +4329,14 @@ Public Class FormularManagerNEU
Public Shared Function getUO2() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function
Public Shared Function getUO2_FO() As String
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "ATILLA", "UNISPED", "AMBAR", "FRONTOFFICE" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case Else : Return ""
End Select
End Function

23
SDL/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "16.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -349,6 +349,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property brexit() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("brexit", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -1683,6 +1693,15 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property sdf3sdfewr3edcvbn() As String
Get
Return ResourceManager.GetString("sdf3sdfewr3edcvbn", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -2202,7 +2221,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.4 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.1.8.5 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

8
SDL/My Project/Resources.resx
View File

@@ -638,7 +638,7 @@
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.1.8.4</value>
<value>1.1.8.5</value>
</data>
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -799,4 +799,10 @@
<data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="brexit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\brexit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sdf3sdfewr3edcvbn" xml:space="preserve">
<value />
</data>
</root>

1
SDL/Reports/Zoll/subrptKontrolleLKW_NCTSTR_Abrechnung.vb
View File

@@ -67,7 +67,6 @@ Public Class subrptKontrolleLKW_NCTSTR_Abrechnung
End Sub
Private Sub ReportFooter1_Format(sender As Object, e As EventArgs) Handles ReportFooter1.Format
lblGesamtsumme.Text = "<EFBFBD> " & GesSumme.ToString("N2", CultureInfo.InvariantCulture)
End Sub
End Class

BIN
SDL/Resources/RG_ZF.xlsx
View File

Binary file not shown.

BIN
SDL/Resources/brexit.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 50 KiB

3
SDL/SDL.vbproj
View File

@@ -4151,6 +4151,9 @@
<None Include="Resources\android-add-contact1.png" />
<None Include="Resources\aviso_messenger.png" />
<None Include="Resources\flagge_tr.png" />
<None Include="Resources\brexit.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<Content Include="Resources\GS\gsdll32.dll">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>

63
SDL/SMS/frmSendSMS.Designer.vb generated
View File

@@ -45,6 +45,8 @@ Partial Class frmSendSMS
Me.Button12 = New System.Windows.Forms.Button()
Me.pic = New System.Windows.Forms.PictureBox()
Me.cbxLKWOK = New System.Windows.Forms.CheckBox()
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label3 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -78,7 +80,7 @@ Partial Class frmSendSMS
Me.txtHandyNummer.Multiline = True
Me.txtHandyNummer.Name = "txtHandyNummer"
Me.txtHandyNummer.Size = New System.Drawing.Size(384, 28)
Me.txtHandyNummer.TabIndex = 3
Me.txtHandyNummer.TabIndex = 2
'
'Label1
'
@@ -101,7 +103,7 @@ Partial Class frmSendSMS
Me.cboLandVorwahl.Location = New System.Drawing.Point(207, 187)
Me.cboLandVorwahl.Name = "cboLandVorwahl"
Me.cboLandVorwahl.Size = New System.Drawing.Size(64, 28)
Me.cboLandVorwahl.TabIndex = 2
Me.cboLandVorwahl.TabIndex = 7
Me.cboLandVorwahl.Visible = False
'
'txtNachricht
@@ -114,7 +116,7 @@ Partial Class frmSendSMS
Me.txtNachricht.MaxLines_Warning_Label = Nothing
Me.txtNachricht.Name = "txtNachricht"
Me.txtNachricht.Size = New System.Drawing.Size(534, 144)
Me.txtNachricht.TabIndex = 5
Me.txtNachricht.TabIndex = 6
Me.txtNachricht.Text = ""
'
'btnAbbrechen
@@ -126,7 +128,7 @@ Partial Class frmSendSMS
Me.btnAbbrechen.Location = New System.Drawing.Point(405, 339)
Me.btnAbbrechen.Name = "btnAbbrechen"
Me.btnAbbrechen.Size = New System.Drawing.Size(144, 25)
Me.btnAbbrechen.TabIndex = 9
Me.btnAbbrechen.TabIndex = 22
Me.btnAbbrechen.Text = " Abbrechen"
Me.btnAbbrechen.UseVisualStyleBackColor = True
'
@@ -138,7 +140,7 @@ Partial Class frmSendSMS
Me.btnOK.Location = New System.Drawing.Point(405, 265)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(144, 51)
Me.btnOK.TabIndex = 10
Me.btnOK.TabIndex = 14
Me.btnOK.Text = " SMS senden"
Me.btnOK.UseVisualStyleBackColor = True
'
@@ -146,10 +148,10 @@ Partial Class frmSendSMS
'
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label2.Location = New System.Drawing.Point(12, 99)
Me.Label2.Location = New System.Drawing.Point(12, 91)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 17)
Me.Label2.TabIndex = 4
Me.Label2.TabIndex = 3
Me.Label2.Text = "Nachricht:"
'
'Button1
@@ -158,7 +160,7 @@ Partial Class frmSendSMS
Me.Button1.Location = New System.Drawing.Point(15, 267)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(300, 25)
Me.Button1.TabIndex = 6
Me.Button1.TabIndex = 8
Me.Button1.Text = "Bitte zu VERAG kommen!"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.UseVisualStyleBackColor = True
@@ -180,7 +182,7 @@ Partial Class frmSendSMS
Me.Button3.Location = New System.Drawing.Point(15, 315)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(300, 25)
Me.Button3.TabIndex = 14
Me.Button3.TabIndex = 15
Me.Button3.Text = "Bitte zu VERAG kommen und den Stempel mitnehmen!"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.UseVisualStyleBackColor = True
@@ -191,7 +193,7 @@ Partial Class frmSendSMS
Me.Button4.Location = New System.Drawing.Point(15, 339)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(300, 25)
Me.Button4.TabIndex = 17
Me.Button4.TabIndex = 19
Me.Button4.Text = "Bitte zu VERAG kommen und Bargeld mitnehmen: €" & Global.Microsoft.VisualBasic.ChrW(10) & " ..." & Global.Microsoft.VisualBasic.ChrW(10)
Me.Button4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.UseVisualStyleBackColor = True
@@ -202,7 +204,7 @@ Partial Class frmSendSMS
Me.Button5.Location = New System.Drawing.Point(314, 339)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(43, 25)
Me.Button5.TabIndex = 18
Me.Button5.TabIndex = 20
Me.Button5.Text = "TR"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button5.UseVisualStyleBackColor = True
@@ -213,7 +215,7 @@ Partial Class frmSendSMS
Me.Button6.Location = New System.Drawing.Point(314, 315)
Me.Button6.Name = "Button6"
Me.Button6.Size = New System.Drawing.Size(43, 25)
Me.Button6.TabIndex = 15
Me.Button6.TabIndex = 16
Me.Button6.Text = "TR"
Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button6.UseVisualStyleBackColor = True
@@ -235,7 +237,7 @@ Partial Class frmSendSMS
Me.Button8.Location = New System.Drawing.Point(314, 267)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(43, 25)
Me.Button8.TabIndex = 7
Me.Button8.TabIndex = 9
Me.Button8.Text = "TR"
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.UseVisualStyleBackColor = True
@@ -246,7 +248,7 @@ Partial Class frmSendSMS
Me.Button9.Location = New System.Drawing.Point(356, 339)
Me.Button9.Name = "Button9"
Me.Button9.Size = New System.Drawing.Size(43, 25)
Me.Button9.TabIndex = 19
Me.Button9.TabIndex = 21
Me.Button9.Text = "YU"
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button9.UseVisualStyleBackColor = True
@@ -257,7 +259,7 @@ Partial Class frmSendSMS
Me.Button10.Location = New System.Drawing.Point(356, 315)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(43, 25)
Me.Button10.TabIndex = 16
Me.Button10.TabIndex = 17
Me.Button10.Text = "YU"
Me.Button10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button10.UseVisualStyleBackColor = True
@@ -279,7 +281,7 @@ Partial Class frmSendSMS
Me.Button12.Location = New System.Drawing.Point(356, 267)
Me.Button12.Name = "Button12"
Me.Button12.Size = New System.Drawing.Size(43, 25)
Me.Button12.TabIndex = 8
Me.Button12.TabIndex = 10
Me.Button12.Text = "YU"
Me.Button12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button12.UseVisualStyleBackColor = True
@@ -302,16 +304,41 @@ Partial Class frmSendSMS
Me.cbxLKWOK.Location = New System.Drawing.Point(406, 320)
Me.cbxLKWOK.Name = "cbxLKWOK"
Me.cbxLKWOK.Size = New System.Drawing.Size(120, 17)
Me.cbxLKWOK.TabIndex = 21
Me.cbxLKWOK.TabIndex = 18
Me.cbxLKWOK.Text = "LKW auf OK setzen"
Me.cbxLKWOK.UseVisualStyleBackColor = True
'
'cboFirma
'
Me.cboFirma._allowedValuesFreiText = Nothing
Me.cboFirma._allowFreiText = True
Me.cboFirma._value = ""
Me.cboFirma.DropDownWidth = 250
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.cboFirma.FormattingEnabled = True
Me.cboFirma.Location = New System.Drawing.Point(285, 88)
Me.cboFirma.Name = "cboFirma"
Me.cboFirma.Size = New System.Drawing.Size(114, 24)
Me.cboFirma.TabIndex = 5
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.Label3.Location = New System.Drawing.Point(232, 91)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(47, 17)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Firma:"
'
'frmSendSMS
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(560, 371)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.cboFirma)
Me.Controls.Add(Me.cbxLKWOK)
Me.Controls.Add(Me.cboLandVorwahl)
Me.Controls.Add(Me.pic)
@@ -365,4 +392,6 @@ Partial Class frmSendSMS
Friend WithEvents Button12 As System.Windows.Forms.Button
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents cbxLKWOK As CheckBox
Friend WithEvents cboFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label3 As Label
End Class

61
SDL/SMS/frmSendSMS.vb
View File

@@ -56,13 +56,12 @@ Public Class frmSendSMS
End If
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
Button1.Text = Button1.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button2.Text = Button2.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button3.Text = Button3.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
Button4.Text = Button4.Text.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
cboFirma.Items.Clear()
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA))
If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER, VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER))
End If
cboFirma.SelectedIndex = 0
cboLandVorwahl.Items.Clear()
cboLandVorwahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -95,6 +94,15 @@ Public Class frmSendSMS
End Sub
Sub initFirma()
Dim FIRMATmp = cboFirma._value
Button1.Text = Button1.Text.Replace("VERAG", FIRMATmp)
Button2.Text = Button2.Text.Replace("VERAG", FIRMATmp)
Button3.Text = Button3.Text.Replace("VERAG", FIRMATmp)
Button4.Text = Button4.Text.Replace("VERAG", FIRMATmp)
End Sub
'
Private Sub btnAbbrechen_Click(sender As Object, e As EventArgs) Handles btnAbbrechen.Click
@@ -129,26 +137,26 @@ Public Class frmSendSMS
Dim absenderAccount = ""
Dim absenderFirma = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG", "BEIDE"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
End Select
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Select Case cboFirma._value
Case "VERAG" ', "BEIDE"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "ZOLL", "QS" : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
Case "MDM" : absenderAccount = "EX0252747" : absenderFirma = "VERAG 360"
Case Else : absenderAccount = "EX0252513" : absenderFirma = "VERAG Spedition"
'Case Else : MsgBox("Fehler bei der Datenprüfung: Abteilung.") : Exit Sub
End Select
Case "ATILLA" : absenderAccount = "EX0252746" : absenderFirma = "ATILLA Spedition"
Case "IMEX" : absenderAccount = "EX0272082" : absenderFirma = "IMEX Spedition"
Case "UNISPED" : absenderAccount = "EX0300174" : absenderFirma = "UNISPED Spedition"
Case "FRONTOFFICE" : absenderAccount = "EX0300173" : absenderFirma = "FRONT-OFFICE SUBEN"
Case "AMBAR" : absenderAccount = "EX0315223" : absenderFirma = "AMBAR"
Case Else : MsgBox("Fehler bei der Datenprüfung: Firmendaten.") : Exit Sub
End Select
End Select
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
SMS = New VERAG_PROG_ALLGEMEIN.cSMS
' If vbYes = MsgBox("Soll die Nachricht gesendet werden?" & vbNewLine & "Handy-Nummer: " & nr, MsgBoxStyle.YesNo) Then
SMS = New VERAG_PROG_ALLGEMEIN.cSMS
SMS.sms_Vorwahl = cboLandVorwahl._value
@@ -216,8 +224,9 @@ Public Class frmSendSMS
End Sub
Sub fillTXT(s, Optional lkwTxt = "LKW/TIR: ")
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
Dim FirmaTmp = cboFirma._value
If FirmaTmp <> "VERAG" Then
txtNachricht.Text = s.ToString.Replace("VERAG", FirmaTmp.Replace("FRONTOFFICE", "FRONT-OFFICE SUBEN"))
Else
txtNachricht.Text = s
End If
@@ -226,8 +235,8 @@ Public Class frmSendSMS
txtNachricht.Text &= vbNewLine & lkwTxt & Kennzeichen
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE" Then
txtNachricht.Text &= vbNewLine & "VERAG | UNISPED | IMEX"
If FirmaTmp = "FRONTOFFICE" Then
txtNachricht.Text &= vbNewLine & "VERAG - UNISPED - IMEX"
End If
@@ -297,6 +306,10 @@ Public Class frmSendSMS
End If
End Sub
Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
initFirma()
End Sub
End Class
Public Class cSMSOptions

4
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -1878,7 +1878,7 @@ Public Class usrCntlSpeditionsBuchSuche
Datei = .Workbooks.Open(Path) 'Anpassen
Blatt = Datei.Worksheets(1) 'Anpassen
Blatt.Range("H1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
Dim cnt = 3
For Each r In dt.Rows
@@ -1895,6 +1895,8 @@ Public Class usrCntlSpeditionsBuchSuche
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "") Then
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
End If
lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count

1
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -681,6 +681,7 @@ Public Class usrCntlATLAS_EZA
EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
EZA.eza_LetzteBearbeitung = Now
EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
EZA.eza_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
If Not EZA.SAVE_ALL() Then Exit Sub
Dim saveFile = ""

5
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
View File

@@ -507,14 +507,15 @@ Public Class usrCntlATLAS_NCTS
ncts_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB
ncts_OUT.ncts_LetzteBearbeitung = Now
ncts_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, FIRMA_DY)
ncts_OUT.ncts_firma = Me.FIRMA_DY
DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_003(ncts_OUT, Me, DY_ANM, Me.FIRMA_DY)
If Not ncts_OUT.SAVE_ALL() Then Exit Sub
Dim saveFile = ""
If DAKOSY_Interface_SEND.generateVersandanmeldungNCTSDE_003(ncts_OUT, saveFile, cboDakosyAction._value) Then
If saveFile <> "" Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, FIRMA_DY) Then
If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
Else
DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)

3
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

@@ -12,6 +12,7 @@ Class DAKOSY_Interface_SEND
cDY.ncts_Trans_Partner = "VERA"
End Select
cDY.ncts_firma = FIRMA_DY
cDY.ncts_Trans_DatumZeit = Now
cDY.ncts_Gestellt = False
cDY.ncts_Status = "00"
@@ -187,6 +188,8 @@ Class DAKOSY_Interface_SEND
Return "IMEX"
Case "UNISPED"
Return "UNAT"
Case "AMBAR"
Return "VRAS" 'warum auch immer.. irgendwie wg der eigenen EORI von AMBAR..
Case Else : Return "VERG"
End Select
End If

3
SDL/cProgramFunctions.vb
View File

@@ -181,7 +181,8 @@ Public Class cProgramFunctions
If Filiale = 4801 Then
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat17] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
Else
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat291] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat153] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat119] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat109] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")
If Not IsNumeric(docid) OrElse docid <= 0 Then docid = SQL_VERAG.getValueTxtBySql("SELECT TOP 1 isnull([DocNo],-1) FROM [Therefore].[dbo].[TheCat101] WHERE [String] LIKE '" & abfertNr & "' ORDER BY [Eingabedatum] DESC", "SCANCANON")

2
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -583,7 +583,7 @@ Public Class frmNacherfassungLeihgeld
If barcodeLKW IsNot Nothing Then VALUES.barcodeLKW = barcodeLKW
If barcode IsNot Nothing Then VALUES.barcodeSendung = barcode
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing)
Dim rpt As New Gemeinsames.rptSendungen(VALUES, imgpath, Nothing, Nothing, Nothing)
' rpt.Document.CacheToDisk = True
'rpt.Document.CacheToDiskLocation = "C:\\Temp"
' rpt.Run()

2
SDL/kunden/frmKundenblatt.vb
View File

@@ -1202,6 +1202,8 @@ Public Class frmKundenblatt
scanErstbestellung.Visible = True
Case 203 : scanErstbestellung.Visible = True
Case 209 : scanErstbestellung.Visible = True
Case 215 : scanErstbestellung.Visible = True' PLOSE IT
Case 214 : scanErstbestellung.Visible = True 'PLOSE Roadmaster
Case 211
' scanErstbestellung.Visible = True
scanMWSTAgreement.Visible = True

68
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -34,6 +34,7 @@ Partial Class usrcntlKundeBearbeitenFull
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.lblHinweisKdNr = New System.Windows.Forms.Label()
Me.cboFremdspedition = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
@@ -291,6 +292,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Label50 = New System.Windows.Forms.Label()
Me.Label68 = New System.Windows.Forms.Label()
Me.pnlNeukunde = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cboKundenkreis = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label77 = New System.Windows.Forms.Label()
@@ -303,7 +305,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxFiBu = New System.Windows.Forms.CheckBox()
Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
Me.lblHinweisKdNr = New System.Windows.Forms.Label()
Me.Label94 = New System.Windows.Forms.Label()
Me.cbxAPITradeshift = New System.Windows.Forms.CheckBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -383,6 +386,17 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbAbfertigung.Text = " Abfertigung"
Me.tbAbfertigung.UseVisualStyleBackColor = True
'
'lblHinweisKdNr
'
Me.lblHinweisKdNr.AutoSize = True
Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
Me.lblHinweisKdNr.TabIndex = 239
Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
Me.lblHinweisKdNr.Visible = False
'
'cboFremdspedition
'
Me.cboFremdspedition._allowedValuesFreiText = Nothing
@@ -965,6 +979,8 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift)
Me.tbVerrechnung.Controls.Add(Me.Label94)
Me.tbVerrechnung.Controls.Add(Me.cbxVeranlagungskunde)
Me.tbVerrechnung.Controls.Add(Me.Label93)
Me.tbVerrechnung.Controls.Add(Me.txtDebKdNr)
@@ -3864,16 +3880,27 @@ Partial Class usrcntlKundeBearbeitenFull
'
'pnlNeukunde
'
Me.pnlNeukunde.Controls.Add(Me.Button2)
Me.pnlNeukunde.Controls.Add(Me.Label50)
Me.pnlNeukunde.Controls.Add(Me.cboFiliale)
Me.pnlNeukunde.Controls.Add(Me.cboKundenkreis)
Me.pnlNeukunde.Controls.Add(Me.Label68)
Me.pnlNeukunde.Location = New System.Drawing.Point(717, 487)
Me.pnlNeukunde.Location = New System.Drawing.Point(705, 487)
Me.pnlNeukunde.Name = "pnlNeukunde"
Me.pnlNeukunde.Size = New System.Drawing.Size(303, 73)
Me.pnlNeukunde.Size = New System.Drawing.Size(315, 80)
Me.pnlNeukunde.TabIndex = 15
Me.pnlNeukunde.Visible = False
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(194, 7)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(105, 30)
Me.Button2.TabIndex = 19
Me.Button2.Text = "Wunsch-KdNr"
Me.Button2.UseVisualStyleBackColor = True
'
'cboFiliale
'
Me.cboFiliale._allowedValuesFreiText = Nothing
@@ -3887,7 +3914,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFiliale.FormattingEnabled = True
Me.cboFiliale.Location = New System.Drawing.Point(104, 8)
Me.cboFiliale.Name = "cboFiliale"
Me.cboFiliale.Size = New System.Drawing.Size(195, 28)
Me.cboFiliale.Size = New System.Drawing.Size(84, 28)
Me.cboFiliale.TabIndex = 1
'
'cboKundenkreis
@@ -4037,16 +4064,26 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBuLG.UseVisualStyleBackColor = True
Me.cbxFiBuLG.Visible = False
'
'lblHinweisKdNr
'Label94
'
Me.lblHinweisKdNr.AutoSize = True
Me.lblHinweisKdNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblHinweisKdNr.Location = New System.Drawing.Point(168, 94)
Me.lblHinweisKdNr.Name = "lblHinweisKdNr"
Me.lblHinweisKdNr.Size = New System.Drawing.Size(137, 13)
Me.lblHinweisKdNr.TabIndex = 239
Me.lblHinweisKdNr.Text = "Kunden-Nummer vergeben!"
Me.lblHinweisKdNr.Visible = False
Me.Label94.AutoSize = True
Me.Label94.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label94.Location = New System.Drawing.Point(414, 358)
Me.Label94.Name = "Label94"
Me.Label94.Size = New System.Drawing.Size(168, 13)
Me.Label94.TabIndex = 35
Me.Label94.Text = "Fremd-Abrechnungssysteme:"
'
'cbxAPITradeshift
'
Me.cbxAPITradeshift.AutoSize = True
Me.cbxAPITradeshift.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxAPITradeshift.Location = New System.Drawing.Point(417, 382)
Me.cbxAPITradeshift.Name = "cbxAPITradeshift"
Me.cbxAPITradeshift.Size = New System.Drawing.Size(157, 17)
Me.cbxAPITradeshift.TabIndex = 36
Me.cbxAPITradeshift.Text = "Rechnungskopie Tradeshift"
Me.cbxAPITradeshift.UseVisualStyleBackColor = True
'
'usrcntlKundeBearbeitenFull
'
@@ -4078,7 +4115,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.Controls.Add(Me.lblKundennr)
Me.Controls.Add(Me.Label77)
Me.Name = "usrcntlKundeBearbeitenFull"
Me.Size = New System.Drawing.Size(1152, 560)
Me.Size = New System.Drawing.Size(1152, 570)
Me.tbcntrDetails.ResumeLayout(False)
Me.tbAbfertigung.ResumeLayout(False)
Me.tbAbfertigung.PerformLayout()
@@ -4403,4 +4440,7 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents txtDebKdNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVeranlagungskunde As CheckBox
Friend WithEvents lblHinweisKdNr As Label
Friend WithEvents Button2 As Button
Friend WithEvents cbxAPITradeshift As CheckBox
Friend WithEvents Label94 As Label
End Class

39
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -9,7 +9,8 @@ Public Class usrcntlKundeBearbeitenFull
' Dim USRCNTL_FISK As usrCntlKundeFiskaldaten
Dim EMAIL_ANKUNFT As cEmailBenachrichtigungList = Nothing
Dim EMAIL_FREIGABE As cEmailBenachrichtigungList = Nothing
Dim sql As New SQL
Dim sql As New SQL
Dim WunschKdNr As Integer = -1
' Dim kdnr = -1
Public Event KD_SAVED(kdnr)
@@ -172,6 +173,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxAbf_ZollVM.Checked = loadValue(KUNDE.Zollvollmacht, False)
txtAbf_ZollVmVom._value = loadValue(KUNDE.Zollvollmacht_vom, "")
txtAbf_Planzahl.Text = loadValue(KUNDE.Planzahl, "")
cbxAbf_Lastschrift.Checked = loadValue(KUNDE.Lastschrift, False)
txtAbf_LastschriftVon._value = loadValue(KUNDE.Lastschrift_von, "")
txtAbf_LastschriftBis._value = loadValue(KUNDE.Lastschrift_bis, "")
@@ -275,6 +277,8 @@ Public Class usrcntlKundeBearbeitenFull
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
' ----- Abfertigungsverbot -----
@@ -333,6 +337,7 @@ Public Class usrcntlKundeBearbeitenFull
txtAbfVerb_RechtsanwaltSeit.Enabled = cboAbfVerb_Rechtsanwalt.Checked
' -------- EMAIL --------
@@ -377,7 +382,8 @@ Public Class usrcntlKundeBearbeitenFull
End Select
Dim s_KdNr = kundenkreis.Split("-")
Dim kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
Dim kdnr = WunschKdNr 'Wenn Wunschkdnr, sonst neue vergeben:
If WunschKdNr <= 0 Then kdnr = VERAG_PROG_ALLGEMEIN.cAdressen.getHoechsteKdNr(s_KdNr(0), s_KdNr(1)) '+ 1
If kdnr > 0 Then
' Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(kdnr)
@@ -540,6 +546,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked
KUNDE_ERW.kde_API_Tradeshift = cbxAPITradeshift.Checked
' ----- Fremdsped -----
KUNDE_ERW.kde_KundeFremdspedition = cbxVerzolltBei.Checked
@@ -1236,5 +1243,33 @@ Public Class usrcntlKundeBearbeitenFull
cboFremdspedition.Enabled = cbxVerzolltBei.Checked
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim WunschKdnr = InputBox("Bitte geben Sie die gewünschte Kundennummer ein:")
If WunschKdnr <> "" Then
If Not IsNumeric(WunschKdnr) Then MsgBox("Falsches Format!") : Exit Sub
If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 9999999 Then MsgBox("Falsches Format!") : Exit Sub
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
If CInt(WunschKdnr) < 1000000 Or CInt(WunschKdnr) > 1999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
Case "UNISPED"
If CInt(WunschKdnr) < 2000000 Or CInt(WunschKdnr) > 2999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
Case "AMBAR"
If CInt(WunschKdnr) < 3000000 Or CInt(WunschKdnr) > 3999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
Case Else
If CInt(WunschKdnr) < 100000 Or CInt(WunschKdnr) > 999999 Then MsgBox("Falscher Nummernkreis!") : Exit Sub
End Select
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If SQL.DLookup("COUNT(*)", "Adressen", "AdressenNr='" & WunschKdnr & "'", "FMZOLL", 0) > 0 Then
MsgBox("Kundennummer existiert bereits!") : Exit Sub
End If
Me.WunschKdNr = CInt(WunschKdnr)
lblKundennr.Text = WunschKdnr
pnlNeukunde.Visible = False
End If
End Sub
End Class

26
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.Designer.vb generated
View File

@@ -55,6 +55,7 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanRetourniert = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -438,6 +439,7 @@ Partial Class usrCntlSDLLeistungPLOSE
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanBestellung)
Me.TabPage2.Controls.Add(Me.scanPIN)
Me.TabPage2.Controls.Add(Me.scanLieferschein)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
@@ -501,10 +503,10 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanSonstiges.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanSonstiges.Location = New System.Drawing.Point(3, 31)
Me.scanSonstiges.Location = New System.Drawing.Point(3, 56)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 130)
Me.scanSonstiges.Size = New System.Drawing.Size(250, 108)
Me.scanSonstiges.TabIndex = 21
'
'scanRetourniert
@@ -539,6 +541,25 @@ Partial Class usrCntlSDLLeistungPLOSE
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'scanBestellung
'
Me.scanBestellung._ARCHIV = True
Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
Me.scanBestellung._MULTI_FILES = True
Me.scanBestellung._TEXT_PDF = "Bestellung"
Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanBestellung.BackColor = System.Drawing.Color.White
Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
Me.scanBestellung.Location = New System.Drawing.Point(3, 30)
Me.scanBestellung.Name = "scanBestellung"
Me.scanBestellung.Size = New System.Drawing.Size(94, 24)
Me.scanBestellung.TabIndex = 26
'
'usrCntlSDLLeistungPLOSE
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -609,4 +630,5 @@ Partial Class usrCntlSDLLeistungPLOSE
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents scanPIN As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
End Class

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungPLOSE.vb
View File

@@ -51,6 +51,7 @@ Public Class usrCntlSDLLeistungPLOSE
scanLieferschein.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanPIN.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()

25
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.Designer.vb generated
View File

@@ -52,6 +52,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
Me.txtVIACard = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTelepassNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxArchiviert = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.scanBestellung = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.Panel2.SuspendLayout()
Me.tbcntr.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -191,6 +192,7 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanBestellung)
Me.TabPage2.Controls.Add(Me.scanLieferscheinVIA)
Me.TabPage2.Controls.Add(Me.scanLieferscheinTP)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
@@ -248,6 +250,8 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -477,6 +481,25 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
Me.cbxArchiviert.Text = "ARCHIVIERT"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'scanBestellung
'
Me.scanBestellung._ARCHIV = True
Me.scanBestellung._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanBestellung._DATENSERVER_ORDNER = "MDM"
Me.scanBestellung._DATENSERVER_UOrdner1 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner2 = Nothing
Me.scanBestellung._DATENSERVER_UOrdner3 = Nothing
Me.scanBestellung._MULTI_FILES = True
Me.scanBestellung._TEXT_PDF = "Bestellung"
Me.scanBestellung.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanBestellung.BackColor = System.Drawing.Color.White
Me.scanBestellung.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanBestellung.Cursor = System.Windows.Forms.Cursors.Default
Me.scanBestellung.Location = New System.Drawing.Point(163, 4)
Me.scanBestellung.Name = "scanBestellung"
Me.scanBestellung.Size = New System.Drawing.Size(90, 24)
Me.scanBestellung.TabIndex = 25
'
'usrCntlSDLLeistungenPLOSE_IT
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -541,5 +564,5 @@ Partial Class usrCntlSDLLeistungenPLOSE_IT
Friend WithEvents scanLieferscheinVIA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents cbxErsatztelepass As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents cbxArchiviert As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
Friend WithEvents scanBestellung As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
End Class

1
SDL/mdm/SDLLeistungenDetails/usrCntlSDLLeistungenPLOSE_IT.vb
View File

@@ -45,6 +45,7 @@ Public Class usrCntlSDLLeistungenPLOSE_IT
scanLieferscheinVIA.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanRetourniert.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanSonstiges.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
scanBestellung.INIT(kdNr, KfzKennzeichen, "SDL_" & SDLNr, "HIST_" & History)
initDataBinding()

8
SDL/zoll/usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER.vb
View File

@@ -77,7 +77,9 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
Dim datum As Date = CDate(line.Substring(53, 10).Trim)
Dim betrag As Double = CDbl(line.Substring(63, 16).Trim)
Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
' Dim fakturiert = CDbl(SQL.DLookup("Betrag", "Zkteing", "[Status]='F' AND [Registriernummer]='" & atc & "' AND [AKTO]=" & AKTONr & "", "FMZOLL", "0"))
Dim fakturiert = CDbl(SQL.DLookup("sum(Preis)", "Rechnungsausgang inner join [RechnungsausgangPositionen] On Rechnungsausgang.RK_ID=[RechnungsausgangPositionen].RK_ID", " [Status]<>0 and DruckDatumZeit is not null and left([RechnungsausgangPositionen].Belegdaten,21)='" & atc & "' ", "FMZOLL", "0"))
Dim differenz = fakturiert - betrag
If Not cbx.Checked OrElse differenz <> 0 Then
@@ -121,7 +123,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
Dim sum = 0
rpt.lblKontoBez.Text = srchAufschubnehmer
rpt.lblFaelligkeit.Text = Faelligkeit
rpt.lblAnzahl.Text = cnt
' rpt.lblAnzahl.Text = cnt
rpt.lblDetails.Text = Now.ToLongDateString & ", " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
Dim sumBetrag As Double = 0
@@ -174,7 +176,7 @@ Public Class usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER
rpt.lblBetragSum.Text = sumBetrag.ToString("N2", CultureInfo.CurrentCulture)
rpt.lblFakturiertSum.Text = sumFakturiert.ToString("N2", CultureInfo.CurrentCulture)
rpt.lblDifferenzSum.Text = sumDifferenz.ToString("N2", CultureInfo.CurrentCulture)
' rpt.lblGesGesSumAnzahl.Text = gesAnz.ToString("N0")
rpt.lblAnzahl.Text = Anz.ToString("N0") & "(" & Anz.ToString("N0") & " im Datensatz)"
End Sub

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -60,6 +60,7 @@ Public Class cKundenErweitert
Property kde_InfoAuftragsNr As Object = Nothing
Property kde_KundeFremdspedition As Boolean = False
Property kde_verzolltBei As Object = Nothing
Property kde_API_Tradeshift As Boolean = False
Dim SQL As New SQL
@@ -120,6 +121,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_InfoAuftragsNr", kde_InfoAuftragsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KundeFremdspedition", kde_KundeFremdspedition))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_verzolltBei", kde_verzolltBei))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_API_Tradeshift", kde_API_Tradeshift))
Return list
End Function

4
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -458,6 +458,10 @@ Public Class cRechnungsausgang
'MsgBox(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0))
If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
Return False
End If
Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
End Function

129
VERAG_PROG_ALLGEMEIN/Classes/cSendVorkosten.vb Normal file
View File

@@ -0,0 +1,129 @@

Imports System.Data.SqlClient
Imports System.Reflection
Public Class cSendVorkosten
Property sndvk_id As Integer
Property sndvk_sendId As Object = Nothing
Property sndvk_LeistungsNr As Object = Nothing
Property sndvk_LeistungsBez As Object = Nothing
Property sndvk_Preis As Object = Nothing
Property sndvk_Firma As Object = Nothing
Public hasEntry = False
Dim SQL As New SQL
Sub New()
End Sub
Sub New(sndvk_id)
Me.sndvk_id = sndvk_id
LOAD()
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_id", sndvk_id,, True))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_sendId", sndvk_sendId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsNr", sndvk_LeistungsNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_LeistungsBez", sndvk_LeistungsBez))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Preis", sndvk_Preis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndvk_Firma", sndvk_Firma))
Return list
End Function
Public Function SAVE() As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
End Function
Public Sub LOAD()
Try
hasEntry = False
Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_id=@sndvk_id ", conn)
cmd.Parameters.AddWithValue("@sndvk_id", sndvk_id)
Dim dr = cmd.ExecuteReader()
If dr.Read Then
For Each l In getParameterList()
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
If dr.Item(l.Text) Is DBNull.Value Then
propInfo.SetValue(Me, Nothing)
Else
propInfo.SetValue(Me, dr.Item(l.Text))
End If
Next
hasEntry = True
End If
dr.Close()
End Using
End Using
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
End Sub
Public Function getUpdateCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
Return (" UPDATE [tblSendVorkosten] SET " & str & " WHERE sndvk_id=@sndvk_id ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function getInsertCmd() As String
Try
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim str As String = ""
Dim values As String = ""
For Each i In list
If Not i.isPrimaryParam Then
str &= "[" & i.Text & "],"
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
End If
Next
str = str.Substring(0, str.Length - 1) 'wg. ','
values = values.Substring(0, values.Length - 1) 'wg. ','
Return (" INSERT INTO tblSendVorkosten (" & str & ") VALUES(" & values & ") ")
Catch ex As Exception
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
Return ""
End Function
Public Function INSERT() As Boolean
Try
Return SQL.doSQLVarList(getInsertCmd, "AVISO", , getParameterList)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
End Class

87
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -98,12 +98,14 @@ Public Class cSendungen
Property tblSnd_Vorpapier2_Pos As Object = Nothing
Property tblSnd_Vorpapier3 As Object = Nothing
Property tblSnd_Vorpapier3_Pos As Object = Nothing
Property tblSnd_Frachtkosten As Object = Nothing
Public saveSachbearbeiter As Boolean = False
Property ABRECHNUNG As New List(Of cSendungAbrechnung)
Property HANDLING As New List(Of cSendHandling)
Property VORKOSTEN As New List(Of cSendVorkosten)
'Dim cDatenbank As New cDatenbank
@@ -347,6 +349,7 @@ Public Class cSendungen
Me.tblSnd_Vorpapier2_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier2_Pos"), Nothing)
Me.tblSnd_Vorpapier3 = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3"), Nothing)
Me.tblSnd_Vorpapier3_Pos = SQL.checkNullReturnValue(dr.Item("tblSnd_Vorpapier3_Pos"), Nothing)
Me.tblSnd_Frachtkosten = SQL.checkNullReturnValue(dr.Item("tblSnd_Frachtkosten"), Nothing)
End If
@@ -432,6 +435,39 @@ Public Class cSendungen
' Return Nothing
End Sub
Public Sub LOAD_VORKOSTEN()
Try
Me.VORKOSTEN.Clear()
Dim conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
Using cmd2 As New SqlCommand("SELECT * FROM tblSendVorkosten WHERE sndvk_sendId=@sndvk_sendId ", conn)
cmd2.Parameters.AddWithValue("@sndvk_sendId", Me.tblSnd_SendungID)
Dim dr2 = cmd2.ExecuteReader()
While dr2.Read
Dim a As New cSendVorkosten()
a.sndvk_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsNr"), Nothing)
a.sndvk_sendId = SQL.checkNullReturnValue(dr2.Item("sndvk_sendId"), Nothing)
a.sndvk_LeistungsBez = SQL.checkNullReturnValue(dr2.Item("sndvk_LeistungsBez"), Nothing)
a.sndvk_Firma = SQL.checkNullReturnValue(dr2.Item("sndvk_Firma"), Nothing)
a.sndvk_Preis = SQL.checkNullReturnValue(dr2.Item("sndvk_Preis"), 0)
Me.VORKOSTEN.Add(a)
End While
dr2.Close()
End Using
conn.Close()
'End Using
'Return Nothing
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & " 'cSENDUNGEN'", System.Reflection.MethodInfo.GetCurrentMethod.Name)
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
End Try
' Return Nothing
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -527,6 +563,7 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier2_Pos", tblSnd_Vorpapier2_Pos))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3", tblSnd_Vorpapier3))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Vorpapier3_Pos", tblSnd_Vorpapier3_Pos))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Frachtkosten", tblSnd_Frachtkosten))
@@ -608,6 +645,23 @@ Public Class cSendungen
End Function
Public Function SAVE_VORKOSTEN() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
SAVE_VORKOSTEN = False
Dim sqlstr = " DELETE FROM tblSendVorkosten WHERE sndvk_sendId=" & Me.tblSnd_SendungID
' MsgBox(sqlstr)
If SQL.doSQL(sqlstr, "AVISO") Then
SAVE_VORKOSTEN = True
For Each a In VORKOSTEN
a.sndvk_sendId = Me.tblSnd_SendungID
If Not a.INSERT() Then SAVE_VORKOSTEN = False
Next
End If
' Return b
End Function
Public Shared Function SET_SpedbuchEntry(tblSnd_SendungID As Integer, tblSnd_SpeditionsbuchEingetragen As Boolean) As String
Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -620,6 +674,39 @@ Public Class cSendungen
Return ""
End Function
Public Function getNCTSAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = True, Optional Bestimmungszollstelle As Boolean = True) As String
Dim adresse = ""
adresse &= If(Me.tblSnd_NCTSVerzollungsadresse, "") & vbNewLine
adresse &= If(Me.NCTS_Verzollungsadresse_Strasse, "") & vbNewLine
adresse &= If(Me.NCTS_Verzollungsadresse_Land, "") & " " & If(Me.NCTS_Verzollungsadresse_PLZ, "") & " " & If(Me.NCTS_Verzollungsadresse_Ort, "") & vbNewLine
If ansprechpartner Then adresse &= If(Me.NCTS_Verzollungsadresse_Ansprechpartner, "") & vbNewLine
If Bestimmungszollstelle And If(Me.NCTS_Bestimmungszollstelle, "") <> "" Then
adresse &= SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & Me.NCTS_Bestimmungszollstelle & "' ", "ATLAS")
End If
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
Return adresse.Trim
End Function
Public Function getEmpfaengerAdress(Optional htmlOptimized As Boolean = False, Optional ansprechpartner As Boolean = False) As String
If tblSnd_EmpfaengerKdNr > 0 Then
Dim AD As New cAdressen(tblSnd_EmpfaengerKdNr)
Dim adresse = ""
adresse &= If(AD.Name_1, "") & If(AD.Name_2, "") & vbNewLine
If If(AD.Straße, "") <> "" Then adresse &= If(AD.Straße, "") & vbNewLine
adresse &= If(AD.LandKz, "") & " " & If(AD.PLZ, "").ToString.ToUpper.Replace("OHNE", "") & " " & If(AD.Ort, "")
If htmlOptimized Then adresse = adresse.Trim.Replace(vbNewLine, "<br/>")
Return adresse.Trim
Else
Return tblSnd_Empfaenger
End If
End Function
End Class
Public Class cSendungAbrechnung

8
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -499,8 +499,7 @@ Class TrdInvoice_FUNCTIONS
Select Case Firma_Id
Case 20 'IMEX --> Andere Sachkonten in Tbl Leistungen!
If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
OrElse [RK_RechnungsLandKz] = "A" _
OrElse [RK_RechnungsLandKz] = "AT" Then
If CBool([RP_Steuerpflichtig]) Then
@@ -524,7 +523,7 @@ Class TrdInvoice_FUNCTIONS
Case 21, 22, 23, 24 '--> cLeistungenBUKonten!
Dim BU_KTO As New VERAG_PROG_ALLGEMEIN.cLeistungenBUKonten(RP_LeistungsNr, Firma_Id)
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz].trim = "" OrElse
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" OrElse
[RK_RechnungsLandKz] = FIRMA.Firma_LandKz.ToString.Replace("AT", "A").Replace("DE", "D") Then
If CBool([RP_Steuerpflichtig]) Then
@@ -547,8 +546,7 @@ Class TrdInvoice_FUNCTIONS
If getSachkonto = "" Then getSachkonto = "9999" 'DEFAULT!
Case Else
If [RK_RechnungsLandKz] Is Nothing _
OrElse [RK_RechnungsLandKz].trim = "" _
If [RK_RechnungsLandKz] Is Nothing OrElse [RK_RechnungsLandKz] Is DBNull.Value OrElse [RK_RechnungsLandKz].trim = "" _
OrElse [RK_RechnungsLandKz] = "A" _
OrElse [RK_RechnungsLandKz] = "AT" Then
If CBool([RP_Steuerpflichtig]) Then

1
VERAG_PROG_ALLGEMEIN/Schnittstellen/cBMD_Interface.vb
View File

@@ -341,7 +341,6 @@
End Select
'----------------- Buchungssätze -----------------
If True Then 'boolBuchungen Then
TrdInvoice_FUNCTIONS.TrdinSchreiben(FIRMA.Firma_ID) 'Lädt die Daten aus der Tabelle Rechnungsausgang in die Tabelle trdInvoice (nur für 20 = IMEX )

3
VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb
View File

@@ -11,7 +11,8 @@ Public Class cTherefore
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Atilla ab Juni 2011",, deleteFileAfterImport)
Case 1, 11, 20 ', 15,20
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
' Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
Case Else
Return False
End Select

1
VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj
View File

@@ -327,6 +327,7 @@
<Compile Include="Classes\cSDL.vb" />
<Compile Include="Classes\cSDL_LKW.vb" />
<Compile Include="Classes\cSendMailAttach.vb" />
<Compile Include="Classes\cSendVorkosten.vb" />
<Compile Include="Classes\cSession.vb" />
<Compile Include="Classes\cSMS.vb" />
<Compile Include="Classes\cSpeditionsbuch.vb" />