fix MUSTANG.pdf
This commit is contained in:
@@ -8262,7 +8262,7 @@ repeatRequest:
|
||||
|
||||
Dim fileInfo_ZP As New FileInfo(tmpPath_Report)
|
||||
Dim ZUGF_DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "ZUGFERD", Now().Year, "", "", fileInfo_ZP.Name, -1, False)
|
||||
ZUGF_DS.uploadDataToDATENSERVER(tmpPath_Report, fileInfo_ZP.Name, fileInfo_ZP.Extension,,,, True)
|
||||
ZUGF_DS.uploadDataToDATENSERVER(tmpPath_Report, fileInfo_ZP.Name & ".pdf", fileInfo_ZP.Extension,,,, True)
|
||||
SQL.doSQL("Update [Rechnungsausgang] SET zugferdcheck_datetime=getDate(),zugferdcheck = " & IIf(PruefungOK, "1", "0") & ", zugferdcheck_daid = " & ZUGF_DS.da_id & " where RK_ID = " & rkId, "FMZOLL")
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user