database marmotech
screen size 24 by 80
{
   Ano Para Porcentajes [p1   ]
   Fecha Inicial [f15  ]   Fecha Final [f16  ]
\g----------------------------------------------------------------------------\g
Ven Zona Prov. Cliente          PILA        Meses                   % Pres   
\g----------------------------------------------------------------------------\g
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[z][k1 ][p3]   [cl][cl1 ]  [a][b][c ][d  ][c1  ][d1        ]        [b1  ]
[a2                             ]   [a3                             ]
[p2                             ]   [d3                             ]
[d2                                ]
}
tables
 vetb00016,vetb00002,vetb00021,vetb00022,
 intb00001
attributes
 f15 = formonly.fecha_in,noentry;
 f16 = formonly.fecha_fi,noentry;
 cl = vetb00002.tipo_cliente,autonext,comments = 
   "Digite Cliente Preteneciente a la Provincia o Presione Ctrl-W Para Ayuda";
 cl1 = vetb00002.sec_cliente,autonext,comments = 
   "Digite Cliente Preteneciente a la Provincia o Presione Ctrl-W Para Ayuda";
 a3 = formonly.descrip6,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 la la zona o Presione Ctrl-W Para Ayuda";
 a  = vetb00016.cod_n,autonext, comments =
   "Digite NIVEL codigo Pto. Terminado (3) o presion Ctrl-W Para Ayuda";
 b  = vetb00016.cod_grupo,autonext,comments =
  "Digite GRUPO codigo Pto. Terminado o presion Ctrl-W Para Ayuda";
 c  = vetb00016.cod_tipo,autonext,comments =
  "Digite TIPO codigo Pto. Terminado o presion Ctrl-W Para Ayuda";
 d  = vetb00016.cod_sec,autonext,comments =
  "Digite SECUENCIA codigo Pto. Terminado o presion Ctrl-W Para Ayuda";
 a2 = formonly.descrip1,noentry;    
 d2 = formonly.nombre_pt,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,comments = 
  "Digite En Formato aamm Ej. 9301";
 d1 = formonly.desc_mes,noentry;
 d3 = formonly.nombre,noentry;
 p2 = formonly.descrip4,noentry;
instructions
screen record scr_zona[6] 
              (ventas,zona,provincia,tipo_cliente,sec_cliente,cod_n,cod_grupo,
               cod_tipo,cod_sec,mes,desc_mes,porciento)
 delimiters " "
end