{
 ==============================================================================
  FORMULARIO      : CPFMMT007
  OBJETIVO        : Pantalla para captura de datos referentes a una Factura 
  PROGRAMA Q. USA : CPPRMT001
  PROGRAMADOR     : Tadeo A. Ferreras
=============================================================================
}
schema smarmotech    
screen size 24 by 80
{
Cuenta No. Depto. Catalo.  Referencia        Debito        Credito
[ct      ][dp  ][d3][d4  ][d2        ][br           ][cr           ]
[ct      ][dp  ][d3][d4  ][d2        ][br           ][cr           ]
[ct      ][dp  ][d3][d4  ][d2        ][br           ][cr           ]
Descripcion Cuenta [d1                           ]
}
end
tables
cgtb00004,cgtb00005,
cptb00001

attributes
ct   = cgtb00004.cuenta_no,comments = "Digite numero de la cuenta";
dp   = cgtb00004.departamento;
d1   = formonly.descripcion,noentry,color=yellow;
d2   = formonly.num_doc,color=yellow;
d3   = formonly.cod_aux,color=yellow;
d4   = formonly.sec_aux,color=yellow;
br   = cgtb00004.debito;
cr   = cgtb00004.credito;
instructions
 screen record cuentas1[3] (cuenta_no,departamento,cod_aux,sec_aux,
                            num_doc,debito,credito)
 delimiters " "
end