24. April 2014 08:20
24. April 2014 11:05
kockiren hat geschrieben:Geht das nicht einfacher? Das einfachste währe ja das ich beim Ausgleich sagen könnte "nutze Wechselkurs vom" und fertig. Diese Funktion finde ich so nicht. Hat jemand sowas schonmal umgesetzt oder gibt es ein Addon das diese Funktion unterstützt?
24. April 2014 11:27
24. April 2014 11:51
28. April 2014 13:34
PostAmountInLCY := FALSE;
SalesInvHeader.SETRANGE("No.","Document No.");
IF SalesInvHeader.FINDFIRST THEN
PostAmountInLCY := SalesInvHeader.PostAmountInLCY;
IF PostAmountInLCY THEN
CustLedgEntry."Currency Code" := ''
ELSE
CustLedgEntry."Currency Code" := "Currency Code";
IF PostAmountInLCY THEN
DtldCVLedgEntryBuf.Amount := "Amount (LCY)"
ELSE
DtldCVLedgEntryBuf.Amount := Amount;
IF PostAmountInLCY THEN
DtldCVLedgEntryBuf."Additional-Currency Amount" := "Amount (LCY)"
ELSE
DtldCVLedgEntryBuf."Additional-Currency Amount" := Amount;
IF PostAmountInLCY THEN
DtldCVLedgEntryBuf."Currency Code" := ''
ELSE
DtldCVLedgEntryBuf."Currency Code" := "Currency Code";
IF PostAmountInLCY THEN
DtldCVLedgEntryBuf."Currency Code" := ''
ELSE
DtldCVLedgEntryBuf."Currency Code" := "Currency Code";
28. April 2014 21:32
...
InvPostingBuffer[1].DELETEALL;
// Post customer entry
Window.UPDATE(4,1);
GenJnlLine.INIT;
GenJnlLine."Posting Date" := "Posting Date";
GenJnlLine."Document Date" := "Document Date";
GenJnlLine.Description := "Posting Description";
GenJnlLine."Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
GenJnlLine."Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
GenJnlLine."Reason Code" := "Reason Code";
GenJnlLine."Account Type" := GenJnlLine."Account Type"::Customer;
GenJnlLine."Account No." := "Bill-to Customer No.";
GenJnlLine."Document Type" := GenJnlLineDocType;
GenJnlLine."Document No." := GenJnlLineDocNo;
GenJnlLine."External Document No." := GenJnlLineExtDocNo;
// Beginn Behandlung "PostAmountInLcy"
if PostAmountInLCY then begin
GenJnlLine.Amount := -TotalSalesLineLCY."Amount Including VAT";
end else begin
//Standard
GenJnlLine."Currency Code" := "Currency Code";
GenJnlLine.Amount := -TotalSalesLine."Amount Including VAT";
GenJnlLine."Source Currency Code" := "Currency Code";
GenJnlLine."Source Currency Amount" := -TotalSalesLine."Amount Including VAT";
GenJnlLine."Amount (LCY)" := -TotalSalesLineLCY."Amount Including VAT";
end;
// Ende Behandlung "PostAmountInLcy"
IF SalesHeader."Currency Code" = '' THEN
GenJnlLine."Currency Factor" := 1
ELSE
GenJnlLine."Currency Factor" := SalesHeader."Currency Factor";
GenJnlLine.Correction := Correction;
...