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

Mahnungen, Ust-Antrag, Kundenuebersicht, EORI, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-06-05 11:51:52 +02:00
parent 9dc2d9f29e
commit 2ac6eed7ae
16 changed files with 276 additions and 127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1,13 +1,7 @@
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.IO
Imports com.oracle.xmlns.internal.webservices.jaxws_databinding
Imports com.sun.org.apache.bcel.internal.generic
Imports itextsharp.text.pdf
Imports java.rmi.server
Imports javax.swing.plaf
Imports SDL.EORI
Imports sun.invoke.empty
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlKundenuebersicht
@@ -373,7 +367,7 @@ Public Class usrCntlKundenuebersicht
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
lblFirma.Text = KdFirma
lblFirma.Visible = True
btnVMhinzufuegen.Enabled = False
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
@@ -2465,7 +2459,7 @@ Public Class usrCntlKundenuebersicht
Dim url = SDL.cEORIWebService.genEORI_Formular(kdNr, EORI_NR)
Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'Dim pdf = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
'If pdf <> "" Then Process.Start(pdf)
@@ -2637,13 +2631,24 @@ Public Class usrCntlKundenuebersicht
If dt IsNot Nothing Then
frmList.dgv.DataSource = dt
frmList.dgv.Columns("eori_id").Visible = False
'AddHandler frmList.dgv.CellDoubleClick, Sub()
' Dim PdfTmp = SDL.FormularManagerNEU.EORI_Antrag(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
' If PdfTmp <> "" Then
' Process.Start(PdfTmp)
' End If
' End Sub
'--------------------------
AddHandler frmList.dgv.CellDoubleClick, Sub()
Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
Dim msgErgebnis
Select Case eoripruef.eori_valid
Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG - OK"
Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
End Select
Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid)
If PdfTmp <> "" Then
Process.Start(PdfTmp)
End If
End Sub
'--------------------------
frmList.Show(Me)
End If