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;