// // SAP-PRN-CREA.VDM CZ 03.01.2002 // 06.01.2003 // // C:\xxx\SAP\E40-prn-templ-hd.txt // C:\xxx\SAP\E40-prn-templ.txt // C:\xxx\SAP\Prn-Anford.txt BS(1) Ins_File("C:\xxx\SAP\E40-prn-templ-hd.txt") // Header-Template Reg_Load(10, "C:\xxx\SAP\E40-prn-templ.txt") // Drucker-Template BS(3) File_Open("C:\xxx\SAP\Prn-Anford.txt") // Liste der Anforderungen BoF while(! At_EoF){ BS(3) #99=CP Search("#") RCB(11, #99, CP) // Number RCB(14, #99+1, CP) // Number, 2-stellig Char(1) #99=CP Search("#") Search("|!|W", REVERSE+ADVANCE) RCB(12, #99, CP) // Typ Search("#", ADVANCE) RCB(13, CP, EoL_Pos) // Beschreibung Line(1) BS(2) // work on template Buf_Empty(OK) Reg_Ins(10) Replace("@NAME@", "den|@(11)", BEGIN+ALL) Replace("@PADEST@", "N|@(11)", BEGIN+ALL) Replace("@PAMODEL@", "|@(12)", BEGIN+ALL) Replace("@PASTANDORT@", "|@(13)", BEGIN+ALL) Replace("@PAMSG@", "|@(13)", BEGIN+ALL) Replace("@##@", "|@(14)", BEGIN+ALL) BoF RCB(13, 0, File_Size) BS(1) EoF Reg_Ins(13) BS(3) }