diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 401e21a8..66eb9f1e 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -821,19 +821,26 @@ Public Class frmFaktEmail Next + Dim SQL As New SQL If Not hatNichtAbgerechneteVZ Then - Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum)) - If Not ANTR_ERSTATTUNG.hasEntry Then - ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr() - ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum - ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr - ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1 - ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = 0 - ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = 0 - ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID - ANTR_ERSTATTUNG.SAVE() + + Dim count_offene_importierteErstattungen As Integer = -1 + count_offene_importierteErstattungen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVEr_Importfilename] is not null and [GutschriftsNr] is null and [GutschriftsDatum] is null ", "FMZOLL")) + + If count_offene_importierteErstattungen > 0 Then + SQL.doSQL("UPDATE [tblUStVErstattung] SET GutschriftsNr = " & RECHNUNG.RechnungsNr & ",GutschriftsDatum = '" & CDate(RECHNUNG.RechnungsDatum).ToShortDateString & "', UStVEr_RK_ID = " & RECHNUNG.RK_ID & " WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [UStVEr_Importfilename] is not null and [GutschriftsNr] is null and [GutschriftsDatum] is null ", "FMZOLL") + End If + 'Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.RechnungsNr, CDate(RECHNUNG.RechnungsDatum)) + 'If Not ANTR_ERSTATTUNG.hasEntry Then + ' ANTR_ERSTATTUNG.UStVEr_ID = ANTR_ERSTATTUNG.getMaxPosNr() + ' ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum + ' ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr + ' ANTR_ERSTATTUNG.UStVEr_RK_ID = RECHNUNG.RK_ID + ' ANTR_ERSTATTUNG.SAVE() + 'End If + If durchREWurdeVZAbgerechnet Then USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum @@ -853,8 +860,8 @@ Public Class frmFaktEmail End If - If hatNichtAbgerechneteVZ Then - Dim SQL As New SQL + If hatNichtAbgerechneteVZ Then + For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index 346079c7..ff8424be 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/SDL/USTV/frmMDM_USTVAntrag.vb @@ -358,12 +358,6 @@ Public Class frmMDM_USTVAntrag End If End If - 'If dgvUSTVPositionen.Rows.Count = 1 Then - ' posIndex = dgvUSTVPositionen.Rows.Count - ' suppressSelectionChanged = False - 'End If - - If posIndex > 0 Then Dim idx As Integer = posIndex - 1 If idx >= 0 AndAlso dgvUSTVPositionen.Rows.Count > idx Then @@ -500,7 +494,6 @@ Public Class frmMDM_USTVAntrag If USTV_ANTRAG.UStVAn_Gewerbe Is Nothing Then USTV_ANTRAG.UStVAn_Gewerbe = "Transportunternehmer" If USTV_ANTRAG.UStVAn_Erklärung_9_a Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_a = "Warentransport" If USTV_ANTRAG.UStVAn_Ausstellungsort Is Nothing Then USTV_ANTRAG.UStVAn_Ausstellungsort = "Suben" - If USTV_ANTRAG.UStVAn_Erklärung_9_b_1 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_1 = False If USTV_ANTRAG.UStVAn_Erklärung_9_b_2 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_2 = False If USTV_ANTRAG.UStVAn_Erklärung_9_b_3 Is Nothing Then USTV_ANTRAG.UStVAn_Erklärung_9_b_3 = False @@ -1916,7 +1909,7 @@ Public Class frmMDM_USTVAntrag End If - + checkIfMWSTEingangAbrechung() Else @@ -2335,6 +2328,7 @@ Public Class frmMDM_USTVAntrag UstCntlUSTV_AntragPosition1.UStV_POS.UStVPo_interneNr = USTV_ANTRAG.getMaxPosinterneNr UstCntlUSTV_AntragPosition1.Enabled = True UstCntlUSTV_AntragPosition1.txtRgDatum.Focus() + UstCntlUSTV_AntragPosition1.initUsrCntlPDF() End Sub @@ -3280,8 +3274,8 @@ Public Class frmMDM_USTVAntrag Dim count_nichtMWSTOffen As Integer = -1 - count_nichtMWSTOffen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and isnull([GutschriftsDatum],0) = 0 and UStVEr_Importfilename is not null", "FMZOLL")) - If count_nichtMWSTOffen = 0 Then + count_nichtMWSTOffen = CInt(SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblUStVErstattung] WHERE [UStVAn_ID] = " & USTV_ANTRAG.UStVAn_ID & " and [GutschriftsDatum] is null and UStVEr_Importfilename is not null", "FMZOLL")) + If count_nichtMWSTOffen = 0 AndAlso USTV_ANTRAG.UStVAn_MWSTEingang_offen Then SQL.doSQL("UPDATE [tblUStVAntrag] SET UStVAn_MWSTEingang_offen = 0 WHERE [UStVAn_ID] =" & USTV_ANTRAG.UStVAn_ID, "FMZOLL") End If @@ -3488,7 +3482,7 @@ Public Class frmMDM_USTVAntrag Dim c As New DataGridViewImageColumn - c.Name = "clmnPDF" : c.HeaderText = "GU" + c.Name = "clmnPDF" : c.HeaderText = "GS" ' c.Image = Nothing c.DefaultCellStyle.NullValue = Nothing c.ImageLayout = DataGridViewImageCellLayout.Zoom diff --git a/SDL/USTV/usrCntlUSTV.vb b/SDL/USTV/usrCntlUSTV.vb index da2ce78b..daaff3d1 100644 --- a/SDL/USTV/usrCntlUSTV.vb +++ b/SDL/USTV/usrCntlUSTV.vb @@ -1968,8 +1968,8 @@ Public Class usrCntlUSTV Dim letzteZeile As Integer = Blatt.UsedRange.Rows.Count Dim input = Convert.ToString(Blatt.Cells(1, 1).Value).Trim() - If input <> "" AndAlso input.StartsWith("MWST-Eingang") Then - BelegdatumInput = input.Replace("MWST-Eingang", "") + If input <> "" AndAlso input.StartsWith("MWST Eingänge ") Then + BelegdatumInput = input.Replace("MWST Eingänge ", "") BelegdatumInput = BelegdatumInput.Trim End If @@ -2130,20 +2130,20 @@ Public Class usrCntlUSTV End If - If Not String.IsNullOrWhiteSpace(r.Cells("Bank").Value) AndAlso IsNumeric(r.Cells("Bank").Value) AndAlso Not IsDBNull(r.Cells("Bank")) AndAlso CDbl(r.Cells("Bank").Value) <> 0 Then + If Not String.IsNullOrWhiteSpace(r.Cells("Bank").Value) AndAlso IsNumeric(r.Cells("Bank").Value) AndAlso Not IsDBNull(r.Cells("Bank").Value) AndAlso CDbl(r.Cells("Bank").Value) <> 0 Then Bemerkung &= ", a.K. : " & CDbl(r.Cells("Bank").Value).ToString("N2") & " " & USTV_ANTRAG.UStVAn_Währungscode UStV_ERS.UStVEr_Bank = CDbl(r.Cells("Bank").Value) End If If isVZ Then - If Not String.IsNullOrWhiteSpace(r.Cells("VZDiff").Value) AndAlso IsNumeric(r.Cells("VZDiff")) AndAlso Not IsDBNull(r.Cells("VZDiff")) AndAlso CDbl(r.Cells("VZDiff").Value) <> 0 Then + If Not String.IsNullOrWhiteSpace(r.Cells("VZDiff").Value) AndAlso IsNumeric(r.Cells("VZDiff").Value) AndAlso Not IsDBNull(r.Cells("VZDiff").Value) AndAlso CDbl(r.Cells("VZDiff").Value) <> 0 Then Bemerkung &= ", VZDiff: " & CDbl(r.Cells("VZDiff").Value).ToString("N2") UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("VZDiff").Value) End If Else - If Not String.IsNullOrWhiteSpace(r.Cells("Diff").Value) AndAlso IsNumeric(r.Cells("Diff")) AndAlso Not IsDBNull(r.Cells("Diff")) AndAlso CDbl(r.Cells("Diff").Value) <> 0 Then + If Not String.IsNullOrWhiteSpace(r.Cells("Diff").Value) AndAlso IsNumeric(r.Cells("Diff").Value) AndAlso Not IsDBNull(r.Cells("Diff").Value) AndAlso CDbl(r.Cells("Diff").Value) <> 0 Then Bemerkung &= ", Diff: " & CDbl(r.Cells("Diff").Value).ToString("N2") UStV_ERS.UStVEr_Differenz = CDbl(r.Cells("Diff").Value) @@ -2152,7 +2152,7 @@ Public Class usrCntlUSTV - If Not String.IsNullOrWhiteSpace(r.Cells("RZVZ").Value) AndAlso IsNumeric(r.Cells("RZVZ")) AndAlso Not IsDBNull(r.Cells("RZVZ")) AndAlso CDbl(r.Cells("RZVZ").Value) <> 0 Then + If Not String.IsNullOrWhiteSpace(r.Cells("RZVZ").Value) AndAlso IsNumeric(r.Cells("RZVZ").Value) AndAlso Not IsDBNull(r.Cells("RZVZ").Value) AndAlso CDbl(r.Cells("RZVZ").Value) <> 0 Then UStV_ERS.UStVEr_RZVZ = CDbl(r.Cells("RZVZ").Value).ToString("N2") If updateVURZ Then If USTV_ANTRAG.UStVAn_RZBetragVZ Is Nothing OrElse IsDBNull(USTV_ANTRAG.UStVAn_RZBetragVZ) Then diff --git a/SDL/USTV/ustCntlUSTV_AntragPosition.vb b/SDL/USTV/ustCntlUSTV_AntragPosition.vb index 583f6098..47ccd0bd 100644 --- a/SDL/USTV/ustCntlUSTV_AntragPosition.vb +++ b/SDL/USTV/ustCntlUSTV_AntragPosition.vb @@ -48,12 +48,23 @@ Public Class ustCntlUSTV_AntragPosition txtUIDNr.Text = "" Me.Antrag_LandKz = Antrag_LandKz + + _gridAktiv = True InitLeistenderSearchBox() End Sub + Sub initUsrCntlPDF() + + scanSonstiges.INIT(_kundenNr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr) + 'scanSonstiges.INIT_daId(da_id) + scanSonstiges.Enabled = True + btnAPIUbload.Enabled = False + + End Sub + Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String, UStV_Leitender As VERAG_PROG_ALLGEMEIN.cUStVLeistender, atez_api As cATEZ_NCTS_IN) initSchnittstellenNr() @@ -131,10 +142,11 @@ Public Class ustCntlUSTV_AntragPosition scanSonstiges.Enabled = UStV_POS.UStVPo_daId_loeschbar 'Not UStV_POS.UStVPo_SchnittstellenNr > 0 btnAPIUbload.Enabled = True 'hochladbar aber nicht einfügen lassen! UStV_POS.UStVPo_daId_loeschbar Else - scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr) - 'scanSonstiges.INIT_daId(da_id) - scanSonstiges.Enabled = True - btnAPIUbload.Enabled = False + initUsrCntlPDF() + 'scanSonstiges.INIT(kdnr, "MDM", "MDM_DATEN", "USTVA_" & UStV_POS.UStVAn_ID & "_" & UStV_POS.UStVPo_interneNr) + ''scanSonstiges.INIT_daId(da_id) + 'scanSonstiges.Enabled = True + 'btnAPIUbload.Enabled = False End If If txtNettobetrag.Text = "" AndAlso txtNettobetragEUR.Text <> "" Then