database rayovac   
screen size 24 by 80
{
   Fecha Inicial  [a         ]       Fecha Final [b         ]
   Cliente : [c1]-[c2  ] [n1                            ]
                         [d1                            ]
                         [d2                            ]
   Limite Credito [lc          ]   Prima [pr   ]     Balance Inicial [ba      ]
\g------------------------------------------------------------------------------\g
  D O C U M E N T O        A F E C T A    
 Numero  Tipo  Fecha       Numero           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
cctb00001
vetb00002
vetb00004
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 = cctb00001.tipo_cliente,autonext,color=blue;
c2 = cctb00001.sec_cliente,color=blue;
n1 = vetb00004.nombre,noentry,color=blue;
d1 = formonly.direccion,noentry,color=blue;
d2 = formonly.ciudad,noentry,color=blue;
lc = formonly.limite,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  = cctb00001.num_doc,color=blue;
tp  = cctb00001.tipo_doc,noentry,color=blue;
f1  = cctb00001.fecha_orig,noentry,format = "dd/mm/yyyy",color=blue;
nm1 = cctb00001.aplica_a,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