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