81 lines
3.2 KiB
Plaintext
81 lines
3.2 KiB
Plaintext
{
|
|
===============================================================================
|
|
FORMULARIO : IPFMCS004B
|
|
OBJETIVO : AJUSTE DE EXISTENCIA EN UBICACIONES (IPTB00062).
|
|
El usuario digita UNIDADES y el programa calcula la CANTIDAD
|
|
(existencia) = unidades * factor_conv (IPTB00001). Cuadra el
|
|
total de ubicaciones contra la existencia real de IPTB00006 sin
|
|
tocar IPTB00006; solo registra la diferencia (cod_mov 99).
|
|
DISENO : Ing. Juan F. Soto
|
|
===============================================================================
|
|
}
|
|
SCHEMA formonly
|
|
|
|
LAYOUT (TEXT = "AJUSTE DE EXISTENCIA EN UBICACIONES")
|
|
GRID grid1
|
|
{
|
|
Producto [f01 ]
|
|
Descripcion [f02 ]
|
|
Bodega [f03 ]
|
|
|
|
Existencia real [f04 ] Total ubicaciones [f05 ] Diferencia [f06 ]
|
|
|
|
<T tabla >
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
[c1 |c2 |c3 |c4 |c5 |c6 |c7 ]
|
|
< >
|
|
|
|
}
|
|
END
|
|
END
|
|
|
|
ATTRIBUTES
|
|
EDIT f01 = formonly.pcodigo, NOENTRY;
|
|
EDIT f02 = formonly.pdesc, NOENTRY, SCROLL;
|
|
EDIT f03 = formonly.pbodega, NOENTRY;
|
|
EDIT f04 = formonly.ereal, NOENTRY;
|
|
EDIT f05 = formonly.tubic, NOENTRY;
|
|
EDIT f06 = formonly.pdif, NOENTRY;
|
|
|
|
TABLE tabla:tabla;
|
|
PHANTOM formonly.cod_seccion;
|
|
PHANTOM formonly.cod_tramo;
|
|
PHANTOM formonly.cod_fila;
|
|
PHANTOM formonly.cod_pos;
|
|
EDIT c1 = formonly.desc_seccion, TITLE = "SECCION", NOENTRY, SCROLL;
|
|
EDIT c2 = formonly.desc_tramo, TITLE = "TRAMO", NOENTRY, SCROLL;
|
|
EDIT c3 = formonly.desc_fila, TITLE = "FILA", NOENTRY, SCROLL;
|
|
EDIT c4 = formonly.desc_pos, TITLE = "POSICION", NOENTRY, SCROLL;
|
|
EDIT c5 = formonly.existencia_act, TITLE = "EXIST. ACTUAL", NOENTRY;
|
|
PHANTOM formonly.unidades_act;
|
|
EDIT c6 = formonly.unidades, TITLE = "UNIDADES";
|
|
EDIT c7 = formonly.existencia, TITLE = "CANTIDAD", NOENTRY;
|
|
END
|
|
|
|
INSTRUCTIONS
|
|
SCREEN RECORD sr_enc(formonly.pcodigo,
|
|
formonly.pdesc,
|
|
formonly.pbodega,
|
|
formonly.ereal,
|
|
formonly.tubic,
|
|
formonly.pdif);
|
|
SCREEN RECORD sr_loc(formonly.cod_seccion,
|
|
formonly.cod_tramo,
|
|
formonly.cod_fila,
|
|
formonly.cod_pos,
|
|
formonly.desc_seccion,
|
|
formonly.desc_tramo,
|
|
formonly.desc_fila,
|
|
formonly.desc_pos,
|
|
formonly.existencia_act,
|
|
formonly.unidades_act,
|
|
formonly.unidades,
|
|
formonly.existencia);
|
|
END
|