Codeunit_0000000091.txt

OBJECT Codeunit 91 Purch.-Post (Yes/No)
{
  OBJECT-PROPERTIES
  {
    Date=09/07/12;
    Time=12:00:00 PM;
    Version List=NAVW17.00;
  }
  PROPERTIES
  {
    TableNo=38;
    OnRun=BEGIN
            PurchHeader.COPY(Rec);
            Code;
            Rec := PurchHeader;
          END;

  }
  CODE
  {
    VAR
      Text000@1000 : TextConst 'ENU=&Receive,&Invoice,Receive &and Invoice;ESM=&Recibir,&Facturar,R&ecibir y facturar;FRC=&R‚ception,&Facture,R‚ception &et Facture;ENC=&Receive,&Invoice,Receive &and Invoice';
      Text001@1001 : TextConst 'ENU=Do you want to post the %1?;ESM=¨Confirma que desea registrar el/la %1?;FRC=D‚sirez-vous reporter la %1?;ENC=Do you want to post the %1?';
      Text002@1002 : TextConst 'ENU=&Ship,&Invoice,Ship &and Invoice;ESM=&Enviar,&Facturar,E&nviar y facturar;FRC=&Livrer,&Facturer,Livrer &et Facturer;ENC=&Ship,&Invoice,Ship &and Invoice';
      PurchHeader@1003 : Record 38;
      Selection@1005 : Integer;

    LOCAL PROCEDURE Code@1();
    VAR
      PurchSetup@1000 : Record 312;
      PurchPostViaJobQueue@1001 : Codeunit 98;
    BEGIN
      WITH PurchHeader DO BEGIN
        CASE "Document Type" OF
          "Document Type"::Order:
            BEGIN
              Selection := STRMENU(Text000,3);
              IF Selection = 0 THEN
                EXIT;
              Receive := Selection IN [1,3];
              Invoice := Selection IN [2,3];
            END;
          "Document Type"::"Return Order":
            BEGIN
              Selection := STRMENU(Text002,3);
              IF Selection = 0 THEN
                EXIT;
              Ship := Selection IN [1,3];
              Invoice := Selection IN [2,3];
            END
          ELSE
            IF NOT
               CONFIRM(
                 Text001,FALSE,
                 "Document Type")
            THEN
              EXIT;
        END;
        "Print Posted Documents" := FALSE;

        PurchSetup.GET;
        IF PurchSetup."Post with Job Queue" THEN
          PurchPostViaJobQueue.EnqueuePurchDoc(PurchHeader)
        ELSE
          CODEUNIT.RUN(CODEUNIT::"Purch.-Post",PurchHeader);
      END;
    END;

    BEGIN
    END.
  }
}