OK! Here is the code. What should I change?
SendMail()
//PDF - New function
PurchaseHeader := Rec;
MailCU.PurchaseUnPostedFORMSendMail(PurchaseHeader,0);
Form - OnOpenForm()
IF UserMgt.GetPurchasesFilter() <> ‘’ THEN BEGIN
FILTERGROUP(2);
SETRANGE(“Responsibility Center”,UserMgt.GetPurchasesFilter());
FILTERGROUP(0);
END;
Form - OnFindRecord()
IF FIND (Which) THEN
EXIT(TRUE)
ELSE BEGIN
SETRANGE(“No.”);
EXIT(FIND(Which));
END;
Form - OnAfterGetRecord()
SETRANGE(“Document Type”);
Form - OnNewRecord()
“Responsibility Center” := UserMgt.GetPurchasesFilter();
Form - OnDeleteRecord()
CurrForm.SAVERECORD;
EXIT(ConfirmDeletion);
- OnAssistEdit()
IF AssistEdit(xRec) THEN
CurrForm.UPDATE;
- OnAfterValidate()
CurrForm.UPDATE;
- OnAfterValidate()
CurrForm.PurchLines.FORM.UpdateForm(TRUE);
- OnAfterValidate()
CurrForm.PurchLines.FORM.UpdateForm(TRUE);
- OnAfterValidate()
CurrForm.PurchLines.FORM.UpdateForm(TRUE);
- OnAfterValidate()
CurrForm.UPDATE;
- OnAfterValidate()
CurrForm.UPDATE;
- OnAfterValidate()
CurrForm.PurchLines.FORM.UpdateForm(TRUE);
- OnAssistEdit()
CLEAR(ChangeExchangeRate);
ChangeExchangeRate.SetParameter(“Currency Code”,“Currency Factor”,“Posting Date”);
IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN
VALIDATE(“Currency Factor”,ChangeExchangeRate.GetParameter);
CurrForm.UPDATE;
END;
CLEAR(ChangeExchangeRate);
- OnAfterValidate()
CurrForm.UPDATE;
- OnPush()
PurchSetup.GET;
IF PurchSetup.“Calc. Inv. Discount” THEN BEGIN
CurrForm.PurchLines.FORM.CalcInvDisc;
COMMIT;
END;
FORM.RUNMODAL(FORM::“Purchase Order Statistics”,Rec);
- OnPush()
Rec.ShowDocDim;
- OnPush()
ApprovalEntries.Setfilters(DATABASE::“Purchase Header”,“Document Type”,“No.”);
ApprovalEntries.RUN;
- OnPush()
CurrForm.PurchLines.FORM.OpenSalesOrderForm;
- OnPush()
PurchHeader.COPY(Rec);
DistIntegration.GetSpecialOrders(PurchHeader);
Rec := PurchHeader;
- OnPush()
CurrForm.PurchLines.FORM.OpenSpecOrderSalesOrderForm;
- OnPush()
CurrForm.PurchLines.FORM.ApproveCalcInvDisc;
- OnPush()
CurrForm.PurchLines.FORM.ExplodeBOM;
- OnPush()
CurrForm.PurchLines.FORM.InsertExtendedText(TRUE);
- OnPush()
StdVendPurchCode.InsertPurchLines(Rec);
- OnPush()
CurrForm.PurchLines.FORM.ShowReservation;
- OnPush()
CurrForm.PurchLines.FORM.ShowTracking;
- OnPush()
CopyPurchDoc.SetPurchHeader(Rec);
CopyPurchDoc.RUNMODAL;
CLEAR(CopyPurchDoc);
- OnPush()
ArchiveManagement.ArchivePurchDocument(Rec);
CurrForm.UPDATE(FALSE);
- OnPush()
CLEAR(MoveNegPurchLines);
MoveNegPurchLines.SetPurchHeader(Rec);
MoveNegPurchLines.RUNMODAL;
MoveNegPurchLines.ShowDocument;
- OnPush()
GetSourceDocInbound.CreateFromPurchOrder(Rec);
IF NOT FIND(’=><’) THEN
INIT;
- OnPush()
CreateInvtPutAwayPick;
IF NOT FIND(’=><’) THEN
INIT;
- OnPush()
IF ApprovalMgt.SendPurchaseApprovalRequest(Rec) THEN;
- OnPush()
IF ApprovalMgt.CancelPurchaseApprovalRequest(Rec,TRUE,TRUE) THEN;
- OnPush()
IF ApprovalMgt.TestPurchasePrepayment(Rec) THEN
ERROR(STRSUBSTNO(Text001,“Document Type”,“No.”))
ELSE BEGIN
IF ApprovalMgt.TestPurchasePayment(Rec) THEN BEGIN
IF NOT CONFIRM(STRSUBSTNO(Text002,“Document Type”,“No.”)) THEN
EXIT;
Status := Status::“Ootel ettemaks”;
MODIFY;
CurrForm.UPDATE;
END ELSE
ReleasePurchDoc.PerformManualRelease(Rec);
END;
- OnPush()
ReleasePurchDoc.PerformManualReopen(Rec);
- OnPush()
//PDF
SendMail()
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
BizTalkManagement.SendPurchaseOrder(Rec);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
ICInOutboxMgt.SendPurchDoc(Rec,FALSE);
- OnPush()
ReportPrint.PrintPurchHeader(Rec);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN BEGIN
IF ApprovalMgt.TestPurchasePrepayment(Rec) THEN
ERROR(STRSUBSTNO(Text001,“Document Type”,“No.”))
ELSE BEGIN
IF ApprovalMgt.TestPurchasePayment(Rec) THEN BEGIN
IF NOT CONFIRM(STRSUBSTNO(Text002,“Document Type”,“No.”),TRUE) THEN
EXIT
ELSE
CODEUNIT.RUN(CODEUNIT::“Purch.-Post (Yes/No)”,Rec);
END ELSE
CODEUNIT.RUN(CODEUNIT::“Purch.-Post (Yes/No)”,Rec);
END;
END;
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN BEGIN
IF ApprovalMgt.TestPurchasePrepayment(Rec) THEN
ERROR(STRSUBSTNO(Text001,“Document Type”,“No.”))
ELSE BEGIN
IF ApprovalMgt.TestPurchasePayment(Rec) THEN BEGIN
IF NOT CONFIRM(STRSUBSTNO(Text002,“Document Type”,“No.”),TRUE) THEN
EXIT
ELSE
CODEUNIT.RUN(CODEUNIT::“Purch.-Post + Print”,Rec);
END ELSE
CODEUNIT.RUN(CODEUNIT::“Purch.-Post + Print”,Rec);
END;
END;
- OnPush()
REPORT.RUNMODAL(REPORT::“Batch Post Purchase Orders”,TRUE,TRUE,Rec);
CurrForm.UPDATE(FALSE);
- OnPush()
ReportPrint.PrintPurchHeaderPrepmt(Rec);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
PurchPostYNPrepmt.PostPrepmtInvoiceYN(Rec,FALSE);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
PurchPostYNPrepmt.PostPrepmtInvoiceYN(Rec,TRUE);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
PurchPostYNPrepmt.PostPrepmtCrMemoYN(Rec,FALSE);
- OnPush()
IF ApprovalMgt.PrePostApprovalCheck(SalesHeader,Rec) THEN
PurchPostYNPrepmt.PostPrepmtCrMemoYN(Rec,TRUE);
- OnPush()
DocPrint.PrintPurchHeader(Rec);
- OnPush()
CurrForm.PurchLines.FORM.ItemAvailability(0);
- OnPush()
CurrForm.PurchLines.FORM.ItemAvailability(1);
- OnPush()
CurrForm.PurchLines.FORM.ItemAvailability(2);
- OnPush()
CurrForm.PurchLines.FORM.ShowReservationEntries;
- OnPush()
CurrForm.PurchLines.FORM.OpenItemTrackingLines;
- OnPush()
CurrForm.PurchLines.FORM.ShowDimensions;
- OnPush()
CurrForm.PurchLines.FORM.ItemChargeAssgnt;