DATABASE marmotech
 SCREEN SIZE 24 by 80
{
  Fecha  [f1      ]
  DESDE:
\g-------\g
  codigo [a][b][d ][e  ]
                   [des                             ][f3 ]
  Cantidad : [ca     ]
  A:    :
\g-------\g
  codigo [m][n][p ][q  ]
                   [des1                            ][f4 ]
  Numero Documento: [n1     ]
}
end

tables
intb00001
attributes
f1  = formonly.fecha type date,format = "dd/mm/yy";
n1  = formonly.num_doc;
ca  = formonly.cantidad,autonext;
a   = formonly.cod_n_a,autonext;
b   = formonly.cod_grupo_a,autonext;
d   = formonly.cod_tipo_a,autonext;
e   = formonly.cod_sec_a,autonext;
m   = formonly.cod_n_h,autonext;
n   = formonly.cod_grupo_h,autonext;
p   = formonly.cod_tipo_h,autonext;
q   = formonly.cod_sec_h,autonext;
des  = formonly.descrip1,noentry;
des1 = formonly.descrip2,noentry;
f3  = intb00001.unidad_med,noentry;
f4  = formonly.descrip3,noentry;
instructions
   delimiters " "
end