fakt, offeneAntr, Übersetzungen RO, etc.
This commit is contained in:
@@ -1203,6 +1203,21 @@ Public Class cFakturierung
|
||||
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
|
||||
End Select
|
||||
|
||||
Case "RO"
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "FACTURA"
|
||||
rpt.lblSummeUeberschrift.Text = "Total"
|
||||
rpt.lblRgNrUeberschrift.Text = "Factura Nr.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Data Factura:"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "NOTA DE CREDIT"
|
||||
rpt.lblSummeUeberschrift.Text = "Total"
|
||||
rpt.lblRgNrUeberschrift.Text = "Nota De Credit Nr.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Data Nota De Credit:"
|
||||
End Select
|
||||
|
||||
Case Else
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
@@ -1355,7 +1370,8 @@ Public Class cFakturierung
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
' Case "EN" : rpt.txtInfo.Text = "Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
|
||||
' Case Else : rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
|
||||
Case "EN" : rpt.txtInfo.Text = "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
|
||||
Case "RO" : rpt.txtInfo.Text = "Obligația de TVA este transferată beneficiarului serviciului (Reverse Charge)."
|
||||
Case "EN" : rpt.txtInfo.Text = "VAT liability is transferred to the recipient (Reverse Charge)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
|
||||
Case Else : rpt.txtInfo.Text = "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
|
||||
End Select
|
||||
Else : rpt.txtInfo.Text = "" : End If
|
||||
@@ -1374,6 +1390,12 @@ Public Class cFakturierung
|
||||
|
||||
If rpt.txtAnlagen.Text.Replace(" ", "") = "" Then
|
||||
rpt.lblAnlagenUeberschrift.Visible = False
|
||||
Else
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : rpt.lblAnlagenUeberschrift.Text = "Attachment:"
|
||||
Case "RO" : rpt.lblAnlagenUeberschrift.Text = "Anexa:"
|
||||
Case Else : rpt.lblAnlagenUeberschrift.Text = "Anlagen:"
|
||||
End Select
|
||||
End If
|
||||
|
||||
rpt.txtHandlingATA.Text = If(RECHNUNG.Handling, "")
|
||||
@@ -1425,6 +1447,13 @@ Public Class cFakturierung
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE"
|
||||
End Select
|
||||
Case "RO"
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anexa la factura colectiva"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anexa la nota de credit"
|
||||
End Select
|
||||
Case Else
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
@@ -1440,6 +1469,7 @@ Public Class cFakturierung
|
||||
If RECHNUNG.DruckDatumZeit IsNot Nothing Then
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY"
|
||||
Case "RO" : rpt.lblUeberschriftRG_GS.Text &= " - COPIE"
|
||||
Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -557,6 +557,7 @@ Public Class usrCntlFaktAbrechnung
|
||||
cboRechnungSprache.Items.Clear()
|
||||
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
|
||||
cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
|
||||
If FirmaTmp = "VERAG360" Then cboRechnungSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rumänisch", "RO"))
|
||||
cboRechnungSprache.changeItem(0)
|
||||
|
||||
'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
|
||||
@@ -4010,7 +4011,7 @@ Nächste_Textzeile_lesen:
|
||||
Select Case cboRechnungSprache._value
|
||||
Case "DE" : cboAnlage1.Text = "Rechnung" : cboAnlage2.Text = "Lief.-Rechn." : cboAnlage3.Text = "POS-Liste"
|
||||
Case "EN" : cboAnlage1.Text = "Invoice" : cboAnlage2.Text = "Supplier Invoice(s)" : cboAnlage3.Text = "Item List"
|
||||
Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizorului" : cboAnlage3.Text = "Lista articolelor"
|
||||
Case "RO" : cboAnlage1.Text = "Factura" : cboAnlage2.Text = "Factura furnizor" : cboAnlage3.Text = "Lista articole"
|
||||
End Select
|
||||
|
||||
End If
|
||||
|
||||
@@ -1592,10 +1592,17 @@ Public Class frmMDM_USTVAntrag
|
||||
|
||||
|
||||
'check if already existing 'überschneidungen prüfen!!!!
|
||||
Dim anzUSTVA = CInt((New SQL).getValueTxtBySql("Select count(*) from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & "
|
||||
AND not((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "' or cast(UStVAn_ReDatBis as date) < '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL"))
|
||||
|
||||
If anzUSTVA > 0 Then
|
||||
|
||||
Dim dt_existingUSTVA As DataTable = SQL.loadDgvBySql("Select UStVAn_ID,UStVAn_ReDatvon, UStVAn_ReDatBis from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & "
|
||||
AND not ((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "' or cast(UStVAn_ReDatBis as date) <= '" & CDate(txtVon._value).ToShortDateString & "' ) and (cast(UStVAn_ReDatBis as date) < '" & CDate(txtBis._value).ToShortDateString & "' or cast(UStVAn_ReDatvon as date) >= '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL")
|
||||
|
||||
'Dim anzUSTVA = CInt((New SQL).getValueTxtBySql("Select count(*) from tblUStVAntrag where UStvAN_KuNr = " & KundenNr & " and (isnull(UStVAn_AntragArt,'MWST') = '" & cboAntragArt._value & "' or UStVAn_AntragArt = '') and UStVAn_LandNr = " & USTV_ANTRAG.UStVAn_LandNr & "
|
||||
' AND not ((cast(UStVAn_ReDatvon as date) > '" & CDate(txtVon._value).ToShortDateString & "' and cast(UStVAn_ReDatBis as date) <= '" & CDate(txtVon._value).ToShortDateString & "') or (cast(UStVAn_ReDatvon as date) < '" & CDate(txtBis._value).ToShortDateString & "' and cast(UStVAn_ReDatBis as date) >= '" & CDate(txtBis._value).ToShortDateString & "'))", "FMZOLL"))
|
||||
|
||||
If dt_existingUSTVA.Rows.Count = 1 Then
|
||||
If Not vbYes = MsgBox("Es existiert bereits ein" & cboAntragArt._value & " -Eintrag von " & dt_existingUSTVA.Rows(0).Item("UStVAn_ReDatvon") & " - " & dt_existingUSTVA.Rows(0).Item("UStVAn_ReDatbis") & " von " & ADR.Name_1 & " für " & cbxLand.SelectedItem.ToString & vbNewLine & "Trotzdem Antrag speichern?", vbYesNoCancel) Then Exit Sub
|
||||
ElseIf dt_existingUSTVA.Rows.Count > 1 Then
|
||||
If Not vbYes = MsgBox("Es existiert bereits mind. ein " & cboAntragArt._value & " -Eintrag in diesem Zeitbereich von " & ADR.Name_1 & " für " & cbxLand.SelectedItem.ToString & vbNewLine & "Trotzdem Antrag speichern?", vbYesNoCancel) Then Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
@@ -677,7 +677,7 @@ Public Class frmUSTVoffeneAntraege
|
||||
|
||||
|
||||
|
||||
Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,tblSteuernummern.UStV as UStV,Lieferant , KdNr, Kundenname, Kundenland, Einreichland from (" & SQLPLOSEUMSTELLUNG & "
|
||||
Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,cast(case when isnull(UStVAn_AntragEingereichtAm,0) = 0 then 0 else 1 end as bit) as eingereicht,tblSteuernummern.UStV as UStV,Lieferant , KdNr, Kundenname, Kundenland, Einreichland from (" & SQLPLOSEUMSTELLUNG & "
|
||||
|
||||
UNION ALL
|
||||
|
||||
@@ -779,15 +779,10 @@ Public Class frmUSTVoffeneAntraege
|
||||
left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr and isnull(UStVAn_AntragArt,'MWST') = 'MWST'
|
||||
left JOIN tblSteuernummern On temp.Einreichland = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr
|
||||
where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr &
|
||||
" group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV"
|
||||
" group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, tblSteuernummern.UStV, case when isnull(UStVAn_AntragEingereichtAm,0) = 0 then 0 else 1 end "
|
||||
|
||||
Dim SQLWhere = ""
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
.SET_SQL(sqlstring, "FMZOLL")
|
||||
.LOAD()
|
||||
If .Columns.Count > 0 Then
|
||||
@@ -797,6 +792,7 @@ Public Class frmUSTVoffeneAntraege
|
||||
.Columns("Kundenname").HeaderText = "Kunde"
|
||||
.Columns("Kundenland").HeaderText = "Kundenland"
|
||||
.Columns("Einreichland").HeaderText = "Einreichland"
|
||||
.Columns("eingereicht").HeaderText = "einger."
|
||||
.Columns("Kundenname").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
@@ -961,13 +957,14 @@ Public Class frmUSTVoffeneAntraege
|
||||
Dim index As Integer = -1
|
||||
If (MyDatagridview1.SelectedRows.Count > 0) Then index = MyDatagridview1.SelectedRows(0).Index
|
||||
|
||||
If MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value > 0 Then
|
||||
If MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value > 0 AndAlso Not MyDatagridview1.SelectedRows(0).Cells("eingereicht").Value Then
|
||||
|
||||
Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("antragExisitiert").Value)
|
||||
frm.ShowDialog()
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Dim frm = New frmMDM_USTVAntrag(MyDatagridview1.SelectedRows(0).Cells("KdNr").Value, MyDatagridview1.SelectedRows(0).Cells("Einreichland").Value, dat_Sum_Von.Value, dat_Sum_Bis.Value)
|
||||
frm.ShowDialog()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user