database marmotech
screen size 24 by 80
{
          Ano Para Porcentajes [p1   ]
\g----------------------------------------------------------------------------\g
                                                      %   
Ven Zona   P I L A S                                  Pres. Mes
\g----------------------------------------------------------------------------\g
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[z][k1 ][a][b][c ][d  ][d2                            ][b1  ][c1] [d1         ]
[a2                             ]
[a3                             ]
}
tables
 vetb00016,vetb00002,
 intb00001
attributes
 a3 = formonly.descrip6,noentry;
 p1 = formonly.ano1,autonext,comments =
  "Digite Ano Ej. 1993";
 z = vetb00016.ventas,autonext,comments =
   "Digite 1- LOCAL      2- EXPORTACION";
 a  = vetb00016.cod_n,autonext, comments =
   "Digite NIVEL codigo Pto. Terminado (3)";
 b  = vetb00016.cod_grupo,autonext,comments =
  "Digite GRUPO codigo Pto. Terminado";
 c  = vetb00016.cod_tipo,autonext,comments =
  "Digite TIPO codigo Pto. Terminado";
 d  = vetb00016.cod_sec,autonext,comments =
  "Digite SECUENCIA codigo Pto. Terminado";
 a2 = formonly.descrip1,noentry;    
 d2 = formonly.descrip,noentry;
 b1 = vetb00016.porciento,autonext,comments =
"Introduzca el porciento de ventas";
 k1  = vetb00002.zona,autonext,comments =
"Digite Zona Para El Porciento deseado";
 c1 = vetb00016.mes,autonext;
 d1 = formonly.desc_mes,noentry;
instructions
screen record scr_zona[7] (ventas,zona,descrip,cod_n,cod_grupo,cod_tipo,cod_sec,
                             porciento,mes,desc_mes)
 delimiters " "
end