cFakt, MSM-USTVA
This commit is contained in:
@@ -1094,8 +1094,8 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID: ", "").Trim
|
||||
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim
|
||||
|
||||
'Für Vorschau:
|
||||
If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year
|
||||
@@ -5023,6 +5023,7 @@ Public Class cFakturierung
|
||||
'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
|
||||
|
||||
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"), True)
|
||||
rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And Row("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
@@ -5030,7 +5031,7 @@ Public Class cFakturierung
|
||||
'rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
|
||||
rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
|
||||
rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
|
||||
rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
|
||||
rpt.lblEORI.Text = If(Firma.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim
|
||||
|
||||
rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "")
|
||||
|
||||
@@ -5453,7 +5454,7 @@ Public Class cFakturierung
|
||||
'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
|
||||
rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
|
||||
rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
|
||||
rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
|
||||
rpt.lblEORI.Text = If(Firma.Firma_EORI, "").ToString.Replace("EORI: ", "").Trim
|
||||
|
||||
'rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "")
|
||||
|
||||
@@ -5869,7 +5870,7 @@ Public Class cFakturierung
|
||||
'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"), True)
|
||||
|
||||
sachbearbeiterAufRechnung = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And ROW("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
rpt.lblSachbearbeiter.Text = IIf((sachbearbeiterAufRechnung = "Herr Ordu" Or sachbearbeiterAufRechnung = "Frau Wallner") And ROW("Firma_ID") = 24, "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
|
||||
|
||||
|
||||
1133
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
1133
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
File diff suppressed because it is too large
Load Diff
@@ -608,6 +608,8 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End If
|
||||
|
||||
pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz)
|
||||
|
||||
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_USTVA_bearbeiten", Me.FindForm) Then
|
||||
btnAntrageeinarbeiten.Enabled = False
|
||||
@@ -4069,7 +4071,7 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles pbXMLExport.Click
|
||||
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
@@ -4088,6 +4090,10 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim KUNDE As New cKunde(USTV_ANTRAG.UStVAn_KuNr)
|
||||
Dim KUNDE_ERW As New cKundenErweitert(USTV_ANTRAG.UStVAn_KuNr)
|
||||
|
||||
Dim BANK_OWNER As String = ""
|
||||
Dim BANK_IBAN As String = ""
|
||||
Dim BANK_BIC As String = ""
|
||||
|
||||
If IsDBNull(ADR.UstIdNr) OrElse ADR.UstIdNr Is Nothing Then
|
||||
MsgBox("UID-Nr ist nicht im Kunden hinterlegt!")
|
||||
End If
|
||||
@@ -4120,6 +4126,27 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
|
||||
Select Case Antrag_LandKz
|
||||
Case "AT", "DE", "CZ", "BE", "SI"
|
||||
BANK_OWNER = FIRMA.Firma_Bez
|
||||
BANK_IBAN = FIRMA.Firma_IBAN1
|
||||
BANK_BIC = FIRMA.Firma_BIC1
|
||||
|
||||
Case Else
|
||||
'Bank aus Kunden!
|
||||
Dim dtBank As New DataTable
|
||||
dtBank = SQL.loadDgvBySql("SELECT isnull(bnk_name,'') as bnk_name ,bnk_anschrift,ISNULL(bnk_iban,'') as bnk_iban,ISNULL(bnk_bic,'') as bnk_bic FROM [tblBankverbindungen] WHERE isnull(bnk_hauptkonto,0) = 0 and bnk_archiv = 0 and bnk_KundenNr = " & KUNDE.KundenNr, "FMZOLL")
|
||||
|
||||
If dtBank.Rows.Count > 0 Then
|
||||
BANK_OWNER = ADR.Name_1
|
||||
BANK_IBAN = dtBank.Rows(0).Item("bnk_iban")
|
||||
BANK_BIC = dtBank.Rows(0).Item("bnk_bic")
|
||||
End If
|
||||
'wenn nicht hinterlegt, dann leer lassen!
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
Dim app As New VATRefundApplication() With {
|
||||
.CodF1 = New FormInfo With {.FormType = "D318", .FormId = 318, .UniversalCode = "D318_A1.0.0"},
|
||||
.RefundPeriod = New Period With {.StartDate = CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month, .EndDate = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month},
|
||||
@@ -4130,7 +4157,7 @@ Public Class frmMDM_USTVAntrag
|
||||
.Currency = USTV_ANTRAG.UStVAn_Währungscode,
|
||||
.ApplicationType = 1,
|
||||
.ReferenceNumber = "",
|
||||
.Annual = 0,
|
||||
.Annual = IIf(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Month = 1 And CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month = 12, 1, 0),
|
||||
.an_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Year,
|
||||
.d_rec = 0,
|
||||
.luna_r = CDate(USTV_ANTRAG.UStVAn_ReDatBis).Month,
|
||||
@@ -4159,11 +4186,11 @@ Public Class frmMDM_USTVAntrag
|
||||
},
|
||||
.DetailedBankAccount = New BankAccount With {
|
||||
.Total = txtSummeEUR._value.ToString.Replace(",", "."),
|
||||
.Currency = "EUR",
|
||||
.Currency = USTV_ANTRAG.UStVAn_Währungscode,
|
||||
.OwnerType = 1,
|
||||
.OwnerName = "VERAG 360 GMBH",
|
||||
.IBAN = "AT053445500004210225",
|
||||
.BIC = "RZOOAT2L455"
|
||||
.OwnerName = BANK_OWNER,
|
||||
.IBAN = BANK_IBAN,
|
||||
.BIC = BANK_BIC
|
||||
},
|
||||
.NumberOfDocuments = New NumberOfDocuments With {.AtachatedFiles = 0, .PurchaseOrders = dgvUSTVPositionen.SelectedRows.Count, .ImportOrders = 0},
|
||||
.ApplicantSignature = New Signature With {.NameFree = "LUXBAUER BRIGITTE", .Position = "IMPUTERNICIT"}
|
||||
@@ -4190,7 +4217,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
LeistenderName = row.Cells("UStVPo_Leistender").Value
|
||||
LeistenderName.ToString.Replace(Antrag_LandKz, "")
|
||||
LeistenderName = LeistenderName.ToString.Replace(Antrag_LandKz, "")
|
||||
|
||||
Dim Nettobetrag As Double = 0
|
||||
If Not IsDBNull(row.Cells("UStVPo_Nettobetrag").Value) AndAlso IsNumeric(row.Cells("UStVPo_Nettobetrag").Value) Then Nettobetrag = CDbl(row.Cells("UStVPo_Nettobetrag").Value)
|
||||
@@ -4200,22 +4227,23 @@ Public Class frmMDM_USTVAntrag
|
||||
Dim Bez As String = row.Cells("UStVPo_Leistungsbezeichnung").Value
|
||||
Bez = Bez.ToLower
|
||||
|
||||
If Bez.Contains("maut") Or Bez.Contains("toll") Then maut = True
|
||||
If Bez.Contains("diesel") Or Bez.Contains("fuel") Then diesel = True
|
||||
If Bez.Contains("parkplatz") Then parkplatz = True
|
||||
If Bez.Contains("zubeh") Then zubeh = True
|
||||
If Bez.Contains("übern") Then uebernachtung = True
|
||||
|
||||
If row.Cells("UStVPo_SchnittstellenNr").Value = 10 Then
|
||||
'UTA überspringen
|
||||
ElseIf row.Cells("UStVPo_SchnittstellenNr").Value = 9 Then
|
||||
maut = True 'MSE immer MAUT
|
||||
Else
|
||||
If Bez.Contains("maut") Or Bez.Contains("toll") Then maut = True
|
||||
If Bez.Contains("diesel") Or Bez.Contains("fuel") Then diesel = True
|
||||
If Bez.Contains("parkplatz") Then parkplatz = True
|
||||
If Bez.Contains("zubeh") Then zubeh = True
|
||||
If Bez.Contains("übern") Then uebernachtung = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Dim goods As New GoodsDescription With {.GoodsItem = New List(Of GoodsItem)}
|
||||
|
||||
'diesel Code 1 SubCode 1.1.2
|
||||
'maut Code 4 SubCode 4.1
|
||||
'Zubehör Code 3 SubCode 3.1.5
|
||||
'parkplatz Code 3 SubCode 3.1.4
|
||||
'Übernachtung Code 6 SubCode 6.5
|
||||
|
||||
Dim goods As New GoodsDescription With {.GoodsItem = New List(Of GoodsItem)}
|
||||
|
||||
If diesel Then
|
||||
goods.GoodsItem.Add(New GoodsItem With {.Code = 1, .SubCode = "1.1.2", .FreeText = ""})
|
||||
@@ -4237,6 +4265,13 @@ Public Class frmMDM_USTVAntrag
|
||||
goods.GoodsItem.Add(New GoodsItem With {.Code = 6, .SubCode = "6.5", .FreeText = ""})
|
||||
End If
|
||||
|
||||
Select Case Antrag_LandKz
|
||||
Case "DE", "CZ", "LU"
|
||||
For Each good In goods.GoodsItem
|
||||
good.SubCode = "" 'SUbcodes leeren
|
||||
Next
|
||||
End Select
|
||||
|
||||
|
||||
app.PurchaseInformation.Invoices.Add(New Invoice With {
|
||||
.SequenceNumber = counter,
|
||||
@@ -4433,4 +4468,21 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Function setXMLExportVisible(ISOLand As String)
|
||||
|
||||
Dim valid As Boolean = False
|
||||
|
||||
If ISOLand = "" Then Return valid
|
||||
|
||||
Select Case ISOLand
|
||||
Case "RO" : valid = True
|
||||
Case Else : valid = False
|
||||
|
||||
End Select
|
||||
|
||||
Return valid
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user