div. Änderungen, etc.
This commit is contained in:
@@ -4896,7 +4896,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"))
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter"), True)
|
||||
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
|
||||
@@ -5048,102 +5048,102 @@ Public Class cFakturierung
|
||||
' End Sub
|
||||
|
||||
AddHandler rpt.Detail.Format, Sub()
|
||||
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
|
||||
' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
|
||||
|
||||
' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
|
||||
' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
|
||||
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value)
|
||||
If RECHNUNG IsNot Nothing Then
|
||||
rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000")
|
||||
rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
|
||||
' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
|
||||
Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value)
|
||||
If RECHNUNG IsNot Nothing Then
|
||||
rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000")
|
||||
rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
|
||||
|
||||
Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein")
|
||||
rpt.txtAbfertigungsart.Text = AbfertigungsBez
|
||||
Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'') FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein")
|
||||
AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein")
|
||||
rpt.txtAbfertigungsart.Text = AbfertigungsBez
|
||||
|
||||
rpt.txtPackstuecke.Text = ""
|
||||
If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ")
|
||||
rpt.txtPackstuecke.Text = ""
|
||||
If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ")
|
||||
|
||||
rpt.txtSendungsdetails.Text = ""
|
||||
If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine
|
||||
If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
|
||||
If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
|
||||
rpt.txtSendungsdetails.Text = ""
|
||||
If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & " " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
|
||||
If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & " " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine
|
||||
If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
|
||||
If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
|
||||
|
||||
If If(RECHNUNG.Handling, "") <> "" Then
|
||||
rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
|
||||
End If
|
||||
If True Then 'ANLAGEN
|
||||
Dim Anlagen = ""
|
||||
If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
|
||||
If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", "
|
||||
If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", "
|
||||
If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", "
|
||||
If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", "
|
||||
If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", "
|
||||
If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2)
|
||||
If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
|
||||
End If
|
||||
If If(RECHNUNG.Handling, "") <> "" Then
|
||||
rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
|
||||
End If
|
||||
If True Then 'ANLAGEN
|
||||
Dim Anlagen = ""
|
||||
If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
|
||||
If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", "
|
||||
If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", "
|
||||
If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", "
|
||||
If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", "
|
||||
If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", "
|
||||
If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2)
|
||||
If Anlagen.Replace(" ", "").Trim <> "" Then rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
|
||||
End If
|
||||
|
||||
|
||||
|
||||
rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
|
||||
rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
|
||||
rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
|
||||
|
||||
Dim stPfl As Double = 0
|
||||
Dim stFrei As Double = 0
|
||||
Dim stPfl As Double = 0
|
||||
Dim stFrei As Double = 0
|
||||
|
||||
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv!
|
||||
Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv!
|
||||
|
||||
For Each p In RECHNUNG.POSITIONEN
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
'Bei ProvAbr _> Nur Leistungen die als Provisionsabrechnung zählen!
|
||||
If CBool(SQL.DLookup("Provisionsabrechnung", "Leistungen", "LeistungsNr='" & p.LeistungsNr & "'", "FMZOLL")) Then
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
Else
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
For Each p In RECHNUNG.POSITIONEN
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Then
|
||||
'Bei ProvAbr _> Nur Leistungen die als Provisionsabrechnung zählen!
|
||||
If CBool(SQL.DLookup("Provisionsabrechnung", "Leistungen", "LeistungsNr='" & p.LeistungsNr & "'", "FMZOLL")) Then
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
Else
|
||||
stPfl += CDbl(p.SteuerpflichtigerBetrag)
|
||||
stFrei += CDbl(p.SteuerfreierBetrag)
|
||||
End If
|
||||
|
||||
Next
|
||||
stPfl *= vorzeichen
|
||||
rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
Next
|
||||
stPfl *= vorzeichen
|
||||
rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
|
||||
' stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen
|
||||
stFrei = stFrei * vorzeichen
|
||||
rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
' stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen
|
||||
stFrei = stFrei * vorzeichen
|
||||
rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
|
||||
|
||||
sumSteuerpflichtig += stPfl
|
||||
sumSteuerfrei += stFrei
|
||||
sumSteuerpflichtig += stPfl
|
||||
sumSteuerfrei += stFrei
|
||||
|
||||
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Or KUNDE_ERW.kde_FakturierungSR_Details Or isMDMRechnungsdruck Then
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID)
|
||||
Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
|
||||
If VorschauID = "PROVISIONSABRECHNUNG" Or KUNDE_ERW.kde_FakturierungSR_Details Or isMDMRechnungsdruck Then
|
||||
Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG, VorschauID)
|
||||
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.SubReport.Report = subRpt
|
||||
rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
|
||||
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
' rpt.Line10.AnchorBottom = True
|
||||
' rpt.Line10.Height = rpt.Detail.Height
|
||||
End If
|
||||
'txtPackstuecke.Top += SubReport.Height
|
||||
'txtKdAuftragsnummer.Top += SubReport.Height
|
||||
'txtSendungsdetails.Top += SubReport.Height
|
||||
Else
|
||||
rpt.SubReport.Report = Nothing
|
||||
End If
|
||||
' rpt.Line10.AnchorBottom = True
|
||||
' rpt.Line10.Height = rpt.Detail.Height
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "")
|
||||
rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "")
|
||||
|
||||
@@ -5179,24 +5179,24 @@ Public Class cFakturierung
|
||||
Dim NettoGes = sumSteuerpflichtig + sumSteuerfrei
|
||||
Dim ProvProzent As Double = KD_ERW_PROV.kde_Provisionsverguetung_ProzentDL
|
||||
Dim ProvBetrag = NettoGes * ProvProzent
|
||||
Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID)
|
||||
subRptProv.lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
Dim subRptProv = New rptSammelRechnungAnlagenDruck_ProvSum(rpt._LAN, VorschauID)
|
||||
subRptProv.lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
subRptProv.lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
|
||||
|
||||
rpt.SubReport1.Report = subRptProv
|
||||
rpt.SubReport1.Visible = True
|
||||
rpt.SubReport1.Report = subRptProv
|
||||
rpt.SubReport1.Visible = True
|
||||
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblNettoGes.Value = NettoGes.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvProzent.Value = (ProvProzent * 100).ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetrag.Value = ProvBetrag.ToString("N2", CultureInfo.CurrentCulture)
|
||||
'DirectCast(rpt.SubReport1.Report, rptSammelRechnungAnlagenDruck_ProvSum).lblProvBetragWaehr.Value = If(Row("Währungscode") IsNot DBNull.Value, CStr(Row("Währungscode")), "EUR")
|
||||
|
||||
|
||||
'rpt.SubReport1.Height = 100 ' nur falls nötig; sonst per Layout
|
||||
Else
|
||||
'rpt.SubReport1.Height = 100 ' nur falls nötig; sonst per Layout
|
||||
Else
|
||||
rpt.SubReport1.Report = Nothing
|
||||
rpt.SubReport1.Visible = False
|
||||
End If
|
||||
@@ -5299,7 +5299,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").ToString.ToUpper)
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, Row("Sachbearbeiter").ToString.ToUpper, True)
|
||||
|
||||
If sachbearbeiterAufRechnung = "" Then
|
||||
rpt.lblSachbearbeiter.Text = getSBRgName(Row("Firma_ID"), Row("Sachbearbeiter").ToString.ToUpper)
|
||||
@@ -5537,13 +5537,16 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
|
||||
Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "") As String
|
||||
Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String, Optional NameAufBeleg As String = "", Optional isSammelrechnung As Boolean = False) As String
|
||||
|
||||
If USRKURZNAME Is Nothing Then Return ""
|
||||
If USRKURZNAME Is DBNull.Value Then Return ""
|
||||
|
||||
If NameAufBeleg <> "" Then
|
||||
USRKURZNAME = NameAufBeleg
|
||||
If Not isSammelrechnung Then 'Bei sammelrechnung nicht den Belegerzeuger andrucken!!!!!
|
||||
USRKURZNAME = NameAufBeleg
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If USRKURZNAME = "" Then USRKURZNAME = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
|
||||
@@ -5722,7 +5725,7 @@ Public Class cFakturierung
|
||||
'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
|
||||
'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"))
|
||||
Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME, ROW("Sachbearbeiter"), True)
|
||||
rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
|
||||
|
||||
'rpt.lblSachbearbeiter.Text = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - ALT
|
||||
|
||||
Reference in New Issue
Block a user