{
----------------------------------------------------------------------------
 FORMULARIO          : CPFMMT001
 OBJETIVO            : Pantalla para la captura de la factura comercial del
                       proveedor
 PROGRAMAS UTILIZAN  : cpprmt001
 PROGRAMADOR         : Tadeo Ferreras             
 FECHA REALIZACION   : Julio 17, 1993       
 MODIFICADO POR      : Juan Soto
 FECHA               : Agosto 17, 1993
----------------------------------------------------------------------------
}
database marmotech    
screen
{

  Numero Factura   [nf        ]          
  Codigo Suplidor  [c1]-[c2  ][c3                                       ]
  Fecha Factura    [fe      ] 
  Fecha Efectiva   [fp      ]            Monto Factura [v1          ]         
  Observacion      [cp                              ]
\g----------------------------------------------------------------------\g
  Apl.  Aplica a.       Tipo        Monto Dcto.         Valor Aplicado
\g----------------------------------------------------------------------\g
  [t1]  [na        ]    [ti]       [va          ]        [va1         ]
  [t1]  [na        ]    [ti]       [va          ]        [va1         ]
  [t1]  [na        ]    [ti]       [va          ]        [va1         ]
  [t1]  [na        ]    [ti]       [va          ]        [va1         ]
}
end
tables
cptb00001
attributes
c1 = cptb00001.cod_sp,autonext;
c2 = cptb00001.cod_sp_sec,autonext,comments =
     "Presione Ctrl-W Para busca Suplidor";
nf = cptb00001.num_doc;
c3 = formonly.nom_sup,noentry,color=yellow;
fe = cptb00001.fecha_orig,format = "dd/mm/yy";
fp = cptb00001.fecha_proc,format = "dd/mm/yy";
v1 = formonly.valor_fac type decimal(12,2),comments =
     "Digite el valor de la factura";
cp = cptb00001.detalle,upshift;

t1 = formonly.tipo type char,upshift,comments=
     "Digite S = en caso de que desee aplica prepago, N = en caso contrario";
na = cptb00001.aplica_a,upshift,comments =
    "Digite el numero del prepago";
ti = cptb00001.tipo_doc,noentry;
va = formonly.valor_prep type decimal(12,2),noentry;
va1= cptb00001.valor,comments = "Digite el valor a aplicar";
instructions delimiters " "
   screen record factura1[4](tipo,aplica_a,tipo_doc,valor_prep,valor)
end