diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index c466fb2f..bb89a1aa 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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 diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index e0eb921b..3e0ce53e 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb index e482573b..11643e69 100644 --- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb +++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb @@ -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) diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index 1e28ab5e..9e8742d4 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -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 diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index ec626e52..bd911211 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -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 diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 85d879cd..625c1268 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -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 diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 4623b299..5efae8d3 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index c13314d6..c6c424e6 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -639,7 +639,7 @@ Public Class cCreditSafeAPI If triggerMail AndAlso sendMail Then Dim ADR As New cAdressen(KUNDE.KundenNr) - Dim empfanegerMail As String = "as@verag.ag" + Dim empfanegerMail As String = "" Select Case firma Case "VERAG" : empfanegerMail = "as@verag.ag" @@ -650,16 +650,12 @@ Public Class cCreditSafeAPI If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") + If empfanegerMail <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr, "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") End If 'End if - - - - Return "Anzahl gefundener Datensätze: " & numCompanies End Function @@ -860,7 +856,7 @@ Public Class cCreditSafeAPI If company.kdNr <> 0 Then If triggerMail AndAlso sendMail AndAlso Mailtext <> "" Then Dim ADR As New cAdressen(company.kdNr) - Dim empfanegerMail = "as@verag.ag" + Dim empfanegerMail = "" For Each firmRowTemp As DataRow In dtFirmen.Rows Select Case firmRowTemp("Firma") @@ -871,7 +867,7 @@ Public Class cCreditSafeAPI End Select If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then empfanegerMail = "d.breimaier@verag.ag" - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr & " (" & firmRowTemp("Firma") & ")", "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") + If empfanegerMail <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfanegerMail, IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "CREDITSAFE " & KUNDE.KundenNr & " (" & firmRowTemp("Firma") & ")", "Änderungen der Creditsafe-Daten von Kunden " & KUNDE.KundenNr & " " & ADR.Ordnungsbegriff & Mailtext.ToString & "

" & "*Automatic generated e-mail*",,,,, "d.breimaier@verag.ag") Next Mailtext = "" End If