edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kassenbuch, ustva, Erstattungsschreiben

Browse Source
This commit is contained in:
d.breimaier
2025-01-08 14:42:54 +01:00
parent fc538afc19
commit be6487d129
8 changed files with 14 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben DE.dotx
View File

Binary file not shown.

BIN
SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben RO.dotx
View File

Binary file not shown.

BIN
SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben TR.dotx
View File

Binary file not shown.

BIN
SDL/seriendruck/Vorlagen/Erstattungsschreiben/Erstattungsschreiben YU.dotx
View File

Binary file not shown.

4
SDL/seriendruck/usrCntlSeriendruck.vb
View File

@@ -35,10 +35,12 @@ Public Class usrCntlSeriendruck
Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale_neu.Text, txtErstattungAbfNr_neu.Text, txtErstattungAbfUnterNr_neu.Text)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(19)
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
'Dim ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
If FIRMA IsNot Nothing Then
WordDoc.FormFields("txtAdresseZeileFirma").Range.Text = FIRMA.Firma_Bez + ", " + FIRMA.Firma_Ort
WordDoc.FormFields("txtAdresseZeileFirma").Range.Text = FIRMA.Firma_Bez + ", " + FIRMA.Firma_Ort + ", " + FIRMA.Firma_Straße
WordDoc.FormFields("txtAdresseZeileFirm1").Range.Text = FIRMA_DE.Firma_Bez + ", " + FIRMA_DE.Firma_Ort + ", " + FIRMA_DE.Firma_Straße
End If