Digicust
This commit is contained in:
@@ -1,4 +1,5 @@
|
||||
Imports DAKOSY_Worker.DEERRE
|
||||
Imports DAKOSY_Worker.eZollTypes
|
||||
Imports DocumentFormat.OpenXml.Vml.Presentation
|
||||
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
@@ -79,10 +80,6 @@ Public Class frmDigicust
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Try
|
||||
|
||||
'If atez_data.status = "Sent" Then
|
||||
|
||||
'End If
|
||||
|
||||
If Not checkAttachment() Then
|
||||
|
||||
Exit Sub
|
||||
@@ -102,27 +99,24 @@ Public Class frmDigicust
|
||||
With dig_sendung
|
||||
|
||||
.avisoId = AVISO.AvisoID
|
||||
' .SendungsId = SENDUNG.tblSnd_SendungID
|
||||
.reference = lblBezugsnummer.Text
|
||||
' ' .LicensePlateContainerNo = txtLKWId.Text
|
||||
' ' .DAKOSY_TemplateCode = cboStammreferenz._value
|
||||
' ' .DAKOSY_IOPartner = txtDyMandant.Text
|
||||
' ' .DAKOSY_Division3 = txtDyNiederlassung.Text
|
||||
' ' .DestinationCustomsOffice = sbBestimmungsZollstelle._value
|
||||
' ' .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
|
||||
.consignor_eori = usrCntl_consignor.txtEORI.Text
|
||||
.consignor_name = usrCntl_consignor.kdFirma.Text
|
||||
.consignor_address = usrCntl_consignor.txtStrasse.Text
|
||||
.consignor_city_name = usrCntl_consignor.txtOrt.Text
|
||||
.consignor_country_id = usrCntl_consignor.sbLand._value
|
||||
.consignor_postcode = usrCntl_consignor.txtPlz.Text
|
||||
.consignee_eori = UsrCntl_Consignee.txtEORI.Text
|
||||
.consignee_name = UsrCntl_Consignee.kdFirma.Text
|
||||
.consignee_address = UsrCntl_Consignee.txtStrasse.Text
|
||||
.consignee_city_name = UsrCntl_Consignee.txtOrt.Text
|
||||
.consignee_country_id = UsrCntl_Consignee.sbLand._value
|
||||
.consignee_postcode = UsrCntl_Consignee.txtPlz.Text
|
||||
.prepaper = txtVorpapier.Text
|
||||
.prepaper_code = txtVorpapierT.Text
|
||||
.licencePlate = txtLKWId.Text
|
||||
.lkwCountryId = txtLWKLand.Text
|
||||
|
||||
' '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()
|
||||
|
||||
@@ -146,17 +140,16 @@ Public Class frmDigicust
|
||||
|
||||
Dim failreDesc As String
|
||||
|
||||
Dim authResp = api.authenticate(rtfToken.Text)
|
||||
Dim authResp = api.authenticate("")
|
||||
If authResp <> "200" Then
|
||||
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
|
||||
lblInfo.Text = failreDesc
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim token = rtfToken.Text
|
||||
|
||||
If api.uploadingCase(dig, settings, dgvAnhaenge) Then
|
||||
dig.SAVE()
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
'If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
|
||||
@@ -244,6 +237,7 @@ Public Class frmDigicust
|
||||
End Select
|
||||
|
||||
initAttachment()
|
||||
initSeachboxes()
|
||||
|
||||
cboStammreferenz.fillWithSQL("SELECT [id],[description] FROM [tblDigicust_Settings] WHERE companyId = " & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID & " and valid =1", False, "FMZOLL", True)
|
||||
cboStammreferenz.changeItem("")
|
||||
@@ -302,34 +296,28 @@ Public Class frmDigicust
|
||||
' End If
|
||||
|
||||
Else
|
||||
' atez_data = New cATEZ_NCTS_DATA()
|
||||
' Button1.Text = "An ATEZ senden -->"
|
||||
' pnlHead.Enabled = True
|
||||
|
||||
|
||||
|
||||
getBezugsnr(BezugsNr)
|
||||
txtLKWId.Text = AVISO.LKW_Nr
|
||||
txtLWKLand.Text = AVISO.LKW_Nationalitaet
|
||||
|
||||
' cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
|
||||
' txtTransporttemp.Text = AVISO.TransportTemperatur
|
||||
|
||||
If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
|
||||
usrCntl_Carrier.kdFirma.initKdBox(Me)
|
||||
usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
|
||||
If If(SENDUNG.tblSnd_Vorpapier, "") <> "" Then
|
||||
txtVorpapier.Text = SENDUNG.tblSnd_Vorpapier
|
||||
txtVorpapierT.Text = cDy_ART
|
||||
End If
|
||||
|
||||
'If AVISO.Grenzstelle.Replace("???", "") = "" Then
|
||||
' sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle)
|
||||
'Else
|
||||
If SENDUNG.tblSnd_EmpfaengerKdNr > -1 Then
|
||||
UsrCntl_Consignee.kdFirma.initKdBox(Me)
|
||||
UsrCntl_Consignee.kdFirma.KdNr = SENDUNG.tblSnd_EmpfaengerKdNr
|
||||
End If
|
||||
|
||||
' Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
|
||||
' If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
|
||||
' If GRZ.grz_ZollamtDST IsNot Nothing Then
|
||||
' sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
|
||||
' End If
|
||||
' End If
|
||||
' End If
|
||||
|
||||
If SENDUNG.tblSnd_AbsenderKdNr > -1 Then
|
||||
usrCntl_consignor.kdFirma.initKdBox(Me)
|
||||
usrCntl_consignor.kdFirma.KdNr = SENDUNG.tblSnd_AbsenderKdNr
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
@@ -365,7 +353,7 @@ Public Class frmDigicust
|
||||
Dim col As DataColumn
|
||||
col = dt.Columns.Add("anh_selekt", GetType(Boolean))
|
||||
col.SetOrdinal(0)
|
||||
|
||||
dgvAnhaenge.Columns.Clear()
|
||||
dgvAnhaenge.DataSource = dt
|
||||
|
||||
If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
|
||||
@@ -384,15 +372,15 @@ Public Class frmDigicust
|
||||
.Columns("anh_selekt").HeaderText = "ausgewählt"
|
||||
.Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("anh_Datum").MinimumWidth = 50
|
||||
.Columns("anh_Datum").HeaderText = "Datum"
|
||||
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
|
||||
.Columns("anh_Name").MinimumWidth = 150
|
||||
.Columns("anh_Name").HeaderText = "Name"
|
||||
.Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
|
||||
.Columns("anh_Datum").MinimumWidth = 50
|
||||
.Columns("anh_Datum").HeaderText = "Datum"
|
||||
.Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
|
||||
.Columns("anh_Art").MinimumWidth = 50
|
||||
.Columns("anh_Art").HeaderText = "Art"
|
||||
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
||||
@@ -442,20 +430,20 @@ Public Class frmDigicust
|
||||
|
||||
End Function
|
||||
|
||||
Public Sub initSeachboxes()
|
||||
|
||||
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
rtfToken.Text = ""
|
||||
sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"})
|
||||
End Sub
|
||||
|
||||
Private Sub btnCreateToken_Click(sender As Object, e As EventArgs) Handles btnCreateToken.Click
|
||||
Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
|
||||
If rtfToken.Text <> "" Then
|
||||
Label1.Text = "Token (valid 1h) until: " & Now().AddHours(1)
|
||||
Else
|
||||
Label1.Text = "Token (valid 1h)"
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
'Private Sub btnCreateToken_Click(sender As Object, e As EventArgs)
|
||||
' Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
|
||||
' If rtfToken.Text <> "" Then
|
||||
' Label1.Text = "Token (valid 1h) until: " & Now().AddHours(1)
|
||||
' Else
|
||||
' Label1.Text = "Token (valid 1h)"
|
||||
' End If
|
||||
|
||||
'End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user