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

RMC, Adressen, USTV, Messenger

Browse Source
This commit is contained in:
d.breimaier
2024-05-22 10:30:59 +02:00
parent a83d9e835b
commit dda7de0e29
10 changed files with 361 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -55,6 +55,7 @@ Public Class ustCntlUSTV_AntragPosition
Dim da_id = -1
Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
End Select
scanSonstiges.INIT_daId(da_id)