{
-----------------------------------------------------------------------------
FORMULARIO      : CCFMMT005
OBJETIVO        : Eliminar Registro de movimientos (CCPRMT001)
REALIZADO POR   : Tadeo A. ferreras
FECHA           : Febrero 01, 1995
-----------------------------------------------------------------------------
}
database marmotech    
screen size 24 by 80
{
 Documento..:[f001  ]                        | EL Rango de Documentos
 Tipo.......:[a0]                            | Para la Fecha [f1        ]
 Cliente No.:[f003]                          | Es Del[r1       ]Al[r2        ]
 Nombre.....:[b                             ]|--------------------------------
 Vendedor...:[f004]                          |
 Nombre.....:[c            ][d              ]| Ultima Secuencia [uss         ]
 Fecha......:[f005      ]                    |                  
 Valor......:[vr          ]                  | 

}
end
tables
cctb00001
attributes
a0 = cctb00001.tipo_doc,upshift,include = ("NC","PG","ND","RC"),
 comments = "PG-Pago   ND-Nota Dr.   NC-Nota Cr.   RC- Reclasificacion Doctos.";
f001 = cctb00001.num_cheque;
f003 = cctb00001.sec_cliente,noentry; 
f004 = cctb00001.cod_emp_sec,noentry; 
f005 = cctb00001.fecha_orig,format = "dd/mm/yyyy",noentry;
vr   = formonly.valor type decimal,noentry;
b    = formonly.nombre1 type char,noentry;
c    = formonly.nombre,noentry;
d    = formonly.apellido,noentry;
uss  = formonly.ult_numero type integer,noentry;
f1   = formonly.fecha type date,format = "dd/mm/yyyy",noentry;
r1   = formonly.sec_de type integer,noentry;
r2   = formonly.sec_a  type integer,noentry;
instructions
 delimiters " "
end