wiki:module:edifact [Wiki]

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
====== EDIFACT    -Test DokuWiki-======

bei mehr als drei gleichrangigen Überschriften erstellt sich selbst ein Inhaltsverzeichnis mit Verlinkung
===== 2020_06_09_Buschbeck_BE =====

Einlesen Datei:
120DP
<code sql>
	If NOT EDITools.bWarenempfIstAuftraggeber Then
		'2020_06_03 aus 70555 Für Tabellenversion 34 TWZ_ETS_B+Q ILN-Prüfung (DLL) ausschalten 
                               	 If nVersion = 34 Then
                                   	If Best120.BE_Fehlernummer = 50149 Then    ‚ILN fehlt in Datei
                                       		Best120.BE_Fehlernummer = 0
                                        		Best120.BE_FehlerText = ""
                                    	End If
                               	 End If
		'2015_09_29 ILN-Fehler nicht für Buschbeck 5 und Buschbeck Tchibo 61
                                	If nVersion <> 5 And nVersion <> 61 Then
				BestFehlerKopfsatz = Best120.BE_Fehlernummer
</code>

120UC
<code sql>   'Web-Shop Besteller
                            BestFehlerKopfsatz = Best120.BE_Fehlernummer
                            If gbNull(BestFehlerKopfsatzText) Then
                                BestFehlerKopfsatzText = Best120.BE_FehlerText

                            UC_NR = Best120Col.Count + 1
                            
                            Call Best120Col.Add(Best120)
</code>                            

Beleg erzeugen:
<code sql>
            'wenn USER-Felder USER_LEMail,USER_LTelefon in VKBeleg existieren, werden sie aus der Satzart 120UC
            'oder 120DP übernommen, unabhängig von der Tabellenversion
            'in Template-Tabelle ist in der entsprechenden Version in SA120 Pos 369 in Spalte IMPORT EMAIL einzutragen
	If UC_NR > 0 Then
		oBeleg.vntUserProperty("USER_LEMail") = Trim(Best120Col.Item(UC_NR - 1).BE_EMAIL)
		oBeleg.vntUserProperty("USER_LTelefon") = Trim(Best120Col.Item(UC_NR - 1).BE_Telefon)


	If DP_NR > 0 Then
		oBeleg.vntUserProperty("USER_LEMail") = Trim(Best120Col.Item(DP_NR - 1).BE_EMAIL)
		oBeleg.vntUserProperty("USER_LTelefon") = Trim(Best120Col.Item(DP_NR - 1).BE_Telefon)


If nVersion = 62= Buschbeck Hornbach, 64= Buschbeck BAHAG, 65= Buschbeck_Globus Then
                
If DP_NR > 0 Then
		oBeleg.vntUserProperty("USER_ILNEmpfaenger") = Trim(Best120Col.Item(DP_NR - 1).BE_ILN)
		oBeleg.vntUserProperty("USER_ILNLieferEmpfaenger") = Trim(Best120Col.Item(DP_NR - 1).BE_ILN)
                
	 '2020_01_14 Buschbeck fehlermeldung NICHT bei Version 65
                    If gbNull(oBeleg.vntUserProperty("USER_ILNEmpfaenger")) And gbNull(oBeleg.vntUserProperty("USER_ILNLieferEmpfaenger")) And nVersion < 65 Then
                            BestFehlerKopfsatzText = ILN fehlt in Satzart 120DP
                        Else


	A1Adresse
	65= Buschbeck_Globus aus DP_ILN  Meldungen Fehler in ABF ILN nicht vorhanden
		Existiert eine ILN  oBeleg.sA1Name1, oBeleg.sA1Name2 ... aus KHKAdressen.USER_ILN
		Werden in SA120DP Name1, Straße, PLZ und Ort übergeben, werden aber anschließend diese Infos in die 			Lieferanschrift übernommen

	61=  Buschbeck Tchibo
	64= Buschbeck BAHAG  And (Trim(gvntNull2Arg(Best120Col.Item(DP_NR - 1).BE_ILN, " ")) = "4024506005006"
		oBeleg.sA1Name1, oBeleg.sA1Name2 ... aus 120DP
		oBeleg.sA1Anrede = ""
		oBeleg.sKopfText = "Telefon::" &  Best120Col.Item(DP_NR - 1).BE_Memo

If  UC_NR > 0  and ( 62 = Buschbeck Hornbach Or  64= Buschbeck BAHAG)  Then
	Aus 120UC
	oBeleg.sA1Name1 = Best120Col.Item(UC_NR - 1).BE_Name1
	oBeleg.sA1Name2 = Best120Col.Item(UC_NR - 1).BE_Name2 ...
</code> 

| [[intern:module:edifact:2020_06_09_Funktionen_fuer_Belegnummer]] |


===== 2020_06_09_Info_Tabellen_Programmversion =====

"====================================== 8.0.250 ======================================================="
'neues Formular frmabaEDILSU7 (aus frmabaEDILSU6) mit Vaterpaletten
'frmabaEDILS für Programmversion 100 Packstücke (Tab.V.220) frmabaEDILSU7
'frmanaEDIGrundlagenPartner
'Tabellen EDI2LSSA220
'EDI2Versionen Programm 100 Packstücke LS
'EDI2VersionenTabellen 220 Packstücke LS
'EDI2Protokollarten Packstuecke LS200
'EDI2LSProtokollMIGROS erweitert mit HierachieID,StammId und EDI_Fehler
'usysmessages 50210 Der Beleg $1 enthält keine Paletten
'Für Test EDI2Versionen Programm_Entwicklung

'usysmessages 50176 Es können nur Lieferscheine mit max. 500 Paletten exportiert werden (100-->500)
'Hinweis: Tabelle EDI2PalettenUserfelder wird nur in frmabaEDI2IV verwendet

2020_06_15_MWST\\
2020_06_15_Warenbetrag\\
2020_06_16_Ausgabe Text Umsatzsteuergesetz und Mitarbeiterangaben.docx
2020_06_17_Doku.docx
2020_06_30_Computername.txt
2020_07_01_Konvertierung IMPORT EXPORT.docx
2020_07_06_Auftrag Import Sonderbehandlungen.docx
2020_07_06_LS-Export_Zuordnung_Unterformulare.docx
2020_07_08_EDI_Steuerausgabe.docx
2020_08_17_Doku.docx
2020_08_18_Doku.docx
2020_10_13_EDI2VersionenProgramm.docx
2020_11_24_Auftrag Import.docx
2021_08_04_Auftrag Import.docx
2021_08_04_Erweitern Grundlagen Parner ohne DLLAnpassung.docx
2021_08_04_Konvertierung.txt
2021_08_04_Testkennzeichen.docx
2021_09_21_Hilfsprogramm_Pfadangaben_setzen.docx
2021-10-27_EK Rechnungsimport.docx
Ausgabe Einzelpreise RG1_2020_11_03.docx
EDIFACT_Belegarten.docx
EK Rechnungsimport.docx
RECHNUNG108VMGERALDSAGE100_RG1Test4_2020_06_17_12_20_26.TXT
Referenznummer Referenzzeichen.docx
Spalte_Konvertierung.docx
Steuerbetrag_für_Zuschlaege.txt
Tabellenversionen_BE_Buschbeck_und Layenberger.docx
Testkennzeichen_2020_11_03.docx
USTID Ausgabe_2020_10_12.docx
Interne_Funktion_Ruecksetzen_Tabellenversion