{
===============================================================================
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