Modify function in Existing Standard Codeunit 81 "Sales-Post (Yes/No)" in AL.

Answers

• Options

  SanderDk Member Posts: 497

  2019-04-08

  Is you run the eventrecord page and start recording you can see which event you can hook into..
  Or read the code in C/Side

  For help, do not use PM, use forum instead, perhaps other people have the same question, or better answers.
  

  1
• Options

  Duikmeester Member Posts: 304

  2019-04-09

  Create a subscriber on Codeunit 81 OnBeforeConfirmSalesPost which has the parameters:
  VAR SalesHeader : Record "Sales Header" <= Set SalesHeader.Ship := TRUE and SalesHeader.Invoice := TRUE;
  VAR HideDialog : Boolean <= Set HideDialog := TRUE;
  VAR IsHandled : Boolean <= Set IsHandled := TRUE;

  1
• Options

  Ghizlane Member Posts: 45

  2019-04-09

  Hi Dukmeester
  Even if I add this parametres I still have the same dialog
  
  
  
  
  
  

  0
• Options

  Ghizlane Member Posts: 45

  2019-04-09

  Hi SanderDk,
  I know that I should modify OnBeforeConfirmSalesPost event on Codeunit 81, but I don't know how I can do it .
  can you please advice me?

  0
• Options

  TallyHo Member Posts: 383

  2019-04-09 edited 2019-04-09

  You should add SalesHeader, HideDialog, and so on (check OnBeforeConfirmSalesPost parameters in CU81) as parameters of your Eventsubscriber. And even then, you will only be able to skip the posting, skip the dialog, or fill the default option of the dialog. There will be three options on it if it is shown, I don't see how to change that using AL code. That being said.. set IsHandled to true, and write your own "CU81" that's probably the way to go now.

  1
• Options

  Ghizlane Member Posts: 45

  2019-04-09

  as you know in business central i can't modify on standard code and there isn't a way to create an extension of codeunit
  the solution is created eventsubscriber .
  I try to create it but I don't know how can I acces to function on standard codeunit and modify it .
  I wanna to remove option ship and invoice
  if you have any idea would you help me .
  thnx

  0
• Options

  TallyHo Member Posts: 383

  2019-04-09 Answer ✓

  This is probably in the direction of what you need, now be creative
  
  LOCAL Code(VAR SalesHeader : Record "Sales Header";PostAndSend : Boolean)
  HideDialog := FALSE;
  IsHandled := FALSE;
  DefaultOption := 3;
  IF IsHandled THEN
  EXIT;
  
  IF NOT HideDialog THEN
  IF NOT ConfirmPost(SalesHeader,DefaultOption) THEN
  EXIT;
  
  
  SalesSetup.GET;
  IF SalesSetup."Post with Job Queue" AND NOT PostAndSend THEN
  SalesPostViaJobQueue.EnqueueSalesDoc(SalesHeader)
  ELSE
  CODEUNIT.RUN(CODEUNIT::"Sales-Post",SalesHeader);
  
  
  LOCAL ConfirmPost(VAR SalesHeader : Record "Sales Header";DefaultOption : Integer) : Boolean
  IF DefaultOption > 3 THEN
  DefaultOption := 3;
  IF DefaultOption <= 0 THEN
  DefaultOption := 1;
  
  WITH SalesHeader DO BEGIN
  CASE "Document Type" OF
  "Document Type"::Order:
  BEGIN
  Selection := STRMENU(ShipInvoiceQst,DefaultOption);
  Ship := Selection IN [1,3];
  Invoice := Selection IN [2,3];
  IF Selection = 0 THEN
  EXIT(FALSE);
  END;
  "Document Type"::"Return Order":
  BEGIN
  Selection := STRMENU(ReceiveInvoiceQst,DefaultOption);
  IF Selection = 0 THEN
  EXIT(FALSE);
  Receive := Selection IN [1,3];
  Invoice := Selection IN [2,3];
  END
  ELSE
  IF NOT ConfirmManagement.ConfirmProcess(
  STRSUBSTNO(PostConfirmQst,LOWERCASE(FORMAT("Document Type"))),TRUE)
  THEN
  EXIT(FALSE);
  END;
  "Print Posted Documents" := FALSE;
  END;
  EXIT(TRUE);
  
  

  5
• Options

  Duikmeester Member Posts: 304

  2019-04-09 edited 2019-04-09

  You defined the SalesHeader, HideDialog, IsHandled variables as locals instead of parameters.
  
  
  
  All as VAR ofcourse.

  1
• Options

  Ghizlane Member Posts: 45

  2019-04-09

  I try it but I get the same dialog box .

  0
• Options

  Duikmeester Member Posts: 304

  2019-04-09

  if you used VAR SalesHeader;VAR HideDialog;VAR IsHandled then I have no clue why it would not work. Can only think the extension was not properly activated or something. Run with debug and put a breakpoint on the first line in the extension.

  1
• Options

  TallyHo Member Posts: 383

  2019-04-09 edited 2019-04-09

  If you run it with IsHandled := true, nothing wil happen, CU81 is exited.
  If you run it with HideDialog := true, no dialog wil appear.
  You cannot change the appearance of dialog with this.
  So, set Ishandled to true, and write own code. This is the only way to change appearance.

  0
• Options

  MesutG Member Posts: 19

  2019-04-09

  Please try the my code
  
  
  

  1
• Options

  Ghizlane Member Posts: 45

  2019-04-10 edited 2019-04-10

  Hi MesutG,
  I try the code that you write me,
  
  
  
  
  
  
  this is result ,
  it showed two dialog box.
  it's possible hide the dialog box that contain (ship invoice ship and invoice)??
  
  best regards
  
  
  

  0
• Options

  Duikmeester Member Posts: 304

  2019-04-10 edited 2019-04-10 Answer ✓

  You still have the variables as locals and not as parameters!
  
  
  
  It should be

  MyconfirmPost(VAR SalesHeader : Record "Sales Header";VAR HideDialog : Boolean;VAR IsHandled : Boolean)
  

  5
• Options

  kriki Member, Moderator Posts: 9,090

  2019-04-10

  [Topic moved from 'NAV Courses, Exams & Certification' forum to 'NAV Three Tier' forum]
  
  

  Regards,Alain Krikilion
  No PM,please use the forum. || May the <SOLVED>-attribute be in your title!
  
  

  1
• Options

  Ghizlane Member Posts: 45

  2019-04-10 Answer ✓

  I change the variables as parameters and it does work
  
  
  
  
  But I don't understand why it does work even if the functions doesn't have the same name as codeunit 81(standard) (ConfirmPost;MyConfirmPost)
  
  

  0