{
------------------------------------------------------------------
 Formulario        : infmmt020
 OBJETIVO          : Capturar, Modificar, Eliminar registros de la
                     Tabla de la maestra de FIANZAS.
 Modulos q. lo usan: inprmt020
 PROGRAMADOR       : Tadeo A. Ferreas 
 FECHA REALIZACION : Julio 22, 1993. 
------------------------------------------------------------------
}
database exterior   
screen
{
 No. de Fianza [nf    ]   No. de Resolucion [nr    ]  Fecha Fianza [ff      ]
 Nombre Buque  [nb                 ]                  Fecha Entrada[fen     ]
 Suplidor[cs][cs1 ][nomb                   ]Pais[cp  ][nomb1                ]  
 Cantidad Bulto[cb           ]Orden Numero[numo  ]-[e]Valor Merc.[merc      ]  
 Aseguradora[cas ][nomb3                   ]Poliza[poli     ]Prima [prima   ] 
 Porc.%[porc   ][prim1      ]Desmonte [vd   ]Valor Garantizado [gar         ] 
\g-----------------------------------------------------------------------------\g
  Material                                     Cant. Internar  Cant. Cancelar
\g-------------------------------------------------------------------------------\g
 [n][g][t  ][s  ][uni][nomb4                   ][cant          ][cant1         ]
 [n][g][t  ][s  ][uni][nomb4                   ][cant          ][cant1         ]
 [n][g][t  ][s  ][uni][nomb4                   ][cant          ][cant1         ]
}
end
tables
intb00020
attributes
nf    = intb00020.num_fianza,comments = "Digite el numero de solicitud";
nr    = intb00020.num_res,comments = "Digite el numero de resolucion";
ff    = intb00020.fecha,format = "dd/mm/yy",comments =
       "Digite fecha de solicitud";
nb   = intb00020.nom_buque,upshift,
       comments="Digite el nombre del buque transportista";
fen   = intb00020.fecha_ent,format = "dd/mm/yy",comments =
       "Digite fecha de entrada de material";
cs    = intb00020.cod_sp,autonext,
       comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
cs1   = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
nomb  = formonly.nombre type char,noentry,color=yellow;
cp    = intb00020.cod_pais,autonext,comments =
       "Presione CTRL-W Para Buscar Codigo del Pais Exportador";
nomb1 = formonly.nombre1 type char,noentry,color=yellow;
cb    = intb00020.cant_bulto,upshift,comments=
       "Digite la cantidad y tipo de bulto";
numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
e    = intb00020.num_emb,comments=
       "Digite el numero del embarque para la orden";
merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
cas  = intb00020.cod_ca,autonext,
       comments="Presione CTRL-W Para Buscar Codigo de Compania Aseguradora";
nomb3 = formonly.nombre3 type char,noentry,color=yellow;
poli  = intb00020.poliza,comments="Digite el numero de poliza de seguro";
prima = intb00020.prima,comments = "Digite valor de la prima en RD$";
porc  = intb00020.porc_prima,comments="Digite el porciento de la prima";
prim1 = formonly.total_prima,noentry;
vd    = intb00020.valor_desm,comments = "Digite el valor del desmonte";
gar  = intb00020.valor_gar,noentry; 
n     = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
g     = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
t     = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
s     = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
nomb4 = formonly.descrip type char,noentry,color=yellow;
uni   = formonly.unidad type char,noentry,color=yellow;
cant  = intb00020.cantidad,
   comments="Digite la cantidad de material a internar";
cant1 = intb00020.cantidad_c,comments =
   "Digite la cantidad de material con que se cancelara la orden ";
instructions delimiters " "
  screen record fianza2[3](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
                           cantidad,cantidad_c)
end