7. März 2006 14:45
7. März 2006 15:16
7. März 2006 15:37
7. März 2006 15:49
Report - OnPreReport()
Aktualisieren(1,WORKDATE);
Report - OnPostReport()
Report - OnCreateHyperlink(VAR URL : Text[1024])
Report - OnHyperlink(URL : Text[1024])
Aktualisieren("TabNr." : Integer;EndDatum : Date)
IF ISCLEAR(xlApp) THEN
CREATE(xlApp);
xlApp.Workbooks._Open(FileName,FALSE,FALSE);
xlWorkbook := xlApp.ActiveWorkbook;
xlSheets := xlWorkbook.Worksheets;
xlWorkSheet := xlSheets.Item(1);
xlWorkSheet.Activate;
LineNoArtikelbuchblattZeile:=10000;
i := 2;
REPEAT
//ArtikelInventurEinlesen;
PositionenInventurEinlesen;
i += 1;
LineNoArtikelbuchblattZeile:=LineNoArtikelbuchblattZeile+10000;
UNTIL ((FORMAT(xlWorkSheet.Range('A'+ FORMAT(i)).Value) =''));
xlWorkbook.Save;
xlWorkbook.Close;
CLEAR(xlApp);
ArtikelInventurEinlesen()
HerstArtNummer:=FORMAT(xlWorkSheet.Range('A'+ FORMAT(i)).Value);
ArtBezeichnung1:=FORMAT(xlWorkSheet.Range('B'+ FORMAT(i)).Value);
ArtBezeichnung2:=FORMAT(xlWorkSheet.Range('C'+ FORMAT(i)).Value)+' '+FORMAT(xlWorkSheet.Range('D'+ FORMAT(i)).Value);
Hersteller:=FORMAT(xlWorkSheet.Range('E'+ FORMAT(i)).Value);
EKPreis:=xlWorkSheet.Range('F'+ FORMAT(i)).Value;
VKPreis:=xlWorkSheet.Range('G'+ FORMAT(i)).Value;
locItem.SETRANGE(locItem."Manufacturer Item No.",HerstArtNummer);
IF locItem.FIND('-') THEN BEGIN
xlWorkSheet.Range('H'+ FORMAT(i)).Value:=FORMAT(locItem."No.");
xlWorkSheet.Range('I'+ FORMAT(i)).Value:='JA';
END ELSE BEGIN
locItem.INIT;
locItem.INSERT(TRUE);
locItem."Manufacturer Item No.":=HerstArtNummer;
locItem.Description:=ArtBezeichnung1;
locItem."Description 2":=ArtBezeichnung2;
locItem.VALIDATE(locItem."Manufacturer Code",Hersteller);
locItem."Unit Cost":=EKPreis;
locItem."Unit Price":=VKPreis;
locItem.VALIDATE(locItem."Service Item Group",'KEINEID');
locItem.VALIDATE(locItem.Garantiecode,'00-00-06');
locItem.VALIDATE(locItem."Gen. Prod. Posting Group",'ERSATZTEIL');
locItem.VALIDATE(locItem."Inventory Posting Group",'LAGER');
locItem.VALIDATE(locItem."Item Category Code",'ERSATZTEIL');
locItem.VALIDATE(locItem."Requisition Template",'SERVICE');
locItem.MODIFY;
locArtikeleinheit.INIT;
locArtikeleinheit."Item No.":=locItem."No.";
locArtikeleinheit.Code:='STÜCK';
locArtikeleinheit.INSERT;
locArtikeleinheit."Qty. per Unit of Measure":=1;
locArtikeleinheit.MODIFY;
locItem."Base Unit of Measure":='STÜCK';
locItem.MODIFY;
xlWorkSheet.Range('H'+ FORMAT(i)).Value:=FORMAT(locItem."No.");
xlWorkSheet.Range('I'+ FORMAT(i)).Value:='NEIN';
END;
PositionenInventurEinlesen()
locArtbuchBlattZeile.INIT;
locArtbuchBlattZeile."Journal Template Name":='ARTIKEL';
locArtbuchBlattZeile."Journal Batch Name":='STANDARD';
locArtbuchBlattZeile."Line No.":=LineNoArtikelbuchblattZeile;
locArtbuchBlattZeile.INSERT;
locArtbuchBlattZeile."Posting Date":=TODAY;
locArtbuchBlattZeile."Entry Type":=2;
locArtbuchBlattZeile."Document No.":='Anfangsbestand';
locArtbuchBlattZeile.VALIDATE(locArtbuchBlattZeile."Item No.",FORMAT(xlWorkSheet.Range('A'+ FORMAT(i)).Value));
locArtbuchBlattZeile.VALIDATE(locArtbuchBlattZeile.Quantity,xlWorkSheet.Range('C'+ FORMAT(i)).Value);
locArtbuchBlattZeile.VALIDATE(locArtbuchBlattZeile."Location Code",FORMAT(xlWorkSheet.Range('D'+ FORMAT(i)).Value));
locArtbuchBlattZeile.MODIFY;
IF locItem.GET(locArtbuchBlattZeile."Item No.") THEN BEGIN
locArtbuchBlattZeile."Unit Amount":=locItem."Unit Cost";
locArtbuchBlattZeile."Unit Cost":=locItem."Unit Cost";
locArtbuchBlattZeile.Amount:=locArtbuchBlattZeile.Quantity*locItem."Unit Cost";
END;
locArtbuchBlattZeile.MODIFY;
7. März 2006 16:03
mgerhartz hat geschrieben:Die Form "Sales Invoice" hat ja als Source Table die Tabellen Sales Line Header und Sales Line.
7. März 2006 16:08
7. März 2006 16:12
7. März 2006 16:20
7. März 2006 16:22
7. März 2006 16:24
7. März 2006 16:40
7. März 2006 16:44
7. März 2006 16:53
7. März 2006 16:58
7. März 2006 17:00
7. März 2006 17:02
7. März 2006 17:09
JanV hat geschrieben:Ich würds ähnlich machen wie Marc, nur würde ich direkt per Report auf die Excel-Tabelle gehen und die Daten ggf. dort nachpflegen. Das würde dann die neue Tabelle sparen, letztendlich ists aber geschmackssache und Marcs Weg wäre wahrscheinlich auch der leichtere. Aber ich find Excel-Reports einfach cool
7. März 2006 17:11
7. März 2006 17:13
7. März 2006 17:14
7. März 2006 17:47
8. März 2006 10:38
8. März 2006 12:44
8. März 2006 13:02
8. März 2006 13:43
Artikelzusatzdaten - OnBeforeImportRecord()
Artikelzusatzdaten.ChNrCode:='';
i+=1;
IF i<2 THEN CurrFile.SEEK(364); //letzte Spalte der Überschriftenzeile + 1
Artikelzusatzdaten - OnPostDataItem()
MESSAGE (STRSUBSTNO('%1 Artikel eingelesen',i));