Anpassung Dakosy BOX 9.2,
CHAT->Aus Zw.Ablage einfügen
This commit is contained in:
@@ -1911,12 +1911,25 @@ Public Class FormularManagerNEU
|
||||
Dim ort = "Suben"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
Select Case AVISO.Grenzstelle
|
||||
Case "DTB" '--> VERAG
|
||||
ort = "Dettelbach"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.TextBox11.Visible = True
|
||||
If AVISO.ImEx = "EXPORT" Then rpt.TextBox3.Visible = False
|
||||
rpt.picVERAG.Image = My.Resources.Verag_Spedition_GMBH_Logo
|
||||
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
Case Else
|
||||
|
||||
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
|
||||
rpt.TextBox32.Text = "Avisierer (*):"
|
||||
rpt.txtFraechter.Text = AVISO.Auftraggeber
|
||||
|
||||
End Select
|
||||
Case "UNISPED"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirma_UNISPED.Visible = True
|
||||
|
||||
@@ -213,6 +213,7 @@ Class DAKOSY_Interface_SEND
|
||||
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = getDivision(cDY.eza_firma, CBool(If(cDY.eza_FiskalvertretungKz, False)))
|
||||
XML.Transaktion.Version = Interface_VERSION
|
||||
|
||||
' Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.FreierVerkehrAktVeredelUmwandlungAVUVTyp.DatenaustauschFreierVerkehrTyp
|
||||
Dim EA = New FreierVerkehrAktVeredelUmwandlung_004.EinzelEinfuhrUnvollstaendigeAnmeldungTyp
|
||||
|
||||
EA.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
|
||||
|
||||
Reference in New Issue
Block a user