42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
PROGRAMA : INPRFU019
|
|
OBJETIVO : Capturar Los Gastos de La Orden de Compras
|
|
PROGRAMADOR : Ing. Juan Fco. Soto.
|
|
FECHA REALIZACION : Octubre 8, 1992.
|
|
------------------------------------------------------------------
|
|
}
|
|
GLOBALS "coprgb000.4gl"
|
|
|
|
FUNCTION coprfu019()
|
|
WHENEVER ERROR CONTINUE
|
|
LET formulario = formulario CLIPPED,"cofmfu019"
|
|
OPEN WINDOW flete1 AT 10,5 WITH FORM formulario ATTRIBUTE
|
|
(BORDER,FORM LINE FIRST + 1,COMMENT LINE LAST)
|
|
|
|
## Captura los datos que va a contener el registro
|
|
|
|
IF modifica = "S" THEN
|
|
SELECT c_flete,otros_g,detalle INTO flete.*
|
|
FROM cotb00014
|
|
WHERE num_oc = ordenes.num_oc and
|
|
tipo = ordenes.tipo and
|
|
status_t is null
|
|
ELSE
|
|
INITIALIZE flete.* TO NULL
|
|
END IF
|
|
|
|
INPUT BY NAME flete.* WITHOUT DEFAULTS ATTRIBUTE (YELLOW)
|
|
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
IF modifica is null THEN
|
|
DELETE FROM cotb00015 WHERE num_oc = ordenes.num_oc and
|
|
tipo = ordenes.tipo
|
|
END IF
|
|
EXIT INPUT
|
|
END IF
|
|
END INPUT
|
|
CLOSE WINDOW flete1
|
|
END FUNCTION
|