{
==============================================================================
  FORMULARIO        : CPFMCS001
  OBJETIVO          : Desplegar el estado de cuenta de un suplidor en un
                      rango de fecha
  PROGRAMA Q. LO USA: CPPRRP001
  AUTOR             : Tadeo A. Ferreras
  FECHA             : Septimebre 16, 1993
==============================================================================
}
database smarmotech   
screen size 24 by 80
{
   Fecha Inicial  [a       ]       Fecha Final [b       ]
   Suplidor :[c1]-[c2  ] [n1                                       ]
                         [d1                            ]
                         [d2                            ]
   Prima [pr   ]     Balance Inicial [ba         ]
\g------------------------------------------------------------------------------\g
  D O C U M E N T O        
 Numero     Tipo  Fecha    Aplicado A        Debito      Credito     Balance
\g------------------------------------------------------------------------------\g
[nm        ][tp][f1      ][nm1          ][db         ][cr         ][bf         ]
[nm        ][tp][f1      ][nm1          ][db         ][cr         ][bf         ]
[nm        ][tp][f1      ][nm1          ][db         ][cr         ][bf         ]
[nm        ][tp][f1      ][nm1          ][db         ][cr         ][bf         ]
[nm        ][tp][f1      ][nm1          ][db         ][cr         ][bf         ]
}
end
tables
cptb00001
cotb00001
attributes
a  = formonly.fecha_inicial type date,color=yellow,format = "dd/mm/yy",autonext,
     comments = "Fecha inicial del recibo de pago"; 
b  = formonly.fecha_final type date,color=yellow,format = "dd/mm/yy",autonext,
     comments = "Fecha final del recibo de pago"; 
c1 = cptb00001.cod_sp,autonext,color=yellow;
c2 = cptb00001.cod_sp_sec,color=yellow;
n1 = cotb00001.nom_sp,noentry,color=yellow;
d1 = formonly.direccion,noentry,color=yellow;
d2 = formonly.ciu_sp,noentry,color=yellow;
ba = formonly.balance type decimal(12,2),noentry,color=yellow;
pr  = formonly.prima,color=yellow,
     comments= "Introduzca Prima Para Valorizar Estados";

nm  = cptb00001.num_doc,color=yellow;
tp  = cptb00001.tipo_doc,noentry,color=yellow;
f1  = cptb00001.fecha_orig,noentry,format = "dd/mm/yy",color=yellow;
nm1 = formonly.aplica_a type char,noentry,color=yellow;
db  = formonly.debito type decimal(12,2),noentry,color=yellow;
cr  = formonly.credito type decimal(12,2),noentry,color=yellow;
bf  = formonly.balance1 type decimal(12,2),noentry,color=yellow;
INSTRUCTIONS DELIMITERS " "
 screen record cuenta[5] (num_doc,tipo_doc,fecha_orig,aplica_a, debito,
                          credito,balance1)
end