{
-----------------------------------------------------------------------------
FORMULARIO      : CPFMMT004
OBJETIVO        : Captura Informacion para la reclacificacion de las partidas
REALIZADO POR   : Ing. Juan F. Soto
FECHA           : Agosto 28, 1996.
-----------------------------------------------------------------------------
}
database smarmotech    
screen size 24 by 80
{
           Fecha             [f005    ]                   
           Suplidor          [f2]-[f003] [b                             ]
           Numero documento  [n1    ]
\g----------------------------------------------------------------------------\g
           Factura(s)             Debito             Credito
\g----------------------------------------------------------------------------\g
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
           [f1     ]           [v1            ][v2            ]
                               ================ ===============
Total Transaccion               [t1           ] [t2           ]
}
end
tables
cptb00001
attributes
f2 = cptb00001.cod_sp,autonext,
   comments = "Presione Ctrl-W o Digite el codigo del suplidor";
f003 = cptb00001.cod_sp_sec ,autonext,
   comments = "Presione Ctrl-W o Digite el codigo del suplidor";    
b = formonly.nom_sup,noentry;
f005 = cptb00001.fecha_orig,format = "dd/mm/yy";
f1   = formonly.p_aplica_a, comments = 
"Presione Ctrl-W Para Buscar Facturas";
v1   = formonly.debito;
v2   = formonly.credito;
n1   = cptb00001.num_doc,noentry;
t1   = formonly.t_debito;
t2   = formonly.t_credito;
instructions
 screen record s_limpia[7](p_aplica_a,debito,credito)
 delimiters " "
end