schema smarmotech
LAYOUT (TEXT="CONSULTA ORDENES", STYLE="basic")
GRID
{
[                                       :cc                 :sr      ]
Cliente          [t1]-[t2  ][c3                                      ]
Numero de Orden  [f000  ] Cotizacion[co     ]Fecha [f001      ] 
Tipo de Ordenes  [pe                   ]

<t t1                                                                                                           >
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]
[n  ][g   ][t    ][s    ][des                                        ][c1          ][c2           ][b1         ]

}
 END
end
tables
prtb00009
attributes
co   = formonly.cotizacion_no;
t1   = formonly.tipo_cliente,noentry,reverse;
t2   = formonly.sec_cliente,noentry,reverse;
c3   = formonly.p_nombre,noentry,reverse;
f000 = prtb00009.num_oc,reverse;
f001 = formonly.fecha,format="dd/mm/yyyy",reverse;
COMBOBOX pe   = formonly.tipo_orden,ITEMS=(('N','PENDIENTES'),('S','CERRADAS'),('T','TODAS'));


n   = formonly.cod_n,TITLE='CALSE';
g   = formonly.cod_grupo,TITLE='GRUPO';
t   = formonly.cod_tipo,TITLE='TIPO';
s   = formonly.cod_sec,TITLE='SECUENCIA';
des = formonly.descripcion,TITLE='DESCRIPCION';
c1  = formonly.cantidad1,TITLE='CANTIDAD ORDEN';
c2 = formonly.cantidad2,TITLE='CANTIDAD INVENTARIO';
b1   = formonly.balance,TITLE='BALANCE';

BUTTON cc :close, TEXT='CANCEL';
BUTTON sr :ejecuta,TEXT='OK';

instructions delimiters " "
      screen record s_orden[7](cod_n,cod_grupo,cod_tipo,cod_Sec,descripcion,cantidad1,cantidad2,balance)
    end