18. September 2008 09:23
IF SummarizePerVend THEN BEGIN
TempPaymentBuffer."Vendor Ledg. Entry No." := 0;
// Neu eingefügt ++++++++++++++++++++++++++++++++++++++++
IF SummiereProBenutzerfeld1 THEN BEGIN
TempPaymentBuffer.SETCURRENTKEY(TempPaymentBuffer."Vendor No.",TempPaymentBuffer.Benutzerfeld1);
TempPaymentBuffer.SETFILTER(TempPaymentBuffer.AlNr,VendLedgEntry.Benutzerfeld1);
END;
// ---------------------------------------------------------------------------
IF TempPaymentBuffer.FIND THEN BEGIN
TempPaymentBuffer.Amount := TempPaymentBuffer.Amount + PayableVendLedgEntry.Amount;
TempPaymentBuffer.MODIFY;
END ELSE BEGIN
TempPaymentBuffer."Document No." := NextDocNo;
NextDocNo := INCSTR(NextDocNo);
TempPaymentBuffer.Amount := PayableVendLedgEntry.Amount;
Window.UPDATE(1,VendLedgEntry."Vendor No.");
TempPaymentBuffer.INSERT;