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)