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;