43 lines
1.7 KiB
Plaintext
43 lines
1.7 KiB
Plaintext
|
|
{
|
|
=============================================================================
|
|
FORMULARIO : INFMWD013
|
|
OBJETIVO : Desplegar los codigos y documentos que obstaculiza
|
|
la anulacion de un documento
|
|
PROGRAMA Q. LO USA : INPRMT066
|
|
AUTOR : JUAN SOTO
|
|
FECHA : OCTUBRE 09/2013
|
|
=============================================================================
|
|
}
|
|
SCHEMA smarmotech
|
|
LAYOUT (TEXT="PRODUCTOS AFECTADOS")
|
|
GRID
|
|
{
|
|
<t >
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
[n][g][t ][co ][nom ][uni][d1 ][c1 ]
|
|
}
|
|
END
|
|
end
|
|
tables
|
|
intb00022
|
|
attributes
|
|
n = intb00022.cod_n,TITLE="CODIGO",autonext,comments = "Digite nivel del material";
|
|
g = intb00022.cod_grupo,autonext,comments = "Digite grupo del material";
|
|
t = intb00022.cod_tipo,autonext,comments = "Digite tipo del material";
|
|
co = intb00022.cod_sec,comments = "Digite secuencia del material";
|
|
nom = intb00022.descrip_esp,TITLE="NOMBRE",upshift;
|
|
uni = intb00022.unidad_med,NOENTRY;
|
|
d1 = formonly.num_Doc,TITLE="DOCUMENTO";
|
|
instructions
|
|
screen record datos_mt1[8](cod_n,cod_grupo,cod_tipo,cod_sec,
|
|
descrip_esp,unidad_med)
|
|
end
|
|
|
|
|