31 lines
788 B
Plaintext
31 lines
788 B
Plaintext
{
|
|
------------------------------------------------------------------------
|
|
FORMULARIO : NOFMRP013
|
|
OBJETIVO : Pantalla para captura de informacion necesaria para
|
|
imprimir el IR-13
|
|
PROGRAMA Q. LO USA: NOPRRP013
|
|
PROGRAMADOR : Tadeo A. Ferreras F.
|
|
FECHA REALIZACION : Agosto 25, 1993
|
|
------------------------------------------------------------------------
|
|
}
|
|
database marmotech
|
|
screen size 24 by 80
|
|
{
|
|
|
|
Mes [a ]
|
|
Ano [b ]
|
|
|
|
Fecha de Corte [p1 ] [p2 ]
|
|
}
|
|
end
|
|
tables
|
|
notb00008
|
|
attributes
|
|
a = formonly.p_mes, comments = "Digite Numero del Mes";
|
|
b = formonly.p_ano, comments = "Digite Ano";
|
|
p1 = formonly.fecha1 type date,format = "dd/mm/yy";
|
|
p2 = formonly.fecha2 type date,format = "dd/mm/yy";
|
|
instructions
|
|
delimiters " "
|
|
end
|