{
------------------------------------------------------------------
 Formulario        : infmmt023
 OBJETIVO          : Capturar, Modificar, Eliminar registros de la
                     Tabla de la maestra de FIANZAS, aceptando el    
                     numero de factura como numero de fianza.
 Modulos q. lo usan: inprmt023
 PROGRAMADOR       : Tadeo A. Ferreas 
 FECHA REALIZACION : Julio 22, 1993. 
------------------------------------------------------------------
}
database exterior   
screen
{
 Numero de Documento [nf    ]  Numero de Resolucion [nr    ] Fecha [ff      ]
 Suplidor[cs]-[cs1 ] [nomb                             ]
 Orden Numero[numo  ]-[e]                             Valor Merc.[merc      ]  
\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        ]
 [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 = 
   "En caso de estar atada una resolucion, digite el numero de la misma";
ff    = intb00020.fecha,format = "dd/mm/yy",comments =
       "Digite fecha de solicitud";
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;
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$";
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 fact2[4](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
                           cantidad,cantidad_c)
end