Revert "commit"
This commit is contained in:
8659
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb
generated
Normal file
8659
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
1576
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json
Normal file
1576
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/ATEZ/BeyannameBilgi.json
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,375 @@
|
||||
<?xml version="1.0"?>
|
||||
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<xsd:complexType name="BeyannameBilgi">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Beyanname_no" type="xsd:string" />
|
||||
<xsd:element name="Rejim" type="xsd:string" />
|
||||
<xsd:element name="GUMRUK" type="xsd:string" />
|
||||
<xsd:element name="Basitlestirilmis_usul" type="xsd:string" />
|
||||
<xsd:element name="Yuk_belgeleri_sayisi" type="xsd:int" />
|
||||
<xsd:element name="Kap_adedi" type="xsd:int" />
|
||||
<xsd:element name="Ticaret_ulkesi" type="xsd:string" />
|
||||
<xsd:element name="Referans_no" type="xsd:string" />
|
||||
<xsd:element name="Birlik_kayit_numarasi" type="xsd:string" />
|
||||
<xsd:element name="Birlik_kripto_numarasi" type="xsd:string" />
|
||||
<xsd:element name="Cikis_ulkesi" type="xsd:string" />
|
||||
<xsd:element name="Gidecegi_ulke" type="xsd:string" />
|
||||
<xsd:element name="Gidecegi_sevk_ulkesi" type="xsd:string" />
|
||||
<xsd:element name="Cikistaki_aracin_tipi" type="xsd:string" />
|
||||
<xsd:element name="Cikistaki_aracin_kimligi" type="xsd:string" />
|
||||
<xsd:element name="Cikistaki_aracin_ulkesi" type="xsd:string" />
|
||||
<xsd:element name="Teslim_sekli" type="xsd:string" />
|
||||
<xsd:element name="Teslim_yeri" type="xsd:string" />
|
||||
<xsd:element name="Konteyner" type="xsd:string" />
|
||||
<xsd:element name="Sinirdaki_aracin_tipi" type="xsd:string" />
|
||||
<xsd:element name="Sinirdaki_aracin_kimligi" type="xsd:string" />
|
||||
<xsd:element name="Sinirdaki_aracin_ulkesi" type="xsd:string" />
|
||||
<xsd:element name="Toplam_fatura_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Toplan_navlun_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Sinirdaki_tasima_sekli" type="xsd:string" />
|
||||
<xsd:element name="Alici_satici_iliskisi" type="xsd:string" />
|
||||
<xsd:element name="Toplam_sigorta_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Yukleme_bosaltma_yeri" type="xsd:string" />
|
||||
<xsd:element name="Toplam_yurt_disi_harcamalarin_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Banka_kodu" type="xsd:string" />
|
||||
<xsd:element name="Esyanin_bulundugu_yer" type="xsd:string" />
|
||||
<xsd:element name="Varis_gumruk_idaresi" type="xsd:string" />
|
||||
<xsd:element name="Antrepo_kodu" type="xsd:string" />
|
||||
<xsd:element name="Tasarlanan_guzergah" type="xsd:string" />
|
||||
<xsd:element name="Giris_gumruk_idaresi" type="xsd:string" />
|
||||
<xsd:element name="Islemin_niteligi" type="xsd:string" />
|
||||
<xsd:element name="Aciklamalar" type="xsd:string" />
|
||||
<xsd:element name="Kullanici_kodu" type="xsd:string" />
|
||||
<xsd:element name="Referans_tarihi" type="xsd:string" />
|
||||
<xsd:element name="Odeme" type="xsd:string" />
|
||||
<xsd:element name="Odeme_araci" type="xsd:string" />
|
||||
<xsd:element name="Musavir_referansi" type="xsd:string" />
|
||||
<xsd:element name="Gonderici_vergi_no" type="xsd:string" />
|
||||
<xsd:element name="Alici_vergi_no" type="xsd:string" />
|
||||
<xsd:element name="Beyan_sahibi_vergi_no" type="xsd:string" />
|
||||
<xsd:element name="Musavir_vergi_no" type="xsd:string" />
|
||||
<xsd:element name="Asil_sorumlu_vergi_no" type="xsd:string" />
|
||||
<xsd:element name="Firma_bilgi" type="ArrayOfFirma" />
|
||||
<xsd:element name="Teminat" type="ArrayOfTeminat" />
|
||||
<xsd:element name="Ozetbeyanlar" type="ArrayOfOzetbeyan" />
|
||||
<xsd:element name="Kalemler" type="ArrayOfKalem" />
|
||||
<xsd:element name="Sorular_cevaplar" type="ArrayOfSoru_Cevap" />
|
||||
<xsd:element name="Dokumanlar" type="ArrayOfDokuman" />
|
||||
<xsd:element name="Vergiler" type="ArrayOfVergi" />
|
||||
<xsd:element name="KiymetBildirim" type="ArrayOfKiymet" />
|
||||
<xsd:element name="mail1" type="xsd:string" />
|
||||
<xsd:element name="mail2" type="xsd:string" />
|
||||
<xsd:element name="mail3" type="xsd:string" />
|
||||
<xsd:element name="mobil1" type="xsd:string" />
|
||||
<xsd:element name="mobil2" type="xsd:string" />
|
||||
<xsd:element name="FazlaMesaiID" type="xsd:string" />
|
||||
<xsd:element name="LimanKodu" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfFirma">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="firma">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Tip" type="xsd:string" />
|
||||
<xsd:element name="Ulke_kodu" type="xsd:string" />
|
||||
<xsd:element name="Posta_kodu" type="xsd:string" />
|
||||
<xsd:element name="Kimlik_turu" type="xsd:string" />
|
||||
<xsd:element name="Faks" type="xsd:string" />
|
||||
<xsd:element name="No" type="xsd:string" />
|
||||
<xsd:element name="Adi_unvani" type="xsd:string" />
|
||||
<xsd:element name="Cadde_s_no" type="xsd:string" />
|
||||
<xsd:element name="Telefon" type="xsd:string" />
|
||||
<xsd:element name="Il_ilce" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfTeminat">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Teminat">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Teminat_sekli" type="xsd:string" />
|
||||
<xsd:element name="Global_teminat_no" type="xsd:string" />
|
||||
<xsd:element name="Aciklama" type="xsd:string" />
|
||||
<xsd:element name="Diger_tutar_referansi" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfOzetbeyan">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Ozetbeyan">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="ozbyacma_bilgi" type="ArrayOfTasimasenetleri" />
|
||||
<xsd:element name="Ozetbeyan_no" type="xsd:string" />
|
||||
<xsd:element name="Ozetbeyan_islem_kapsami" type="xsd:string" />
|
||||
<xsd:element name="Ambar_ici" type="xsd:string" />
|
||||
<xsd:element name="Baska_rejim" type="xsd:string" />
|
||||
<xsd:element name="Aciklama" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfTasimasenetleri">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="tasimasenetleri">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Tasima_senedi_no" type="xsd:string" />
|
||||
<xsd:element name="tasimasatir_bilgi" type="ArrayOfTasimasatirlari" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfTasimasatirlari">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="tasimasatirlari">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Tasima_satir_no" type="xsd:string" />
|
||||
<xsd:element name="Ambar_kodu" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfKalem">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="kalem">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="tamamlayici_bilgi" type="ArrayOfTamamlayici" />
|
||||
<xsd:element name="tcgbacmakapatma_bilgi" type="ArrayOfTcgbacmakapatma" />
|
||||
<xsd:element name="marka_model_bilgi" type="ArrayOfMarka" />
|
||||
<xsd:element name="konteyner_Bilgi" type="ArrayOfKonteyner" />
|
||||
<xsd:element name="VergiMuafiyetleri" type="ArrayOfVergiMuafiyeti" />
|
||||
<xsd:element name="HavacilikYakitTurleri" type="ArrayOfHavacilikYakitTuru" />
|
||||
<xsd:element name="OdemeSekilleri" type="ArrayOfOdemeSekli" />
|
||||
<xsd:element name="Gtip" type="xsd:string" />
|
||||
<xsd:element name="Imalatci_firma_bilgisi" type="xsd:string" />
|
||||
<xsd:element name="Kalem_sira_no" type="xsd:int" />
|
||||
<xsd:element name="Mensei_ulke" type="xsd:string" />
|
||||
<xsd:element name="Tamamlayici_olcu_birimi" type="xsd:string" />
|
||||
<xsd:element name="Uluslararasi_anlasma" type="xsd:string" />
|
||||
<xsd:element name="Algilama_birimi_1" type="xsd:string" />
|
||||
<xsd:element name="Algilama_birimi_2" type="xsd:string" />
|
||||
<xsd:element name="Muafiyetler_1" type="xsd:string" />
|
||||
<xsd:element name="Muafiyetler_2" type="xsd:string" />
|
||||
<xsd:element name="Muafiyetler_3" type="xsd:string" />
|
||||
<xsd:element name="Muafiyetler_4" type="xsd:string" />
|
||||
<xsd:element name="Muafiyetler_5" type="xsd:string" />
|
||||
<xsd:element name="Algilama_birimi_3" type="xsd:string" />
|
||||
<xsd:element name="Teslim_sekli" type="xsd:string" />
|
||||
<xsd:element name="Ek_kod" type="xsd:string" />
|
||||
<xsd:element name="Ozellik" type="xsd:string" />
|
||||
<xsd:element name="Fatura_miktarinin_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Navlun_miktarinin_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Sigorta_miktarinin_dovizi" type="xsd:string" />
|
||||
<xsd:element name="Tarifedeki_tanimi" type="xsd:string" />
|
||||
<xsd:element name="Ticari_tanimi" type="xsd:string" />
|
||||
<xsd:element name="Marka" type="xsd:string" />
|
||||
<xsd:element name="Numara" type="xsd:string" />
|
||||
<xsd:element name="Cinsi" type="xsd:string" />
|
||||
<xsd:element name="Miktar_birimi" type="xsd:string" />
|
||||
<xsd:element name="Mahrece_iade" type="xsd:string" />
|
||||
<xsd:element name="Ikincil_islem" type="xsd:string" />
|
||||
<xsd:element name="Satir_no" type="xsd:string" />
|
||||
<xsd:element name="Kdv_orani" type="xsd:string" />
|
||||
<xsd:element name="Kullanilmis_esya" type="xsd:string" />
|
||||
<xsd:element name="Aciklama_44" type="xsd:string" />
|
||||
<xsd:element name="Imalatci_Vergino" type="xsd:string" />
|
||||
<xsd:element name="Yurtici_Diger_Aciklama" type="xsd:string" />
|
||||
<xsd:element name="Muafiyet_Aciklamasi" type="xsd:string" />
|
||||
<xsd:element name="Referans_Tarihi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Komisyon_Dovizi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Demuraj_Dovizi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Royalti_Dovizi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Faiz_Dovizi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Diger_Dovizi" type="xsd:string" />
|
||||
<xsd:element name="YurtDisi_Diger_Aciklama" type="xsd:string" />
|
||||
<xsd:element name="Kalem_Islem_Niteligi" type="xsd:string" />
|
||||
<xsd:element name="Giris_Cikis_Amaci" type="xsd:string" />
|
||||
<xsd:element name="Giris_Cikis_Amaci_Aciklama" type="xsd:string" />
|
||||
<xsd:element name="STM_IlKodu" type="xsd:string" />
|
||||
<xsd:element name="EsyaGeriGelmeSebebi" type="xsd:string" />
|
||||
<xsd:element name="EsyaGeriGelmeSebebiAciklamasi" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfTamamlayici">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="tamamlayici">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Tamamlayici_bilgi" type="xsd:string" />
|
||||
<xsd:element name="Tamamlayici_bilgi_orani" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfTcgbacmakapatma">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="tcgbacmakapatma">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Kapatilan_beyanname_no" type="xsd:string" />
|
||||
<xsd:element name="Kapatilan_kalem_no" type="xsd:int" />
|
||||
<xsd:element name="Aciklama" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfMarka">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Marka">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Marka_Turu" type="xsd:string" />
|
||||
<xsd:element name="Marka_Tescil_No" type="xsd:string" />
|
||||
<xsd:element name="Marka_Adi" type="xsd:string" />
|
||||
<xsd:element name="Referans_No" type="xsd:string" />
|
||||
<xsd:element name="Model_Yili" type="xsd:string" />
|
||||
<xsd:element name="Model" type="xsd:string" />
|
||||
<xsd:element name="Motor_hacmi" type="xsd:string" />
|
||||
<xsd:element name="Silindir_adedi" type="xsd:int" />
|
||||
<xsd:element name="Renk" type="xsd:string" />
|
||||
<xsd:element name="MotorTipi" type="xsd:string" />
|
||||
<xsd:element name="MotorNo" type="xsd:string" />
|
||||
<xsd:element name="MotorGucu" type="xsd:int" />
|
||||
<xsd:element name="Vites" type="xsd:string" />
|
||||
<xsd:element name="IMEINo" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfKonteyner">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Konteyner">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Konteyner_No" type="xsd:string" />
|
||||
<xsd:element name="Ulke_Kodu" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfVergiMuafiyeti">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="VergiMuafiyeti">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="VergiMuafiyetKodu" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfHavacilikYakitTuru">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="HavacilikYakitTuru">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="VergiNumarasi" type="xsd:string" />
|
||||
<xsd:element name="FaturaTarihi" type="xsd:string" />
|
||||
<xsd:element name="FaturaNumarasi" type="xsd:string" />
|
||||
<xsd:element name="ToplamFaturaMiktar" type="xsd:string" />
|
||||
<xsd:element name="YakitTuru" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfOdemeSekli">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="OdemeSekli">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="OdemeSekliKodu" type="xsd:string" />
|
||||
<xsd:element name="TBFID" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfSoru_Cevap">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Soru_Cevap">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Kalem_no" type="xsd:int" />
|
||||
<xsd:element name="Soru_no" type="xsd:string" />
|
||||
<xsd:element name="Cevap" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfDokuman">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Dokuman">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Kalem_no" type="xsd:int" />
|
||||
<xsd:element name="Kod" type="xsd:string" />
|
||||
<xsd:element name="Dogrulama" type="xsd:string" />
|
||||
<xsd:element name="Belge_tarihi" type="xsd:string" />
|
||||
<xsd:element name="Referans" type="xsd:string" />
|
||||
<xsd:element name="Vize_Tarihi" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfVergi">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Vergi">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Kalem_no" type="xsd:int" />
|
||||
<xsd:element name="Kod" type="xsd:string" />
|
||||
<xsd:element name="Aciklama" type="xsd:string" />
|
||||
<xsd:element name="Oran" type="xsd:string" />
|
||||
<xsd:element name="Odeme_sekli" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfKiymet">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Kiymet">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="TeslimSekli" type="xsd:string" />
|
||||
<xsd:element name="FaturaTarihiSayisi" type="xsd:string" />
|
||||
<xsd:element name="SozlesmeTarihiSayisi" type="xsd:string" />
|
||||
<xsd:element name="GumrukIdaresiKarari" type="xsd:string" />
|
||||
<xsd:element name="AliciSatici" type="xsd:string" />
|
||||
<xsd:element name="Munasebet" type="xsd:string" />
|
||||
<xsd:element name="Emsal" type="xsd:string" />
|
||||
<xsd:element name="AliciSaticiAyrintilar" type="xsd:string" />
|
||||
<xsd:element name="Kisitlamalar" type="xsd:string" />
|
||||
<xsd:element name="Edim" type="xsd:string" />
|
||||
<xsd:element name="KisitlamalarAyrintilar" type="xsd:string" />
|
||||
<xsd:element name="Royalti" type="xsd:string" />
|
||||
<xsd:element name="RoyaltiKosullar" type="xsd:string" />
|
||||
<xsd:element name="SaticiyaIntikal" type="xsd:string" />
|
||||
<xsd:element name="SaticiyaIntikalKosullar" type="xsd:string" />
|
||||
<xsd:element name="SehirYer" type="xsd:string" />
|
||||
<xsd:element name="Taahutname" type="xsd:string" />
|
||||
<xsd:element name="KiymetKalemler" type="ArrayOfKiymetKalem" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ArrayOfKiymetKalem">
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="KiymetKalem">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="KiymetKalemNo" type="xsd:int" />
|
||||
<xsd:element name="BeyannameKalemNo" type="xsd:int" />
|
||||
<xsd:element name="DigerOdemelerNiteligi" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:element name="BeyannameBilgi" type="BeyannameBilgi" />
|
||||
<xsd:element name="ArrayOfFirma" type="ArrayOfFirma" />
|
||||
<xsd:element name="firma" type="firma" />
|
||||
<xsd:element name="ArrayOfTeminat" type="ArrayOfTeminat" />
|
||||
<xsd:element name="Teminat" type="Teminat" />
|
||||
<xsd:element name="ArrayOfOzetbeyan" type="ArrayOfOzetbeyan" />
|
||||
<xsd:element name="Ozetbeyan" type="Ozetbeyan" />
|
||||
<xsd:element name="ArrayOfTasimasenetleri" type="ArrayOfTasimasenetleri" />
|
||||
<xsd:element name="tasimasenetleri" type="tasimasenetleri" />
|
||||
<xsd:element name="ArrayOfTasimasatirlari" type="ArrayOfTasimasatirlari" />
|
||||
<xsd:element name="tasimasatirlari" type="tasimasatirlari" />
|
||||
<xsd:element name="ArrayOfKalem" type="ArrayOfKalem" />
|
||||
<xsd:element name="kalem" type="kalem" />
|
||||
<xsd:element name="ArrayOfTamamlayici" type="ArrayOfTamamlayici" />
|
||||
<xsd:element name="tamamlayici" type="tamamlayici" />
|
||||
<xsd:element name="ArrayOfTcgbacmakapatma" type="ArrayOfTcgbacmakapatma" />
|
||||
<xsd:element name="tcgbacmakapatma" type="tcgbacmakapatma" />
|
||||
<xsd:element name="ArrayOfMarka" type="ArrayOfMarka" />
|
||||
<xsd:element name="Marka" type="Marka" />
|
||||
<xsd:element name="ArrayOfKonteyner" type="ArrayOfKonteyner" />
|
||||
<xsd:element name="Konteyner" type="Konteyner" />
|
||||
<xsd:element name="ArrayOfVergiMuafiyeti" type="ArrayOfVergiMuafiyeti" />
|
||||
<xsd:element name="VergiMuafiyeti" type="VergiMuafiyeti" />
|
||||
<xsd:element name="ArrayOfHavacilikYakitTuru" type="ArrayOfHavacilikYakitTuru" />
|
||||
<xsd:element name="HavacilikYakitTuru" type="HavacilikYakitTuru" />
|
||||
<xsd:element name="ArrayOfOdemeSekli" type="ArrayOfOdemeSekli" />
|
||||
<xsd:element name="OdemeSekli" type="OdemeSekli" />
|
||||
<xsd:element name="ArrayOfSoru_Cevap" type="ArrayOfSoru_Cevap" />
|
||||
<xsd:element name="Soru_Cevap" type="Soru_Cevap" />
|
||||
<xsd:element name="ArrayOfDokuman" type="ArrayOfDokuman" />
|
||||
<xsd:element name="Dokuman" type="Dokuman" />
|
||||
<xsd:element name="ArrayOfVergi" type="ArrayOfVergi" />
|
||||
<xsd:element name="Vergi" type="Vergi" />
|
||||
<xsd:element name="ArrayOfKiymet" type="ArrayOfKiymet" />
|
||||
<xsd:element name="Kiymet" type="Kiymet" />
|
||||
<xsd:element name="ArrayOfKiymetKalem" type="ArrayOfKiymetKalem" />
|
||||
<xsd:element name="KiymetKalem" type="KiymetKalem" />
|
||||
</xsd:schema>
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,321 @@
|
||||
<?xml version="1.0"?>
|
||||
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<xsd:complexType name="DeclarationInfo">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="declarationNo" type="xsd:string" />
|
||||
<xsd:element name="Procedure" type="xsd:string" />
|
||||
<xsd:element name="customs" type="xsd:string" />
|
||||
<xsd:element name="simplifiedProcedure" type="xsd:string" />
|
||||
<xsd:element name="loadingList" type="xsd:int" />
|
||||
<xsd:element name="totalPackageQuantity" type="xsd:int" />
|
||||
<xsd:element name="tradeCountry" type="xsd:string" />
|
||||
<xsd:element name="referenceNo" type="xsd:string" />
|
||||
<xsd:element name="associationRegistrationNo" type="xsd:string" />
|
||||
<xsd:element name="associationCryptoNo" type="xsd:string" />
|
||||
<xsd:element name="countryOfExit" type="xsd:string" />
|
||||
<xsd:element name="countryOfDestination" type="xsd:string" />
|
||||
<xsd:element name="countryOfFirstDestination" type="xsd:string" />
|
||||
<xsd:element name="exitVehicleType" type="xsd:string" />
|
||||
<xsd:element name="exitVehicleIdentity" type="xsd:string" />
|
||||
<xsd:element name="exitVehicleCountry" type="xsd:string" />
|
||||
<xsd:element name="deliveryTerms" type="xsd:string" />
|
||||
<xsd:element name="deliveryPlace" type="xsd:string" />
|
||||
<xsd:element name="Container" type="xsd:string" />
|
||||
<xsd:element name="borderVehicleType" type="xsd:string" />
|
||||
<xsd:element name="borderVehicleIdentity" type="xsd:string" />
|
||||
<xsd:element name="borderVehicleCountry" type="xsd:string" />
|
||||
<xsd:element name="totalPayableAmountCurrency" type="xsd:string" />
|
||||
<xsd:element name="totalFreightAmountCurrency" type="xsd:string" />
|
||||
<xsd:element name="borderTransportMeans" type="xsd:string" />
|
||||
<xsd:element name="partyRelationshipCode" type="xsd:string" />
|
||||
<xsd:element name="totalInsuranceCurrency" type="xsd:string" />
|
||||
<xsd:element name="transportHandlingPlace" type="xsd:string" />
|
||||
<xsd:element name="totalForeignExpenditureCurrency" type="xsd:string" />
|
||||
<xsd:element name="bankCode" type="xsd:string" />
|
||||
<xsd:element name="itemLocation" type="xsd:string" />
|
||||
<xsd:element name="destinationCustomsOffice" type="xsd:string" />
|
||||
<xsd:element name="warehouseCode" type="xsd:string" />
|
||||
<xsd:element name="plannedRoute" type="xsd:string" />
|
||||
<xsd:element name="exitCustomsOffice" type="xsd:string" />
|
||||
<xsd:element name="transactionNature" type="xsd:string" />
|
||||
<xsd:element name="remarks" type="xsd:string" />
|
||||
<xsd:element name="userCode" type="xsd:string" />
|
||||
<xsd:element name="referenceDate" type="xsd:string" />
|
||||
<xsd:element name="payment" type="xsd:string" />
|
||||
<xsd:element name="paymentMeans" type="xsd:string" />
|
||||
<xsd:element name="customsBrokerReference" type="xsd:string" />
|
||||
<xsd:element name="consignorTaxNo" type="xsd:string" />
|
||||
<xsd:element name="consigneeTaxNo" type="xsd:string" />
|
||||
<xsd:element name="declarantTaxNo" type="xsd:string" />
|
||||
<xsd:element name="financialResponsibleTaxNo" type="xsd:string" />
|
||||
<xsd:element name="personelResponsibleTaxNo" type="xsd:string" />
|
||||
<xsd:element name="partyInfo" type="ArrayOfParty" />
|
||||
<xsd:element name="guarantee" type="ArrayOfGuarantee" />
|
||||
<xsd:element name="summaryDeclarations" type="ArrayOfSummaryDeclaration" />
|
||||
<xsd:element name="items" type="ArrayOfItem" />
|
||||
<xsd:element name="questions" type="ArrayOfQuestion" />
|
||||
<xsd:element name="documents" type="ArrayOfDocument" />
|
||||
<xsd:element name="duties" type="ArrayOfDuty" />
|
||||
<xsd:element name="valueDeclaration" type="ArrayOfValue" />
|
||||
<xsd:element name="electronicMail1" type="xsd:string" />
|
||||
<xsd:element name="electronicMail2" type="xsd:string" />
|
||||
<xsd:element name="electronicMail3" type="xsd:string" />
|
||||
<xsd:element name="mobile1" type="xsd:string" />
|
||||
<xsd:element name="mobile2" type="xsd:string" />
|
||||
<xsd:element name="overTimeID" type="xsd:string" />
|
||||
<xsd:element name="portCode" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="party">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="partyType" type="xsd:string" />
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
<xsd:element name="postalCode" type="xsd:string" />
|
||||
<xsd:element name="identificationType" type="xsd:string" />
|
||||
<xsd:element name="telefax" type="xsd:string" />
|
||||
<xsd:element name="no" type="xsd:string" />
|
||||
<xsd:element name="nameTitle" type="xsd:string" />
|
||||
<xsd:element name="streetName" type="xsd:string" />
|
||||
<xsd:element name="telephone" type="xsd:string" />
|
||||
<xsd:element name="cityAndCitySubdivisionName" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Guarantee">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="guaranteeType" type="xsd:string" />
|
||||
<xsd:element name="globalGuaranteeNo" type="xsd:string" />
|
||||
<xsd:element name="explanation" type="xsd:string" />
|
||||
<xsd:element name="otherAmountReference" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="SummaryDeclaration">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="transportBills" type="ArrayOfTransportBills" />
|
||||
<xsd:element name="summaryDeclarationNo" type="xsd:string" />
|
||||
<xsd:element name="summaryDeclarationJobScope" type="xsd:string" />
|
||||
<xsd:element name="innerWhareHouse" type="xsd:string" />
|
||||
<xsd:element name="otherRegime" type="xsd:string" />
|
||||
<xsd:element name="explanation" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="transportBills">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="transportIBillNo" type="xsd:string" />
|
||||
<xsd:element name="transportItems" type="ArrayOfTransportItems" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="transportItems">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="transportItemNo" type="xsd:string" />
|
||||
<xsd:element name="wharehouseKod" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="item">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="supplementaryInfo" type="ArrayOfComlementary" />
|
||||
<xsd:element name="tcgbOpenCloses" type="ArrayOfTcgbOpenClose" />
|
||||
<xsd:element name="tradeMarkInfo" type="ArrayOfTradeMark" />
|
||||
<xsd:element name="containers" type="ArrayOfContainer" />
|
||||
<xsd:element name="dutyExemptions" type="ArrayOfDutyExemption" />
|
||||
<xsd:element name="aviationFuelTypes" type="ArrayOfAviationFuelType" />
|
||||
<xsd:element name="paymentMeans" type="ArrayOfPaymentMeans" />
|
||||
<xsd:element name="HSCode" type="xsd:string" />
|
||||
<xsd:element name="producer" type="xsd:string" />
|
||||
<xsd:element name="itemLineNo" type="xsd:int" />
|
||||
<xsd:element name="originCountry" type="xsd:string" />
|
||||
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
|
||||
<xsd:element name="internationalTreaty" type="xsd:string" />
|
||||
<xsd:element name="detectionUnit1" type="xsd:string" />
|
||||
<xsd:element name="detectionUnit2" type="xsd:string" />
|
||||
<xsd:element name="exemptions1" type="xsd:string" />
|
||||
<xsd:element name="exemptions2" type="xsd:string" />
|
||||
<xsd:element name="exemptions3" type="xsd:string" />
|
||||
<xsd:element name="exemptions4" type="xsd:string" />
|
||||
<xsd:element name="exemptions5" type="xsd:string" />
|
||||
<xsd:element name="detectionUnit3" type="xsd:string" />
|
||||
<xsd:element name="deliveryTerms" type="xsd:string" />
|
||||
<xsd:element name="additionalCode" type="xsd:string" />
|
||||
<xsd:element name="specification" type="xsd:string" />
|
||||
<xsd:element name="invoiceAmountCurrency" type="xsd:string" />
|
||||
<xsd:element name="freightAmountCurrency" type="xsd:string" />
|
||||
<xsd:element name="insuranceAmountCurrency" type="xsd:string" />
|
||||
<xsd:element name="tariffDefinition" type="xsd:string" />
|
||||
<xsd:element name="itemDescription" type="xsd:string" />
|
||||
<xsd:element name="brandName" type="xsd:string" />
|
||||
<xsd:element name="itemNo" type="xsd:string" />
|
||||
<xsd:element name="packagingType" type="xsd:string" />
|
||||
<xsd:element name="itemUnitOfMeasure" type="xsd:string" />
|
||||
<xsd:element name="returnToOrigin" type="xsd:string" />
|
||||
<xsd:element name="secondaryProcess" type="xsd:string" />
|
||||
<xsd:element name="lineNumber" type="xsd:string" />
|
||||
<xsd:element name="vatRate" type="xsd:string" />
|
||||
<xsd:element name="usedGoods" type="xsd:string" />
|
||||
<xsd:element name="description44" type="xsd:string" />
|
||||
<xsd:element name="producerTaxNo" type="xsd:string" />
|
||||
<xsd:element name="domesticOtherExplanation" type="xsd:string" />
|
||||
<xsd:element name="exemptionExplanation" type="xsd:string" />
|
||||
<xsd:element name="referenceDate" type="xsd:string" />
|
||||
<xsd:element name="foreignComissionCurrency" type="xsd:string" />
|
||||
<xsd:element name="foreignDemurrageCurrency" type="xsd:string" />
|
||||
<xsd:element name="foreignRoyaltyCurrency" type="xsd:string" />
|
||||
<xsd:element name="foreignInterestCurrency" type="xsd:string" />
|
||||
<xsd:element name="foreignOtherCurrency" type="xsd:string" />
|
||||
<xsd:element name="foreignOtherExplanation" type="xsd:string" />
|
||||
<xsd:element name="itemProcessType" type="xsd:string" />
|
||||
<xsd:element name="reasonForEntryOrExit" type="xsd:string" />
|
||||
<xsd:element name="reasonForEntryOrExitExplanation" type="xsd:string" />
|
||||
<xsd:element name="stmProvinceCode" type="xsd:string" />
|
||||
<xsd:element name="itemReturnReason" type="xsd:string" />
|
||||
<xsd:element name="itemReturnReasonExplanation" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Comlementary">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="supplementaryInfo" type="xsd:string" />
|
||||
<xsd:element name="statisticalQuantityUnit" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="TcgbOpenClose">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="closedDeclarationNo" type="xsd:string" />
|
||||
<xsd:element name="closedItemNo" type="xsd:int" />
|
||||
<xsd:element name="description" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="TradeMark">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="tradeMarkType" type="xsd:string" />
|
||||
<xsd:element name="tradeMarkRegistrationNo" type="xsd:string" />
|
||||
<xsd:element name="tradeMarkName" type="xsd:string" />
|
||||
<xsd:element name="referanceNo" type="xsd:string" />
|
||||
<xsd:element name="modelYear" type="xsd:string" />
|
||||
<xsd:element name="model" type="xsd:string" />
|
||||
<xsd:element name="engineVolume" type="xsd:string" />
|
||||
<xsd:element name="engineCylinderQuantity" type="xsd:int" />
|
||||
<xsd:element name="color" type="xsd:string" />
|
||||
<xsd:element name="engineType" type="xsd:string" />
|
||||
<xsd:element name="engineNo" type="xsd:string" />
|
||||
<xsd:element name="horsePower" type="xsd:int" />
|
||||
<xsd:element name="gear" type="xsd:string" />
|
||||
<xsd:element name="IMEINo" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Container">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="containerNo" type="xsd:string" />
|
||||
<xsd:element name="countryCode" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="DutyExemption">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="dutyExemptionCode" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="AviationFuelType">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="taxNo" type="xsd:string" />
|
||||
<xsd:element name="invoiceDate" type="xsd:string" />
|
||||
<xsd:element name="invoiceNumber" type="xsd:string" />
|
||||
<xsd:element name="totalInvoiceAmount" type="xsd:string" />
|
||||
<xsd:element name="fuelType" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="PaymentMeans">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="paymentMeansCode" type="xsd:string" />
|
||||
<xsd:element name="TBFID" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Question">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="itemNo" type="xsd:int" />
|
||||
<xsd:element name="questionNo" type="xsd:string" />
|
||||
<xsd:element name="answer" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Document">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="itemNo" type="xsd:int" />
|
||||
<xsd:element name="code" type="xsd:string" />
|
||||
<xsd:element name="verification" type="xsd:string" />
|
||||
<xsd:element name="documentDate" type="xsd:string" />
|
||||
<xsd:element name="reference" type="xsd:string" />
|
||||
<xsd:element name="visaDate" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Duty">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="itemNo" type="xsd:int" />
|
||||
<xsd:element name="code" type="xsd:string" />
|
||||
<xsd:element name="explanation" type="xsd:string" />
|
||||
<xsd:element name="dutyRate" type="xsd:string" />
|
||||
<xsd:element name="paymentMeans" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="Value">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="deliveryTerms" type="xsd:string" />
|
||||
<xsd:element name="invoiceDateNo" type="xsd:string" />
|
||||
<xsd:element name="contractDateNo" type="xsd:string" />
|
||||
<xsd:element name="customsOfficeNo" type="xsd:string" />
|
||||
<xsd:element name="buyerSeller" type="xsd:string" />
|
||||
<xsd:element name="relation" type="xsd:string" />
|
||||
<xsd:element name="imputed" type="xsd:string" />
|
||||
<xsd:element name="buyerSellerDetails" type="xsd:string" />
|
||||
<xsd:element name="constraints" type="xsd:string" />
|
||||
<xsd:element name="deed" type="xsd:string" />
|
||||
<xsd:element name="constraintDetails" type="xsd:string" />
|
||||
<xsd:element name="royalty" type="xsd:string" />
|
||||
<xsd:element name="royaltyConditions" type="xsd:string" />
|
||||
<xsd:element name="sellerPass" type="xsd:string" />
|
||||
<xsd:element name="sellerPassConditions" type="xsd:string" />
|
||||
<xsd:element name="cityLocation" type="xsd:string" />
|
||||
<xsd:element name="recognisance" type="xsd:string" />
|
||||
<xsd:element name="ValueItems" type="ArrayOfValueItem" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:complexType name="ValueItem">
|
||||
<xsd:sequence>
|
||||
<xsd:element name="valueItemNumber" type="xsd:int" />
|
||||
<xsd:element name="declarationItemNumber" type="xsd:int" />
|
||||
<xsd:element name="otherPaymentKind" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
<xsd:element name="DeclarationInfo" type="DeclarationInfo" />
|
||||
<xsd:element name="ArrayOfParty" type="ArrayOfParty" />
|
||||
<xsd:element name="party" type="party" />
|
||||
<xsd:element name="ArrayOfGuarantee" type="ArrayOfGuarantee" />
|
||||
<xsd:element name="Guarantee" type="Guarantee" />
|
||||
<xsd:element name="ArrayOfSummaryDeclaration" type="ArrayOfSummaryDeclaration" />
|
||||
<xsd:element name="SummaryDeclaration" type="SummaryDeclaration" />
|
||||
<xsd:element name="ArrayOfTransportBills" type="ArrayOfTransportBills" />
|
||||
<xsd:element name="transportBills" type="transportBills" />
|
||||
<xsd:element name="ArrayOfTransportItems" type="ArrayOfTransportItems" />
|
||||
<xsd:element name="transportItems" type="transportItems" />
|
||||
<xsd:element name="ArrayOfItem" type="ArrayOfItem" />
|
||||
<xsd:element name="Item" type="item" />
|
||||
<xsd:element name="ArrayOfComlementary" type="ArrayOfComlementary" />
|
||||
<xsd:element name="Comlementary" type="Comlementary" />
|
||||
<xsd:element name="ArrayOfTcgbOpenClose" type="ArrayOfTcgbOpenClose" />
|
||||
<xsd:element name="TcgbOpenClose" type="TcgbOpenClose" />
|
||||
<xsd:element name="ArrayOfTradeMark" type="ArrayOfTradeMark" />
|
||||
<xsd:element name="TradeMark" type="TradeMark" />
|
||||
<xsd:element name="ArrayOfContainer" type="ArrayOfContainer" />
|
||||
<xsd:element name="Container" type="Container" />
|
||||
<xsd:element name="ArrayOfDutyExemption" type="ArrayOfDutyExemption" />
|
||||
<xsd:element name="DutyExemption" type="DutyExemption" />
|
||||
<xsd:element name="ArrayOfAviationFuelType" type="ArrayOfAviationFuelType" />
|
||||
<xsd:element name="AviationFuelType" type="AviationFuelType" />
|
||||
<xsd:element name="ArrayOfPaymentMeans" type="ArrayOfPaymentMeans" />
|
||||
<xsd:element name="PaymentMeans" type="PaymentMeans" />
|
||||
<xsd:element name="ArrayOfQuestion" type="ArrayOfQuestion" />
|
||||
<xsd:element name="Question" type="Question" />
|
||||
<xsd:element name="ArrayOfDocument" type="ArrayOfDocument" />
|
||||
<xsd:element name="Document" type="Document" />
|
||||
<xsd:element name="ArrayOfDuty" type="ArrayOfDuty" />
|
||||
<xsd:element name="Duty" type="Duty" />
|
||||
<xsd:element name="ArrayOfValue" type="ArrayOfValue" />
|
||||
<xsd:element name="Value" type="Value" />
|
||||
<xsd:element name="ArrayOfValueItem" type="ArrayOfValueItem" />
|
||||
<xsd:element name="ValueItem" type="ValueItem" />
|
||||
</xsd:schema>
|
||||
@@ -0,0 +1,387 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
|
||||
Public Class cVERAG_in_TRAviso
|
||||
|
||||
Public Property Company As String
|
||||
Public Property Department As String
|
||||
Public Property PartnerTID As String
|
||||
Public Property Reference As String
|
||||
|
||||
Public Property TotPackage As Integer = 0
|
||||
Public Property TotGrossWeight As Object = Nothing
|
||||
Public Property TransportModeBorder As Object = Nothing
|
||||
Public Property TransportLicensePlate As String = ""
|
||||
Public Property TransportCountryCode As String = ""
|
||||
Public Property TransportBorderType As Object = Nothing
|
||||
Public Property FreightCompany As Object = Nothing
|
||||
Public Property FreightCompanyID As Object = Nothing
|
||||
Public Property Info As String = ""
|
||||
|
||||
Public Property POSITIONS As New List(Of cVERAG_in_TRAviso_shipments)
|
||||
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_TRAviso_Adressen
|
||||
Public Property AddressCode As String = "" ' VARCHAR (10) NULL,
|
||||
Public Property CustomerID As String = "" ' VARCHAR (10) NULL,
|
||||
Public Property EORI As String = "" ' VARCHAR (17) NULL,
|
||||
Public Property NLNR As String = "" ' DECIMAL (4) NULL,
|
||||
Public Property Name1 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Name2 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Name3 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Street1 As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property Street2 As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property City As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property CountryCode As String = "" ' VARCHAR (3) NULL,
|
||||
Public Property PostalCode As String = "" ' VARCHAR (9) NULL,
|
||||
Public Property UStID As String = "" ' VARCHAR (14) NULL,
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cVERAG_in_TRAviso_shipments
|
||||
Public Property Nr As Integer = 1
|
||||
Public Property Reference As Object = Nothing
|
||||
|
||||
Public Property DeclarationCountry As String = ""
|
||||
Public Property DeclarationType As String = ""
|
||||
Public Property CustomsCodeDeparture As String = ""
|
||||
Public Property CustomsCodeDestination As String = ""
|
||||
Public Property CountryCodeDeparture As String = ""
|
||||
Public Property CountryCodeDestination As String = ""
|
||||
Public Property DEStateCodeDestination As String = ""
|
||||
Public Property OriginCountryCode As String = ""
|
||||
Public Property GrossWeight As Object = Nothing
|
||||
Public Property NetWeight As Object = Nothing
|
||||
Public Property NumberOfPackages As Integer = 0
|
||||
Public Property KindOfPackages As String = ""
|
||||
Public Property Incoterm As String = ""
|
||||
Public Property PrePaperCode As String = ""
|
||||
Public Property PrePaperNr As String = ""
|
||||
Public Property InvoiceAmount As Object = Nothing
|
||||
Public Property InvoiceCurrency As String = ""
|
||||
Public Property ContainerNr1 As String = ""
|
||||
Public Property ContainerNr2 As String = ""
|
||||
Public Property ContainerNr3 As String = ""
|
||||
Public Property ContainerNr4 As String = ""
|
||||
Public Property GoodsDescription As String = ""
|
||||
Public Property Info As String = ""
|
||||
|
||||
Public Property DOCUMENTS As New List(Of cVERAG_in_TRAviso_document)
|
||||
Public Property ADDRESS As New List(Of cVERAG_in_TRAviso_Adressen)
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_TRAviso_document
|
||||
Public Property DocumentType As String = ""
|
||||
Public Property DocumentNr As String = ""
|
||||
Public Property DocumentDate As Date = CDate("01.01.1800")
|
||||
Public Property base64BinaryStream As String = ""
|
||||
Public Property FileName As String = ""
|
||||
|
||||
'Shared Function SAVE_toDS() As Integer
|
||||
|
||||
' Return -1
|
||||
'End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cVERAG_in_TRAvisoFULL
|
||||
|
||||
Property trAv_Id As Integer
|
||||
Property trAv_PartnerSystem As Object = Nothing ' VARCHAR(50) Not NULL,
|
||||
Property trAv_datetime As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
|
||||
Property trAv_Firma As Object = Nothing ' VARCHAR(50) Not NULL,
|
||||
Property trAv_Niederlassung As Object = Nothing ' VARCHAR(50) Not NULL,
|
||||
Property trAv_Reference As Object = Nothing ' VARCHAR(500) Not NULL,
|
||||
Property trAv_Kennzeichen As Object = Nothing ' VARCHAR(50) NULL,
|
||||
Property trAv_Nationalitaet As Object = Nothing ' VARCHAR(50) NULL,
|
||||
Property trAv_Avisierer As Object = Nothing ' VARCHAR(200) NULL,
|
||||
Property trAv_AvisiererKdNr As Object = Nothing ' INT NULL,
|
||||
Property trAv_Fraechter As Object = Nothing ' VARCHAR(200) NULL,
|
||||
Property trAv_FraechterKdNr As Object = Nothing ' INT NULL,
|
||||
Property trAv_Grenzueberschreitung As Object = Nothing ' INT NULL,
|
||||
Property trAv_Transportmittel As Object = Nothing ' INT NULL,
|
||||
Property trAv_colli As Object = Nothing ' FLOAT(53) NULL,
|
||||
Property trAv_gewicht As Object = Nothing ' FLOAT(53) NULL,
|
||||
Property trAv_VoraussichtlichesEintreffen As Object = Nothing ' Date NULL,
|
||||
Property trAv_Info As Object = Nothing ' VARCHAR(max) NULL,
|
||||
Property trAv_AVISO_einarbeitet As Boolean = False ' VARCHAR(max) NULL,
|
||||
|
||||
|
||||
Property ANHAENGE As New List(Of cVERAG_in_TRAvisoAnhaenge)
|
||||
'Property SHIPMENTS As New List(Of cVERAG_in_shippment)
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(trAv_Id)
|
||||
Me.trAv_Id = trAv_Id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Id", trAv_Id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_PartnerSystem", trAv_PartnerSystem)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_datetime", trAv_datetime)) ' DATETIME Default (getdate()) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Firma", trAv_Firma)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Niederlassung", trAv_Niederlassung)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Reference", trAv_Reference)) ' VARCHAR(500) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Kennzeichen", trAv_Kennzeichen)) ' VARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Nationalitaet", trAv_Nationalitaet)) ' VARCHAR(50) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Avisierer", trAv_Avisierer)) ' VARCHAR(200) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AvisiererKdNr", trAv_AvisiererKdNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Fraechter", trAv_Fraechter)) ' VARCHAR(200) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_FraechterKdNr", trAv_FraechterKdNr)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Grenzueberschreitung", trAv_Grenzueberschreitung)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Transportmittel", trAv_Transportmittel)) ' INT NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_colli", trAv_colli)) ' FLOAT(53) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_gewicht", trAv_gewicht)) ' FLOAT(53) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_VoraussichtlichesEintreffen", trAv_VoraussichtlichesEintreffen)) ' Date NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info)) ' VARCHAR(max) NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_AVISO_einarbeitet", trAv_AVISO_einarbeitet)) ' VARCHAR(max) NULL,
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll = True) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Aviso WITH(updlock,serializable) WHERE trAv_Id=@trAv_Id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
trAv_Id = SQL.doSQLVarListID(trAv_Id, sqlstr, "FMZOLL", , list)
|
||||
If trAv_Id > 0 And saveAll Then
|
||||
SAVE_Anhaenge()
|
||||
' SAVE_Sicherheit()
|
||||
End If
|
||||
Return trAv_Id > 0
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(Optional loadALL = True)
|
||||
Try
|
||||
If loadALL Then
|
||||
ANHAENGE.Clear()
|
||||
End If
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_Aviso WHERE trAv_Id=@trAv_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@trAv_Id", trAv_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
LOAD_Anhaenge()
|
||||
End If
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTR_Aviso] SET " & str & " WHERE trAv_Id=@trAv_Id ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTR_Aviso (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
|
||||
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
||||
s = s.Replace("TRY", "TRL") ' Türkische Lira
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_Anhaenge()
|
||||
Try
|
||||
ANHAENGE.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_AvisoAnheange WHERE trAvAh_trAvId=@trAv_Id ", conn)
|
||||
cmd.Parameters.AddWithValue("@trAv_Id", Me.trAv_Id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_TRAvisoAnhaenge
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
'l.LOAD_Packstücke()
|
||||
ANHAENGE.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Function DELETE_Anhaenge() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_AvisoAnheange] WHERE trAvAh_trAvId =" & Me.trAv_Id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_Anhaenge() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Anhaenge() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each p In ANHAENGE
|
||||
p.trAvAh_trAvId = trAv_Id
|
||||
If p.INSERT() Then
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_TRAvisoAnhaenge
|
||||
|
||||
Property trAvAh_id As Integer
|
||||
Property trAvAh_trAvId As Integer
|
||||
Property DocumentType As String = ""
|
||||
Property DocumentNr As String = ""
|
||||
Property DocumentDate As Date = CDate("01.01.1800")
|
||||
Property trAvAh_docID As Integer
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_id", trAvAh_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_trAvId", trAvAh_trAvId)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DocumentType)) ' DATETIME Default (getdate()) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DocumentNr)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DocumentDate)) ' VARCHAR(50) Not NULL,
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAvAh_docID", trAvAh_docID)) ' VARCHAR(500) Not NULL,
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
trAvAh_id = SQL.doSQLVarListID(trAvAh_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return trAvAh_id > 0
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTR_AvisoAnheange (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,864 @@
|
||||
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
'Public Class cVERAG_in_eza_position_FULL
|
||||
' Inherits cVERAG_in_eza_position
|
||||
|
||||
' Property shTrPos_id As Integer = ""
|
||||
' Property shTrPos_ShTrId As String = ""
|
||||
|
||||
|
||||
' Sub New()
|
||||
|
||||
' End Sub
|
||||
|
||||
' Dim SQL As New SQL
|
||||
'End Class
|
||||
|
||||
Public Class cVERAG_in_eza_FULL
|
||||
' Inherits cVERAG_in_eza
|
||||
|
||||
Public EZA As cVERAG_in_eza = Nothing
|
||||
|
||||
Property shTr_id As Integer
|
||||
Property shTr_Partnersystem As String = ""
|
||||
Property trAv_Info As String = ""
|
||||
|
||||
|
||||
|
||||
Property shTr_Status As String = ""
|
||||
Public Property shTr_TRAvisoId As Object = Nothing
|
||||
|
||||
|
||||
Sub New(EZA As cVERAG_in_eza)
|
||||
setEZA(EZA)
|
||||
End Sub
|
||||
|
||||
Public Sub setEZA(EZA As cVERAG_in_eza)
|
||||
Me.EZA = EZA
|
||||
End Sub
|
||||
Sub New(shTr_id As Integer)
|
||||
Me.shTr_id = shTr_id
|
||||
Me.EZA = New cVERAG_in_eza
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_TRAvisoId", shTr_TRAvisoId,,,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("trAv_Info", trAv_Info,,,, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Company", EZA.Company))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Department", EZA.Department))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Reference", EZA.Reference))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationCountry", EZA.DeclarationCountry))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DeclarationType", EZA.DeclarationType))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotPackage", EZA.TotPackage))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TotGrossWeight", EZA.TotGrossWeight))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDeparture", EZA.CustomsCodeDeparture))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeDestination", EZA.CustomsCodeDestination))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomsCodeEntry", EZA.CustomsCodeEntry))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportModeBorder", EZA.TransportModeBorder))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDeparture", EZA.CountryCodeDeparture))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCodeDestination", EZA.CountryCodeDestination))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DEStateCodeDestination", EZA.DEStateCodeDestination))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalLicensePlate", EZA.TransportArrivalLicensePlate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportArrivalCountryCode", EZA.TransportArrivalCountryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderType", EZA.TransportBorderType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TransportBorderLicensePlate", EZA.TransportBorderLicensePlate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Incoterm", EZA.Incoterm))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperCode", EZA.PrePaperCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PrePaperNr", EZA.PrePaperNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfBusiness", EZA.KindOfBusiness))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceAmount", EZA.InvoiceAmount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("InvoiceCurrency", EZA.InvoiceCurrency))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr1", EZA.ContainerNr1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr2", EZA.ContainerNr2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr3", EZA.ContainerNr3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContainerNr4", EZA.ContainerNr4))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsEU", EZA.FreightCostsEU))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FreightCostsNonEU", EZA.FreightCostsNonEU))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Function getParameterList_POS(POS As cVERAG_in_eza_position) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PosNr", POS.PosNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariff", POS.GoodsTariff))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt1", POS.GoodsTariffExt1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt2", POS.GoodsTariffExt2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt3", POS.GoodsTariffExt3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt4", POS.GoodsTariffExt4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt5", POS.GoodsTariffExt5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt6", POS.GoodsTariffExt6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt7", POS.GoodsTariffExt7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt8", POS.GoodsTariffExt8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffExt9", POS.GoodsTariffExt9))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode1", POS.GoodsTariffYCode1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode2", POS.GoodsTariffYCode2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode3", POS.GoodsTariffYCode3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode4", POS.GoodsTariffYCode4))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode5", POS.GoodsTariffYCode5))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode6", POS.GoodsTariffYCode6))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode7", POS.GoodsTariffYCode7))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode8", POS.GoodsTariffYCode8))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode9", POS.GoodsTariffYCode9))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsTariffYCode10", POS.GoodsTariffYCode10))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GoodsDescription", POS.GoodsDescription))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OriginCountryCode", POS.OriginCountryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("GrossWeight", POS.GrossWeight))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NetWeight", POS.NetWeight))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NumberOfPackages", POS.NumberOfPackages))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("KindOfPackages", POS.KindOfPackages))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceAmount", POS.ItemInvoiceAmount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemInvoiceCurrency", POS.ItemInvoiceCurrency))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmount", POS.ItemAmount))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ItemAmountUnitCode", POS.ItemAmountUnitCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Procedure", POS.Procedure))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_ShTrId", Me.shTr_id,,,, True))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Function getParameterList_DOC(DOC As cVERAG_in_shipment_Document) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_id", Me.shTr_id,,,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrDoc_ShTrId", Me.shTr_id))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_docID", DOC.shTrPosDoc_docID))
|
||||
|
||||
Return list
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Function getParameterList_ADR(ADR As cVERAG_in_eza_Adressen) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPos_id", POS.GoodsTariff, , True, True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AdressType", ADR.AdressType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AddressCode", ADR.AddressCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CustomerID", ADR.CustomerID))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EORI", ADR.EORI))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("NLNR", ADR.NLNR))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name1", ADR.Name1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name2", ADR.Name2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Name3", ADR.Name3))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street1", ADR.Street1))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Street2", ADR.Street2))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("City", ADR.City))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CountryCode", ADR.CountryCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PostalCode", ADR.PostalCode))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("TaxNo", ADR.TaxNo))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ContactPerson", ADR.ContactPerson))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telefon", ADR.Telefon))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Email", ADR.Email))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrAd_ShTrId", Me.shTr_id,,,, True))
|
||||
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Function getParameterList_DOC(DOC As cVERAG_in_eza_position_document, ByRef shTrPosDoc_ShTrPosId As Integer) As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_id", POS.GoodsTariff, , True, True))
|
||||
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentType", DOC.DocumentType))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentNr", DOC.DocumentNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DocumentDate", DOC.DocumentDate))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrId", Me.shTr_id,,,, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTrPosDoc_ShTrPosId", shTrPosDoc_ShTrPosId,,,, True))
|
||||
Return list
|
||||
|
||||
End Function
|
||||
Public Function UPDATE_STATUS(status) As Boolean
|
||||
Me.shTr_Status = status
|
||||
Return Me.SAVE
|
||||
End Function
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock, serializable) WHERE shTr_id=@shTr_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
shTr_id = SQL.doSQLVarListID(shTr_id, sqlstr, "FMZOLL", , list)
|
||||
Return shTr_id > 0
|
||||
End Function
|
||||
|
||||
Public Function SAVE_ALL() As Boolean
|
||||
If EZA Is Nothing Then Return False
|
||||
If Not SAVE() Then Return False
|
||||
If Not SAVE_Warenposition() Then Return False
|
||||
If Not SAVE_Documents() Then Return False
|
||||
If Not SAVE_Adressen() Then Return False
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function LOAD(Optional loadALL As Boolean = True) As Boolean
|
||||
Try
|
||||
LOAD = False
|
||||
If loadALL Then
|
||||
'shTr_Unterlagen.Clear()
|
||||
EZA.POSITIONS.Clear()
|
||||
|
||||
EZA.ADDRESS.Clear()
|
||||
|
||||
End If
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("Select * FROM tblTR_Shipment WHERE shTr_id=@shTr_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@shTr_id", shTr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
If Not li.isonlyForSave Then
|
||||
|
||||
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(EZA, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(EZA, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True, True, True))
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Partnersystem", shTr_Partnersystem,,,, True))
|
||||
'List.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", shTr_Status,,,, True))
|
||||
End If
|
||||
Next
|
||||
If loadALL Then
|
||||
LOAD_Warenposition()
|
||||
LOAD_Adressen()
|
||||
End If
|
||||
LOAD = True
|
||||
End If
|
||||
dr.Close()
|
||||
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return LOAD
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function LOADByReference(Reference As String, Partnersystem As String, loadALL As Boolean) As cVERAG_in_eza_FULL
|
||||
Try
|
||||
Dim EZA As New cVERAG_in_eza
|
||||
|
||||
Dim EZA_FULL = New cVERAG_in_eza_FULL(EZA)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblTR_Shipment WHERE shTr_Partnersystem=@Partnersystem and Reference=@Reference ", conn)
|
||||
cmd.Parameters.AddWithValue("@Partnersystem", Partnersystem)
|
||||
cmd.Parameters.AddWithValue("@Reference", Reference)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In EZA_FULL.getParameterList()
|
||||
Dim propInfo As PropertyInfo = EZA.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(EZA, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(EZA, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
EZA_FULL.LOAD_Warenposition()
|
||||
EZA_FULL.LOAD_Adressen()
|
||||
End If
|
||||
|
||||
dr.Close()
|
||||
Return EZA_FULL
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return Nothing
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function UPDATE_StatusById(shTr_id As Integer, status As Integer) As String
|
||||
If shTr_id > 0 Then
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True))
|
||||
'dy_Status_KEWILL_Equivalent = status
|
||||
'dy_Status = status
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function UPDATE_Status(status As Integer) As String
|
||||
If shTr_id > 0 Then
|
||||
Try
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_id", shTr_id, , True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("shTr_Status", status, , True))
|
||||
shTr_Status = status
|
||||
|
||||
Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET shTr_Status=@shTr_Status WHERE shTr_id=@shTr_id ", "FMZOLL", , list)
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE shTr_id=@shTr_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTR_Shipment (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_Adressen()
|
||||
Try
|
||||
EZA.ADDRESS.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Adressen WHERE shTrAd_ShTrId=@shTrAd_ShTrId ", conn)
|
||||
cmd.Parameters.AddWithValue("@shTrAd_ShTrId", Me.shTr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_eza_Adressen
|
||||
For Each i In getParameterList_ADR(l)
|
||||
If Not i.isonlyForSave Then
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
EZA.ADDRESS.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_Warenposition()
|
||||
Try
|
||||
EZA.POSITIONS.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position WHERE shTrPos_ShTrId=@shTrPos_ShTrId ", conn)
|
||||
cmd.Parameters.AddWithValue("@shTrPos_ShTrId", Me.shTr_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_eza_position()
|
||||
For Each i In getParameterList_POS(l)
|
||||
If Not i.isonlyForSave Then
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
LOAD_WarenpositionUnterlagen(l, dr.Item("shTrPos_id"))
|
||||
EZA.POSITIONS.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub LOAD_WarenpositionUnterlagen(ByRef POS As cVERAG_in_eza_position, shTrPos_id As Integer)
|
||||
Try
|
||||
POS.DOCUMENTS.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Position_Document WHERE shTrPosDoc_ShTrPosId=@shTrPosDoc_ShTrPosId ", conn)
|
||||
cmd.Parameters.AddWithValue("@shTrPosDoc_ShTrPosId", shTrPos_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_eza_position_document
|
||||
For Each i In getParameterList_DOC(l, -1)
|
||||
If Not i.isonlyForSave Then
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Or dr.Item(i.Text) Is Nothing Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
POS.DOCUMENTS.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Function DELETE_Warenpositionen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position] WHERE shTrPos_ShTrId=" & Me.shTr_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE [shTrDoc_ShTrId]=" & Me.shTr_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Function DELETE_WarenpositionUnterlagen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Position_Document] WHERE shTrPosDoc_ShTrId =" & Me.shTr_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Function DELETE_Adressen() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Adressen] WHERE shTrAd_ShTrId =" & Me.shTr_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Adressen() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Adressen() Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
If EZA.ADDRESS IsNot Nothing Then
|
||||
For Each p In EZA.ADDRESS
|
||||
Dim posId As Integer
|
||||
If INSERT_Adressen(posId, p) Then
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_Warenposition() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Warenpositionen() And DELETE_WarenpositionUnterlagen() Then
|
||||
If EZA.POSITIONS IsNot Nothing Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each p In EZA.POSITIONS
|
||||
Dim posId As Integer
|
||||
If INSERT_Position(posId, p) Then
|
||||
SAVE_Warenposition_Documents(p, posId)
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Documents() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Documents() Then
|
||||
If EZA.POSITIONS IsNot Nothing Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each p In EZA.DOCUMENTS
|
||||
Dim posId As Integer
|
||||
If INSERT_Documents(posId, p) Then
|
||||
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_Warenposition_Documents(POS As cVERAG_in_eza_position, posId As Integer) As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
'jetzt die Standartofferten einfügen
|
||||
If POS.DOCUMENTS IsNot Nothing Then
|
||||
For Each p In POS.DOCUMENTS
|
||||
Dim posdocId As Integer
|
||||
|
||||
If INSERT_Position_Document(posdocId, p, posId) Then
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function INSERT_Adressen(ByRef posId As Integer, ByRef ADR As cVERAG_in_eza_Adressen) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_ADR(ADR)
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Adressen (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function INSERT_Position(ByRef posId As Integer, ByRef POS As cVERAG_in_eza_position) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_POS(POS)
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarListID(posId, (" INSERT INTO tblTR_Shipment_Position (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function INSERT_Documents(ByRef docId As Integer, ByRef DOC As cVERAG_in_shipment_Document) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC)
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return SQL.doSQLVarListID(docId, (" INSERT INTO tblTR_Shipment_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function INSERT_Position_Document(ByRef posdocId As Integer, ByRef DOC As cVERAG_in_eza_position_document, posId As Integer) As Boolean
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList_DOC(DOC, posId)
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test) Values('TT:: " & (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") ") & "')", "FMZOLL")
|
||||
|
||||
Return SQL.doSQLVarListID(posdocId, (" INSERT INTO tblTR_Shipment_Position_Document (" & str & ") VALUES(" & values & ") "), "FMZOLL", , list)
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
'<Serializable()>
|
||||
Public Class cVERAG_in_eza
|
||||
|
||||
Public Property Company As String
|
||||
Public Property Department As String
|
||||
Public Property Reference As String
|
||||
|
||||
Public Property DeclarationCountry As String = ""
|
||||
Public Property DeclarationType As String = ""
|
||||
|
||||
Public Property TotPackage As Integer = 0
|
||||
Public Property TotGrossWeight As Object = Nothing
|
||||
|
||||
Public Property CustomsCodeDeparture As String = "" ' GesRohmasse
|
||||
Public Property CustomsCodeDestination As String = "" ' GesRohmasse
|
||||
Public Property CustomsCodeEntry As String = ""
|
||||
Public Property TransportModeBorder As Object = Nothing
|
||||
|
||||
Public Property CountryCodeDeparture As String = ""
|
||||
Public Property CountryCodeDestination As String = ""
|
||||
Public Property DEStateCodeDestination As String = ""
|
||||
|
||||
Public Property TransportArrivalLicensePlate As String = ""
|
||||
Public Property TransportArrivalCountryCode As String = ""
|
||||
Public Property TransportBorderType As Object = Nothing
|
||||
Public Property TransportBorderLicensePlate As String = ""
|
||||
Public Property Incoterm As String = ""
|
||||
|
||||
Public Property PrePaperCode As String = ""
|
||||
Public Property PrePaperNr As String = ""
|
||||
Public Property KindOfBusiness As Object = Nothing
|
||||
Public Property InvoiceAmount As Object = Nothing
|
||||
Public Property InvoiceCurrency As String = ""
|
||||
|
||||
|
||||
Public Property ContainerNr1 As String = ""
|
||||
Public Property ContainerNr2 As String = ""
|
||||
Public Property ContainerNr3 As String = ""
|
||||
Public Property ContainerNr4 As String = ""
|
||||
|
||||
Public Property FreightCostsEU As Object = Nothing
|
||||
Public Property FreightCostsNonEU As Object = Nothing
|
||||
|
||||
|
||||
Public Property POSITIONS As New List(Of cVERAG_in_eza_position)
|
||||
Public Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
|
||||
|
||||
Public Property ADDRESS As New List(Of cVERAG_in_eza_Adressen)
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cVERAG_in_eza_Adressen
|
||||
Public Property AddressCode As String = "" ' VARCHAR (10) NULL,
|
||||
Public Property CustomerID As String = "" ' VARCHAR (10) NULL,
|
||||
Public Property EORI As String = "" ' VARCHAR (17) NULL,
|
||||
Public Property NLNR As String = "" ' DECIMAL (4) NULL,
|
||||
Public Property Name1 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Name2 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Name3 As String = "" ' VARCHAR (120) NULL,
|
||||
Public Property Street1 As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property Street2 As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property City As String = "" ' VARCHAR (35) NULL,
|
||||
Public Property CountryCode As String = "" ' VARCHAR (3) NULL,
|
||||
Public Property PostalCode As String = "" ' VARCHAR (9) NULL,
|
||||
Public Property UStID As String = "" 'NICHT MEHR --> TaxNo
|
||||
Public Property TaxNo As String = "" ' VARCHAR (14) NULL,
|
||||
Public Property ContactPerson As String = "" ' VARCHAR (14) NULL,
|
||||
Public Property Telefon As String = "" ' VARCHAR (14) NULL,
|
||||
Public Property Email As String = "" ' VARCHAR (14) NULL,
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_eza_position
|
||||
Public Property PosNr As Integer = 1
|
||||
Public Property GoodsTariff As Object = Nothing
|
||||
Public Property GoodsTariffExt1 As Object = Nothing
|
||||
Public Property GoodsTariffExt2 As Object = Nothing
|
||||
Public Property GoodsTariffExt3 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt4 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt5 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt6 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt7 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt8 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt9 As Object = Nothing 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffExt10 As String = "" 'NICHT MEHR!!!
|
||||
Public Property GoodsTariffYCode1 As String = ""
|
||||
Public Property GoodsTariffYCode2 As String = ""
|
||||
Public Property GoodsTariffYCode3 As String = ""
|
||||
Public Property GoodsTariffYCode4 As String = ""
|
||||
Public Property GoodsTariffYCode5 As String = ""
|
||||
Public Property GoodsTariffYCode6 As String = ""
|
||||
Public Property GoodsTariffYCode7 As String = ""
|
||||
Public Property GoodsTariffYCode8 As String = ""
|
||||
Public Property GoodsTariffYCode9 As String = ""
|
||||
Public Property GoodsTariffYCode10 As String = ""
|
||||
|
||||
|
||||
Public Property GoodsDescription As String = ""
|
||||
Public Property OriginCountryCode As String = ""
|
||||
Public Property GrossWeight As Object = Nothing
|
||||
Public Property NetWeight As Object = Nothing
|
||||
Public Property NumberOfPackages As Integer = 0
|
||||
Public Property KindOfPackages As String = ""
|
||||
Public Property ItemInvoiceAmount As Object = Nothing
|
||||
Public Property ItemInvoiceCurrency As String = ""
|
||||
Public Property ItemAmount As Object = Nothing
|
||||
Public Property ItemAmountUnitCode As String = ""
|
||||
Public Property Procedure As String = ""
|
||||
|
||||
Public Property DOCUMENTS As New List(Of cVERAG_in_eza_position_document)
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_eza_position_document
|
||||
Public Property DocumentType As String = ""
|
||||
Public Property DocumentNr As String = ""
|
||||
Public Property DocumentDate As Date = CDate("01.01.1800")
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_shipment_Document
|
||||
Property shTrDoc_id As Integer
|
||||
Property shTrDoc_ShTrId As Integer
|
||||
Property DocumentType As String = ""
|
||||
Property DocumentNr As String = ""
|
||||
Property DocumentDate As Date = CDate("01.01.1800")
|
||||
|
||||
Property shTrPosDoc_docID As Object = Nothing
|
||||
|
||||
|
||||
'Public Function INSERT() As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' 'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
' shTrDoc_id = SQL.doSQLVarListID(shTrDoc_id, getInsertCmd, "FMZOLL", , list)
|
||||
' Return shTrDoc_id > 0
|
||||
'End Function
|
||||
|
||||
'Public Function getInsertCmd() As String
|
||||
' Try
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' Dim str As String = ""
|
||||
' Dim values As String = ""
|
||||
' For Each i In list
|
||||
' If Not i.isPrimaryParam Then
|
||||
' str &= "[" & i.Text & "],"
|
||||
' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
' End If
|
||||
' Next
|
||||
' str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
' values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' Return (" INSERT INTO tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ")
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' End Try
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,638 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cVERAG_in_shippmentWHST '????????
|
||||
|
||||
Property in_sh_id As Object = Nothing ' INT Not NULL,
|
||||
Property in_sh_AvisoId As Object = Nothing ' INT NULL,
|
||||
Property in_sh_SendungsId As Object = Nothing ' INT NULL,
|
||||
Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
|
||||
Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL,
|
||||
Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL,
|
||||
|
||||
'Property MsgType As Object = Nothing ' VARCHAR(10) NULL,
|
||||
'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL,
|
||||
'Property dec_Anmelde_ID As Object = Nothing ' INT NULL,
|
||||
'Property dec_Template_ID As Object = Nothing ' INT NULL,
|
||||
'Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL,
|
||||
'Property dec_Lag_IND As Object = Nothing ' BIT NULL,
|
||||
'Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL,
|
||||
'Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL,
|
||||
'Property dec_PreDec_IND As Object = Nothing ' BIT NULL,
|
||||
'Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL,
|
||||
'Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL,
|
||||
'Property dec_FillPackList_IND As Object = Nothing ' BIT NULL,
|
||||
'Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL,
|
||||
'Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL,
|
||||
'Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL,
|
||||
'Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL,
|
||||
'Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL,
|
||||
'Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL,
|
||||
'Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL,
|
||||
Property Hea_DecTy As Object = Nothing ' Type --> T1, T2, EZA
|
||||
Property Hea_TotItem As Object = Nothing ' Pos gesamt
|
||||
Property Hea_TotPack As Object = Nothing ' Packstücke gesamt
|
||||
Property Hea_TotGross As Object = Nothing ' GesRohmasse
|
||||
'Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL,
|
||||
'Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL,
|
||||
'Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL,
|
||||
'Property Hea_DefPayRef As Object = Nothing ' INT NULL,
|
||||
'Property Hea_PerPayRef As Object = Nothing ' INT NULL,
|
||||
'Property Hea_PayMet As Object = Nothing ' INT NULL,
|
||||
'Property Hea_AExpRef As Object = Nothing ' BIT NULL,
|
||||
'Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
|
||||
'Property Hea_Simp As Object = Nothing ' BIT Not NULL,
|
||||
'Property Hea_IssD As Object = Nothing ' Date NULL,
|
||||
Property Hea_AuthID As Object = Nothing ' ? ATA
|
||||
Property Hea_Incoterm As Object = Nothing ' ? Lieferkondition
|
||||
'Property Hea_TransDat As Object = Nothing ' BIT NULL,
|
||||
'Property Hea_WoffD As Object = Nothing ' Date NULL,
|
||||
'Property Hea_DecDT As Object = Nothing ' Date Not NULL,
|
||||
'Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL,
|
||||
'Property Hea_AccDT As Object = Nothing ' DATETIME NULL,
|
||||
'Property Hea_SecInd As Object = Nothing ' BIT NULL,
|
||||
'Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL,
|
||||
'Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL,
|
||||
'Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL,
|
||||
'Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL,
|
||||
Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL,
|
||||
Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL,
|
||||
'Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL,
|
||||
'Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL,
|
||||
'Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL,
|
||||
'Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL,
|
||||
'Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL,
|
||||
'Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL,
|
||||
'Property Locs_War As Object = Nothing ' VARCHAR(17) NULL,
|
||||
Property Transp_InMo As Object = Nothing ' Transportmittel INland
|
||||
Property Transp_BordMo As Object = Nothing ' Transportmittel Grenze
|
||||
Property Transp_DepTy As Object = Nothing ' Transportmittel TypAbfahrt
|
||||
Property Transp_DepIdnt As Object = Nothing ' Transportmittel Kennezeichen Abfahrt
|
||||
Property Transp_DepNat As Object = Nothing ' Transportmittel Nationalität Abfahrt
|
||||
Property Transp_CrossTy As Object = Nothing ' Transportmittel Typ Grenze
|
||||
Property Transp_CrossIdnt As Object = Nothing ' Transportmittel Kennezeichen Grenze
|
||||
Property Transp_CrossIdntNat As Object = Nothing ' Transportmittel Nationalität Grenze
|
||||
Property Transp_ContInd As Object = Nothing ' BIT NULL,
|
||||
'Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
|
||||
'Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
|
||||
'Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
|
||||
'Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL,
|
||||
'Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL,
|
||||
'Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL,
|
||||
'Property ValData_TransacCd As Object = Nothing ' INT NULL,
|
||||
Property ConorTra_Na As Object = Nothing ' ABSENDER
|
||||
Property ConorTra_Strt As Object = Nothing '
|
||||
Property ConorTra_Pst As Object = Nothing '
|
||||
Property ConorTra_Cty As Object = Nothing '
|
||||
Property ConorTra_Ctry As Object = Nothing '
|
||||
Property ConorTra_EORI As Object = Nothing '
|
||||
Property ConorTra_UIDCtry As Object = Nothing '
|
||||
Property ConorTra_UID As Object = Nothing '
|
||||
Property ConeeTra_Na As Object = Nothing ' EMPFÄNGER
|
||||
Property ConeeTra_Strt As Object = Nothing '
|
||||
Property ConeeTra_Pst As Object = Nothing '
|
||||
Property ConeeTra_Cty As Object = Nothing '
|
||||
Property ConeeTra_Ctry As Object = Nothing '
|
||||
Property ConeeTra_EORI As Object = Nothing '
|
||||
Property ConeeTra_UIDCtry As Object = Nothing '
|
||||
Property ConeeTra_UID As Object = Nothing '
|
||||
Property ExpTra_Na As Object = Nothing ' EXPORTEUR
|
||||
Property ExpTra_Strt As Object = Nothing '
|
||||
Property ExpTra_Pst As Object = Nothing '
|
||||
Property ExpTra_Cty As Object = Nothing '
|
||||
Property ExpTra_Ctry As Object = Nothing '
|
||||
Property ExpTra_EORI As Object = Nothing '
|
||||
Property ExpTra_UIDCtry As Object = Nothing '
|
||||
Property ExpTra_UID As Object = Nothing '
|
||||
Property Declarant_Na As Object = Nothing ' ZOLLAGENT
|
||||
Property Declarant_Strt As Object = Nothing '
|
||||
Property Declarant_Pst As Object = Nothing '
|
||||
Property Declarant_Cty As Object = Nothing '
|
||||
Property Declarant_Ctry As Object = Nothing '
|
||||
Property Declarant_EORI As Object = Nothing '
|
||||
Property Declarant_UIDCtry As Object = Nothing '
|
||||
Property Declarant_UID As Object = Nothing '
|
||||
Property Declarant_DecRep As Object = Nothing '
|
||||
Property DestCO_Ref As Object = Nothing ' Zielzollstelle
|
||||
Property DepCO_Ref As Object = Nothing ' Abgangszollstelle
|
||||
Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung
|
||||
|
||||
|
||||
Property DOCUMENTS As New List(Of cVERAG_in_shipment_Document)
|
||||
Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position)
|
||||
'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit)
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub New(in_sh_id)
|
||||
Me.in_sh_id = in_sh_id
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True, True))
|
||||
|
||||
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_ART", telanm_ART)) ' VARCHAR(50) Not NULL,
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE(Optional saveAll = True) As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblTR_Shipment WITH(updlock,serializable) WHERE in_sh_id=@in_sh_id) " &
|
||||
" BEGIN " & getUpdateCmd() & " End " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " End " &
|
||||
" commit tran "
|
||||
|
||||
in_sh_id = SQL.doSQLVarListID(in_sh_id, sqlstr, "FMZOLL", , list)
|
||||
If in_sh_id > 0 And saveAll Then
|
||||
SAVE_Positionsdaten()
|
||||
SAVE_Documents()
|
||||
' SAVE_Sicherheit()
|
||||
End If
|
||||
Return in_sh_id > 0
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD(Optional loadALL = True)
|
||||
Try
|
||||
If loadALL Then
|
||||
POSITIONSDATEN.Clear()
|
||||
DOCUMENTS.Clear()
|
||||
' SICHERHEIT.Clear()
|
||||
End If
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment WHERE in_sh_id=@in_sh_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@in_sh_id", in_sh_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each li In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
|
||||
|
||||
If dr.Item(li.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(li.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
If loadALL Then
|
||||
LOAD_Positionsdaten()
|
||||
LOAD_Documents()
|
||||
' LOAD_Sicherheit()
|
||||
End If
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Public Function UPDATE_Status(status As Integer) As String
|
||||
' If in_sh_id > 0 Then
|
||||
' Try
|
||||
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
|
||||
' 'telanm_Status_KEWILL_Equivalent = status
|
||||
' 'telanm_Status = status
|
||||
|
||||
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
' End If
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
|
||||
'Shared Function UPDATE_StatusById(in_sh_id As Integer, status As Integer) As String
|
||||
' If in_sh_id > 0 Then
|
||||
' Try
|
||||
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_sh_id", in_sh_id, , True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status_KEWILL_Equivalent", status, , True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("telanm_Status", status, , True))
|
||||
' 'telanm_Status_KEWILL_Equivalent = status
|
||||
' 'telanm_Status = status
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
' Return SQL.doSQLVarList(" UPDATE [tblTR_Shipment] SET telanm_Status_KEWILL_Equivalent=@telanm_Status_KEWILL_Equivalent,telanm_Status=@telanm_Status WHERE in_sh_id=@in_sh_id ", "FMZOLL", , list)
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
' End If
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
|
||||
|
||||
'Public Sub UPDATE_DATA()
|
||||
' Try
|
||||
' Select Case telanm_ART
|
||||
' Case "T1", "T2"
|
||||
' 'SQL, die daten aus den jeweiligen tabellen ausliest und hier aktualisiert
|
||||
' Dim Dakosy_NCTSOut As New DAKOSY_Worker.cDakosyNCTSOut
|
||||
' Dakosy_NCTSOut.LOADByAnmID(in_sh_id, False)
|
||||
' If Dakosy_NCTSOut IsNot Nothing Then
|
||||
' Me.telanm_BezugsNr = Dakosy_NCTSOut.ncts_ObjectName
|
||||
' Me.telanm_Status = Dakosy_NCTSOut.ncts_Status
|
||||
' Me.telanm_Status_KEWILL_Equivalent = Dakosy_NCTSOut.ncts_Status_KEWILL_Equivalent
|
||||
' Me.telanm_Erstellung = Dakosy_NCTSOut.ncts_Erstellung
|
||||
' Me.telanm_Erstellung_SB = Dakosy_NCTSOut.ncts_Erstellung_SB
|
||||
' Me.telanm_LetzteBearbeitung = Dakosy_NCTSOut.ncts_LetzteBearbeitung
|
||||
' Me.telanm_LetzteBearbeitung_SB = Dakosy_NCTSOut.ncts_LetzteBearbeitung_SB
|
||||
' End If
|
||||
|
||||
' End Select
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' End Try
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblTR_Shipment] SET " & str & " WHERE in_sh_id=@in_sh_id ")
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblTR_Shipment (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Shared Function getWaehr(s As String, SQL As VERAG_PROG_ALLGEMEIN.SQL) As String
|
||||
'Return KDSQL.getValueTxtBySql("SELECT TOP 1 isnull([LandNr],-1) FROM [Länderverzeichnis für die Außenhandelsstatistik] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
||||
s = s.Replace("TRY", "TRL") ' Türkische Lira
|
||||
Return SQL.getValueTxtBySql("SELECT TOP 1 isnull([Währungsschlüssel],-1) FROM [Währungstabelle] WHERE [Währungscode]='" & s & "'", "FMZOLL")
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Sub LOAD_Positionsdaten()
|
||||
Try
|
||||
POSITIONSDATEN.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Positionsdaten WHERE in_pos_inShId=@in_sh_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_shippment_Position
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
l.LOAD_Packstücke()
|
||||
POSITIONSDATEN.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
Public Sub LOAD_Documents()
|
||||
'Try
|
||||
' DOCUMENTS.Clear()
|
||||
' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
' Using cmd As New SqlCommand("SELECT * FROM tblTR_Shipment_Document WHERE shTrDoc_ShTrId=@in_sh_id ", conn)
|
||||
' cmd.Parameters.AddWithValue("@in_sh_id", Me.in_sh_id)
|
||||
' Dim dr = cmd.ExecuteReader()
|
||||
' While dr.Read
|
||||
' Dim l As New cVERAG_in_shipment_Document
|
||||
' For Each i In l.getParameterList()
|
||||
' Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
' If dr.Item(i.Text) Is DBNull.Value Then
|
||||
' propInfo.SetValue(l, Nothing)
|
||||
' Else
|
||||
' propInfo.SetValue(l, dr.Item(i.Text))
|
||||
' End If
|
||||
' Next
|
||||
' DOCUMENTS.Add(l)
|
||||
' End While
|
||||
' dr.Close()
|
||||
' End Using
|
||||
' End Using
|
||||
'Catch ex As Exception
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
'End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Function DELETE_Packstücke() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Packstuecke] WHERE in_posPk_inShId =" & Me.in_sh_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function DELETE_Positionsdaten() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblVERAG_in_shippment_Positionsdaten] WHERE in_pos_inShId =" & Me.in_sh_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
Function DELETE_Documents() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
|
||||
Dim sqlstr = " DELETE FROM [tblTR_Shipment_Document] WHERE shTrDoc_ShTrId =" & Me.in_sh_id & " "
|
||||
Return SQL.doSQL(sqlstr, "FMZOLL")
|
||||
End Function
|
||||
|
||||
|
||||
Public Function SAVE_Positionsdaten() As Boolean
|
||||
'Zuserst alle OffertenPos von dem Offert löschen
|
||||
If DELETE_Positionsdaten() And DELETE_Packstücke() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
|
||||
'jetzt die Standartofferten einfügen
|
||||
For Each p In POSITIONSDATEN
|
||||
p.in_pos_inShId = in_sh_id
|
||||
If p.INSERT() Then
|
||||
p.INSERT_Packstücke(p.in_pos_id, Me.in_sh_id)
|
||||
'p.INSERT_PositionsdatenUnterlagen(p.ezaWP_Id, Me.eza_Id)
|
||||
'p.INSERT_PositionsdatenVerbrauchssteuer(p.ezaWP_Id, Me.eza_Id)
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Function SAVE_Documents() As Boolean
|
||||
' 'Zuserst alle OffertenPos von dem Offert löschen
|
||||
' If DELETE_Documents() Then 'And DELETE_PositionsdatenUnterlagen() And DELETE_PositionsdatenVerbrauchssteuer() Then
|
||||
' 'jetzt die Standartofferten einfügen
|
||||
' For Each p In DOCUMENTS
|
||||
' p.shTrDoc_ShTrId = in_sh_id
|
||||
' If p.INSERT() Then
|
||||
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
' Next
|
||||
' Else
|
||||
' Return False
|
||||
' End If
|
||||
|
||||
' Return True
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cVERAG_in_shippment_Position
|
||||
|
||||
Property in_pos_id As Integer
|
||||
Property in_pos_inShId As Integer
|
||||
'Property Mandant_ID As Object = Nothing
|
||||
'Property Bereich_ID As Object = Nothing
|
||||
'Property Referenz_ID As Object = Nothing
|
||||
'Property ComIndicator As Object = Nothing
|
||||
Property Pos_Nr As Integer
|
||||
Property Item_GdsDes As Object = Nothing
|
||||
'Property Item_Status As Object = Nothing
|
||||
'Property Item_ComCd As Object = Nothing
|
||||
Property Item_TarNr As Object = Nothing
|
||||
Property Item_Gross As Object = Nothing
|
||||
Property Item_Net As Object = Nothing
|
||||
Property Item_Orig As Object = Nothing
|
||||
'Property Item_ProcCd As Object = Nothing
|
||||
'Property Item_ProcAddCd As Object = Nothing
|
||||
Property Item_ItVal As Object = Nothing
|
||||
'Property Item_Pref As Object = Nothing
|
||||
'Property Item_Quota As Object = Nothing
|
||||
'Property Item_ValMet As Object = Nothing
|
||||
'Property Item_VATInd As Object = Nothing
|
||||
'Property Item_StatVal As Object = Nothing
|
||||
'Property SurvCO_Ref As Object = Nothing
|
||||
'Property Telo_Artikel_ID As Object = Nothing
|
||||
Property Telo_Artikelmenge As Object = Nothing
|
||||
Property Telo_ArtikelMEH As Object = Nothing
|
||||
|
||||
Property PACKSTUECKE As New List(Of cVERAG_in_shippment_Packing)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_id", in_pos_id, , True, True))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_pos_inShId", in_pos_inShId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pos_Nr", Pos_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_GdsDes", Item_GdsDes))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_TarNr", Item_TarNr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Gross", Item_Gross))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Net", Item_Net))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_Orig", Item_Orig))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Item_ItVal", Item_ItVal))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Artikelmenge", Telo_Artikelmenge))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_ArtikelMEH", Telo_ArtikelMEH))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
'Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
|
||||
in_pos_id = SQL.doSQLVarListID(in_pos_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return in_pos_id > 0
|
||||
End Function
|
||||
|
||||
Public Function INSERT_Packstücke(in_pos_id, in_sh_id) As Boolean
|
||||
For Each p In PACKSTUECKE
|
||||
p.in_posPk_inShId = in_sh_id
|
||||
p.in_posPk_inPosId = in_pos_id
|
||||
If Not p.INSERT() Then Return False
|
||||
Next
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Public Sub LOAD_Packstücke()
|
||||
Try
|
||||
PACKSTUECKE.Clear()
|
||||
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblVERAG_in_shippment_Packstuecke WHERE in_posPk_inPosId=@in_pos_id ", conn)
|
||||
cmd.Parameters.AddWithValue("@in_pos_id", Me.in_pos_id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
Dim l As New cVERAG_in_shippment_Packing
|
||||
For Each i In l.getParameterList()
|
||||
Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
|
||||
If dr.Item(i.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(l, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(l, dr.Item(i.Text))
|
||||
End If
|
||||
Next
|
||||
PACKSTUECKE.Add(l)
|
||||
End While
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblVERAG_in_shippment_Positionsdaten (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Public Class cVERAG_in_shippment_Packing
|
||||
|
||||
Property in_posPk_id As Integer
|
||||
Property in_posPk_inShId As Integer
|
||||
Property in_posPk_inPosId As Integer
|
||||
Property Pack_Mark As Object = Nothing
|
||||
Property Pack_Kind As Object = Nothing
|
||||
Property Pack_Nr As Object = Nothing
|
||||
Property Pack_Piec As Object = Nothing
|
||||
Property Telo_Gross As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
|
||||
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_id", in_posPk_id, , True, True))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inShId", in_posPk_inShId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("in_posPk_inPosId", in_posPk_inPosId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Mark", Pack_Mark))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Kind", Pack_Kind))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Nr", Pack_Nr))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Pack_Piec", Pack_Piec))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Telo_Gross", Telo_Gross))
|
||||
|
||||
Return list
|
||||
End Function
|
||||
|
||||
Public Function INSERT() As Boolean
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
in_posPk_id = SQL.doSQLVarListID(in_posPk_id, getInsertCmd, "FMZOLL", , list)
|
||||
Return in_posPk_id > 0
|
||||
End Function
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblVERAG_in_shippment_Packstuecke (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
3210
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb
generated
Normal file
3210
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_EZA/VERAG_out_eza.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,370 @@
|
||||
{
|
||||
"$schema": "http://json-schema.org/draft-04/schema#",
|
||||
"description": "Generated by xsd2code++. www.xsd2code.com",
|
||||
"definitions": {},
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"VERAG_out_eza": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Version": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"VERAGCustomerCode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Company": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Department": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"ClientReference": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"InternalReference": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"OfficeCode": {
|
||||
"type": "integer"
|
||||
},
|
||||
"PositionNumber": {
|
||||
"type": "integer"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"OfficeCode",
|
||||
"PositionNumber"
|
||||
]
|
||||
},
|
||||
"ProcessData": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Status": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"TransactionDate": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"ReferenzNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"CustomsReferenzNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"ProcedureCode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Status",
|
||||
"TransactionDate",
|
||||
"ReferenzNumber",
|
||||
"CustomsReferenzNumber",
|
||||
"ProcedureCode"
|
||||
]
|
||||
},
|
||||
"EZA_Data": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"LicensePlateContainerNo": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"SumGrossWeight": {
|
||||
"type": "integer"
|
||||
},
|
||||
"Sender": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Adress": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Country": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Postcode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"City": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Street": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
}
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"EORI_NL": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"UID_Nr": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"CustomerCode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name"
|
||||
]
|
||||
},
|
||||
"Consignee": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object"
|
||||
},
|
||||
"Adress": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI_NL": {
|
||||
"type": "object"
|
||||
},
|
||||
"UID_Nr": {
|
||||
"type": "object"
|
||||
},
|
||||
"CustomerCode": {
|
||||
"type": "object"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name"
|
||||
]
|
||||
},
|
||||
"DestinationCountry": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DepartureCountry": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DestinationCustomsOffice": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Duty": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Kind": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object"
|
||||
},
|
||||
"AccountNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Value": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Kind",
|
||||
"EORI",
|
||||
"AccountNumber"
|
||||
]
|
||||
},
|
||||
"maxItems": 2
|
||||
},
|
||||
"Position": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"PosNr": {
|
||||
"type": "integer"
|
||||
},
|
||||
"Quantity": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Packaging": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"GoodsDescription": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"GrossWeight": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"TariffNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"GoodsValue": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Value": {
|
||||
"type": "object"
|
||||
},
|
||||
"Currency": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
}
|
||||
},
|
||||
"Documents": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Invoice": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"InvoiceNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"InvoiceDate": {
|
||||
"type": "string"
|
||||
},
|
||||
"Addition1": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Addition2": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"InvoiceNumber",
|
||||
"InvoiceDate"
|
||||
]
|
||||
}
|
||||
}
|
||||
},
|
||||
"Note": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"PosNr"
|
||||
]
|
||||
},
|
||||
"minItems": 1,
|
||||
"maxItems": 999
|
||||
},
|
||||
"Note": {
|
||||
"type": "object"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"LicensePlateContainerNo"
|
||||
]
|
||||
},
|
||||
"Attachments": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Attachment": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"ReferencePosNr": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Name": {
|
||||
"type": "object"
|
||||
},
|
||||
"FileType": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Description": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DocumentType": {
|
||||
"type": "string",
|
||||
"enum": [
|
||||
"ATR",
|
||||
"EUR1",
|
||||
"T1",
|
||||
"CarnetATA",
|
||||
"PACK",
|
||||
"INVOICE",
|
||||
"CMR",
|
||||
"OTHER"
|
||||
]
|
||||
},
|
||||
"base64BinaryStream": {
|
||||
"type": "string"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"ReferencePosNr",
|
||||
"Name",
|
||||
"FileType",
|
||||
"Description",
|
||||
"DocumentType",
|
||||
"base64BinaryStream"
|
||||
]
|
||||
},
|
||||
"minItems": 1,
|
||||
"maxItems": 999
|
||||
}
|
||||
}
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Version",
|
||||
"Company",
|
||||
"ProcessData",
|
||||
"EZA_Data"
|
||||
]
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,170 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
|
||||
<xs:element name="VERAG_out_eza">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Version" default="1.0.0"/>
|
||||
<xs:element name="VERAGCustomerCode" minOccurs="0"/>
|
||||
<xs:element name="Company"/>
|
||||
<xs:element name="Department" minOccurs="0"/>
|
||||
<xs:element name="ClientReference" minOccurs="0"/>
|
||||
<xs:element name="InternalReference" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="OfficeCode">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:integer"/>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="PositionNumber" type="xs:integer"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="ProcessData">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Status"/>
|
||||
<xs:element name="TransactionDate"/>
|
||||
<xs:element name="ReferenzNumber"/>
|
||||
<xs:element name="CustomsReferenzNumber"/>
|
||||
<xs:element name="ProcedureCode"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EZA_Data">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="LicensePlateContainerNo"/>
|
||||
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
|
||||
<xs:element name="Sender" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
<xs:element name="CustomerCode" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Consignee" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
<xs:element name="CustomerCode" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="DestinationCountry" minOccurs="0"/>
|
||||
<xs:element name="DepartureCountry" minOccurs="0"/>
|
||||
<xs:element name="DestinationCustomsOffice" minOccurs="0"/>
|
||||
<xs:element name="Duty" minOccurs="0" maxOccurs="2">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Kind"/>
|
||||
<xs:element name="EORI"/>
|
||||
<xs:element name="AccountNumber"/>
|
||||
<xs:element name="Value" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Position" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="PosNr" type="xs:int"/>
|
||||
<xs:element name="Quantity" minOccurs="0"/>
|
||||
<xs:element name="Packaging" minOccurs="0"/>
|
||||
<xs:element name="GoodsDescription" minOccurs="0"/>
|
||||
<xs:element name="GrossWeight" minOccurs="0"/>
|
||||
<xs:element name="TariffNumber" minOccurs="0"/>
|
||||
<xs:element name="GoodsValue" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Value" minOccurs="0"/>
|
||||
<xs:element name="Currency" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Documents" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Invoice" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="InvoiceNumber"/>
|
||||
<xs:element name="InvoiceDate" type="xs:date"/>
|
||||
<xs:element name="Addition1" minOccurs="0"/>
|
||||
<xs:element name="Addition2" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Note" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Note" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Attachments" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Attachment" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="ReferencePosNr"/>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="FileType"/>
|
||||
<xs:element name="Description"/>
|
||||
<xs:element name="DocumentType">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:enumeration value="ATR"/>
|
||||
<xs:enumeration value="EUR1"/>
|
||||
<xs:enumeration value="T1"/>
|
||||
<xs:enumeration value="CarnetATA"/>
|
||||
<xs:enumeration value="PACK"/>
|
||||
<xs:enumeration value="INVOICE"/>
|
||||
<xs:enumeration value="CMR"/>
|
||||
<xs:enumeration value="OTHER"/>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
2943
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb
generated
Normal file
2943
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,158 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
|
||||
<xs:element name="VERAG_out_ncts">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Version" default="2.0.0"/>
|
||||
<xs:element name="Company"/>
|
||||
<xs:element name="Department" minOccurs="0"/>
|
||||
<xs:element name="InternalReference" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="OfficeCode">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:integer"/>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="PositionNumber" type="xs:integer"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="ProcessData">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Status"/>
|
||||
<xs:element name="TransactionDate"/>
|
||||
<xs:element name="MRN"/>
|
||||
<xs:element name="ReferenzNumber"/>
|
||||
<xs:element name="ProcedureCode"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="NCTS_Data">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="DatDeterminationLimit" type="xs:date"/>
|
||||
<xs:element name="LicensePlate"/>
|
||||
<xs:element name="DepartureCustomsOffice"/>
|
||||
<xs:element name="DestinationCustomsOffice"/>
|
||||
<xs:element name="DepartureCountry"/>
|
||||
<xs:element name="DestinationCountry"/>
|
||||
<xs:element name="Sender" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Consignee" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Carrier" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Guarantee" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GRN"/>
|
||||
<xs:element name="Amount"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
|
||||
<xs:element name="Position" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Position" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="PosNr"/>
|
||||
<xs:element name="Quantity" minOccurs="0"/>
|
||||
<xs:element name="Packaging" minOccurs="0"/>
|
||||
<xs:element name="GoodsDescription" minOccurs="0"/>
|
||||
<xs:element name="GrossWeight" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Attachments" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="FileType"/>
|
||||
<xs:element name="Description"/>
|
||||
<xs:element name="DocumentType">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:enumeration value="NCTS"/>
|
||||
<xs:enumeration value="OTHER"/>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
2976
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb
generated
Normal file
2976
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_1.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,303 @@
|
||||
{
|
||||
"$schema": "http://json-schema.org/draft-04/schema#",
|
||||
"description": "Generated by xsd2code++. www.xsd2code.com",
|
||||
"definitions": {},
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"VERAG_out_ncts": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Version": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Company": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Department": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"InternalReference": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"OfficeCode": {
|
||||
"type": "integer"
|
||||
},
|
||||
"PositionNumber": {
|
||||
"type": "integer"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"OfficeCode",
|
||||
"PositionNumber"
|
||||
]
|
||||
},
|
||||
"ProcessData": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Status": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"TransactionDate": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"MRN": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"ReferenzNumber": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"ProcedureCode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Status",
|
||||
"TransactionDate",
|
||||
"MRN",
|
||||
"ReferenzNumber",
|
||||
"ProcedureCode"
|
||||
]
|
||||
},
|
||||
"NCTS_Data": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"DatDeterminationLimit": {
|
||||
"type": "string"
|
||||
},
|
||||
"LicensePlate": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DepartureCustomsOffice": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DestinationCustomsOffice": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DepartureCountry": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DestinationCountry": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Sender": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Adress": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Country": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Postcode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"City": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Street": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
}
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"EORI_NL": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"UID_Nr": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"CustomerCode": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name"
|
||||
]
|
||||
},
|
||||
"Consignee": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object"
|
||||
},
|
||||
"Adress": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI_NL": {
|
||||
"type": "object"
|
||||
},
|
||||
"UID_Nr": {
|
||||
"type": "object"
|
||||
},
|
||||
"CustomerCode": {
|
||||
"type": "object"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name"
|
||||
]
|
||||
},
|
||||
"Carrier": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object"
|
||||
},
|
||||
"Adress": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI": {
|
||||
"type": "object"
|
||||
},
|
||||
"EORI_NL": {
|
||||
"type": "object"
|
||||
},
|
||||
"UID_Nr": {
|
||||
"type": "object"
|
||||
},
|
||||
"CustomerCode": {
|
||||
"type": "object"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name"
|
||||
]
|
||||
},
|
||||
"Guarantee": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"GRN": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Amount": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"GRN",
|
||||
"Amount"
|
||||
]
|
||||
},
|
||||
"SumGrossWeight": {
|
||||
"type": "integer"
|
||||
},
|
||||
"Position": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Position": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"type": "object"
|
||||
},
|
||||
"minItems": 1,
|
||||
"maxItems": 999
|
||||
}
|
||||
}
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"DatDeterminationLimit",
|
||||
"LicensePlate",
|
||||
"DepartureCustomsOffice",
|
||||
"DestinationCustomsOffice",
|
||||
"DepartureCountry",
|
||||
"DestinationCountry"
|
||||
]
|
||||
},
|
||||
"Attachments": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Attachment": {
|
||||
"type": "array",
|
||||
"items": {
|
||||
"type": "object",
|
||||
"additionalProperties": false,
|
||||
"properties": {
|
||||
"Name": {
|
||||
"type": "object"
|
||||
},
|
||||
"FileType": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"Description": {
|
||||
"type": "object",
|
||||
"additionalProperties": false
|
||||
},
|
||||
"DocumentType": {
|
||||
"type": "string",
|
||||
"enum": [
|
||||
"NCTS",
|
||||
"OTHER"
|
||||
]
|
||||
},
|
||||
"base64BinaryStream": {
|
||||
"type": "string"
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Name",
|
||||
"FileType",
|
||||
"Description",
|
||||
"DocumentType",
|
||||
"base64BinaryStream"
|
||||
]
|
||||
},
|
||||
"maxItems": 999
|
||||
}
|
||||
}
|
||||
}
|
||||
},
|
||||
"required": [
|
||||
"Version",
|
||||
"Company",
|
||||
"ProcessData",
|
||||
"NCTS_Data"
|
||||
]
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,84 @@
|
||||
<?xml version="1.0"?>
|
||||
<xsd:schema xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<xsd:element name="VERAG_out_ncts">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="InternalReference">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="OfficeCode" type="xsd:int" />
|
||||
<xsd:element name="PositionNumber" type="xsd:int" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="ProcessData">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="NCTS_Data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="DatDeterminationLimit" type="xsd:string" />
|
||||
<xsd:element name="Sender">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="Adress">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="Consignee">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="Carrier">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="Guarantee">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="SumGrossWeight" type="xsd:int" />
|
||||
<xsd:element name="Position">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element minOccurs="1" maxOccurs="unbounded" name="Position" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="Attachments">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element minOccurs="0" maxOccurs="unbounded" name="Attachment">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="DocumentType">
|
||||
<xsd:simpleType>
|
||||
<xsd:restriction base="xsd:string">
|
||||
<xsd:enumeration value="NCTS" />
|
||||
<xsd:enumeration value="OTHER" />
|
||||
</xsd:restriction>
|
||||
</xsd:simpleType>
|
||||
</xsd:element>
|
||||
<xsd:element name="base64BinaryStream" type="xsd:string" />
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:sequence>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
2987
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb
generated
Normal file
2987
_VERAG_PROG_ALLGEMEIN/Schnittstellen/VERAG/OUT_NCTS/VERAG_out_ncts_V2_0_2.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,162 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!-- Mit XMLSpy v2017 rel. 3 sp1 (x64) (http://www.altova.com) von Andreas Luxbauer (VERAG Spedition AG) bearbeitet -->
|
||||
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:vc="http://www.w3.org/2007/XMLSchema-versioning" elementFormDefault="qualified" attributeFormDefault="unqualified" vc:minVersion="1.1">
|
||||
<xs:element name="VERAG_out_ncts">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Version" default="2.0.1"/>
|
||||
<xs:element name="Company"/>
|
||||
<xs:element name="Department" minOccurs="0"/>
|
||||
<xs:element name="ClientReference" minOccurs="0"/>
|
||||
<xs:element name="InternalReference" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="OfficeCode">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:integer"/>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="PositionNumber" type="xs:integer"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="ProcessData">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Status"/>
|
||||
<xs:element name="TransactionDate"/>
|
||||
<xs:element name="MRN"/>
|
||||
<xs:element name="ReferenzNumber"/>
|
||||
<xs:element name="ProcedureCode"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="NCTS_Data">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="DatDeterminationLimit" type="xs:date"/>
|
||||
<xs:element name="LicensePlate"/>
|
||||
<xs:element name="DepartureCustomsOffice"/>
|
||||
<xs:element name="DestinationCustomsOffice"/>
|
||||
<xs:element name="DepartureCountry"/>
|
||||
<xs:element name="DestinationCountry"/>
|
||||
<xs:element name="Sender" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
<xs:element name="CustomerCode" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Consignee" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
<xs:element name="CustomerCode" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Carrier" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="Adress" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Country" minOccurs="0"/>
|
||||
<xs:element name="Postcode" minOccurs="0"/>
|
||||
<xs:element name="City" minOccurs="0"/>
|
||||
<xs:element name="Street" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="EORI" minOccurs="0"/>
|
||||
<xs:element name="EORI_NL" minOccurs="0"/>
|
||||
<xs:element name="UID_Nr" minOccurs="0"/>
|
||||
<xs:element name="CustomerCode" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Guarantee" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="GRN"/>
|
||||
<xs:element name="Amount"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="SumGrossWeight" type="xs:decimal" minOccurs="0"/>
|
||||
<xs:element name="Position" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Position" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="PosNr"/>
|
||||
<xs:element name="Quantity" minOccurs="0"/>
|
||||
<xs:element name="Packaging" minOccurs="0"/>
|
||||
<xs:element name="GoodsDescription" minOccurs="0"/>
|
||||
<xs:element name="GrossWeight" minOccurs="0"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
<xs:element name="Attachments" minOccurs="0">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Attachment" minOccurs="0" maxOccurs="999">
|
||||
<xs:complexType>
|
||||
<xs:sequence>
|
||||
<xs:element name="Name"/>
|
||||
<xs:element name="FileType"/>
|
||||
<xs:element name="Description"/>
|
||||
<xs:element name="DocumentType">
|
||||
<xs:simpleType>
|
||||
<xs:restriction base="xs:string">
|
||||
<xs:enumeration value="NCTS"/>
|
||||
<xs:enumeration value="OTHER"/>
|
||||
</xs:restriction>
|
||||
</xs:simpleType>
|
||||
</xs:element>
|
||||
<xs:element name="base64BinaryStream" type="xs:base64Binary"/>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:sequence>
|
||||
</xs:complexType>
|
||||
</xs:element>
|
||||
</xs:schema>
|
||||
@@ -0,0 +1,361 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cVERAG_out_ncts
|
||||
|
||||
|
||||
Property ncts_ANR As Object = Nothing
|
||||
Property ncts_MRN As Object = Nothing
|
||||
|
||||
Property ncts_firma As Object = Nothing
|
||||
Property ncts_niederlassung As Object = Nothing
|
||||
|
||||
|
||||
'Property ncts_Gestellt As Boolean = False
|
||||
'Property ncts_GestelltAm As Object = Nothing
|
||||
Property ncts_ObjectName As Object = Nothing
|
||||
Property ncts_ObjectAlias As Object = Nothing
|
||||
Property ncts_BezugsnummerVorblendung As Object = Nothing
|
||||
Property ncts_Bearbeiter As Object = Nothing
|
||||
Property ncts_VersendungsLandCode As Object = Nothing
|
||||
Property ncts_BestimmungslandCode As Object = Nothing
|
||||
Property ncts_ArtAnmeldung As Object = Nothing
|
||||
Property ncts_BeladungsOrt As Object = Nothing
|
||||
|
||||
Property ncts_DurchgangszollstelleDienststellnummer1 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer2 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer3 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer4 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer5 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer6 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer7 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer8 As Object = Nothing
|
||||
Property ncts_DurchgangszollstelleDienststellnummer9 As Object = Nothing
|
||||
|
||||
Property ncts_BestimmungsstelleDienststellennummer As Object = Nothing
|
||||
Property ncts_AbgangsDienststellennummer As Object = Nothing
|
||||
Property ncts_Wiedergestellungsdatum As Object = Nothing
|
||||
Property ncts_KzVereinfachtesVerfahren As Object = Nothing
|
||||
Property ncts_GesamtRohmasse As Object = Nothing
|
||||
Property ncts_GesamtAnzahlPackstuecke As Object = Nothing
|
||||
Property ncts_Verschluss_ArtCode As Object = Nothing
|
||||
Property ncts_Verschluss_Anzahl As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen1 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen2 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen3 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen4 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen5 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen6 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen7 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen8 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen9 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen10 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen11 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen12 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen13 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen14 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen15 As Object = Nothing
|
||||
Property ncts_Verschluss_Zeichen16 As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_KennzeichenAbgang As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_SttaszugehoerigkeitAbgangCode As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_ArtGrenzueberschreitung As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend As Object = Nothing
|
||||
Property ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode As Object = Nothing
|
||||
Property ncts_Versender_EORI As Object = Nothing
|
||||
Property ncts_Versender_NLNR As Object = Nothing
|
||||
Property ncts_Versender_TIN As Object = Nothing
|
||||
Property ncts_Versender_Name As Object = Nothing
|
||||
Property ncts_Versender_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_Versender_Ort As Object = Nothing
|
||||
Property ncts_Versender_PLZ As Object = Nothing
|
||||
Property ncts_Versender_Land As Object = Nothing
|
||||
Property ncts_Empfaenger_EORI As Object = Nothing
|
||||
Property ncts_Empfaenger_NLNR As Object = Nothing
|
||||
Property ncts_Empfaenger_TIN As Object = Nothing
|
||||
Property ncts_Empfaenger_Name As Object = Nothing
|
||||
Property ncts_Empfaenger_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_Empfaenger_Ort As Object = Nothing
|
||||
Property ncts_Empfaenger_PLZ As Object = Nothing
|
||||
Property ncts_Empfaenger_Land As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_EORI As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_NLNR As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_TIN As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_Name As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_Ort As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_PLZ As Object = Nothing
|
||||
Property ncts_Hauptverpflichteter_Land As Object = Nothing
|
||||
Property ncts_ZugelassenerEmpfaenger_IDCarnet As Object = Nothing
|
||||
Property ncts_ZugelassenerEmpfaenger_BewilligungsnummerVersender As Object = Nothing
|
||||
Property ncts_ZugelassenerEmpfaenger_EORI As Object = Nothing
|
||||
Property ncts_ZugelassenerEmpfaenger_TIN As Object = Nothing
|
||||
|
||||
Property ncts_SumA_KzSumASicherheit As Object = Nothing
|
||||
Property ncts_SumA_KennnummerSendung As Object = Nothing
|
||||
Property ncts_SumA_BesondereUmstaende As Object = Nothing
|
||||
Property ncts_SumA_NummerBefoerderung As Object = Nothing
|
||||
Property ncts_SumA_Ladeort As Object = Nothing
|
||||
Property ncts_SumA_Entladeort As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungskostenZahlungsweise As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand1 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand2 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand3 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand4 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand5 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand6 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand7 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand8 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand9 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand10 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand11 As Object = Nothing
|
||||
Property ncts_SumA_BefoerderungsrouteLand12 As Object = Nothing
|
||||
Property ncts_SumA_Versender_EORI As Object = Nothing
|
||||
Property ncts_SumA_Versender_NLNR As Object = Nothing
|
||||
Property ncts_SumA_Versender_TIN As Object = Nothing
|
||||
Property ncts_SumA_Versender_Name As Object = Nothing
|
||||
Property ncts_SumA_Versender_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_SumA_Versender_Land As Object = Nothing
|
||||
Property ncts_SumA_Versender_PLZ As Object = Nothing
|
||||
Property ncts_SumA_Versender_Ort As Object = Nothing
|
||||
|
||||
Property ncts_SumA_Empfaenger_EORI As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_NLNR As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_TIN As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_Name As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_Land As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_PLZ As Object = Nothing
|
||||
Property ncts_SumA_Empfaenger_Ort As Object = Nothing
|
||||
|
||||
Property ncts_SumA_Befoerderer_EORI As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_NLNR As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_TIN As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_Name As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_StrasseHausnummer As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_Land As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_PLZ As Object = Nothing
|
||||
Property ncts_SumA_Befoerderer_Ort As Object = Nothing
|
||||
Property ncts_Stammreferenz As Object = Nothing
|
||||
|
||||
|
||||
Property ncts_SICHERHEITSANGABEN As New List(Of cDakosy_NCTSOut_Sicherheitsangaben)
|
||||
Property ncts_WARENPOS As New List(Of cDakosy_NCTSOut_Warenposition)
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cDakosy_NCTSOut_Sicherheitsangaben
|
||||
|
||||
'Property nctsSA_Id As Integer
|
||||
'Property nctsSA_NctsId As Object = Nothing
|
||||
Property nctsSA_ArtCode As Object = Nothing
|
||||
Property nctsSA_BezeichnungBescheinigun As Object = Nothing
|
||||
Property nctsSA_AbgabenBetrag As Object = Nothing
|
||||
'Property nctsSA_GRN As Object = Nothing
|
||||
'Property nctsSA_Zugriffcode As Object = Nothing
|
||||
'Property nctsSA_TIN As Object = Nothing
|
||||
|
||||
|
||||
'Public selButton As Object = Nothing ' Für die GUI
|
||||
'Public SA_OBJECT As Object = Nothing ' Für die GUI
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
End Sub
|
||||
|
||||
'Sub New(nctsSA_Id)
|
||||
' Me.nctsSA_Id = nctsSA_Id
|
||||
' LOAD()
|
||||
' End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class cDakosy_NCTSOut_Warenposition
|
||||
'Property nctsWP_Id As Integer
|
||||
'Property nctsWP_NctsId As Integer
|
||||
Property nctsWP_PositionsNummer As Object = Nothing
|
||||
Property nctsWP_Warennummer As Object = Nothing
|
||||
Property nctsWP_ArtAnmeldungPositionCode As Object = Nothing
|
||||
Property nctsWP_Warenbezeichnung As Object = Nothing
|
||||
Property nctsWP_Warenwert As Object = Nothing
|
||||
Property nctsWP_WarenwertWaehrung As Object = Nothing
|
||||
Property nctsWP_SchaetzKz As Object = Nothing
|
||||
Property nctsWP_WarenwertProzent As Object = Nothing
|
||||
Property nctsWP_VersendungslandPositionCode As Object = Nothing
|
||||
Property nctsWP_BestimmungslandPositionCode As Object = Nothing
|
||||
Property nctsWP_Rohmasse As Object = Nothing
|
||||
Property nctsWP_Eigenmasse As Object = Nothing
|
||||
|
||||
|
||||
Property nctsWP_VorpapierTyp As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz1 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz1 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz2 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz2 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz3 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz3 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz4 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz4 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz5 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz5 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz6 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz6 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz7 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz7 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz8 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz8 As Object = Nothing
|
||||
Property nctsWP_VorpapierReferenz9 As Object = Nothing
|
||||
Property nctsWP_VorpapierZusatz9 As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Property nctsWP_BesondereVermeke_ExportAusEU As Object = Nothing
|
||||
Property nctsWP_BesondereVermeke_ExportAusLand As Object = Nothing
|
||||
Property nctsWP_BesondereVermeke_Export As Object = Nothing
|
||||
|
||||
Property nctsWP_BesondereVermeke_ExportBeschraenkung As Object = Nothing
|
||||
Property nctsWP_BesondereVermeke_ExportAbgaben As Object = Nothing
|
||||
Property nctsWP_BesondereVermeke_Vermerk As Object = Nothing
|
||||
Property nctsWP_BesondereVermeke_Kz10600 As Object = Nothing
|
||||
|
||||
|
||||
Property nctsWP_Versender_EORI As Object = Nothing
|
||||
Property nctsWP_Versender_NLNR As Object = Nothing
|
||||
Property nctsWP_Versender_TIN As Object = Nothing
|
||||
Property nctsWP_Versender_Name As Object = Nothing
|
||||
Property nctsWP_Versender_StrasseHausnummer As Object = Nothing
|
||||
Property nctsWP_Versender_Ort As Object = Nothing
|
||||
Property nctsWP_Versender_PLZ As Object = Nothing
|
||||
Property nctsWP_Versender_Land As Object = Nothing
|
||||
Property nctsWP_Empfaenger_EORI As Object = Nothing
|
||||
Property nctsWP_Empfaenger_NLNR As Object = Nothing
|
||||
Property nctsWP_Empfaenger_TIN As Object = Nothing
|
||||
Property nctsWP_Empfaenger_Name As Object = Nothing
|
||||
Property nctsWP_Empfaenger_StrasseHausnummer As Object = Nothing
|
||||
Property nctsWP_Empfaenger_Ort As Object = Nothing
|
||||
Property nctsWP_Empfaenger_PLZ As Object = Nothing
|
||||
Property nctsWP_Empfaenger_Land As Object = Nothing
|
||||
Property nctsWP_SumAKennnummerSendung As Object = Nothing
|
||||
Property nctsWP_SumABefoerderungskostenZahlungsweise As Object = Nothing
|
||||
Property nctsWP_SumAUNGefahrgutnummer As Object = Nothing
|
||||
Property nctsWP_SumAVersender_EORI As Object = Nothing
|
||||
Property nctsWP_SumAVersender_NLNR As Object = Nothing
|
||||
Property nctsWP_SumAVersender_TIN As Object = Nothing
|
||||
Property nctsWP_SumAVersender_Name As Object = Nothing
|
||||
Property nctsWP_SumAVersender_StrasseHausnummer As Object = Nothing
|
||||
Property nctsWP_SumAVersender_Ort As Object = Nothing
|
||||
Property nctsWP_SumAVersender_PLZ As Object = Nothing
|
||||
Property nctsWP_SumAVersender_Land As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_EORI As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_NLNR As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_TIN As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_Name As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_StrasseHausnummer As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_Ort As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_PLZ As Object = Nothing
|
||||
Property nctsWP_SumAEmpfaenger_Land As Object = Nothing
|
||||
|
||||
|
||||
'Property nctsWP_KdRefNr As Object = Nothing
|
||||
|
||||
|
||||
Property nctsWP_PACKSTUECKE As New List(Of cDakosy_NCTSOut_WarenpositionPackstuecke)
|
||||
Property nctsWP_UNTERLAGEN As New List(Of cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
' Me.nctsWP_NctsId = nctsWP_NctsId
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Public Class cDakosy_NCTSOut_WarenpositionPackstuecke
|
||||
|
||||
'Property nctsWpPk_Id As Integer
|
||||
'Property nctsWpPk_nctsWPId As Integer
|
||||
'Property nctsWpPk_NctsId As Integer
|
||||
|
||||
Property nctsWpPk_PackstueckeAnzahl As Object = Nothing
|
||||
Property nctsWpPk_Verpackungsart As Object = Nothing
|
||||
Property nctsWpPk_ZeichenNummern As Object = Nothing
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
' Me.nctsWpPk_nctsWPId = nctsWpPk_nctsWPId
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Public Class cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen
|
||||
|
||||
'Property nctsWpUl_Id As Integer
|
||||
'Property nctsWpUl_nctsWPId As Integer
|
||||
'Property nctsWpUl_NctsId As Integer
|
||||
Property nctsWpUl_Typ As Object = Nothing
|
||||
Property nctsWpUl_Referenz As Object = Nothing
|
||||
Property nctsWpUl_Zusatz As Object = Nothing
|
||||
|
||||
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Sub New()
|
||||
' Me.nctsWpUl_nctsWPId = nctsWpUl_nctsWPId
|
||||
End Sub
|
||||
|
||||
|
||||
'Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Id", nctsWpUl_Id, , True, True))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_nctsWPId", nctsWpUl_nctsWPId))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_NctsId", nctsWpUl_NctsId))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Typ", nctsWpUl_Typ))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Referenz", nctsWpUl_Referenz))
|
||||
' list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("nctsWpUl_Zusatz", nctsWpUl_Zusatz))
|
||||
' Return list
|
||||
'End Function
|
||||
|
||||
|
||||
'Public Function INSERT() As Boolean
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' nctsWpUl_Id = SQL.doSQLVarListID(nctsWpUl_Id, getInsertCmd(), "FMZOLL", , list)
|
||||
' Return nctsWpUl_Id > 0
|
||||
'End Function
|
||||
|
||||
'Public Function getInsertCmd() As String
|
||||
' Try
|
||||
' Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
|
||||
' Dim str As String = ""
|
||||
' Dim values As String = ""
|
||||
' For Each i In list
|
||||
' If Not i.isPrimaryParam Then
|
||||
' str &= "[" & i.Text & "],"
|
||||
' values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
' End If
|
||||
' Next
|
||||
' str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
' values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
' Return (" INSERT INTO tblDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen (" & str & ") VALUES(" & values & ") ")
|
||||
' Catch ex As Exception
|
||||
' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
' End Try
|
||||
' Return ""
|
||||
'End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user