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;
mgerhartz hat geschrieben:Die Form "Sales Invoice" hat ja als Source Table die Tabellen Sales Line Header und Sales Line.
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
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));
Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast