database marmotech
screen size 24 by 80
{

 Cliente [f0]-[f001][nomb                          ]             
 --------------------------------------------------
 Fecha             Documento(s)               Monto 
 --------------------------------------------------
 [fech    ]        [doc       ]      [mont        ]      
 [fech    ]        [doc       ]      [mont        ]      
 [fech    ]        [doc       ]      [mont        ]      
 [fech    ]        [doc       ]      [mont        ]      
 [fech    ]        [doc       ]      [mont        ]      
         Totales-->[t1        ]      [t2          ]

}
end
tables
vetb00028
attributes
f0   = vetb00028.tipo_cliente,autonext,
       comments= "Digite Codigo del Cliente o Presione CTRL-W Para Ayuda";
f001 = vetb00028.sec_cliente,
       comments= "Digite Codigo del Cliente o Presione CTRL-W Para Ayuda";
nomb = formonly.nombre type char,color=yellow,noentry;
fech = formonly.fecha type date, format = "dd/mm/yy";
doc  = formonly.num_doc type integer,noentry;
mont = formonly.valor type decimal,noentry;
t1   = formonly.canti type integer,color=yellow,noentry;
t2   = formonly.monto type decimal,color=yellow,noentry;

instructions delimiters " "
  screen record s_cons2[5](fecha,num_doc,valor)
end