Dies ist eine alte Version des Dokuments!
EDIFACT
2020_06_09_Buschbeck_BE
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