21. Juni 2007 14:18
25. Juni 2007 15:21
26. Juni 2007 15:57
26. Juni 2007 17:46
26. Juni 2007 20:37
Documentation()
//Neue Funktion SetOptions
SetOptions(Type : 'Quote,Blanket Order,Order,Invoice,Return Order,Credit Memo,Posted Shipment,Posted Invoice,Posted Return Receipt,Post
DocType := Type;
DocNo := "No.";
IncludeHeader := IncHeader;
RecalculateLines := RecalcLines;
//ProcessingOnly = Yes
//RequestForm mit NewDocType als Option
Sales Invoice Header - OnAfterGetRecord()
//Neuen Verkaufskopf erzeugen
SalesHeader.INIT;
SalesSetup.GET;
SalesHeader."Document Type" := NewDocType;
//Nr. aus Nummernserie ziehen
TestNoSeries;
NoSeriesMgt.InitSeries
(GetNoSeriesCode,SalesSetup."Invoice Nos.",SalesHeader."Posting Date",SalesHeader."No.",SalesHeader."No. Series");
initRec;
SalesHeader.INSERT;
//Report Beleg kopieren aufrufen
//Neue Belegnr. übergeben
CopySalesDoc.SetSalesHeader(SalesHeader);
//zu kopierenden Beleg übergeben
// 7=geb. Rechnung 9= geb. Gutschrift
CopySalesDoc.SetOptions(7,"Sales Invoice Header"."No.",TRUE,FALSE);
CopySalesDoc.RUNMODAL;
//alles wieder putzen
CLEAR(CopySalesDoc);
CLEAR(SalesHeader);
27. Juni 2007 17:51