Batch Release\Complete Production Work Orders

twdavis

Does anyone have a process to Batch Release\Complete Production Work Orders that they would like to share? Due to the poor performance of our SQL Navision process, we are forced to schedule the work order release\completion after office hours.

thanks

ara3n

Here is a report. which calls a codeunit

OBJECT Report 50000 Batch Release Production BOM
{
  OBJECT-PROPERTIES
  {
    Date=02/15/07;
    Time=11:40:01 AM;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    ProcessingOnly=Yes;
  }
  DATAITEMS
  {
    { PROPERTIES
      {
        DataItemTable=Table99000771;
        OnPreDataItem=BEGIN
                        SETRANGE(Status,Status::New);
                      END;

        OnAfterGetRecord=BEGIN
                           IF MyRleaseCU.RUN("Production BOM Header") THEN
                             COMMIT;
                         END;

      }
      SECTIONS
      {
        { PROPERTIES
          {
            SectionType=Body;
            SectionWidth=12000;
            SectionHeight=846;
          }
          CONTROLS
          {
          }
           }
      }
       }
  }
  REQUESTFORM
  {
    PROPERTIES
    {
      Width=9020;
      Height=3410;
    }
    CONTROLS
    {
    }
  }
  CODE
  {
    VAR
      MyRleaseCU@1000000000 : Codeunit 50000;

    BEGIN
    END.
  }
}

Here is the CU

OBJECT Codeunit 50000 Production BOM relase
{
  OBJECT-PROPERTIES
  {
    Date=02/15/07;
    Time=11:38:58 AM;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    TableNo=99000771;
    OnRun=BEGIN
            VALIDATE(Status,Status::Certified);
            MODIFY(TRUE)
          END;

  }
  CODE
  {

    BEGIN
    END.
  }
}