{
----------------------------------------------------------------------------
 FORMULARIO          : INFMMT006
 OBJETIVO            : Pantalla para la captura de reporte de entrada    
                       inventario materia prima.
 MODULOS Q. UTILIZAN : inprmt006
 PROGRAMADOR         : Juan F. Soto               
 FECHA REALIZACION   : Agosto 1997
 DIRECTOR PROYECTO   : JOSE ALFREDO PAULINO ALEJO
----------------------------------------------------------------------------
}
database exterior
screen size 24 by 80
{
  Doc. No. [f00   ]
\gp---------------------------------------------------------------------------q\g
\g|\gOrden Compra:[ti][f02    ]Suplidor:[p1]-[f01 ][a                          ]\g|\g
\gp---------------------------------------------------------------------------q\g
\g|\gConduce:[f03       ] Factura No.[f04      ] Fecha:[f05       ]Bodega:[k ]  \g|\g
\gb---------------------------------------------------------------------------d\g
                   C  A  N  T  I  D  A  D                    Cantidad
    Codigo         Ordenada      Recibida  Mto. No.Embarque  Pendiente
\g------------------------------------------------------------------------------\g
[b][c][d ][f  ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
[b][c][d ][f  ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
[b][c][d ][f  ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
[b][c][d ][f  ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
[b][c][d ][f  ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
Descripcion Articulo  : [g                                                   ]
Descripcion Movimiento: [t1                                           ]
\g------------------------------------------------------------------------------\g
}
end
tables

iptb00006,
cotb00001,
intb00001,
intb00005 
attributes
f00  = formonly.num_doc;       
ti   = iptb00006.tipo,autonext,include = ("01","02"),comments=
"Digite Tipo de Orden 02-Producto terminado  01- Materia Prima";
f02  = iptb00006.orden_compra,  autonext,
      comments = "Digite el Numero de la Orden de Compras";
p1  = iptb00006.cod_sp,picture = "##",autonext,noentry;
f01  = iptb00006.cod_sp_sec,picture = "####",autonext,noentry;
f03  = iptb00006.conduce_no,       autonext,
     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
f04  = iptb00006.fact_no,       autonext,
      comments = "Digite el Numero de la Factura del Suplidor";
f05  = formonly.fecha type date,format = "dd/mm/yyyy",
      comments = "Digite la Fecha Correspondiente al Documento";
f06  = iptb00006.cantidad_1,noentry;
f07  = formonly.cantidad_2 type integer,
       comments = "Digite la Cantidad Llegada desde el Suplidor";
t    = formonly.cod_mov type smallint,include=(10,34),
       comments= "Codigo Movimiento Entrada ";
a    = cotb00001.nom_sp,noentry;
b    = iptb00006.cod_n,autonext,noentry;
c    = iptb00006.cod_grupo,autonext,noentry;
d    = iptb00006.cod_tipo,autonext,noentry;
f    = iptb00006.cod_sec,autonext,noentry;
g    = formonly.descripcion_f,noentry;
p    = formonly.no_embarque,noentry;
t1   = intb00005.descrip_mov,noentry;
k    = iptb00006.bodega,autonext;
f1   = formonly.pendiente,noentry;
  INSTRUCTIONS
    screen record s_movi1[5] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                             cantidad_2,cod_mov,no_embarque,pendiente)
end