{
 ==============================================================================
  FORMULARIO      : CPFMMT002
  SISTEMA         : Sistema de Cuentas Por Pagar
  OBJETIVO        : Pantalla para captura de datos referentes a un pago o
                    prepago aplicado a una orden y/o una factura
  PROGRAMA Q. USA : CPPRMT002
  PROGRAMADOR     : Tadeo A. Ferreras
  Fecha           : Junio 27, 1993
 =============================================================================
}
database smarmotech    
screen size 24 by 80
{

   Tipo             [a0][t1                  ] Numero de Documento     [f001  ]
   Cuenta Contable  [ct        ]               [nct                           ]
   Suplidor         [f2]-[f003] [b                                            ]
   Fecha            [f005      ]      Concepto [dt                            ]
                                      Monto   [f10         ]
\g-----------------------------------------------------------------------------\g
     Aplicacion          Valor Pendiente         Valor Pagado
\g-----------------------------------------------------------------------------\g
   [f006      ]        [f009         ]        [f002         ]
   [f006      ]        [f009         ]        [f002         ]
   [f006      ]        [f009         ]        [f002         ]
   [f006      ]        [f009         ]        [f002         ]
}
end
tables
cptb00001
attributes
a0 = cptb00001.tipo_doc,autonext,upshift,include = ("CK","ND","NC"),
     comments = 
" ND- Nota Debito   NC- Nota Credito",reverse;
t1   = formonly.nom_tipo,noentry,color=yellow;
f001 = cptb00001.num_doc,reverse,picture = "######";
ct   = cptb00001.cta_ctble;
nct  = formonly.nom_cuenta,noentry,upshift,color=yellow;
f2 = cptb00001.cod_sp,reverse,autonext,comments=
"Digite 21=Intercompany, 22=Internaciones, 23=Locales, 24- Supl. Euro Ctrl-W=consultar";
f003 = cptb00001.cod_sp_sec,reverse,autonext,comments=
     "Digite el codigo del suplidor, o Digite Ctrl-W para consultar Suplidor";
b = formonly.nom_sup,noentry,color=yellow;
f005 = formonly.fecha_orig,format = "dd/mm/yyyy";
dt   = cptb00001.detalle,upshift,reverse;
f10  = formonly.monto type decimal(12,2),reverse;
f006 = cptb00001.aplica_a,reverse,
  comments = "Presione Ctrl-W Para Buscar Documentos Pendientes";
f009 = formonly.valor_pen,noentry;
f002 = formonly.valor_pag,reverse;
instructions
 screen record s_recibo[4] (aplica_a,valor_pen,valor_pag)
 
 delimiters " "
end