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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-03-23 11:19:27 +01:00
parent b4612ab3e0
commit e625acc609
22 changed files with 2028 additions and 1763 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1740,7 +1740,12 @@ Public Class FormularManagerNEU
Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
If AVISO Is Nothing Then Return ""
Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN
If Vorpapier = "XXXX" Then
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP_EMPTY(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
Else
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST_VP(SENDUNG_LIST, 0, AvisoId, Vorpapier) 'LÄDT alle SENDUNGSDATEN
End If
If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
Return LaufzettelZollDE(AVISO, SENDUNG_LIST,,, Vorpapier)
End Function
@@ -1862,6 +1867,7 @@ Public Class FormularManagerNEU
Else
Dim VORPAPIERE As New List(Of VERAG_PROG_ALLGEMEIN.cAvisoVorpapier)
Dim VP As New VERAG_PROG_ALLGEMEIN.cAvisoVorpapier
' VP.vp_Nr = Vorpapier.ToString.Replace("XXXX", "") : VORPAPIERE.Add(VP)
VP.vp_Nr = Vorpapier : VORPAPIERE.Add(VP)
Dim SubRptVP As New subRptLaufzettelZollDE_Vorpapier(VORPAPIERE)
@@ -1893,6 +1899,7 @@ Public Class FormularManagerNEU
rpt.txtPos.Text = If(SND.tblSnd_Vorpapier3_Pos, "").ToString.Trim
End If
If SND.tblSnd_Fremdspedition Then
rpt.txtAbfertigungsart.Text = "FREMD"
rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
@@ -3191,10 +3198,15 @@ Public Class FormularManagerNEU
Dim destPath = ""
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX", "UNISPED", "AMBAR"
Case "IMEX", "AMBAR"
destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
Case Else
Case "UNISPED"
Select Case usrCntl.cboFirma._value
Case "21", "23" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VORAUSKASSE_AT", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
End Select
Case Else
Select Case usrCntl.cboFirma._value
Case "11" : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
Case Else : destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
@@ -3633,16 +3645,19 @@ Public Class FormularManagerNEU
Dim oWord As New Microsoft.Office.Interop.Word.Application
Dim striList As New List(Of String)
Try
Dim uOrdner2 = ""
Dim nameDispo = ""
nameDispo = "VerzollungsunterlagenAG2"
Select Case usrCntl.cboFirma._value
Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX"
Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED"
Case "CS" : nameDispo = "VerzollungsunterlagenCS"
Case Else : nameDispo = "VerzollungsunterlagenAG2"
End Select
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", uOrdner2, "", nameDispo)
Dim pfadWord = DS.GET_TOP1_PATH(False)
' MsgBox(pfadWord)
Dim cGenWord As New cGenWord
odoc = cGenWord.openWord(pfadWord, False, oWord)
@@ -4249,6 +4264,55 @@ Public Class FormularManagerNEU
End Function
Shared Function Finish_AVISO(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0
If AVISO.Grenzstelle = "SUB" Then
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "Finish_AVISO", listTowrite)
'End Select
' End If
End If
Return ""
End Function
Shared Function zumZOLL_AVISO(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, Optional Zollamt As String = "") As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 0
If AVISO.Grenzstelle = "SUB" Then
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
' Case "FRONTOFFICE", "VERAG"
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
'End Select
' End If
End If
Return ""
End Function
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager