27. Februar 2020 08:40
27. Februar 2020 09:28
27. Februar 2020 10:03
zannaleer hat geschrieben:...im Einkaufskopf das Feld "Posting No." (63) gefüllt ist.
Hier steht dann die gebuchte Rechnungsnummer, die sich das System beim Buchen auch nimmt.
Is it a bug or is it a feature?
...
27. Februar 2020 11:15
27. Februar 2020 13:27
LOCAL ValidatePostingAndDocumentDate(VAR PurchaseHeader : Record "Purchase Header")
IF PostingDateExists AND (ReplacePostingDate OR (PurchaseHeader."Posting Date" = 0D)) THEN BEGIN
PurchaseHeader."Posting Date" := PostingDate;
PurchaseHeader.VALIDATE("Currency Code");
END;
IF PostingDateExists AND (ReplaceDocumentDate OR (PurchaseHeader."Document Date" = 0D)) THEN
PurchaseHeader.VALIDATE("Document Date",PostingDate);
27. Februar 2020 14:12
JRenz hat geschrieben:Das Problem ist meines Erachtens, dass die erste IF-Bedingung nicht erfüllt ist, weil in deinen zuvor nicht gebuchten Rechnungen das Feld "Posting Date" nicht leer ist.
PurchPost.SetPostingDate(ReplacePostingDate,ReplaceDocumentDate,PostingDateReq);
Function SetPostingDate(NewReplacePostingDate : Boolean;NewReplaceDocumentDate : Boolean;NewPostingDate : Date)
PostingDateExists := TRUE;
ReplacePostingDate := NewReplacePostingDate;
ReplaceDocumentDate := NewReplaceDocumentDate;
PostingDate := NewPostingDate;
27. Februar 2020 15:41
27. Februar 2020 15:51
LOCAL PROCEDURE CalcInvDiscount@134(VAR PurchHeader@1000 : Record 38);
VAR
PurchaseHeaderCopy@1005 : Record 38;
PurchLine@1001 : Record 39;
BEGIN
WITH PurchHeader DO BEGIN
IF NOT (PurchSetup."Calc. Inv. Discount" AND (Status <> Status::Open)) THEN
EXIT;
PurchaseHeaderCopy := PurchHeader;
PurchLine.RESET;
PurchLine.SETRANGE("Document Type","Document Type");
PurchLine.SETRANGE("Document No.","No.");
PurchLine.FINDFIRST;
CODEUNIT.RUN(CODEUNIT::"Purch.-Calc.Discount",PurchLine);
RefreshTempLines(PurchHeader);
GET("Document Type","No.");
RestorePurchaseHeader(PurchHeader,PurchaseHeaderCopy);
IF NOT PreviewMode THEN
COMMIT;
END;
EXIT;
END;
27. Februar 2020 16:06