{
=============================================================================
   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