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

Spedbucht, Fakt, cbam, bearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-29 15:10:56 +02:00
parent 8ac8a72e04
commit 334e277c94
8 changed files with 167 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -2765,7 +2765,7 @@ Public Class usrCntlFaktAbrechnung
Else
curBGebBetrag = curBGebMinBetrag 'Mindestbetrag verwenden
summeFremdBearb += If(OFFERT_FREMD, curBGebErrBetrag, 0)
summeRMCBearb += If(OFFERT_FREMD, curBGebErrBetrag, 0)
summeRMCBearb += If(OFFERT_RMC, curBGebErrBetrag, 0)
minBetragRMCUsed = IIf(OFFERT_FREMD OrElse OFFERT_RMC, True, False)
End If
@@ -2805,6 +2805,7 @@ Public Class usrCntlFaktAbrechnung
preisInital = (summeRMCBearb + summeFremdBearb) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1)
row.Cells("Preis").Value = preisInital
Exit For
Else
row.Cells("Preis").Value = preisInital
Exit For
@@ -2843,7 +2844,43 @@ Public Class usrCntlFaktAbrechnung
If (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) <> POS.Preis Then
For Each row As DataGridViewRow In dgvOfferteDetailsUebersicht.Rows
If row.Cells("LeistungsNr").Value = BGebLeistungsNr And row.Cells("BerechnungsartNr").Value = 9 Then
If row.Cells("Preis").Value <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then
Dim preisecChanged = row.Cells("Preis").Value
If preisecChanged <> (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1) Then
' If row.Cells("Preis").Value = curBGebBetrag * 2 AndAlso minBetragRMCUsed Then 'wenn RMCPOS und MIND-BERTAG 2x verrechnet -> nur 1x berechnen v
' row.Cells("Preis").Value = preisecChanged / 2
' POS.Anzahl = 1
' initSteuerbetraege(RECHNUNG, POS)
' POSChanged = True
' Exit For
' ElseIf preisecChanged <> curBGebBetrag * 2 AndAlso (summeRMCBearb + summeFremdBearb) <> preisecChanged AndAlso (minBetragRMCUsed OrElse isRMC OrElse isFREMD) AndAlso (summeRMCBearb + summeFremdBearb) > curBGebMinBetrag Then 'wenn RMCPOS und Summe der berechneten Bearb > Mindestbetrag --> berechnetBearb verrechnet!
' preisecChanged = (summeRMCBearb + summeFremdBearb) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1)
' row.Cells("Preis").Value = preisecChanged
' POS.Anzahl = 1
' initSteuerbetraege(RECHNUNG, POS)
' POSChanged = True
' If FremdUndRMC AndAlso summeRMCBearb > 0 AndAlso summeFremdBearb > 0 Then Exit For
' ElseIf sumOffertRMC + sumOffertFremd > curBGebMinBetrag Then
' row.Cells("Preis").Value = (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1)
' POS.Anzahl = 1
' initSteuerbetraege(RECHNUNG, POS)
' POSChanged = True
' 'Exit For
' End If
'End if
row.Cells("Preis").Value = (sumOffertRMC + sumOffertFremd) * IIf(RECHNUNG.Vorzeichen = "-", -1, 1)
POS.Anzahl = 1
initSteuerbetraege(RECHNUNG, POS)
@@ -2853,6 +2890,7 @@ Public Class usrCntlFaktAbrechnung
End If
Next

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.5.2")>
<Assembly: AssemblyFileVersion("1.4.5.2")>
<Assembly: AssemblyVersion("1.4.5.3")>
<Assembly: AssemblyFileVersion("1.4.5.3")>

23
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -3041,13 +3041,30 @@ Public Class usrCntlSpeditionsBuchSuche
Try
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
If ZOLLANMELDUNG.Handelsrechnung <> "" Then
Dim RechnungsString = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Dim rows() As String = RechnungsString.Split(New Char() {" "c}, StringSplitOptions.RemoveEmptyEntries)
For Each row As String In rows
If IsDate(row) AndAlso row.Length = 10 Then
RechnungsString = RechnungsString.Replace(row.ToString, "")
End If
Next
Blatt.Range("E" & cnt).Value = RechnungsString.Trim
End If
Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
Blatt.Range("E" & cnt).Value = ZOLLANMELDUNG.ATCMRN
Blatt.Range("C" & cnt).Value = ZOLLANMELDUNG.ATCMRN
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)

16
SDL/USTV/usrCntlUSTV.vb
View File

