{
-----------------------------------------------------------------------------
PROGRAMA              : CGPRMT012
OBJETIVO                 :  Catalogo de Estados Financieros
PROGRAMADOR       : Ing. Juan Soto
FECHA REALIZACION: Noviembre 10, 2009.
------------------------------------------------------------------------------
}
GLOBALS
 "cgprgb000.4gl"

 DEFINE codigo_estado,cuenta_estado CHAR(10),
              descripcion CHAR(40),
              posicion SMALLINT,
              pcodigoe ui.combobox
MAIN
 DEFER INTERRUPT
 CALL ARG_VAL(1) RETURNING usuarios
 CALL ARG_VAL(2) RETURNING clave
 
  CONNECT to "smarmotech" USER  usuarios USING clave
 SELECT a.* INTO p_compania.* FROM companias a

 CALL cgprmt012()
END MAIN

FUNCTION cgprmt012()
   OPEN WINDOW w1 WITH FORM "cgfmmt012"
      MENU
       ON ACTION adicionar
             CALL cgprad012()
       ON ACTION modificar
            CALL adprmf012()
       ON ACTION salir
         EXIT PROGRAM
      END MENU
   CLOSE WINDOW w1
END FUNCTION
FUNCTION cgprad012()
 LET pcodigoe = ui.combobox.forname('formonly.codigo_estado')
 CALL bestado()
 
 INPUT BY NAME codigo_estado,cuenta_estado,descripcion,posiciion
 
END FUNCTION