EDIFACT

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_Funktionen_fuer_Belegnummer.xlsx 2020_06_09_Info_Tabellen_Programmversion.txt 2020_06_15_MWST.txt 2020_06_15_Warenbetrag.docx 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