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

ATEZ

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-05 11:35:57 +01:00
parent c7c8953638
commit 4cfa876d70
2 changed files with 28 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -76,7 +76,7 @@ Public Class frmATEZ_EZA
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnSend.Click, Button2.Click
Try
@@ -113,7 +113,7 @@ Public Class frmATEZ_EZA
'txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
txtDyMandant.Text = "VERG"
'txtDyMandant.Text = "VERG"
' atez.setJsonPDF(atez_data, dgvAnhaenge)
@@ -302,6 +302,13 @@ Public Class frmATEZ_EZA
ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "") ' not null
ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "") ' not null
'-------------------JSON AUSGEBEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
If sender Is Button2 Then
MsgBox(VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.getJSON(ATEZ_RH_EZA))
Exit Sub ' --> Json uns raus...
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------SENDEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -465,10 +472,10 @@ Public Class frmATEZ_EZA
' Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED"
' Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME"
' Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
'End Select
txtDyMandant.Text = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
txtDyNiederlassung.Text = cDakosyFunftions.getDivision(txtDyMandant.Text)
'End Select
FIRMA_DY = cDakosyFunftions.getFirma_DY(FilialenNr.ToString, Me)
txtDyMandant.Text = cDakosyFunftions.getIOPartner(FIRMA_DY)
txtDyNiederlassung.Text = cDakosyFunftions.getDivision(FIRMA_DY)
Label4.Text = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "-").ToString
@@ -490,7 +497,7 @@ Public Class frmATEZ_EZA
lblBezugsnummer.Text = atez_data.VERAG_LRN
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ") and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem(atez_data.DAKOSY_TemplateCode)
'cboProzedur.changeItem(atez_data.DAKOSY_Procedure)
@@ -528,7 +535,7 @@ Public Class frmATEZ_EZA
'Button1.Text = "An ATEZ senden -->"
pnlHead.Enabled = True
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='EZA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "' " & If(txtDyMandant.Text = "UNAT", ", 'ATSPED' ", "") & ") and dySr_visible=1", False, "FMZOLL", True)
cboStammreferenz.changeItem("")
getBezugsnr(BezugsNr)