database marmotech
screen size 24 by 80
{
  Ano Para Porcentajes [p1   ]
  Fecha Inicial [f15 ]    Fecha Inicial [f16 ]
\g------------------------------------------------------------------------------\g
Ven Zona   P I L A S                                     Mes             %Pres
\g------------------------------------------------------------------------------\g
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[z][k1 ][a][b][c ][d  ][d2                            ][c1  ][d1         ][b1  ]
[a2                             ][a3                             ]
}
tables
 vetb00016,vetb00002,
 intb00001
attributes
 a3 = formonly.descrip6,noentry;
 f15 = formonly.fecha_in ,noentry;
 f16 = formonly.fecha_fi ,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) o Presione Ctrl-W Para Ayuda";
 b  = vetb00016.cod_grupo,autonext,comments =
  "Digite GRUPO codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
 c  = vetb00016.cod_tipo,autonext,comments =
  "Digite TIPO codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
 d  = vetb00016.cod_sec,autonext,comments =
  "Digite SECUENCIA codigo Pto. Terminado o Presione Ctrl-W Para Ayuda";
 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 o Presione Ctrl-W Para Ayuda";
 c1 = vetb00016.mes,autonext,comments =
    "Digite Mes En Formato aamm. Ej. 9301";
 d1 = formonly.desc_mes,noentry;
instructions
screen record scr_zona[7] (ventas,zona,descrip,cod_n,cod_grupo,cod_tipo,cod_sec,
                             mes,desc_mes,porciento)
 delimiters " "
end