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

Digicust API

Browse Source
This commit is contained in:
d.breimaier
2023-11-13 16:07:02 +01:00
parent 9117ca1c17
commit faebd68d0f
5 changed files with 132 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3107,7 +3107,7 @@ Public Class frmSendungsdetailsNEU
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
initdgvATEZ()
ElseIf TabControl1.SelectedTab Is tbDigicust Then
initdgvDigicust()
initdgvDigicust(SENDUNG_LIST(CURRENT_INDEX))
ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
@@ -6483,7 +6483,7 @@ Public Class frmSendungsdetailsNEU
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvDigicust)
frm.Show(Me)
initdgvDigicust()
initdgvDigicust(SND)
End If
Catch ex As Exception
@@ -6493,11 +6493,14 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initdgvDigicust()
Sub initdgvDigicust(SND As VERAG_PROG_ALLGEMEIN.cSendungen)
Dim refLength = SND.FilialenNr.ToString.Length + SND.AbfertigungsNr.ToString.Length + 1
With dgvDigicust
.Columns.Clear()
.ReadOnly = False
.DataSource = SQL.loadDgvBySql("select Id, AvisoId, reference, digicustId, status, createdAt, modifiedAt, uploadedDocuments, companyId, projectId FROM [tblDigicust_Sendungen] WHERE AvisoId='" & AvisoId & "'", "FMZOLL")
.DataSource = SQL.loadDgvBySql("select Id, AvisoId, reference, digicustId, status, createdAt, modifiedAt, uploadedDocuments, companyId, projectId FROM [tblDigicust_Sendungen] WHERE AvisoId='" & AvisoId & "' AND left(reference," & refLength & ") = '" & SND.FilialenNr & "/" & SND.AbfertigungsNr & "'", "FMZOLL")
If .Columns.Count <= 0 Then Exit Sub
'Ä.Columns("txtStatus").ReadOnly = False
.Columns("Id").Visible = False
@@ -6550,7 +6553,7 @@ Public Class frmSendungsdetailsNEU
Dim API = New cDigicustAPI()
API.fetchingCase(digiSendung)
initdgvDigicust()
initdgvDigicust(SENDUNG_LIST(CURRENT_INDEX))
End Sub