{
=============================================================================
   FORMULARIO         : PRFMWD004
   OBJETIVO           : DESPIECE PRODUCTOS
   PROGRAMA Q. LO USA : PRPRMT008
   AUTOR              : JUAN F. SOTO
   FECHA              : JUNIO 16, 2008
=============================================================================
}
DATABASE smarmotech
LAYOUT (TEXT="DESPIECE")
 GRID
{

   DESCRIPCION:[des                                  ][und ]

<G "Despiece"                                                                         >
 <t                                                                                  >    
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
  [et       ][a1 ][a ][b  ][c   ][d   ][l1     ][l2     ][l3    ][c1     ][m        ]
 
                                                                   ============
                                                                    [t1       ]
}
end
end
tables
vetb00004
attributes
COMBOBOX et  = formonly.etiqueta,upshift,scroll,TITLE="ETIQUETA";
t1  = formonly.total_medida;
des = formonly.descrip_esp;
und = formonly.unidad_med;
a1  = formonly.area,TITLE="AREA";
a   = formonly.cod_n,noentry,TITLE="CODIGO";
b   = formonly.cod_grupo,noentry;
c   = formonly.cod_tipo,noentry;
d   = formonly.cod_sec,noentry;
l1  = formonly.lado_1,TITLE="LADO1";
l2  = formonly.lado_2,TITLE="LADO2";
l3  = formonly.lado_3,TITLE="LADO3";
c1   = formonly.cantidad,TITLE="CANTIDAD";
m   = formonly.medida,TITLE="MEDIDA";
instructions delimiters " "
screen record sdespiece[8](etiqueta,area,cod_n,cod_grupo,cod_tipo,cod_sec,lado_1,lado_2,lado_3,cantidad,medida)
end