database marmotech
screen size 24 by 80
{
  Ano             [a   ]
  Periodo Inicial [f1  ]        Periodo Final [f2  ]
\g----------------------------------------------------------------------------\g
Ventas                 P I L A S       Meses          Cantidades     Valor
\g----------------------------------------------------------------------------\g
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
 [m][p1             ][b][c][d ][e  ][f0  ][h          ][f6     ][f3          ]
   [k                                       ]
}
end
tables
vetb00017,vetb00018
attributes
a  = formonly.ano2,autonext;
f1 = vetb00018.fecha_in,noentry;
f2 = vetb00018.fecha_fi,noentry;
m  = vetb00017.ventas,autonext,
comments = "Digite 1 - Local, 2 - Exportacion";
b  = vetb00017.cod_n,autonext,
comments = "Presione Ctrl-W o digite el nivel del producto terminado";
c  = vetb00017.cod_grupo,autonext,
comments = "Presione Ctrl-W o digite el grupo del producto terminado";
d  = vetb00017.cod_tipo,autonext,
comments = "Presione Ctrl-W o digite el tipo del producto terminado";
e  = vetb00017.cod_sec,autonext,
comments = "Presione Ctrl-W o digite la secuencia del producto terminado";
k  = formonly.descri_p,noentry;
f0 = vetb00017.mes,autonext;
h  = formonly.descrip_mes,noentry;
f6 = vetb00017.cantidad,autonext;
f3 = vetb00017.valor;
p1 = formonly.descrip1,noentry;
instructions
screen record scr_pres[7] (ventas,descrip1,cod_n,cod_grupo,cod_tipo,cod_sec,mes,
                             descrip_mes,cantidad,valor)

  delimiters " "
end