27. Juli 2006 14:08
27. Juli 2006 15:31
27. Juli 2006 18:27
defaultfilename := '*.xml';
Title:=STRSUBSTNO(Text006,category);
IF category=14 THEN Title:='Datei zum Preislisten-Eintrag bei Kunden auswählen';
filename := CommonDialogMgt.OpenFile(Title,defaultfilename,4,Text004,0);
IF filename = defaultfilename THEN EXIT;
Importfile.OPEN(filename);
Importfile.CREATEINSTREAM(Importstream);
CASE category OF
1: XMLPORT.IMPORT(99000,Importstream); // 1: Debitor
2: XMLPORT.IMPORT(99001,Importstream); // 2: Kreditor
3: XMLPORT.IMPORT(99002,Importstream); // 3: Item
4: XMLPORT.IMPORT(99003,Importstream); // 4: Pricelist
5: XMLPORT.IMPORT(99004,Importstream); // 5: BOM
6: XMLPORT.IMPORT(99005,Importstream); // 6: SalesOrder
7: XMLPORT.IMPORT(99006,Importstream); // 7: PurchaseOrder
8: XMLPORT.IMPORT(99007,Importstream); // 8: Delivery
9: XMLPORT.IMPORT(99008,Importstream); // 9: Receipt
10: XMLPORT.IMPORT(99009,Importstream); //10: SalesInvoice
11: XMLPORT.IMPORT(99010,Importstream); //11: PurchaseInvoice
12: XMLPORT.IMPORT(99011,Importstream); //12: Return Receipt
13: XMLPORT.IMPORT(99012,Importstream); //13: Return Delivery
14: XMLPORT.IMPORT(99013,Importstream); //14: PL2Debitor
15: XMLPORT.IMPORT(99014,Importstream); //15: Credit Note
16: XMLPORT.IMPORT(99015,Importstream); //16: Debit Note
17: XMLPORT.IMPORT(99016,Importstream); //17: DeliveryExact
18: XMLPORT.IMPORT(99017,Importstream); //18: SalesInvoiceExact
19: XMLPORT.IMPORT(99018,Importstream); //19: Exact-Rücknahme
20: XMLPORT.IMPORT(99019,Importstream); //20: Exact-Gutschrift
21: XMLPORT.IMPORT(99020,Importstream); //21: Exact-Wareneingang
// 22: XMLPORT.IMPORT(99021,Importstream); //22: Exact-EK-Rechnung
23: XMLPORT.IMPORT(99022,Importstream); //23: HSI-Einheiten
24: XMLPORT.IMPORT(99023,Importstream); //24: Zahlung
END;
Importfile.CLOSE;
Name DataType Subtype Length
Importfile File
Importstream InStream
filename Text 250
CommonDialogMgt Codeunit Common Dialog Management
defaultfilename Text 250
Title Text 50
25. Mai 2007 19:18
25. Mai 2007 20:34
25. Mai 2007 21:16
25. Mai 2007 21:50
Nee, nee, so einfach kommst du uns nicht davon!Michael Schumacher hat geschrieben:Ich glaube, am Bodensee brauch ich kein Geld mitbringen
</OffTopic>rotsch hat geschrieben:[...] Also, wer sich noch nicht für das Treffen am 9. Juni angemeldet hat, sollte das schnellstens nachholen! Es lohnt sich auf jeden Fall, dabei zu sein (nicht nur wegen der Freibiere)