@@ -1441,11 +1441,14 @@ Public Class usrCntlUSTV
If MyComboBox1._value <> "" Then whereStr &= " AND dbo.Adressen.LandKz='" & MyComboBox1._value & "' "
Dim sqlQery = "SELECT dbo.tblUStVAntrag.UStVAn_ID, dbo.tblUStVAntrag.UStVAn_KuNr, dbo.tblUStVAntrag.UStVAn_ReDatVon,
dbo.tblUStVAntrag.UStVAn_ReDatBis,
dbo.tblUStVAntrag.UStVAn_Ausstellungsdatum,
dbo.tblUStVAntrag.UStVAn_LandNr,
dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
(SELECT LandKz from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = dbo.tblUStVAntrag.UStVAn_LandNr) as AntragsLand,
dbo.tblUStVAntrag.UStVAn_VZDatum, dbo.tblUStVAntrag.UStVAn_VZBetrag, dbo.tblUStVAntrag.UStVAn_RZBetragVZ, dbo.Adressen.Ordnungsbegriff, dbo.Adressen.LandKz, ISNULL
((SELECT SUM(UStVEr_USteuerbetragEUR) AS Expr1
FROM dbo.tblUStVErstattung
WHERE (UStVAn_ID = dbo.tblUStVAntrag.UStVAn_ID)), 0) AS Erstattungsbetrag, CASE WHEN ([UStVAn_VZBetrag] - ISNULL([UStVAn_RZBetragVZ], 0) - ISNULL
@@ -1466,6 +1469,15 @@ Public Class usrCntlUSTV
If dtVorauszahlung.Rows.Count = 0 Then
MsgBox("keine Daten!")
Exit Sub
Else
For Each col In dtVorauszahlung.Columns
Dim colName = col.ColumnName.Replace("UStVAn_", "")
If Not col.ColumnName.Contains(colName) Then col.ColumnName = col.ColumnName.Replace("UStVAn_", "")
Next
End If

67
SDL/kunden/usrCntlCBAM.vb
View File

@@ -468,7 +468,9 @@ Public Class usrCntlCBAM
,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI
,isnull(max(CN_Name), '') as Empfänger
,isnull(max(Versender_CZ_EORI),'') as AbsenderEORI
,isnull(max(CZ_Name), '') as Absender"
,isnull(max(CZ_Name), '') as Absender
,'' as 'Rechnungsnummer'
,'' as 'Rechnungsdatum'"
Dim SQLSTR = " FROM [tbl_DY_Zollmeldungen_Import]
where
@@ -541,9 +543,39 @@ Public Class usrCntlCBAM
inner join Kunden on Speditionsbuch.[VermittlerKundenNr] = Kunden.KundenNr OR Speditionsbuch.[EmpfängerKundenNr]= Kunden.KundenNr OR Speditionsbuch.[VermittlerKundenNr] = Kunden.KundenNr OR Speditionsbuch.[EmpfängerKundenNr] = Kunden.KundenNr
where 1 = 1 AND Kunden.EORITIN = '" & EORI & "' AND BelegNr <> '' AND (Speditionsbuch.[Abfertigungsdatum] BETWEEN '" & txtVon._value & "' and '" & txtBis._value & "' )" & IIf(MRNNr <> "", SQLWhereMRN, "")
Dim ReDaten As New DataTable
If MRNNr <> "" Then
ReDaten = SQL.loadDgvBySql("SELECT Positionsunterlagenart, Positionsunterlagennummer, Positionsunterlagendatum,Registriernummer_MRN FROM [tbl_DY_Zollmeldungen_Import] WHERE [Positionsunterlagenart] in ('N380','N325') and Registriernummer_MRN IN (" & MRNNr & ")", "AVISO", 600)
End If
If ReDaten.Rows.Count > 0 Then
dt.Columns("Rechnungsdatum").ReadOnly = False
dt.Columns("Rechnungsnummer").ReadOnly = False
dt.Columns("Rechnungsdatum").MaxLength = -1
dt.Columns("Rechnungsnummer").MaxLength = -1
End If
' MsgBox(SQLSTR)
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each r As DataRow In dt.Rows
Dim MDN_NR As String = r("RegistriernummerATLAS")
' Look for matching row in dt2
Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
If found.Length > 0 Then
Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")
If rechnugnsdatum <> "" Then rechnugnsdatum.Replace("00:00:00", "")
r("Rechnungsdatum") = rechnugnsdatum
r("Rechnungsnummer") = found(0)("Positionsunterlagennummer")
Else
r("Rechnungsdatum") = "-"
r("Rechnungsnummer") = "-"
End If
Next
Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value)
btnCBAM_DS_DAKOSY_Detail.Tag = path
btnCBAM_DS_DAKOSY_Detail.Enabled = True
@@ -551,8 +583,39 @@ Public Class usrCntlCBAM
End If
If dtGP IsNot Nothing AndAlso dt.Rows.Count > 0 Then
If ReDaten.Rows.Count > 0 Then
dtGP.Columns("invoice date").ReadOnly = False
dtGP.Columns("invoice numbers").ReadOnly = False
dtGP.Columns("invoice date").MaxLength = -1
dtGP.Columns("invoice numbers").MaxLength = -1
End If
For Each r As DataRow In dtGP.Rows
Dim MDN_NR As String = r("declaration no")
' Look for matching row in dt2
Dim found() As DataRow = ReDaten.Select("Registriernummer_MRN = '" & MDN_NR & "'")
If found.Length > 0 Then
Dim rechnugnsdatum As String = found(0)("Positionsunterlagendatum")
If rechnugnsdatum <> "" Then rechnugnsdatum.Replace("00:00:00", "")
r("invoice date") = rechnugnsdatum
r("invoice numbers") = found(0)("Positionsunterlagennummer")
Else
r("invoice date") = "-"
r("invoice numbers") = "-"
End If
Next
btnCBAM_DS_DAKOSY_GP.Tag = ""
btnCBAM_DS_DAKOSY_GP.Tag = createExcelForGreenPulse(dtGP, EORI, IIf(AD.Ort <> "", AD.Ort, ""))
btnCBAM_DS_DAKOSY_GP.Enabled = True

