database smarmotech     
LAYOUT
GRID

{
  <G Parametros                                                                          >
    Tipo Orden Compra [a ]
    Bien Y/O Servicio [n     ][m     ][n1    ][n2    ]  STATUS REGISTRO[s1             ]
                      [m1                                          ][m2             ]
    Rango de Fecha:Del[f1        ] Al [f2        ]

<G Detalle                                                                                               >
 <t                                                                                                    >                                                                                       >
  [f4][or1   ][fe3     ][ns][ns1 ]    [v            ][v1         ][v2           ][re1     ][fer1      ]
  [f4][or1   ][fe3     ][ns][ns1 ]    [v            ][v1         ][v2           ][re1     ][fer1      ]
  [f4][or1   ][fe3     ][ns][ns1 ]    [v            ][v1         ][v2           ][re1     ][fer1      ]
  Nombre [d1                                           ]  Total ==>[v3          ][re1     ][fer1      ]
} 
end
tables
cotb00014, cotb00015,cotb00024,
cotb00001
attributes
a  = formonly.tipo1 type char,INCLUDE=("01","02","03","04"),DEFAULT="02";
n  = formonly.cod_n1,autonext;
m  = formonly.cod_grupo1,autonext;
n1 = formonly.cod_tipo1,autonext;
n2 = formonly.cod_sec1,autonext;
m1 = formonly.descripcion,noentry;
m2 = formonly.unidad_med,noentry;
DATEEDIT f1 = formonly.fecha1 type date,format = "dd/mm/yyyy";
DATEEDIT f2 = formonly.fecha2 type date,format = "dd/mm/yyyy";
re1 = formonly.cantidad_recibida;
fer1 = formonly.fecha_recibida TYPE date, FORMAT = 'dd/mm/yyyy';
s1 = formonly.accion;
or1 = cotb00014.num_oc,autonext,noentry;
f4  = cotb00014.tipo,TITLE="ORDEN";
fe3 = formonly.fech_oc type date,format = "dd/mm/yy",noentry;
LABEL ns  = formonly.cod_sp,TITLE="SUPLIDOR";
LABEL ns1 = formonly.cod_sp_sec;
LABEL v   = formonly.cantidad type DECIMAL,TITLE="CANTIDAD";
v1  = formonly.precio type DECIMAL,TITLE="PRECIO";
v2  = formonly.valor    type DECIMAL,TITLE="VALOR";
v3  = formonly.total1   type DECIMAL,TITLE="TOTAL";
LABEL d1  = formonly.suplidor;
instructions
  delimiters " "
   screen record s_compra[2] (tipo,num_oc,fech_oc,cod_sp,cod_sp_sec,cantidad,
                              precio,valor,cantidad_recibida,fecha_recibida)
end