Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -481,10 +481,10 @@ Public Class frmMDM_USTVAntrag
|
||||
Next
|
||||
|
||||
If posIdinDGV Then
|
||||
dgvUSTVPositionen.VALUE_CHANGED = True
|
||||
dgvErstattungspositionen.VALUE_CHANGED = True
|
||||
initdgvErstattungen(POSId)
|
||||
Else
|
||||
initdgvErstattungen(dgvUSTVPositionen.Rows.Count + 1)
|
||||
initdgvErstattungen(dgvErstattungspositionen.Rows.Count + 1)
|
||||
End If
|
||||
|
||||
'Dim dgvUSTVPositionen.
|
||||
@@ -1484,13 +1484,13 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
If USTV_ANTRAG.UStVAn_Währungscode = "EUR" Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = r.Cells("total_VAT_amount").Value
|
||||
If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
|
||||
USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
Else
|
||||
USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value
|
||||
'If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
|
||||
' USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
' USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
'Else
|
||||
USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value
|
||||
USTV_POS.UStVPo_Umrechnungskurs = 1
|
||||
End If
|
||||
'End If
|
||||
|
||||
Else
|
||||
|
||||
@@ -1504,7 +1504,7 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim kurs As New cEZB_Waehrungskurse(r.Cells("total_VAT_currency").Value)
|
||||
If r.Cells("total_VAT_currency").Value <> "EUR" Then
|
||||
USTV_POS.UStVPo_USteuerbetrag = r.Cells("total_VAT_amount").Value
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
ElseIf r.Cells("total_VAT_currency").Value = "EUR" Then
|
||||
USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
@@ -1513,11 +1513,22 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
Else
|
||||
'2.1 Antragswährung <> Belegswährung (FREMD zu FREMD)
|
||||
If r.Cells("total_VAT_currency").Value = "EUR" Then
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = r.Cells("total_VAT_amount").Value
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
Else
|
||||
USTV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, USTV_ANTRAG.UStVAn_Währungscode)
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
USTV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(r.Cells("total_VAT_amount").Value, r.Cells("total_VAT_currency").Value, USTV_ANTRAG.UStVAn_Währungscode)
|
||||
Dim kurs As New cEZB_Waehrungskurse(USTV_ANTRAG.UStVAn_Währungscode)
|
||||
USTV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
|
||||
End If
|
||||
|
||||
@@ -2687,8 +2698,9 @@ Public Class frmMDM_USTVAntrag
|
||||
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
UstCntlUSTV_AntragErstattungen1.reset()
|
||||
UstCntlUSTV_AntragErstattungen1.UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
|
||||
UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID = UstCntlUSTV_AntragErstattungen1.UStV_ERS.getMaxPosNr()
|
||||
UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID = USTV_ANTRAG.getMaxPosNrErst()
|
||||
UstCntlUSTV_AntragErstattungen1.Enabled = True
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
|
||||
6
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
6
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb
generated
@@ -835,7 +835,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUSTBetragEUR._WaehrungZeichen = False
|
||||
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
|
||||
Me.txtUSTBetragEUR.MaxLength = 10
|
||||
Me.txtUSTBetragEUR.MaxLength = 15
|
||||
Me.txtUSTBetragEUR.MaxLineLength = -1
|
||||
Me.txtUSTBetragEUR.MaxLines_Warning = ""
|
||||
Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
|
||||
@@ -859,7 +859,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUmrechnungskurs._WaehrungZeichen = False
|
||||
Me.txtUmrechnungskurs.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUmrechnungskurs.Location = New System.Drawing.Point(177, 130)
|
||||
Me.txtUmrechnungskurs.MaxLength = 10
|
||||
Me.txtUmrechnungskurs.MaxLength = 15
|
||||
Me.txtUmrechnungskurs.MaxLineLength = -1
|
||||
Me.txtUmrechnungskurs.MaxLines_Warning = ""
|
||||
Me.txtUmrechnungskurs.MaxLines_Warning_Label = Nothing
|
||||
@@ -883,7 +883,7 @@ Partial Class ustCntlUSTV_AntragPosition
|
||||
Me.txtUSTBetrag._WaehrungZeichen = False
|
||||
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
|
||||
Me.txtUSTBetrag.MaxLength = 10
|
||||
Me.txtUSTBetrag.MaxLength = 15
|
||||
Me.txtUSTBetrag.MaxLineLength = -1
|
||||
Me.txtUSTBetrag.MaxLines_Warning = ""
|
||||
Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
|
||||
|
||||
@@ -678,54 +678,62 @@ Public Class ustCntlUSTV_AntragPosition
|
||||
If IsNumeric(f.usrcntlVAT_ATEZ1.va.total_VAT_amount) AndAlso f.usrcntlVAT_ATEZ1.va.total_VAT_amount <> 0 AndAlso f.usrcntlVAT_ATEZ1.va.currency <> "" Then
|
||||
Dim antr As New cUSTVAntrag(UStV_POS.UStVAn_ID)
|
||||
|
||||
'1. Antragswährung = Belegswährung (EUR zu FREMD und FREMD zu EUR)
|
||||
|
||||
If f.usrcntlVAT_ATEZ1.va.currency = antr.UStVAn_Währungscode Then
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
If antr.UStVAn_Währungscode = "EUR" Then
|
||||
txtUSTBetragEUR.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
If antr.UStVAn_Währungscode <> "EUR" Then
|
||||
txtUSTBetrag.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100
|
||||
Else
|
||||
txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
txtUmrechnungskurs.Text = 1
|
||||
End If
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
'If USTV_ANTRAG.UStVAn_Währungscode <> "EUR" Then
|
||||
' USTV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(r.Cells("total_VAT_amount").Value, USTV_ANTRAG.UStVAn_Währungscode, CDate(USTV_POS.UStVPo_ReDat)), 2)
|
||||
' USTV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(USTV_POS.UStVPo_USteuerbetrag) / CDbl(USTV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
'Else
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_Umrechnungskurs = 1
|
||||
'End If
|
||||
|
||||
Else
|
||||
|
||||
txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100
|
||||
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
End If
|
||||
|
||||
Else
|
||||
'2. Antragswährung <> Belegswährung (EUR zu FREMD und FREMD zu EUR)
|
||||
If antr.UStVAn_Währungscode = "EUR" Then
|
||||
Dim kurs As New cEZB_Waehrungskurse(f.usrcntlVAT_ATEZ1.va.currency)
|
||||
If f.usrcntlVAT_ATEZ1.va.currency <> "EUR" Then
|
||||
txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100
|
||||
UStV_POS.UStVPo_USteuerbetrag = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
ElseIf f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then
|
||||
txtUSTBetrag.Text = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
txtUSTBetragEUR.Text = txtUSTBetrag.Text
|
||||
txtUmrechnungskurs.Text = 1
|
||||
UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = UStV_POS.UStVPo_USteuerbetrag
|
||||
UStV_POS.UStVPo_Umrechnungskurs = 1
|
||||
End If
|
||||
Else
|
||||
'2.1 Antragswährung <> Belegswährung (FREMD zu FREMD)
|
||||
If f.usrcntlVAT_ATEZ1.va.currency = "EUR" Then
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
UStV_POS.UStVPo_USteuerbetrag = Math.Round(kurs.EXCHANGE_EURTOCUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
Else
|
||||
UStV_POS.UStVPo_USteuerbetrag = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, antr.UStVAn_Währungscode)
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
UStV_POS.UStVPo_USteuerbetragEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
UStV_POS.UStVPo_Umrechnungskurs = Math.Floor((CDbl(UStV_POS.UStVPo_USteuerbetrag) / CDbl(UStV_POS.UStVPo_USteuerbetragEUR) * 100 + 0.5)) / 100
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
'2.1 Antragswährung <> Belegswährung (FREMD zu FREMD)
|
||||
|
||||
txtUSTBetrag.Text = VERAG_PROG_ALLGEMEIN.cProgramFunctions.fktEuro(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, f.usrcntlVAT_ATEZ1.va.currency, antr.UStVAn_Währungscode)
|
||||
Dim kurs As New cEZB_Waehrungskurse(antr.UStVAn_Währungscode)
|
||||
txtUSTBetragEUR.Text = Math.Round(kurs.EXCHANGE_CURTOEUR(f.usrcntlVAT_ATEZ1.va.total_VAT_amount, antr.UStVAn_Währungscode, CDate(UStV_POS.UStVPo_ReDat)), 2)
|
||||
txtUmrechnungskurs.Text = Math.Floor((CDbl(txtUSTBetrag.Text) / CDbl(txtUSTBetragEUR.Text) * 100 + 0.5)) / 100
|
||||
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
44
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb
generated
44
SDL/USTV/ustCntlUSTV_ErstattungPosition .Designer.vb
generated
@@ -335,7 +335,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtGuNr._DateTimeOnly = False
|
||||
Me.txtGuNr._numbersOnly = False
|
||||
Me.txtGuNr._numbersOnlyKommastellen = ""
|
||||
Me.txtGuNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtGuNr._numbersOnlyTrennzeichen = False
|
||||
Me.txtGuNr._Prozent = False
|
||||
Me.txtGuNr._ShortDateNew = False
|
||||
Me.txtGuNr._ShortDateOnly = False
|
||||
@@ -358,18 +358,18 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBerufungsdatum._DateTimeOnly = False
|
||||
Me.txtBerufungsdatum._numbersOnly = False
|
||||
Me.txtBerufungsdatum._numbersOnlyKommastellen = ""
|
||||
Me.txtBerufungsdatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtBerufungsdatum._numbersOnlyTrennzeichen = False
|
||||
Me.txtBerufungsdatum._Prozent = False
|
||||
Me.txtBerufungsdatum._ShortDateNew = False
|
||||
Me.txtBerufungsdatum._ShortDateOnly = False
|
||||
Me.txtBerufungsdatum._ShortDateOnly = True
|
||||
Me.txtBerufungsdatum._TimeOnly = False
|
||||
Me.txtBerufungsdatum._TimeOnly_Seconds = False
|
||||
Me.txtBerufungsdatum._value = ""
|
||||
Me.txtBerufungsdatum._Waehrung = False
|
||||
Me.txtBerufungsdatum._WaehrungZeichen = True
|
||||
Me.txtBerufungsdatum._WaehrungZeichen = False
|
||||
Me.txtBerufungsdatum.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBerufungsdatum.Location = New System.Drawing.Point(468, 130)
|
||||
Me.txtBerufungsdatum.MaxLength = 50
|
||||
Me.txtBerufungsdatum.MaxLength = 10
|
||||
Me.txtBerufungsdatum.MaxLineLength = -1
|
||||
Me.txtBerufungsdatum.MaxLines_Warning = ""
|
||||
Me.txtBerufungsdatum.MaxLines_Warning_Label = Nothing
|
||||
@@ -392,7 +392,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBemerkung._DateTimeOnly = False
|
||||
Me.txtBemerkung._numbersOnly = False
|
||||
Me.txtBemerkung._numbersOnlyKommastellen = ""
|
||||
Me.txtBemerkung._numbersOnlyTrennzeichen = True
|
||||
Me.txtBemerkung._numbersOnlyTrennzeichen = False
|
||||
Me.txtBemerkung._Prozent = False
|
||||
Me.txtBemerkung._ShortDateNew = False
|
||||
Me.txtBemerkung._ShortDateOnly = False
|
||||
@@ -400,7 +400,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBemerkung._TimeOnly_Seconds = False
|
||||
Me.txtBemerkung._value = ""
|
||||
Me.txtBemerkung._Waehrung = False
|
||||
Me.txtBemerkung._WaehrungZeichen = True
|
||||
Me.txtBemerkung._WaehrungZeichen = False
|
||||
Me.txtBemerkung.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBemerkung.Location = New System.Drawing.Point(468, 179)
|
||||
Me.txtBemerkung.MaxLength = 255
|
||||
@@ -408,7 +408,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBemerkung.MaxLines_Warning = ""
|
||||
Me.txtBemerkung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBemerkung.Name = "txtBemerkung"
|
||||
Me.txtBemerkung.Size = New System.Drawing.Size(418, 20)
|
||||
Me.txtBemerkung.Size = New System.Drawing.Size(441, 20)
|
||||
Me.txtBemerkung.TabIndex = 11
|
||||
'
|
||||
'Label14
|
||||
@@ -443,16 +443,16 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBerufungshoehe._TimeOnly = False
|
||||
Me.txtBerufungshoehe._TimeOnly_Seconds = False
|
||||
Me.txtBerufungshoehe._value = ""
|
||||
Me.txtBerufungshoehe._Waehrung = False
|
||||
Me.txtBerufungshoehe._WaehrungZeichen = True
|
||||
Me.txtBerufungshoehe._Waehrung = True
|
||||
Me.txtBerufungshoehe._WaehrungZeichen = False
|
||||
Me.txtBerufungshoehe.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBerufungshoehe.Location = New System.Drawing.Point(787, 130)
|
||||
Me.txtBerufungshoehe.MaxLength = 10
|
||||
Me.txtBerufungshoehe.MaxLength = 15
|
||||
Me.txtBerufungshoehe.MaxLineLength = -1
|
||||
Me.txtBerufungshoehe.MaxLines_Warning = ""
|
||||
Me.txtBerufungshoehe.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBerufungshoehe.Name = "txtBerufungshoehe"
|
||||
Me.txtBerufungshoehe.Size = New System.Drawing.Size(99, 20)
|
||||
Me.txtBerufungshoehe.Size = New System.Drawing.Size(122, 20)
|
||||
Me.txtBerufungshoehe.TabIndex = 10
|
||||
'
|
||||
'txtBelegNr
|
||||
@@ -460,7 +460,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBelegNr._DateTimeOnly = False
|
||||
Me.txtBelegNr._numbersOnly = False
|
||||
Me.txtBelegNr._numbersOnlyKommastellen = ""
|
||||
Me.txtBelegNr._numbersOnlyTrennzeichen = True
|
||||
Me.txtBelegNr._numbersOnlyTrennzeichen = False
|
||||
Me.txtBelegNr._Prozent = False
|
||||
Me.txtBelegNr._ShortDateNew = False
|
||||
Me.txtBelegNr._ShortDateOnly = False
|
||||
@@ -493,7 +493,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBerurunfgrund._DateTimeOnly = False
|
||||
Me.txtBerurunfgrund._numbersOnly = False
|
||||
Me.txtBerurunfgrund._numbersOnlyKommastellen = ""
|
||||
Me.txtBerurunfgrund._numbersOnlyTrennzeichen = True
|
||||
Me.txtBerurunfgrund._numbersOnlyTrennzeichen = False
|
||||
Me.txtBerurunfgrund._Prozent = False
|
||||
Me.txtBerurunfgrund._ShortDateNew = False
|
||||
Me.txtBerurunfgrund._ShortDateOnly = False
|
||||
@@ -501,7 +501,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBerurunfgrund._TimeOnly_Seconds = False
|
||||
Me.txtBerurunfgrund._value = ""
|
||||
Me.txtBerurunfgrund._Waehrung = False
|
||||
Me.txtBerurunfgrund._WaehrungZeichen = True
|
||||
Me.txtBerurunfgrund._WaehrungZeichen = False
|
||||
Me.txtBerurunfgrund.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtBerurunfgrund.Location = New System.Drawing.Point(643, 130)
|
||||
Me.txtBerurunfgrund.MaxLength = 50
|
||||
@@ -520,7 +520,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtBelegDatum._numbersOnlyTrennzeichen = False
|
||||
Me.txtBelegDatum._Prozent = False
|
||||
Me.txtBelegDatum._ShortDateNew = False
|
||||
Me.txtBelegDatum._ShortDateOnly = False
|
||||
Me.txtBelegDatum._ShortDateOnly = True
|
||||
Me.txtBelegDatum._TimeOnly = False
|
||||
Me.txtBelegDatum._TimeOnly_Seconds = False
|
||||
Me.txtBelegDatum._value = ""
|
||||
@@ -544,14 +544,14 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtGuDatum._numbersOnlyTrennzeichen = True
|
||||
Me.txtGuDatum._Prozent = False
|
||||
Me.txtGuDatum._ShortDateNew = False
|
||||
Me.txtGuDatum._ShortDateOnly = False
|
||||
Me.txtGuDatum._ShortDateOnly = True
|
||||
Me.txtGuDatum._TimeOnly = False
|
||||
Me.txtGuDatum._TimeOnly_Seconds = False
|
||||
Me.txtGuDatum._value = Nothing
|
||||
Me.txtGuDatum._value = ""
|
||||
Me.txtGuDatum._Waehrung = False
|
||||
Me.txtGuDatum._WaehrungZeichen = False
|
||||
Me.txtGuDatum.Location = New System.Drawing.Point(468, 49)
|
||||
Me.txtGuDatum.MaxLength = 22
|
||||
Me.txtGuDatum.MaxLength = 10
|
||||
Me.txtGuDatum.MaxLineLength = -1
|
||||
Me.txtGuDatum.MaxLines_Warning = ""
|
||||
Me.txtGuDatum.MaxLines_Warning_Label = Nothing
|
||||
@@ -575,7 +575,7 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtUSTBetragEUR._WaehrungZeichen = False
|
||||
Me.txtUSTBetragEUR.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetragEUR.Location = New System.Drawing.Point(294, 130)
|
||||
Me.txtUSTBetragEUR.MaxLength = 10
|
||||
Me.txtUSTBetragEUR.MaxLength = 15
|
||||
Me.txtUSTBetragEUR.MaxLineLength = -1
|
||||
Me.txtUSTBetragEUR.MaxLines_Warning = ""
|
||||
Me.txtUSTBetragEUR.MaxLines_Warning_Label = Nothing
|
||||
@@ -619,11 +619,11 @@ Partial Class ustCntlUSTV_ErstattungPosition
|
||||
Me.txtUSTBetrag._TimeOnly = False
|
||||
Me.txtUSTBetrag._TimeOnly_Seconds = False
|
||||
Me.txtUSTBetrag._value = ""
|
||||
Me.txtUSTBetrag._Waehrung = False
|
||||
Me.txtUSTBetrag._Waehrung = True
|
||||
Me.txtUSTBetrag._WaehrungZeichen = False
|
||||
Me.txtUSTBetrag.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtUSTBetrag.Location = New System.Drawing.Point(17, 130)
|
||||
Me.txtUSTBetrag.MaxLength = 10
|
||||
Me.txtUSTBetrag.MaxLength = 15
|
||||
Me.txtUSTBetrag.MaxLineLength = -1
|
||||
Me.txtUSTBetrag.MaxLines_Warning = ""
|
||||
Me.txtUSTBetrag.MaxLines_Warning_Label = Nothing
|
||||
|
||||
@@ -48,18 +48,14 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
Me.UStV_ERS = UStV_ERS
|
||||
Me.kdnr = kdNr
|
||||
|
||||
|
||||
txtBelegDatum._value = If(UStV_ERS.Belegdatum, "")
|
||||
txtBelegNr._value = If(UStV_ERS.Belegnummer, "")
|
||||
|
||||
txtGuDatum._value = If(UStV_ERS.GutschriftsDatum, "")
|
||||
txtGuNr._value = If(UStV_ERS.GutschriftsNr, "")
|
||||
|
||||
txtBerufungsdatum._value = If(UStV_ERS.Berufungsdatum, "")
|
||||
txtBerurunfgrund._value = If(UStV_ERS.Berufungsgrund, "")
|
||||
txtBerufungshoehe._value = If(UStV_ERS.Berufungshöhe, "")
|
||||
|
||||
|
||||
lblSachbearbeiter.Text = If(UStV_ERS.UStVEr_Sachbearbeiter, "")
|
||||
If UStV_ERS.UStVEr_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_ERS.UStVEr_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
|
||||
|
||||
@@ -83,80 +79,46 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
|
||||
If UStV_ERS Is Nothing Then
|
||||
UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
|
||||
UStV_ERS.UStVEr_ID = UStV_ERS.getMaxPosNr()
|
||||
UStV_ERS.UStVEr_ID = UstV_AN.getMaxPosNrErst
|
||||
End If
|
||||
|
||||
UStV_ERS.UStVEr_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
UStV_ERS.UStVEr_Zeitstempel = Now
|
||||
UStV_ERS.UStVAn_ID = UstV_AN.UStVAn_ID
|
||||
UStV_ERS.Belegnummer = cProgramFunctions.isLeerNothing(txtBelegNr.Text)
|
||||
UStV_ERS.GutschriftsNr = cProgramFunctions.isLeerNothing(txtGuNr.Text)
|
||||
UStV_ERS.Bemerkung = cProgramFunctions.isLeerNothing(txtBemerkung.Text)
|
||||
UStV_ERS.Berufungsgrund = cProgramFunctions.isLeerNothing(txtBerurunfgrund.Text)
|
||||
|
||||
UStV_ERS.UStVEr_USteuerbetrag = cProgramFunctions.isLeerNothingDbl(txtUSTBetrag.Text)
|
||||
|
||||
UStV_ERS.UStVEr_USteuerbetragEUR = cProgramFunctions.isLeerNothingDbl(txtUSTBetragEUR.Text)
|
||||
|
||||
UStV_ERS.Berufungshöhe = cProgramFunctions.isLeerNothingDbl(txtBerufungshoehe.Text)
|
||||
|
||||
UStV_ERS.UStVEr_Umrechnungskurs = cProgramFunctions.isLeerNothingDbl(txtUmrechnungskurs.Text)
|
||||
|
||||
If txtBelegNr.Text <> "" Then
|
||||
UStV_ERS.Belegnummer = txtBelegNr.Text
|
||||
Else
|
||||
'save = False
|
||||
End If
|
||||
|
||||
If txtBelegDatum.Text <> "" AndAlso IsDate(txtBelegDatum.Text) Then
|
||||
UStV_ERS.Belegdatum = txtBelegDatum._value
|
||||
Else
|
||||
'save = False
|
||||
UStV_ERS.Belegdatum = Nothing
|
||||
End If
|
||||
|
||||
If txtUSTBetrag.Text <> "" Then
|
||||
UStV_ERS.UStVEr_USteuerbetrag = txtUSTBetrag.Text.Replace(",", ".")
|
||||
Else
|
||||
'save = False
|
||||
End If
|
||||
|
||||
If txtUSTBetragEUR.Text <> "" Then
|
||||
UStV_ERS.UStVEr_USteuerbetragEUR = txtUSTBetragEUR.Text.Replace(",", ".")
|
||||
Else
|
||||
'save = False
|
||||
End If
|
||||
|
||||
If txtGuDatum.Text <> "" Then
|
||||
If txtGuDatum.Text <> "" AndAlso IsDate(txtGuDatum.Text) Then
|
||||
UStV_ERS.GutschriftsDatum = txtGuDatum.Text
|
||||
End If
|
||||
|
||||
If Not txtUmrechnungskurs.Text = "" Then
|
||||
If txtUmrechnungskurs.Text <> "" Then
|
||||
UStV_ERS.UStVEr_Umrechnungskurs = txtUmrechnungskurs.Text.Replace(",", ".")
|
||||
End If
|
||||
Else
|
||||
'save = False
|
||||
UStV_ERS.GutschriftsDatum = Nothing
|
||||
End If
|
||||
|
||||
If txtGuDatum.Text <> "" Then
|
||||
UStV_ERS.GutschriftsDatum = txtGuDatum.Text
|
||||
End If
|
||||
|
||||
If txtGuNr.Text <> "" Then
|
||||
UStV_ERS.GutschriftsNr = txtGuNr.Text
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If txtBemerkung.Text <> "" Then
|
||||
UStV_ERS.Bemerkung = txtBemerkung.Text
|
||||
End If
|
||||
|
||||
If txtBerufungsdatum.Text <> "" Then
|
||||
If txtBerufungsdatum.Text <> "" AndAlso IsDate(txtBerufungsdatum.Text) Then
|
||||
UStV_ERS.Berufungsdatum = txtBerufungsdatum.Text
|
||||
Else
|
||||
UStV_ERS.Berufungsdatum = Nothing
|
||||
End If
|
||||
|
||||
|
||||
If txtBerufungshoehe.Text <> "" Then
|
||||
UStV_ERS.Berufungshöhe = txtBerufungshoehe.Text
|
||||
End If
|
||||
|
||||
If txtBerurunfgrund.Text <> "" Then
|
||||
UStV_ERS.Berufungsgrund = txtBerurunfgrund.Text
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
|
||||
@@ -190,10 +152,7 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtBelegDatum.PreviewKeyDown, txtBelegNr.PreviewKeyDown, txtUmrechnungskurs.PreviewKeyDown
|
||||
Private Sub txtUSTBetrag_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles txtUSTBetrag.PreviewKeyDown, txtUSTBetragEUR.PreviewKeyDown, txtBelegDatum.PreviewKeyDown, txtBelegNr.PreviewKeyDown, txtBemerkung.PreviewKeyDown, txtBerufungsdatum.PreviewKeyDown, txtBerufungshoehe.PreviewKeyDown, txtGuNr.PreviewKeyDown
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVAErstattung_bearbeiten", Me.FindForm) Then Exit Sub
|
||||
|
||||
If Me.FindForm IsNot Nothing Then
|
||||
@@ -202,17 +161,10 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
If e.KeyValue = 9 Then
|
||||
|
||||
lblWarning.Text = ""
|
||||
If sender Is txtUSTBetrag Or sender Is txtUSTBetragEUR Or sender Is txtUmrechnungskurs Then
|
||||
|
||||
If txtUSTBetrag.Text = "" Then
|
||||
lblWarning.Text = "Bitte Umsatzsteuerbetrag eingeben."
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If sender Is txtUSTBetrag Then
|
||||
|
||||
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs.Text) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
|
||||
txtChanged = True
|
||||
@@ -220,31 +172,13 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
|
||||
ElseIf sender Is txtUSTBetragEUR Then
|
||||
|
||||
'so herum nicht umrechnen!!!!
|
||||
'If IsNumeric(txtUSTBetragEUR._value) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
' txtUSTBetrag.Text = Math.Floor((txtUSTBetragEUR._value * txtUmrechnungskurs._value) * 100 + 0.5) / 100
|
||||
' 'values_changed()
|
||||
'End If
|
||||
If IsNumeric(txtUSTBetragEUR) Then txtChanged = True
|
||||
|
||||
If IsNumeric(txtUSTBetragEUR.Text) AndAlso IsNumeric(txtUSTBetrag.Text) Then
|
||||
|
||||
Dim zahl1 = txtUSTBetragEUR.Text / txtUSTBetrag.Text
|
||||
txtUmrechnungskurs.Text = txtUSTBetrag.Text / txtUSTBetragEUR.Text
|
||||
|
||||
txtUmrechnungskurs.Text = zahl1
|
||||
txtChanged = True
|
||||
End If
|
||||
|
||||
ElseIf sender Is txtUmrechnungskurs Then
|
||||
|
||||
|
||||
If IsNumeric(txtUSTBetrag.Text) AndAlso IsNumeric(txtUmrechnungskurs._value) Then
|
||||
txtUSTBetragEUR.Text = Math.Floor((txtUSTBetrag.Text / txtUmrechnungskurs.Text) * 100 + 0.5) / 100
|
||||
txtChanged = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ElseIf sender Is txtBelegDatum Then
|
||||
|
||||
If txtBelegDatum.Text <> "" Then
|
||||
@@ -254,7 +188,7 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
|
||||
ElseIf sender Is txtBerufungsdatum Then
|
||||
|
||||
If txtBerufungsdatum.Text <> "" Then
|
||||
If txtBerufungsdatum.Text <> "" AndAlso IsDate(txtBerufungsdatum.Text) Then
|
||||
txtBerufungsdatum.Text = txtBerufungsdatum.Text.Replace("-", ".")
|
||||
End If
|
||||
txtChanged = True
|
||||
@@ -269,10 +203,31 @@ Public Class ustCntlUSTV_ErstattungPosition
|
||||
|
||||
ElseIf sender Is txtBemerkung Then
|
||||
|
||||
If txtBemerkung.Text <> "" Then
|
||||
txtBemerkung.Text = txtBemerkung.Text
|
||||
End If
|
||||
txtBemerkung.Text = txtBemerkung.Text
|
||||
|
||||
txtChanged = True
|
||||
|
||||
ElseIf sender Is txtBelegNr Then
|
||||
|
||||
txtBelegNr.Text = txtBelegNr.Text
|
||||
|
||||
txtChanged = True
|
||||
|
||||
ElseIf sender Is txtGuNr Then
|
||||
|
||||
txtGuNr.Text = txtGuNr.Text
|
||||
|
||||
txtChanged = True
|
||||
|
||||
|
||||
ElseIf sender Is txtBerufungshoehe Then
|
||||
|
||||
If txtBerufungshoehe.Text IsNot Nothing AndAlso IsNumeric(txtBerufungshoehe.Text) Then
|
||||
txtBerufungshoehe.Text = CDbl(txtBerufungshoehe.Text)
|
||||
End If
|
||||
|
||||
txtChanged = True
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -3,6 +3,7 @@ Imports DocumentFormat.OpenXml.Bibliography
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports Microsoft.Office.Interop
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.CC015B_TR_EXT_V4_3
|
||||
|
||||
Public Class frmBU_Mahnlauf
|
||||
|
||||
@@ -55,15 +56,17 @@ Public Class frmBU_Mahnlauf
|
||||
when max(si_mahnstufe) = 4 Then 'Mittwoch'
|
||||
when max(si_mahnstufe) >= 5 Then 'gesperrt'
|
||||
else '-'
|
||||
End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & "
|
||||
FROM op_debitor OP
|
||||
End as Sperre " & If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") &
|
||||
", tblKundenKontakt.[kkd_Email] as Email " &
|
||||
"FROM op_debitor OP
|
||||
RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND KTO.i_firm_refid=OP.i_firm_refid
|
||||
inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
|
||||
left join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] on kkd_kkaId=10 and kkd_KundenNr=i_personenkonto
|
||||
WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)
|
||||
" & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
|
||||
" & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
|
||||
" & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
|
||||
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,KTO.c_email, Kunden.Abfertigungsverbot
|
||||
group by i_personenkonto ,KTO.c_name,KTO.c_landid,KTO.c_ort,KTO.c_plz,[tblKundenKontakt].kkd_Email, Kunden.Abfertigungsverbot
|
||||
HAVING sum(eur_bruttobetrag+eur_zahlung)>'" & MyTextBox1._value & "'
|
||||
" & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
|
||||
ORDER BY KTO.c_name"
|
||||
@@ -361,9 +364,12 @@ Public Class frmBU_Mahnlauf
|
||||
End If
|
||||
|
||||
Dim dict As New Dictionary(Of String, String)
|
||||
dict("MITTWOCH") = Today.AddDays((DayOfWeek.Wednesday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
dict("DONNERSTAG") = Today.AddDays((DayOfWeek.Thursday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
dict("FREITAG") = Today.AddDays((DayOfWeek.Friday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
'dict("MITTWOCH") = Today.AddDays((DayOfWeek.Wednesday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
'dict("DONNERSTAG") = Today.AddDays((DayOfWeek.Thursday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
'dict("FREITAG") = Today.AddDays((DayOfWeek.Friday - Today.DayOfWeek + 7) Mod 7).ToShortDateString()
|
||||
dict("MITTWOCH") = Today.AddDays(1).ToShortDateString()
|
||||
dict("DONNERSTAG") = Today.AddDays(2).ToShortDateString()
|
||||
dict("FREITAG") = Today.AddDays(3).ToShortDateString()
|
||||
dict("HEUTE") = Today.ToShortDateString()
|
||||
|
||||
Dim rpt As New rptMahnung(Sprache, MAHNSTUFE, Firma_ID, IIf(Firma_ID = 19, dict, Nothing))
|
||||
@@ -447,6 +453,8 @@ Public Class frmBU_Mahnlauf
|
||||
Case 19
|
||||
|
||||
rpt.lblEmail.Text = IIf(FIRMA.Firma_E_Mail_Mahnungen <> "", FIRMA.Firma_E_Mail_Mahnungen, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email)
|
||||
rpt.lblEmail.Visible = True
|
||||
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr <> "" AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "" Then
|
||||
rpt.lblTelefon.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_telefonnr + "-" + VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
|
||||
@@ -536,12 +544,12 @@ Public Class frmBU_Mahnlauf
|
||||
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
|
||||
rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
|
||||
rpt.txtVermerk.Text = MahnTEXT_NACH
|
||||
rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich."
|
||||
Else
|
||||
getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT)
|
||||
getMahnstufetextMDM(MAHNSTUFE, MahnTEXT_VOR, MahnTEXT_NACH, MAHNTEXT, Sprache, dict)
|
||||
rpt.lblUeberschriftRG_GS.Text = MAHNTEXT
|
||||
rpt.txtMahnungstextVOR.Text = MahnTEXT_VOR
|
||||
rpt.txtVermerk.Text = MahnTEXT_NACH
|
||||
rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten, Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer- Zoll- und Tarifauskünfte sind unverbindlich."
|
||||
End If
|
||||
|
||||
|
||||
@@ -770,6 +778,7 @@ Public Class frmBU_Mahnlauf
|
||||
If Firma_ID = 19 Then
|
||||
Select Case AD.LandKz
|
||||
Case "RO" : Mail_BCC &= "alex@verag.ag;maut.ro@verag.ag;ma@verag.ag;" 'später mal über eigene Logik!!
|
||||
Case "AT", "BA", "BG", "CZ", "DE", "HU", "LU", "SRB", "BIH", "HR", "ME", "MKD", "SK", "SI", "RS" : Mail_BCC &= "z.batinic@verag.ag;n.ljubas@verag.ag;s.vidovic@verag.ag;"
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -1112,12 +1121,12 @@ Public Class frmBU_Mahnlauf
|
||||
End Sub
|
||||
|
||||
|
||||
Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT)
|
||||
Private Shared Sub getMahnstufetextMDM(MAHNSTUFE, ByRef MahnTEXT_VOR, ByRef MahnTEXT_NACH, ByRef MAHNTEXT, Sprache, dct)
|
||||
|
||||
'nur Deutsch, weil übersetzung über tblTranslate!
|
||||
|
||||
Select Case MAHNSTUFE
|
||||
Case -2
|
||||
Case -2
|
||||
MahnTEXT_VOR = "Nachstehend ersehen Sie die Übersicht Ihrer offenen Rechnungen:"
|
||||
MahnTEXT_NACH = "Sollten Sie Kopien der fehlenden Belege benötigen, lassen Sie es uns bitte wissen. Wir senden Sie Ihnen gerne nochmals zu."
|
||||
MAHNTEXT = "Liste - Offene Posten"
|
||||
@@ -1164,8 +1173,14 @@ Public Class frmBU_Mahnlauf
|
||||
MAHNTEXT = MAHNSTUFE & ". MAHNUNG"
|
||||
End Select
|
||||
|
||||
If Sprache = "DE" Then 'weil DE nicht übersetzt wird!!!
|
||||
For Each pair In dct
|
||||
MahnTEXT_VOR = MahnTEXT_VOR.ToString.Replace("%" & pair.Key & "%", pair.Value)
|
||||
MahnTEXT_NACH = MahnTEXT_NACH.ToString.Replace("%" & pair.Key & "%", pair.Value)
|
||||
MAHNTEXT = MAHNTEXT.ToString.Replace("%" & pair.Key & "%", pair.Value)
|
||||
|
||||
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -276,6 +276,20 @@ Public Class cUSTVAntrag
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
Public Function getMaxPosNrErst() As Integer
|
||||
Try
|
||||
Dim maxPosNr = -1
|
||||
|
||||
Return SQL.getValueTxtBySql("SELECT isnull(max([UStVEr_ID]),0)+1 FROM [tblUStVErstattung] where UStVAn_ID='" & UStVAn_ID & "'", "FMZOLL",,, "1")
|
||||
|
||||
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 -1
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function DELETE() As Boolean
|
||||
|
||||
Dim sqlstr = " DELETE FROM tblUStVAntrag WITH(updlock,serializable) WHERE UStVAn_ID=" & Me.UStVAn_ID
|
||||
@@ -625,4 +639,7 @@ Public Class cUStVErstattungPositionen
|
||||
End Try
|
||||
Return -1
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user