database marmotech
screen size 24 by 80
{
  Ano Para Porcentajes [p1   ]
  Fecha Inicial [f15  ] Fecha Final [f16 ]
\g----------------------------------------------------------------------------\g
Ven Zona Prov. P I L A S                                  Mes            % Pres
\g----------------------------------------------------------------------------\g
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[z][k1 ][p3][a][b][c ][d  ][d2                         ][c1  ][d1        ][b1  ]
[a2                             ][a3                             ]
[p2                             ]
}
tables
 vetb00016,vetb00002,vetb00021
 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";
 p3 = vetb00021.provincia,autonext,comments =
  "Digite codigo de la provincia en las zona o presione Ctrl-W para ayuda";
 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;
 p2 = formonly.descrip4,noentry;
instructions
screen record scr_zona[7] 
                     (ventas,zona,provincia,cod_n,cod_grupo,cod_tipo,cod_sec,
                      descrip,mes,desc_mes,porciento)
 delimiters " "
end