{
----------------------------------------------------------------------------
 FORMULARIO          : CPFMWD004
 OBJETIVO            : Pantalla para despeglar las ordenes de compras de un 
                       suplidor 
 PROGRAMAS UTILIZAN  : cpprmt001
 PROGRAMADOR         : Tadeo Ferreras             
 FECHA REALIZACION   : Julio 17, 1993       
----------------------------------------------------------------------------
}
database marmotech   
screen
{
\g----------------------------\g
  Tipo   Orden       Fecha 
\g----------------------------\g
  [tp]  [ord   ]    [fec     ]
  [tp]  [ord   ]    [fec     ]
  [tp]  [ord   ]    [fec     ]
  [tp]  [ord   ]    [fec     ]
}
end
tables
cotb00014
attributes
tp = cotb00014.tipo;
ord= cotb00014.num_oc,noentry;
fec= cotb00014.fech_oc,noentry,format="dd/mm/yy";
instructions
   screen record arr_tip[4](tipo,num_oc,fech_oc)
delimiters " "
end