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;
...