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

OFfertenBeabeiten, Formulare, Fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-08-22 13:10:40 +02:00
parent b92ba0480c
commit 319837c39a
8 changed files with 70 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -927,6 +927,9 @@ Public Class frmMDM_USTVAntrag
USTV_POS.UStVPo_daId = 0
Dim rkID = sql.getValueTxtBySql("SELECT TOP(1) isnull(RK_ID,0) FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & USTV_POS.UStVPo_ReDat & "' and Rechnungsausgang.RechnungsNr='" & USTV_POS.UStVPo_ReNr & "' AND FilialenNr = " & r.Item("FilialenNr") & " AND RK_ID is not null", "FMZOLL")
If rkID <> "" AndAlso IsNumeric(rkID) Then USTV_POS.UStVPo_daId = rkID
If USTV_POS.UStVPo_daId > 0 Then
USTV_POS.UStVPo_daId_loeschbar = False
@@ -3558,7 +3561,7 @@ Public Class frmMDM_USTVAntrag
If IsNumeric(item.Name) Then
Dim RG_PATH = ""
cFakturierung.doRechnungsDruck_SRorER(item.Name,, False, 4, RG_PATH,,, True)
cFakturierung.doRechnungsDruck_SRorER(item.Name,, False, 4, RG_PATH,,, True,, True)
Process.Start(RG_PATH)
End If