Files
MBS/PROYECTO/PRDIR/prfmcs001.per
T

49 lines
2.2 KiB
Plaintext

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