OBJECT Codeunit 7 GLBudget-Open
{
  OBJECT-PROPERTIES
  {
    Date=;
    Time=;
    Version List=;
  }
  PROPERTIES
  {
    TableNo=15;
    OnRun=BEGIN
            IF GETFILTER("Budget Filter") = '' THEN
              SearchForName := TRUE
            ELSE BEGIN
              GLBudgetName.SETFILTER(Name,GETFILTER("Budget Filter"));
              SearchForName := NOT GLBudgetName.FINDFIRST;
              GLBudgetName.SETRANGE(Name);
            END;
            IF SearchForName THEN BEGIN
              IF NOT GLBudgetName.FINDFIRST THEN BEGIN
                GLBudgetName.INIT;
                GLBudgetName.Name := Text000;
                GLBudgetName.Description := Text001;
                GLBudgetName.INSERT;
              END;
              SETFILTER("Budget Filter",GLBudgetName.Name);
            END;
          END;

  }
  CODE
  {
    VAR
      Text000@1000 : TextConst 'ENU=DEFAULT';
      Text001@1001 : TextConst 'ENU=Default Budget';
      GLBudgetName@1002 : Record 95;
      SearchForName@1003 : Boolean;

    BEGIN
    END.
  }
}