Inhaltsverzeichnis

EDIFACT -Test DokuWiki-

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

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_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