1. Juni 2011 16:33
1. Juni 2011 16:45
1. Juni 2011 19:00
  REPEAT
    GenJnlTotal."Document No." := PaymNo;
    IF PaymentSetup."Only Doc.Type Payment allowed" THEN
      GenJnlTotal.TESTFIELD("Document Type",GenJnlTotal."Document Type"::Payment);
    // CHECK DIMENSIONS
    JnlLineDim.RESET;
    JnlLineDim.SETRANGE("Table ID",DATABASE::"Gen. Journal Line");
    JnlLineDim.SETRANGE("Journal Template Name",GenJnlTotal."Journal Template Name");
    JnlLineDim.SETRANGE("Journal Batch Name",GenJnlTotal."Journal Batch Name");
    JnlLineDim.SETRANGE("Journal Line No.",GenJnlTotal."Line No.");
    TempJnlLineDim.RESET;
    TempJnlLineDim.DELETEALL;
    DimMgt.CopyJnlLineDimToJnlLineDim(JnlLineDim,TempJnlLineDim);
    CheckGenJnlLine.RunCheck(GenJnlTotal,TempJnlLineDim);
    IF GenJnlTotal.Amount >0 THEN BEGIN
      GenJnlInv.INIT();
      GenJnlInv.TRANSFERFIELDS(GenJnlTotal);
      GenJnlInv."Disk Type" :=  GenJnlInv."Disk Type"::Invoice;
      GenJnlInv.INSERT();
    END ELSE BEGIN
      GenJnlCredMemo.INIT();
      GenJnlCredMemo.TRANSFERFIELDS(GenJnlTotal);
      GenJnlCredMemo."Disk Type" := GenJnlInv."Disk Type"::"Credit Memo";
      GenJnlCredMemo.INSERT();
    END;
  UNTIL GenJnlTotal.NEXT() = 0;