4
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -213,7 +213,7 @@
txtVorauszahlung.Text = loadValue(KUNDE_ERW.kde_AnmerkungVZ, "")
cbxFR.Checked = loadValue(KUNDE_ERW.kde_FR, False)
cbxCS_Added.Checked = loadValue(KUNDE_ERW.kde_CSPortfolioAdded, False)
cbxCSInsolvent.Checked = IIf(Not IsDBNull(KUNDE_ERW.kde_CSinsolventAm), True, False)
cbxCSInsolvent.Checked = IIf(Not IsDBNull(KUNDE_ERW.kde_CSinsolventAm) AndAlso KUNDE_ERW.kde_CSinsolventAm IsNot Nothing, True, False)
txtFR.Text = loadValue(KUNDE_ERW.kde_AnmerkungFR, "")
cbpKopfsammelrechnung.Checked = KUNDE_ERW.kde_Kopfsammelrechnung
txtAnmerkungAntraege.Text = loadValue(KUNDE_ERW.kde_AnmerkungAntrag, "")
@@ -2362,7 +2362,7 @@
cbxCSInsolvent.Checked = True
End If
ElseIf KUNDE_ERW.kde_CSinsolventAm Is Nothing And cbxCSInsolvent.Checked Then
ElseIf KUNDE_ERW.kde_CSinsolventAm Is Nothing AndAlso cbxCSInsolvent.Checked Then
MsgBox("Wert kann nicht manuell gesetzt werden!")
cbxCSInsolvent.Checked = False
End If

23
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -85,10 +85,27 @@ Public Class usrCntlMDMAuswertungen
Folder = NSpace.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderSentMail)
EItem = Folder.Items.Add(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
EItem.To = "a.rissbacher@woelfl-trans.at"
EItem.Subject = "Wölfl Rechnungen/Gutschriften"
EItem.To = "a.rissbacher@rmc-service.com"
EItem.CC = "juricevic@verag.ag"
EItem.Subject = "RMC Rechnungen/Gutschriften"
EItem.Attachments.Add(path, OlAttachmentType.olByValue, 1, "WOELFL.csv ")
Dim accountToSent = "mmdabrechnung@verag.ag" 'bewusst falsch geschrieben!!!!
If accountToSent <> "" Then
If outApp.Session.Accounts.Count > 0 Then
For Each oAccount In outApp.Session.Accounts
If oAccount.SmtpAddress = accountToSent Then
EItem.SendUsingAccount = oAccount
Exit For
End If
Next
End If
End If
EItem.Attachments.Add(path, OlAttachmentType.olByValue, 1, "RMC.csv ")
EItem.Display(False) 'öffnet das 'neue E-Mail-Form' von Outlook