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

ATR Archiv Filter, ImportAssistent Anpassung width

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-05-20 10:29:41 +02:00
parent f732845f15
commit a8c0bee25b
7 changed files with 565 additions and 604 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
Aviso/ATEZ/frmATEZ_EZA.vb
View File

@@ -1,4 +1,5 @@

Imports com.esendex.sdk.optouts.models
Imports DAKOSY_Worker.eZollTypes
Imports SDL
Imports VERAG_PROG_ALLGEMEIN
@@ -110,7 +111,7 @@ Public Class frmATEZ_EZA
txtDyMandant.Text = "VERA" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' txtDyMandant.Text = "VERG" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' txtDyMandant.Text = "VERG" 'TEST!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' atez.setJsonPDF(atez_data, dgvAnhaenge)
@@ -294,57 +295,23 @@ Public Class frmATEZ_EZA
ATEZ_RH_EZA.dispatchCountry = CZ.countryCode
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ATEZ_RH_EZA.dispatchCountry = If(ATEZ_RH_EZA.dispatchCountry, "") ' not null
ATEZ_RH_EZA.destinationCountry = If(ATEZ_RH_EZA.destinationCountry, "") ' not null
VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------SENDEN-----------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim RESP = VERAG_PROG_ALLGEMEIN.cRelayHub.cRelayHub_sendToRelayHub_JobOrderRequest.query_declarations(ATEZ_RH_EZA)
If RESP.Success Then
MsgBox("Erfolgreich gesendet!")
'-> ATEZ ID Speichern
Me.Close()
Else
MsgBox("ERROR" & vbNewLine & RESP.Details, MsgBoxStyle.OkOnly, RESP.Message)
'With atez_data
' .AvisoId = AVISO.AvisoID
' .SendungsId = SENDUNG.tblSnd_SendungID
' .VERAG_LRN = lblBezugsnummer.Text
' .LicensePlateContainerNo = txtLKWId.Text
' .DAKOSY_TemplateCode = cboStammreferenz._value
' If .DAKOSY_TemplateCode = "" Then .DAKOSY_TemplateCode = "*OWN"
' .DAKOSY_Procedure = cboProzedur._value
' .DAKOSY_IOPartner = txtDyMandant.Text
' .DAKOSY_Division3 = txtDyNiederlassung.Text
' .DepartureCustomsOffice = sbAbgangZollstelle._value
' .DestinationCustomsOffice = sbBestimmungsZollstelle._value
' .DatDeterminationLimit = txtDat.Text
' .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
' .Carrier_Name = usrCntl_Carrier.kdFirma.Text
' .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
' .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
' .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
' .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
' .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
' .Guarantee_GRN = "" 'leer
' .erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
' If .selectedDocuments <> "" Then .selectedDocuments = ""
' For Each doc As DataGridViewRow In dgvAnhaenge.Rows
' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
' If isSelected Then
' .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
' End If
' Next
' .SAVE()
' End With
' saveDurchgangszollstelle(atez_data)
'saveRoute(atez_data)
'setDurchgangszolstellen()
'setRoute()
'If sendAtezData(atez_data, atez) Then
' AvisoStatusFunctions.insertSendungsVermerk(SENDUNG.tblSnd_SendungID, SENDUNG.tblSnd_AvisoID, "An ATEZ gesendet", 109)
' Me.Close()
'Else
' Me.Close()
'End If
End If
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Me.Cursor = Cursors.Default