DATABASE marmotech    
 SCREEN SIZE 24 by 80
{
\g-------------------------------\g
 Cantidades       Fecha Entrega
\g-------------------------------\g
  
  [c1        ]     [f1      ]
  [c1        ]     [f1      ]
  [c1        ]     [f1      ]
}
end

tables
intb00001
attributes
c1  = formonly.cantidad,comments = "Digite Cantidad Parcial de Entrega";
f1  = formonly.fecha_entrega type date,format = "dd/mm/yy",
      comments = "Digite Fecha de la entrega al cliente";      

instructions
   screen record scr_pend[3] (cantidad,fecha_entrega)
   delimiters " "
end