EDIFACT -Test DokuWiki-

Einlesen Datei: 120DP

	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

120UC

   'Web-Shop Besteller
                            BestFehlerKopfsatz = Best120.BE_Fehlernummer
                            If gbNull(BestFehlerKopfsatzText) Then
                                BestFehlerKopfsatzText = Best120.BE_FehlerText
 
                            UC_NR = Best120Col.Count + 1
 
                            Call Best120Col.Add(Best120)

Beleg erzeugen:

            '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 ...

2020_06_09_Info_Tabellen_Programmversion
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