Files
MBS/PROYECTO/nodir/nofmmt001.per
T

72 lines
2.7 KiB
Plaintext

{
------------------------------------------------------------------------
FORMULARIO : NOFMMT001
OBJETIVO : Pantalla que captura los codigos de movimientos
Es utilizada por: NOPRMT001
PROGRAMADOR : Ing. Betania Guerrero Perez
FECHA REALIZACION : Agosto 19, 1993
------------------------------------------------------------------------
}
schema smarmotech
TOOLBAR
ITEM nuevo (TEXT="Codigos", IMAGE="new", COMMENT="Nuevo Codigo")
ITEM buscar (TEXT="Buscar Codigos", IMAGE="find", COMMENT="Criterio de busqueda")
SEPARATOR
ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="CREACION CONCEPTOS NOMINAS", STYLE="basic")
GRID
{
Movimiento [f0 ] [a ]
Primer Encabezado [f001 ]
Segundo Encabezado [f002 ]
Tercer Encabezado [f003 ]
Encabezado En El Volante [f021 ]
Tipo de Movimiento [b] [d ]
Clasificacion del Movimiento [c ]
Afecta TSS [af ]
Cantidad Compania [f005 ] Cantidad Empleado [f006 ]
Cuenta Control [cc ] Cuenta Auxiliar [ca ]
[j]
Usuario Creador [f007 ] Usuario Modificador [f009 ]
Fecha Creacion [f008 ] Fecha Modificacion [f010 ]
}
end
tables
notb00002
attributes
COMBOBOX af =formonly.afecta_tss,include=("SI","NO");
f0 = notb00002.cod_mov,autonext;
a = notb00002.descrip_mov,upshift,
comments = "Digite la descripcion del movimiento";
f001 = notb00002.primer_enc,upshift,
comments = "Digite el primer encabezado";
f002 = notb00002.segundo_enc,upshift,
comments = "Digite el segundo encabezado";
f003 = notb00002.tercer_enc,upshift,
comments = "Digite el tercer encabezado";
b = notb00002.tipo_mov,upshift,comments = "Digite F- Fijo, V- Variable";
d = formonly.descr,noentry;
COMBOBOX c = formonly.clase_mov,ITEMS = (("R","ISR"),("I","INGRESOS"),("P","INGRESOS SIN RETENCION ISR"),("D","DESCUENTOS"),("E","HORAS EXTRAS"),("S","SEGURO SOCIAL"),("C","DESCUENTO CALCULADO"),("G","INGRESOS CALCULADO"));
f005 = notb00002.cantidad_cia,
comments = "Digite el monto que aporta la compania";
f006 = notb00002.cantidad_emp,
comments = "Digite el monto que aporta el empleado";
cc = notb00002.cta_control,autonext,
comments = "Digite la cuenta control del movimiento";
ca = notb00002.cta_aux,
comments = "Digite la cuenta auxiliar del movimiento";
j = notb00002.status_t,noentry;
f007 = notb00002.us_crea,noentry;
f008 = notb00002.fech_crea,noentry;
f009 = notb00002.us_mod,noentry;
f010 = notb00002.fech_mod,noentry;
f021 = notb00002.ch_encabeza,comments =
"Digite el encabezado para el cheque";
instructions
delimiters " "
end