{
==============================================================================
  FORMULARIO        : CPFMCS002
  OBJETIVO          : Desplegar el estado de cuenta de un suplidor en un
                      rango de fecha
  PROGRAMA Q. LO USA: TEPRCS002
  AUTOR             : Tadeo A. Ferreras
  FECHA             : Septimebre 16, 1993
==============================================================================
}
database rayovac     
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=blue,format = "dd/mm/yyyy",autonext,
     comments = "Fecha inicial del recibo de pago"; 
b  = formonly.fecha_final type date,color=blue,format = "dd/mm/yyyy",autonext,
     comments = "Fecha final del recibo de pago"; 
c1 = cptb00001.cod_sp,autonext,color=blue;
c2 = cptb00001.cod_sp_sec,color=blue;
n1 = cotb00001.nom_sp,noentry,color=blue;
d1 = formonly.direccion,noentry,color=blue;
d2 = formonly.ciu_sp,noentry,color=blue;
ba = formonly.balance type decimal(12,2),noentry,color=blue;
pr  = formonly.prima,color=blue,
     comments= "Introduzca Prima Para Valorizar Estados";

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