45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
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 |