{
=============================================================================
   FORMULARIO         : infmwd012
   OBJETIVO           : Caracteristicas del Bloque
   PROGRAMA Q. LO USA : INPRMT046
   AUTOR              : JUAN F. SOTO
   FECHA              : JUNIO 6, 2008
=============================================================================
}
DATABASE smarmotech
SCREEN
{
   CODIGO     :[a][b][c  ][d  ]
   DESCRIPCION:[des                                  ][und ]
\g------------------------------------------------------------------------------\g
                 ||   MEDIDAS RECIBIDAS     ||     MEDIDAS ENVIADAS     ||
  Bloque         ||A  |  L   |  E   | Medida | A    | L    | E   |Medidas|Cant.
\g------------------------------------------------------------------------------\g
 [et         ][l1   ][l2   ][l3   ][m1   ][l11  ][l12  ][l13  ][m2    ][c1   ]
 [et         ][l1   ][l2   ][l3   ][m1   ][l11  ][l12  ][l13  ][m2    ][c1   ]
 [et         ][l1   ][l2   ][l3   ][m1   ][l11  ][l12  ][l13  ][m2    ][c1   ]
 [et         ][l1   ][l2   ][l3   ][m1   ][l11  ][l12  ][l13  ][m2    ][c1   ]
                                                                    ==========
                                                                   [t1       ]
}
end
tables
vetb00004
attributes
et  = formonly.codigo_bloque,upshift,scroll;
t1  = formonly.total_medida;
des = formonly.descripcion;
und = formonly.medida;
a   = formonly.cod_n,noentry;
b   = formonly.cod_grupo,noentry;
c   = formonly.cod_tipo,noentry;
d   = formonly.cod_sec,noentry;
l1  = formonly.ancho1;
l2  = formonly.largo1;
l3  = formonly.espesor1;

l11 = formonly.ancho2;
l12 = formonly.largo2;
l13 = formonly.espesor2;

c1   = formonly.cantidad;
m1   = formonly.medida1,noentry;
m2   = formonly.medida2,noentry;

instructions delimiters " "
screen record sdespiece[4](codigo_bloque,ancho1,largo1,espesor1,medida1,ancho2,largo2,espesor2,medida2,
                           cantidad)
end