{
--------------------------------------------------------------------------
 PROGRAMA          : IPPRMT044_3
 OBJETIVO          : Programa Captura Documento Otros Movimientos de
                     Inventario de Producto Terminados.
 PROGRAMADOR       : Juan Soto.
 FECHA REALIZACION : FEBRERO 2014
 --------------------------------------------------------------------------
}

GLOBALS
  "ipprgb000.4gl"

  
  DEFINE ordenx,tmpnumero,tmpnueroExistencia INTEGER,
         hacerdocumento BOOLEAN,
         direccion_p VARCHAR(200) 
  
  DEFINE factor_conv DYNAMIC ARRAY OF DECIMAL(12,5),
         cantidad_factura,cantidad_devuelta,total_medida,cantidad_orden,
         cantidad_recibida,diferencia,cantidadRequisicion DEC(12,5)
  DEFINE ac_cli,reimpresion,pcerrada CHAR(1),
         pnum_req,xcotizacion INTEGER,
         pcontrol_cliente CHAR(3),
         pcontrol_despacho,chconduce,control_devolucion CHAR(2),
         procedimiento ,
         PCCEMAIL,TOemail VARCHAR(40),
         cuerpo_correo VARCHAR(150),
         CCEmail,subject VARCHAR(100),
         psec_vend INT
         
         
  DEFINE prtb09 RECORD LIKE prtb00009.*
  DEFINE busca_v RECORD
     sec_cliente    INTEGER,
     nombre         CHAR(30)
  END RECORD
  DEFINE despiece DYNAMIC ARRAY OF RECORD
     etiqueta      CHAR(20),
     cod_n         SMALLINT,
     cod_grupo     SMALLINT,
     cod_tipo      SMALLINT,
     cod_sec       SMALLINT,
     lado_1        DEC(12,5),
     lado_2        DEC(12,5),
     lado_3        DEC(12,5),
     cantidad      DEC(12,5),
     medida        DEC(12,5)
  END RECORD,
  cantidad_entrada,cantidad_conduce,pendiente DEC(12,5)

MAIN                
   DEFER INTERRUPT
   CALL STARTLOG("ipmt044.log")
   CALL ARG_VAL(1) RETURNING usuarios
   CALL ARG_VAL(2) RETURNING clave
   CALL ARG_VAL(3) RETURNING impresor 
   CONNECT to "smarmotech" USER  usuarios USING clave
   SELECT * INTO p_companias.* FROM companias
   CALL ipprmt044()
END MAIN

FUNCTION busca_cliente()
LET int_flag = FALSE

OPEN WINDOW cliente AT 10,9 WITH FORM "ipfmwd009" 
ATTRIBUTE(BORDER,FORM LINE FIRST + 2)
CONSTRUCT BY NAME criterio ON a.tipo_cliente,a.sec_cliente,a.nombre

LET selec = "SELECT a.tipo_cliente,a.sec_cliente,a.nombre FROM vetb00004 a ",
             "WHERE a.status_t IS NULL AND ",criterio CLIPPED, "ORDER BY 1,2"

PREPARE comando3 FROM selec 
DECLARE comp3 CURSOR FOR comando3

LET idx = 1
FOREACH comp3 INTO clientes[idx].*
LET idx = idx + 1
IF idx = 49 THEN
    EXIT FOREACH
END IF
END FOREACH
CALL SET_COUNT(idx - 1)

DISPLAY ARRAY clientes TO s_cliente.*
LET idx = ARR_CURR()
CLOSE WINDOW cliente
END FUNCTION

FUNCTION ipprmt044()
  DEFINE fecha CHAR(8)
  DEFINE hora CHAR(5)

  CLEAR SCREEN
  OPTIONS
    ERROR LINE 24,
    FORM LINE 4,
    COMMENT LINE 24,
    PROMPT LINE 24
    LET fecha = today  USING "dd/mm/yyyy"
    LET hora = time
    LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 1,lj
            ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha AT 1,70 ATTRIBUTE (BLUE)
    DISPLAY hora AT 2,73 ATTRIBUTE (BLUE)
    DISPLAY "ipprmt044" AT 1,3 ATTRIBUTE (BLUE)
    DISPLAY "Otros Movimientos" AT 2,30
    DISPLAY "<Esc> Adiciona Registro"  AT 3,2 ATTRIBUTE (BLUE,REVERSE)
    DISPLAY "<Delete> Cancela Operacion" AT 3,54 ATTRIBUTE (BLUE,REVERSE)
    OPEN FORM ipfmmt044 FROM "ipfmmt044" 
    DISPLAY FORM ipfmmt044
   
   CALL ipprad44()
  END FUNCTION

FUNCTION ipprad44()
  DEFINE vexistencia BOOLEAN  
# WHENEVER ERROR CONTINUE
   LET int_flag = FALSE
  INITIALIZE otros_mov.* TO NULL

 LABEL otra_vez:
 LABEL vuelve:
    IF (OPC = "S" OR OPC = "s") OR opc is null THEN
     INITIALIZE otros_mov.* TO NULL
  END IF


  IF otros_mov.num_doc is null THEN
    LET otros_mov.num_doc = 0
  END IF

 LET p_fechas = otros_mov.fecha USING "dd/mm/yyyy"

  CALL prd(p_fechas,usuarios) RETURNING bandera
  IF bandera = 1 THEN
     LET bandera = 0
     RETURN
  END IF
  LET otros_mov.cod_cia = 1 
  # Busca numero temporal para control existencia
  DELETE FROM iptbexistencia WHERE us_crea = usuarios
  SELECT max(a.num_doc) INTO tmpnueroExistencia
  FROM iptbexistencia a

  IF tmpnueroExistencia  IS NULL THEN
     LET tmpnueroExistencia = 0
  END IF
  LET tmpnueroExistencia= tmpnueroExistencia + 1
  
 INPUT BY NAME otros_mov.* WITHOUT DEFAULTS
  ON KEY (F2)
    LET reimpresion = "S"
    CALL consulta()
  ON KEY(CONTROL-W)
     IF INFIELD(cod_sp_sec) OR INFIELD(cod_sp) THEN
        CALL busca_cliente()
        LET otros_mov.cod_sp      = clientes[idx].tipo_cliente
        LET otros_mov.cod_sp_sec  = clientes[idx].sec_cliente
        LET otros_mov.descrip4     = clientes[idx].nombre

        DISPLAY BY NAME otros_mov.cod_sp,
                        otros_mov.cod_sp_sec, 
                        otros_mov.descrip4
        EXIT INPUT
      END IF
  AFTER FIELD cod_cia
    IF otros_mov.cod_cia IS NULL THEN
       LET numero_msg = 16
       CALL msg(numero_msg)
       NEXT FIELD cod_cia
     END IF

     IF otros_mov.cod_cia = 1 THEN
       LET nombre_cia = p_companias.nombre
     ELSE  
       LET nombre_cia = ""
     END IF
     DISPLAY BY NAME nombre_cia

  BEFORE FIELD bodega
   LET otros_mov.bodega = 1
   DISPLAY BY NAME otros_mov.bodega

  AFTER FIELD fecha
    IF otros_mov.fecha > TODAY THEN
       LET numero_msg = 189
       CALL msg(numero_msg)
       NEXT FIELD fecha
    END IF

    LET p_fechas = otros_mov.fecha using "dd/mm/yyyy"
 
    CALL prd(p_fechas,usuarios)  RETURNING bandera
    LET otros_mov.fecha = p_fechas
    DISPLAY BY NAME otros_mov.fecha
    
    IF bandera = 1 THEN
      LET bandera = 0
      NEXT FIELD fecha
   END IF
 
   AFTER FIELD fact_no
     LET otros_mov.cod_sp = null
     LET otros_mov.cod_sp_sec = null

     IF otros_mov.cod_mov = 12 or otros_mov.cod_mov = 13 THEN
        IF otros_mov.fact_no is null THEN
           LET numero_msg = 16 
           CALL msg(numero_msg)
           NEXT FIELD fact_no
        END IF

        SELECT UNIQUE tipo_cliente,sec_cliente 
        INTO otros_mov.cod_sp,otros_mov.cod_sp_sec
        FROM vetb00002 WHERE factura=otros_mov.fact_no and status_t is null AND
                             CONVERT(CHAR(10),fecha_factura,101) >= '01/01/2007'

        IF status = NOTFOUND THEN
           LET numero_msg = 102 
           CALL msg(numero_msg)
          NEXT FIELD fact_no
        END IF
    # CONTROL `
       LET cantidad_factura = 0
       LET cantidad_devuelta = 0
       SELECT SUM(a.cantidad) INTO cantidad_factura
       FROM vetb00003 a
       WHERE a.factura = otros_mov.fact_no AND
             a.status_t IS NULL AND
             a.fech_crea > '2009-01-01 08:00'    
             
       SELECT SUM(a.cantidad_2) INTO cantidad_devuelta
       FROM iptb00006 a
       WHERE a.fact_no = otros_mov.fact_no AND
             a.status_t IS NULL AND
             a.fech_crea > '2009-01-01 08:00' and
             a.cod_mov in (12,13)
             
        IF cantidad_devuelta + .05 > cantidad_factura THEN
           LET numero_msg =238
           CALL msg(numero_msg)
           NEXT FIELD fact_no
        END IF     
     END IF

     IF otros_mov.fact_no is not null THEN
        IF otros_mov.cod_mov = 32 THEN
 
           SELECT unique cod_n FROM iptb00006 
           WHERE fact_no = otros_mov.fact_no and cod_mov = otros_mov.cod_mov and
                CONVERT(CHAR(10), fecha,101) >= "01011994" AND status_t is null
        
          IF status != NOTFOUND THEN
             LET numero_msg = 103
             CALL msg(numero_msg)
             NEXT FIELD fact_no
          END IF
       END IF
  END IF 

       DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec

 AFTER FIELD cod_transp
         IF otros_mov.cod_mov = 30 OR otros_mov.conduce_no = 31 OR otros_mov.cod_mov = 55 or
            otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 
    THEN

     IF otros_mov.cod_transp is null THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD cod_transp
     END IF
     END IF
    AFTER FIELD sec_transp
      IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
         IF otros_mov.sec_transp IS NULL THEN
            CALL msg(16)
            NEXT FIELD sec_transp
         END IF
      END IF
      IF pcontrol_despacho = "SI" THEN
         IF otros_mov.sec_transp is null THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD cod_transp
         END IF
     SELECT nombre INTO descrip2 FROM vetb00015
     WHERE cod_transp=otros_mov.cod_transp and 
           sec_transp=otros_mov.sec_transp and
          status_t is null

     IF status = NOTFOUND THEN
        LET numero_msg = 3
        CALL msg(numero_msg)
       NEXT FIELD cod_transp
     END IF
   DISPLAY BY NAME descrip2
   END IF
   AFTER FIELD cod_tarifa
     IF otros_mov.cod_tarifa is null THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
     #  NEXT FIELD cod_tarifa
     END IF
     SELECT descrip INTO descrip1 FROM vetb00023
     WHERE cod_tarifa = otros_mov.cod_tarifa and status_t is null

     IF status = NOTFOUND THEN
        LET numero_msg = 3
        CALL msg(numero_msg)
       #NEXT FIELD cod_tarifa
     END IF
     DISPLAY BY NAME descrip1

   AFTER FIELD bodega
     SELECT *FROM intb00009 WHERE cod_bodega = otros_mov.bodega
      IF status >= 0 THEN
        IF status = NOTFOUND THEN
         LET numero_msg = 3
         CALL msg(numero_msg)
         NEXT FIELD bodega
      END IF
        ELSE
            CALL integridad()
   
            IF bandera = 1 THEN
               LET bandera = 0
               RETURN
            END IF 
   END IF

  BEFORE FIELD num_doc
     #LET tmpnumero = 0
     #SELECT a.num_doc INTO tmpnumero FROM iptb00043 a
     #WHERE usuario = usuarios

     #IF STATUS = NOTFOUND THEN
     #   INSERT INTO iptb00043 VALUES (1,usuarios)
     #   LET tmpnumero = 1
     #ELSE
     #  UPDATE iptb00003 SET num_doc = tmpnumero + 1
     #  WHERE usuario = usuarios
     #END IF
     
     SELECT num_doc INTO otros_mov.num_doc FROM iptb00007
       WHERE cod_mov = otros_mov.cod_mov

     IF otros_mov.num_doc IS NULL THEN
        LET otros_mov.num_doc = 0
     END IF
     LET otros_mov.num_doc = otros_mov.num_doc + 1
     DISPLAY BY NAME otros_mov.num_doc
     LET otros_mov.fecha = TODAY
     DISPLAY BY NAME otros_mov.fecha

   AFTER FIELD cod_mov
{
     IF (otros_mov.cod_mov IS NULL OR otros_mov.cod_mov = 30 OR 
         otros_mov.cod_mov = 31) THEN
        LET numero_msg = 1660
        CALL msg(numero_msg)
        NEXT FIELD cod_mov
     END IF
} 
    LET pcontrol_cliente = NULL
    SELECT a.descrip_mov,a.status_mov,a.control_clientes,a.control_despacho,a.control_devolucion
    INTO otros_mov.descrip_mov,status_m,pcontrol_cliente,pcontrol_despacho,control_devolucion
    FROM iptb00005 a WHERE a.cod_mov = otros_mov.cod_mov AND a.status_t is null

    IF status >= 0 THEN
       IF STATUS = NOTFOUND THEN
          LET numero_msg = 3
          CALL msg(numero_msg)
          NEXT FIELD cod_mov
       END IF
    ELSE
       CALL integridad()

       if bandera = 1 THEN
          LET bandera = 0
          RETURN
      end if 
    END IF
    SELECT num_doc INTO otros_mov.num_doc FROM iptb00007
    WHERE cod_mov = otros_mov.cod_mov
    IF otros_mov.num_Doc IS NULL THEN
       LET otros_mov.num_doc = 1
    END IF
    LET otros_mov.num_Doc = otros_mov.num_doc + 1
    DISPLAY BY NAME otros_mov.num_doc 

    DISPLAY BY NAME otros_mov.descrip_mov
    {C0NTROL DESPACHO}
    LET pnum_req = NULL
    IF pcontrol_despacho = "SI" THEN
       CALL visualizacion_despacho() RETURNING otros_mov.conduce_no,
                                               otros_mov.cod_sp,
                                               otros_mov.cod_sp_sec,
                                               pnum_req
       IF Int_flag THEN
          LET  int_flag = FALSE  
          CALL msg(2)
          DELETE FROM iptbexistencia WHERE us_crea = usuarios
          RETURN
       END IF         

         LET ordenx = otros_mov.conduce_no
      
         SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
         INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
         FROM prtb00012 a
          WHERE a.num_oc = otros_mov.conduce_no AND
                a.status_t IS NULL
         
         IF STATUS = NOTFOUND THEN
            LET numero_msg = 3
            CALL msg(numero_msg)
            NEXT FIELD conduce_no
         END IF
         
         SELECT a.mensaje INTO direccion_p FROM cctb00029 a
         WHERE a.num_req = pnum_req
         
         DISPLAY BY NAME otros_mov.conduce_no,otros_mov.cod_sp,otros_mov.cod_sp_Sec,
                       pnum_req,direccion_p,psec_vend,xcotizacion
                       
       
    END IF

{ CHEQUEO DE PERMISOS PARA EL USUARIO
    SELECT * FROM iptb00005 where cod_mov = otros_mov.cod_mov and
                                   us_crea = user

        IF status = notfound THEN
           LET numero_msg = 139
           CALL msg(numero_msg)
           NEXT FIELD cod_mov
         END IF
}
    IF otros_mov.cod_mov = 32 or 
       otros_mov.cod_mov = 12 
        THEN
      NEXT FIELD fact_no
    ELSE
      NEXT FIELD cod_transp
    END IF
  AFTER FIELD cod_mov1
    IF otros_mov.entrada IS NOT NULL THEN
       IF otros_mov.cod_mov IS NULL THEN
          LET numero_msg = 16
          CALL msg(numero_msg)
          NEXT FIELD entrada
       END IF
       SELECT a.descrip_mov INTO otros_mov.descrip_mov1 FROM iptb00005 a
       WHERE a.cod_mov = otros_mov.cod_mov1
       
       IF STATUS = NOTFOUND THEN
           LET numero_msg = 3
           CALL msg(numero_msg)
           NEXT FIELD cod_mov1
        END IF
        DISPLAY BY NAME otros_mov.descrip_mov1
      END IF
  
  BEFORE FIELD conduce_no
   IF pcontrol_despacho = "SI" THEN
             IF otros_mov.bodega IS NULL THEN
                LET otros_mov.bodega = 1
                DISPLAY BY NAME otros_mov.bodega
             END IF
             
             SELECT UNIQUE a.cod_mov 
             FROM vetb00060 a
             WHERE a.tipo_cliente = otros_mov.cod_sp and
               a.cod_mov = otros_mov.cod_mov
   
               IF STATUS = NOTFOUND THEN
                  LET numero_msg = 386
                  CALL msg(numero_msg)
                  NEXT FIELD cod_mov
               END IF

         
                SELECT nombre INTO otros_mov.descrip4 
                FROM vetb00004
                WHERE tipo_cliente = otros_mov.cod_sp and
                      sec_cliente = otros_mov.cod_sp_sec and
                      status_t is null

             DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_Sec,
                             otros_mov.descrip4
             NEXT FIELD detalle
   END IF 
  AFTER FIELD conduce_no
    IF otros_mov.conduce_no IS NOT NULL THEN
       
         LET ordenx = otros_mov.conduce_no
      
         SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
         INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
         FROM prtb00012 a
          WHERE a.num_oc = otros_mov.conduce_no AND
                a.status_t IS NULL
         
         IF STATUS = NOTFOUND THEN
            LET numero_msg = 3
            CALL msg(numero_msg)
            NEXT FIELD conduce_no
         END IF
                SELECT nombre INTO otros_mov.descrip4 
                FROM vetb00004
                WHERE tipo_cliente = otros_mov.cod_sp and
                      sec_cliente = otros_mov.cod_sp_sec and
                      status_t is null

             DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_Sec,
                             otros_mov.descrip4
         
        IF otros_mov.cod_mov <> 12 AND otros_mov.cod_mov <> 13  AND otros_mov.cod_mov <> 71 THEN 
         IF pcerrada = "S" THEN
             LET numero_msg = 74
            CALL msg(numero_msg)
            NEXT FIELD conduce_no
         END IF
        END IF
         DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec
         
     END IF

    IF otros_mov.cod_mov = 30 OR otros_mov.conduce_no = 31 OR otros_mov.cod_mov = 55 
    THEN
        IF otros_mov.conduce_no IS NULL THEN
           LET numero_msg = 16
           CALL msg(numero_msg)
           NEXT FIELD conduce_no
        END IF
    END IF


  BEFORE FIELD cod_sp
   IF otros_mov.cod_mov = 33 OR otros_mov.cod_mov = 34 THEN
      CALL busca_vend()
      LET otros_mov.cod_sp    = 12
      LET otros_mov.cod_sp_sec= busca_v.sec_cliente
      LET otros_mov.descrip4  = busca_v.nombre     
      DISPLAY BY NAME otros_mov.cod_sp,otros_mov.cod_sp_sec,otros_mov.descrip4
      NEXT FIELD cod_sp_sec
   END IF

  AFTER FIELD cod_sp 
   IF ac_cli = "S" AND otros_mov.cod_sp IS NULL THEN
      LET numero_msg = 16
      CALL msg(numero_msg)
      NEXT FIELD cod_sp
   END IF
   IF pcontrol_cliente = "SI" THEN
      SELECT a.cod_mov FROM vetb00060 a
      WHERE a.cod_mov = otros_mov.cod_mov and
            a.tipo_cliente = otros_mov.cod_sp
   END IF
         
  AFTER FIELD cod_sp_sec 
  IF ac_cli = "S" AND otros_mov.cod_sp_sec IS NULL THEN
     LET numero_msg = 16
     CALL msg(numero_msg)
     NEXT FIELD cod_sp
  END IF

  IF otros_mov.cod_mov = 12 THEN
     IF otros_mov.cod_sp_sec is null THEN
        LET numero_msg = 16
        CALL msg(numero_msg)
        NEXT FIELD cod_sp
      END IF
   END IF
 
   IF otros_mov.cod_sp_sec is not null THEN
      SELECT a.nombre,b.sec_vend INTO otros_mov.descrip4,psec_vend
      FROM vetb00004 a,vetb00028 b
      WHERE a.tipo_cliente = otros_mov.cod_sp and
            a.sec_cliente = otros_mov.cod_sp_sec and
            a.tipo_cliente = b.tipo_cliente and
            a.sec_cliente = b.sec_cliente and
            a.status_t is null

            IF status = notfound THEN
               LET numero_msg = 3
               CALL msg(numero_msg)
               NEXT FIELD cod_sp
            END IF

     DISPLAY BY NAME otros_mov.descrip4,psec_vend

     IF otros_mov.fact_no is not null THEN
        SELECT sec_cliente FROM vetb00002
        WHERE factura = otros_mov.fact_no and
              sec_cliente = otros_mov.cod_sp_sec

        IF status = notfound THEN
           LET numero_msg = 237
           CALL msg(numero_msg)
           NEXT FIELD cod_sp_sec
        END IF
     END IF
     END IF
   IF otros_mov.cod_mov = 33 OR otros_mov.cod_mov = 34 THEN
     
       SELECT unique sec_cliente FROM vetb00033
       WHERE sec_cliente = otros_mov.cod_sp_sec

     IF STATUS = NOTFOUND THEN
        LET numero_msg = -1301
        CALL msg(numero_msg)
        NEXT FIELD cod_sp
     END IF
   END IF
 BEFORE FIELD entrada
   IF otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR otros_mov.cod_mov = 55 THEN
      IF otros_mov.entrada IS NULL THEN
    #     IF otros_mov.entrada IS NOT NULL THEN
            SELECT MAX(a.num_doc),MAX(a.cod_mov) INTO otros_mov.entrada,otros_mov.cod_mov1
            FROM iptb00006 a
            WHERE (a.conduce_no = otros_mov.conduce_no) AND
                  (a.cod_mov in (70,71,72)) AND a.status_t IS NULL
    #     END IF

      DISPLAY BY NAME otros_mov.entrada,otros_mov.cod_mov1
     END IF
   END IF

 AFTER FIELD entrada
       IF otros_mov.entrada IS NOT NULL THEN
          SELECT UNIQUE a.num_doc FROM iptb00006 a
          WHERE a.cod_mov= otros_mov.cod_mov1 and a.num_doc = otros_mov.entrada
            AND a.status_t IS NULL
        
        IF STATUS = NOTFOUND THEN
           LET numero_msg = 3
           CALL msg(numero_msg)
           NEXT FIELD entrada
         END IF
{
        LET cantidad_entrada = 0
        SELECT SUM(a.cantidad_2) INTO cantidad_entrada
        FROM iptb00006 a
        WHERE a.num_doc = otros_mov.placa AND
         a.cod_mov IN(70,71,72) AND
         a.status_t IS NULL

        IF cantidad_entrada IS NULL THEN
           LET cantidad_entrada = 0 
        END IF

        LET cantidad_conduce = 0
        SELECT SUM(a.cantidad_2) INTO cantidad_conduce
        FROM iptb00006 a,iptb00028 b
        WHERE b.entrada = otros_mov.entrada AND
              a.num_doc = b.num_doc and
              a.cod_mov = b.cod_mov AND
              a.status_t IS NULL

        IF cantidad_conduce IS NULL THEN
          LET cantidad_conduce = 0
       END IF
       LET pendiente = cantidad_entrada + cantidad_conduce
DISPLAY "CANTIDAD E ",cantidad_entrada," c salida ",cantidad_conduce
       IF pendiente <= 0 THEN
         LET numero_msg =46
         CALL msg(numero_msg)
         NEXT FIELD entrada
       END IF
}
      END IF


 AFTER FIELD departamento
   IF otros_mov.cod_mov = 70 OR
       otros_mov.cod_mov = 71 OR otros_mov.conduce_no = 72 THEN
       IF otros_mov.departamento IS NULL THEN
          LET numero_msg = 16
          CALL msg(numero_msg)
          NEXT FIELD departamento
       END IF
       SELECT a.nom_dpto INTO otros_mov.nombre_depto
       FROM adtb00001 a
       WHERE a.departamento = otros_mov.departamento AND
             a.status_t IS NULL
       IF STATUS = NOTFOUND THEN
          LET numero_msg = 16
          CALL msg(numero_msg)
          NEXT FIELD departamento
       END IF
       DISPLAY BY NAME otros_mov.nombre_depto,otros_mov.cod_sp,otros_mov.cod_sp_sec
     END IF
  AFTER INPUT
   IF int_flag THEN
      LET INT_FLAG = FALSE
      DELETE FROM iptbexistencia WHERE us_crea = usuarios
      EXIT PROGRAM   
      EXIT INPUT
    END IF
    
    IF otros_mov.bodega IS NULL THEN
       CALL msg(16)
       NEXT FIELD bodega
    END IF
   EXIT INPUT
 END INPUT
  
    IF int_flag THEN
       LET numero_msg = 2
       CALL msg(numero_msg)
       LET int_flag = FALSE
       CALL movi2.clear()
       
       SLEEP 1
       RETURN
    END IF

    IF opc = "S" or opc = "s" OR opc IS NULL THEN
       CALL movi2.clear()
    
    END IF
    
    
{
    IF status_m = "S" THEN
     PREPARE b_fact FROM selec2
     DECLARE facturas CURSOR FOR b_fact
     OPEN facturas USING otros_mov.fact_no

     LET idx = 1
     FOREACH facturas INTO movi2[idx].*,cajas[idx],cant_ant[idx]
           IF status = notfound THEN
             EXIT FOREACH
           END IF
      LET idx = idx + 1
     END FOREACH

     END IF
 }
     IF otros_mov.conduce_no IS NOT NULL AND (otros_mov.cod_mov = 70 OR otros_mov.cod_mov = 71 OR
        otros_mov.cod_mov = 72) THEN
        DECLARE busca_orden CURSOR FOR
          SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,'0','0',a.cantidad,b.unidad_med,b.descrip_esp
          FROM prtb00013 a,iptb00002 b
          WHERE a.num_oc =otros_mov.conduce_no AND
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_sec = b.cod_sec 
   
          LET idx = 1
          FOREACH busca_orden INTO movi2[idx].*
           LET idx = idx + 1
          END FOREACH
     END IF
     
     IF otros_mov.entrada IS NOT NULL THEN
        DECLARE busca_20 CURSOR FOR
          SELECT '1',a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,'0','0',a.cantidad_2,b.unidad_med,b.descrip_esp
          FROM iptb00006 a,iptb00002 b
          WHERE a.conduce_no =otros_mov.conduce_no AND
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_sec = b.cod_sec AND 
                a.cod_mov = otros_mov.cod_mov1 and a.num_doc = otros_mov.entrada AND
                a.status_t IS NULL 
   
          LET idx = 1
          FOREACH busca_20 INTO movi2[idx].*
           LET idx = idx + 1
          END FOREACH
     END IF
     LET chconduce = 'N'
     IF otros_mov.conduce_no IS NOT NULL AND (otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR
        otros_mov.cod_mov = 55) THEN
        LET chconduce = 'S'
        IF otros_mov.entrada IS NOT NULL THEN
        DECLARE busca_entrada CURSOR FOR
          SELECT c.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,c.cantidad_1,
          c.cantidad,c.cantidad*-1,b.unidad_med,b.descrip_esp

          FROM iptb00006 a,iptb00002 b,cctb00026 c
          WHERE a.conduce_no = otros_mov.conduce_no and a.status_t IS NULL AND
                a.num_Doc = otros_mov.entrada  AND
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_sec = b.cod_sec AND
                a.cod_n = C.cod_n AND
                a.cod_grupo = c.cod_grupo AND
                a.cod_tipo = c.cod_tipo AND
                a.cod_sec = c.cod_sec AND
                a.area = c.area AND 
                c.num_req = pnum_req
   
   
             
          LET idx = 1
          FOREACH busca_entrada INTO movi2[idx].*
           LET idx = idx + 1
          END FOREACH
          
     END IF

        IF otros_mov.entrada IS NULL THEN
        DECLARE busca_orden1 CURSOR FOR
          SELECT UNIQUE a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,c.cantidad_1,c.cantidad,c.cantidad,b.unidad_med,b.descrip_esp
          FROM prtb00013 a,iptb00002 b,cctb00026 c
          WHERE a.num_oc = otros_mov.conduce_no and 
                a.status_t IS NULL and
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_sec = b.cod_sec AND 
                a.cod_n = C.cod_n AND
                a.cod_grupo = c.cod_grupo AND
                a.cod_tipo = c.cod_tipo AND
                a.cod_sec = c.cod_sec AND
                a.area = c.area AND
                c.num_req = pnum_req 
   

               
          LET idx = 1
          FOREACH busca_orden1 INTO movi2[idx].*
           LET idx = idx + 1
          END FOREACH
     END IF


    END IF
    IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
       DECLARE busca_dev CURSOR FOR
          SELECT '1',a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad,a.cantidad,a.cantidad,b.unidad_med,b.descrip_esp
          FROM vetb00003 a,iptb00002 b
          WHERE a.factura = otros_mov.fact_no and a.status_t IS NULL and
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_Sec = b.cod_Sec 
   
               
          LET idx = 1
          FOREACH busca_dev INTO movi2[idx].*
           LET idx = idx + 1
          END FOREACH
    END IF
     CALL set_count(idx - 1)
     INPUT ARRAY movi2 WITHOUT DEFAULTS FROM s_movi1.*  
      BEFORE INPUT
       LET decide = NULL
       LET selec_pt = NULL
       LET hacerdocumento = TRUE
    
# Este BEFORE FIELD estaba en comentario por disposicion de alguien hace algun
# tiempo y ahora no se sabe porque se determino que cuando usted hace una
# devolucion le permita al usuario modificar el codigo del producto
 
# Hoy 13 de noviembre de 1993 el Ing. de informatica dispuso que
# cuando sea una devolucion a una factura no se permitiera la actualizacion
# del codigo del producto 

      BEFORE ROW
       LET p_act = arr_curr()
       LET scr_l = scr_line()
       IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
          NEXT FIELD cantidad_1
       END IF
     
       ON KEY(F10)
         LET p_act = arr_curr()
         LET scr_l = scr_line()
         SELECT UNIQUE a.cod_n  FROM iptb00027 a
         WHERE a.cod_n = movi2[p_act].cod_n AND
               a.cod_grupo = movi2[p_act].cod_grupo AND
               a.cod_tipo = movi2[p_act].cod_tipo AND
               a.cod_sec = movi2[p_act].cod_sec 
         IF STATUS = NOTFOUND THEN
            LET numero_msg =399
            CALL msg(numero_msg)
            NEXT FIELD cod_n
         END IF
         IF movi2[p_act].area IS NULL THEN
            LET movi2[p_act].area = 1
        #    DISPLAY movi2[p_act].area TO smovi1[scr_l].area
         END IF      
         CALL despiece()

        # DISPLAY movi2[p_act].cantidad_1 TO smovi1[scr_l].cantidad_1
        NEXT FIELD cantidad_1
       ON KEY(CONTROL-W)
        CASE
          WHEN INFIELD (cod_n)
          CALL busca_prod1()

          LET movi2[p_act].cod_n      = busca_p.cod_n
          LET movi2[p_act].cod_grupo  = busca_p.cod_grupo
          LET movi2[p_act].cod_tipo   = busca_p.cod_tipo
          LET movi2[p_act].cod_sec    = busca_p.cod_sec
          LET movi2[p_act].descrip_esp= busca_p.descrip_esp
          LET movi2[p_act].unidad_med = busca_p.unidad_med


          DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
                  movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
                  movi2[p_act].descrip_esp,movi2[p_act].unidad_med
          TO      s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
                  s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
                  s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
          
          
          WHEN INFIELD (cod_grupo)
          CALL busca_prod1()

          LET movi2[p_act].cod_n      = busca_p.cod_n
          LET movi2[p_act].cod_grupo  = busca_p.cod_grupo
          LET movi2[p_act].cod_tipo   = busca_p.cod_tipo
          LET movi2[p_act].cod_sec    = busca_p.cod_sec
          LET movi2[p_act].descrip_esp= busca_p.descrip_esp
          LET movi2[p_act].unidad_med = busca_p.unidad_med


          DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
                  movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
                  movi2[p_act].descrip_esp,movi2[p_act].unidad_med
          TO      s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
                  s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
                  s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
          
          
          WHEN INFIELD (cod_tipo)
          CALL busca_prod1()

          LET movi2[p_act].cod_n      = busca_p.cod_n
          LET movi2[p_act].cod_grupo  = busca_p.cod_grupo
          LET movi2[p_act].cod_tipo   = busca_p.cod_tipo
          LET movi2[p_act].cod_sec    = busca_p.cod_sec
          LET movi2[p_act].descrip_esp= busca_p.descrip_esp
          LET movi2[p_act].unidad_med = busca_p.unidad_med

          
          DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
                  movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
                  movi2[p_act].descrip_esp,movi2[p_act].unidad_med
          TO      s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
                  s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
                  s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
          

          WHEN INFIELD (cod_sec)
          CALL busca_prod1()

          LET movi2[p_act].cod_n      = busca_p.cod_n
          LET movi2[p_act].cod_grupo  = busca_p.cod_grupo
          LET movi2[p_act].cod_tipo   = busca_p.cod_tipo
          LET movi2[p_act].cod_sec    = busca_p.cod_sec
          LET movi2[p_act].descrip_esp= busca_p.descrip_esp
          LET movi2[p_act].unidad_med = busca_p.unidad_med

          DISPLAY movi2[p_act].cod_n, movi2[p_act].cod_grupo,
                  movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
                  movi2[p_act].descrip_esp,movi2[p_act].unidad_med
          TO      s_movi1[scr_l].cod_n, s_movi1[scr_l].cod_grupo,
                  s_movi1[scr_l].cod_tipo,s_movi1[scr_l].cod_sec,
                  s_movi1[scr_l].descrip_esp,s_movi1[scr_l].unidad_med
          
       END CASE
       CALL integridad()
       if bandera = 1 THEN
          LET bandera = 0
          RETURN
       end IF 

     AFTER FIELD codigo_bloque
      IF movi2[p_act].codigo_bloque IS NOT NULL THEN
         SELECT UNIQUE a.codigo_bloque FROM intb00018 a
         WHERE a.codigo_bloque = movi2[p_act].codigo_bloque
         IF STATUS = NOTFOUND THEN
            CALL msg(3)
            NEXT FIELD codigo_bloque
         END IF
         
      END IF
     AFTER ROW
    LET p_act = arr_curr()
    IF movi2[p_act].cod_n is not null and movi2[p_act].cod_grupo is not null and
     movi2[p_act].cod_tipo is not null and movi2[p_act].cod_sec is not null then

            LET ant_art.area = movi2[p_act].area
            LET ant_art.cod_n = movi2[p_act].cod_n
            LET ant_art.cod_grupo = movi2[p_act].cod_grupo 
            LET ant_art.cod_tipo = movi2[p_act].cod_tipo 
            LET ant_art.cod_sec = movi2[p_act].cod_sec   

            FOR idx = 1 TO arr_count()
                IF idx != p_act THEN
                   IF movi2[idx].area = ant_art.area AND
                      movi2[idx].cod_n = ant_art.cod_n AND
                      movi2[idx].cod_grupo = ant_art.cod_grupo AND 
                      movi2[idx].cod_tipo = ant_art.cod_tipo AND
                      movi2[idx].cod_sec = ant_art.cod_sec THEN 
                      LET numero_msg = 21
                      CALL msg(numero_msg)
                      NEXT FIELD cod_n
                   END IF
                END IF
            END FOR
            IF pcontrol_despacho = 'SI' THEN
            IF movi2[p_act].area IS NULL THEN
               CALL msg(16)
               NEXT FIELD area
            END IF
            END IF
        END IF
                   
     AFTER FIELD cod_n
      LET p_act = arr_curr()
      IF movi2[p_act].cod_n is not null then

            LET ant_art.area = movi2[p_act].area
            LET ant_art.cod_n = movi2[p_act].cod_n
            LET ant_art.cod_grupo = movi2[p_act].cod_grupo 
            LET ant_art.cod_tipo = movi2[p_act].cod_tipo 
            LET ant_art.cod_sec = movi2[p_act].cod_sec   

            FOR idx = 1 TO arr_count()
                IF idx != p_act THEN
                   IF movi2[idx].area = ant_art.area AND
                      movi2[idx].cod_n = ant_art.cod_n AND
                      movi2[idx].cod_grupo = ant_art.cod_grupo AND 
                      movi2[idx].cod_tipo = ant_art.cod_tipo AND
                      movi2[idx].cod_sec = ant_art.cod_sec THEN 
                      LET numero_msg = 21
                      CALL msg(numero_msg)
                      NEXT FIELD cod_n
                   END IF
                END IF
            END FOR
           END IF

  AFTER FIELD cod_grupo
     LET p_act = arr_curr()
     IF movi2[p_act].cod_grupo is null THEN
       LET numero_msg = 16 
       CALL msg(numero_msg)
       NEXT FIELD cod_n     
     END IF

            LET ant_art.area = movi2[p_act].area
            LET ant_art.cod_n = movi2[p_act].cod_n
            LET ant_art.cod_grupo = movi2[p_act].cod_grupo 
            LET ant_art.cod_tipo = movi2[p_act].cod_tipo 
            LET ant_art.cod_sec = movi2[p_act].cod_sec   

            FOR idx = 1 TO arr_count()
                IF idx != p_act THEN
                   IF movi2[idx].area = ant_art.area AND
                      movi2[idx].cod_n = ant_art.cod_n AND
                      movi2[idx].cod_grupo = ant_art.cod_grupo AND 
                      movi2[idx].cod_tipo = ant_art.cod_tipo AND
                      movi2[idx].cod_sec = ant_art.cod_sec THEN 
                      LET numero_msg = 21
                      CALL msg(numero_msg)
                      NEXT FIELD cod_n
                   END IF
                END IF
            END FOR
           
   AFTER FIELD cod_tipo
     LET p_act = arr_curr()
     IF movi2[p_act].cod_tipo  is null THEN
       LET numero_msg = 16 
       CALL msg(numero_msg)
       NEXT FIELD cod_n   
     END IF

               LET ant_art.area = movi2[p_act].area
            LET ant_art.cod_n = movi2[p_act].cod_n
            LET ant_art.cod_grupo = movi2[p_act].cod_grupo 
            LET ant_art.cod_tipo = movi2[p_act].cod_tipo 
            LET ant_art.cod_sec = movi2[p_act].cod_sec   

            FOR idx = 1 TO arr_count()
                IF idx != p_act THEN
                   IF movi2[idx].area = ant_art.area AND
                      movi2[idx].cod_n = ant_art.cod_n AND
                      movi2[idx].cod_grupo = ant_art.cod_grupo AND 
                      movi2[idx].cod_tipo = ant_art.cod_tipo AND
                      movi2[idx].cod_sec = ant_art.cod_sec THEN 
                      LET numero_msg = 21
                      CALL msg(numero_msg)
                      NEXT FIELD cod_n
                   END IF
                END IF
            END FOR
           
     AFTER FIELD cod_sec
        LET p_act = arr_curr()
        IF movi2[p_act].cod_sec is null THEN
          LET numero_msg = 16 
          CALL msg(numero_msg)
          NEXT FIELD cod_n  
        END IF

        IF movi2[p_act].cod_n is null AND movi2[p_act].cod_sec is not null THEN
           LET numero_msg = 16
           CALL msg(numero_msg)
           NEXT FIELD cod_n
        END IF

       IF movi2[p_act].cod_n is not null and movi2[p_act].cod_grupo is not null and
         movi2[p_act].cod_tipo is not null and movi2[p_act].cod_sec is not null then


           SELECT * INTO p_iptb02.* FROM iptb00002
           WHERE cod_n=movi2[p_act].cod_n and
                 cod_grupo = movi2[p_act].cod_grupo and 
                 cod_tipo=movi2[p_act].cod_tipo and 
                 cod_sec  = movi2[p_act].cod_sec and 
                 status_t is null
                                 
            IF STATUS = NOTFOUND THEN
               LET numero_msg = 3
               CALL msg(numero_msg)
               NEXT FIELD cod_n
            END IF


            SELECT UNIQUE a.factor_conv INTO factor_conv[p_act] FROM iptb00001 a
            WHERE a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo 
                  and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
                  and a.status_t IS NULL
     
            IF STATUS = NOTFOUND THEN
                CALL msg(94)
                NEXT FIELD cod_n
            END IF
     
            LET movi2[p_act].descrip_esp = p_iptb02.descrip_esp CLIPPED
            LET movi2[p_act].unidad_med  = p_iptb02.unidad_med  CLIPPED

            DISPLAY movi2[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp
            ATTRIBUTE(CYAN)
            DISPLAY movi2[p_act].unidad_med TO s_movi1[scr_l].unidad_med
            ATTRIBUTE(CYAN)
            
            LET ant_art.area = movi2[p_act].area
            LET ant_art.cod_n = movi2[p_act].cod_n
            LET ant_art.cod_grupo = movi2[p_act].cod_grupo 
            LET ant_art.cod_tipo = movi2[p_act].cod_tipo 
            LET ant_art.cod_sec = movi2[p_act].cod_sec   

            FOR idx = 1 TO arr_count()
                IF idx != p_act THEN
                   IF movi2[idx].area = ant_art.area AND
                      movi2[idx].cod_n = ant_art.cod_n AND
                      movi2[idx].cod_grupo = ant_art.cod_grupo AND 
                      movi2[idx].cod_tipo = ant_art.cod_tipo AND
                      movi2[idx].cod_sec = ant_art.cod_sec THEN 
                      LET numero_msg = 21
                      CALL msg(numero_msg)
                      NEXT FIELD cod_n
                   END IF
                END IF
            END FOR
            
# CONTROL ITEMS EN LA ORDEN
  IF otros_mov.conduce_no IS NOT NULL THEN
  SELECT UNIQUE a.cod_n FROM prtb00013 a
  WHERE a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec AND
                  a.num_oc = otros_mov.conduce_no
                  
     IF STATUS = NOTFOUND THEN
        LET numero_msg =397
        CALL msg(numero_msg)
        NEXT FIELD cod_n
     END IF
   END IF

   IF pnum_req IS NOT NULL THEN

# CONTROL ITEM EN LA REQUISICION

     LET hacerdocumento=TRUE
     SELECT UNIQUE a.cod_n FROM cctb00026 a
     WHERE a.cod_n = movi2[p_act].cod_n AND
           a.cod_grupo = movi2[p_act].cod_grupo AND
           a.cod_tipo = movi2[p_act].cod_tipo AND
           a.cod_sec = movi2[p_act].cod_sec AND
           a.num_oc = otros_mov.conduce_no AND
           a.num_req = pnum_req
                  
      IF STATUS = NOTFOUND THEN
         LET numero_msg =397
         LET hacerdocumento = FALSE
         CALL msg(numero_msg)
         NEXT FIELD cod_n
      END IF
     END IF
              
# CONTROL DESPIECE
            SELECT UNIQUE a.cod_n  FROM iptb00027 a
            WHERE a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec
               
        
            IF STATUS != NOTFOUND THEN
               SELECT UNIQUE a.cod_n  FROM iptb00025 a
               WHERE a.cod_n = movi2[p_act].cod_n AND
                     a.cod_grupo = movi2[p_act].cod_grupo AND
                     a.cod_tipo = movi2[p_act].cod_tipo AND
                     a.cod_sec = movi2[p_act].cod_sec AND
                     a.cod_mov = otros_mov.cod_mov AND
                     a.num_doc = otros_mov.num_Doc
    
               IF STATUS = NOTFOUND THEN       
                  LET numero_msg =398
                  CALL msg(numero_msg)
                  NEXT FIELD cod_n
               END IF
            END IF
     #CONTROL DEVOLUCION
         IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
           IF  movi2[p_Act].cantidad_2 > movi2[p_Act].cantidad_p then
               LET numero_msg =28
               CALL msg(numero_msg)
                NEXT FIELD cantidad_1
          end if
           DISPLAY movi2[p_Act].cantidad_2 TO s_movi1[scr_l].cantidad_2
        END IF
    
     END IF # CONTROL CODIGO EN BLANCO    

    AFTER FIELD cantidad_1
      LET p_act = arr_curr()

      IF movi2[p_act].cod_n is not null and movi2[p_act].cod_grupo is not null and
         movi2[p_act].cod_tipo is not null and movi2[p_act].cod_sec is not null 
      THEN
         
         IF movi2[p_act].cantidad_1 IS NULL THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD cantidad_1
         END IF

            SELECT UNIQUE a.factor_conv INTO factor_conv[p_act] FROM iptb00001 a
            WHERE a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo 
                  and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
                  and a.status_t IS NULL
     
            IF STATUS = NOTFOUND THEN
                CALL msg(94)
                NEXT FIELD cod_n
            END IF
     
         LET movi2[p_act].cantidad_2=movi2[p_act].cantidad_1*factor_conv[p_act]
         DISPLAY movi2[p_act].cantidad_2 TO s_movi1[scr_l].cantidad_2 
         LET p_iptb06.cantidad_2 = 0
#CONTROL DEVOLUCION
         IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
          
            LET cantidad_factura = 0
            SELECT SUM(a.cantidad) INTO cantidad_factura
            FROM vetb00003 a
            WHERE a.factura = otros_mov.fact_no AND
                  a.status_t IS NULL AND
                  a.fech_crea > '2009-01-01 08:00' and
                  a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo 
                  and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
                  and a.status_t is null
                    
            SELECT SUM(a.cantidad_2) INTO cantidad_devuelta
            FROM iptb00006 a
            WHERE a.fact_no = otros_mov.fact_no AND
                  a.status_t IS NULL AND
                  a.fech_crea > '2009-01-01 08:00' and
                  a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo 
                  and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec and
                  a.cod_mov in (12,13)
                           
           
        IF cantidad_devuelta + .05 > cantidad_factura THEN
           LET hacerdocumento = FALSE
           LET numero_msg =238
           CALL msg(numero_msg)
           NEXT FIELD cantidad_1
        END IF     
      END IF
      
         IF status_m = "2" THEN
# BUSCA LA EXISTENCIA
           
          
           LET hacerdocumento=TRUE 
           
           IF p_iptb02.control_existencia = "SI" THEN
              CALL existencia(movi2[p_act].cod_n,movi2[p_act].cod_grupo,
                              movi2[p_act].cod_tipo,movi2[p_act].cod_sec,movi2[p_act].cantidad_2,p_act) 
              RETURNING vexistencia
              
               IF p_iptb06.cantidad_2  <0 THEN
                  LET hacerdocumento = FALSE
                  LET numero_msg =  16
                  CALL msg(numero_msg)
                  NEXT FIELD cantidad_1
               END IF

              IF vexistencia THEN
                 CALL fgl_winmessage("ERROR","CANTIDAD EXCEDE EXISTENCIA","STOP")
                 NEXT FIELD cantidad_1
              END IF
           END IF
         END IF
#================================================================================
     # CONTROL CANTIDAD DESPIECE
         LET total_medida = 0
         IF otros_mov.cod_mov = 30 OR otros_mov.cod_mov = 31 OR
            otros_mov.cod_mov = 55 OR otros_mov.cod_mov = 70 OR otros_mov.cod_mov = 71 OR
            otros_mov.cod_mov = 72 THEN
       
            SELECT UNIQUE a.num_doc
            FROM iptb00025 a
            WHERE a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec AND
                  a.cod_mov = otros_mov.cod_mov AND
                  a.num_doc = otros_mov.num_doc

             IF STATUS != NOTFOUND THEN
                SELECT SUM(a.medida) INTO total_medida
                FROM iptb00025 a
                WHERE a.cod_n = movi2[p_act].cod_n AND
                      a.cod_grupo = movi2[p_act].cod_grupo AND
                      a.cod_tipo = movi2[p_act].cod_tipo AND
                      a.cod_sec = movi2[p_act].cod_sec AND
                      a.cod_mov = otros_mov.cod_mov AND
                      a.area = movi2[p_act].area AND
                      a.num_doc = otros_mov.num_doc
                      
                IF total_medida <> movi2[p_act].cantidad_1 THEN
                   LET numero_msg = 152
                   CALL msg(numero_msg)
                   NEXT FIELD cantidad_1
                END IF
             END IF
          LET selec_pt = selec_pt CLIPPED,movi2[p_act].descrip_esp," CANTIDAD ",
                          movi2[p_act].cantidad_2," ",movi2[p_act].unidad_med
          END IF
    
    
      IF otros_mov.conduce_no IS NOT NULL THEN
#     CONTROL ORDEN
         IF otros_mov.cod_mov = 71  OR otros_mov.cod_mov = 70 THEN
            LET cantidad_conduce = 0
            SELECT SUM(a.cantidad) INTO cantidad_conduce 
            FROM prtb00013 a
            WHERE a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec AND
                  a.num_oc = otros_mov.conduce_no AND
                  a.status_t IS NULL
   
                 IF cantidad_conduce IS NULL THEN
                    LET cantidad_conduce = 0
                 END IF
   
                 LET cantidad_recibida = 0
                 SELECT SUM(a.cantidad_2) INTO cantidad_recibida
                 FROM iptb00006 a
                 WHERE a.cod_n = movi2[p_act].cod_n AND
                       a.cod_grupo = movi2[p_act].cod_grupo AND
                       a.cod_tipo = movi2[p_act].cod_tipo AND
                       a.cod_sec = movi2[p_act].cod_sec AND
                       a.conduce_no = otros_mov.conduce_no AND
                       a.cod_mov in(20,70,72,71) AND
                       a.status_t IS NULL

                 IF cantidad_Recibida IS NULL THEN
                    LET cantidad_Recibida = 0
                 END IF
                 LET hacerdocumento=TRUE
                 IF (cantidad_Recibida  + movi2[p_act].cantidad_2) > cantidad_conduce THEN
                    LET numero_msg = 46
                    LET hacerdocumento = FALSE
                    CALL msg(numero_msg)
                    NEXT FIELD cantidad_1
                 END IF
            END IF     
         IF otros_mov.cod_mov <> 12 AND otros_mov.cod_mov <> 13 and otros_mov.cod_mov <> 43 
            THEN
            LET cantidad_conduce = 0
            SELECT SUM(a.cantidad) INTO cantidad_conduce FROM prtb00013 a
            WHERE a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec AND
                  a.num_oc = otros_mov.conduce_no AND
                  a.status_t IS NULL

              IF STATUS = NOTFOUND THEN
                 LET numero_msg = 397
                 CALL msg(numero_msg)
                 NEXT FIELD cod_n
              END IF
              LET cantidad_orden =0
              IF pcontrol_despacho="SI" THEN
#=============================================================================
#     CONTROL REQUISICION DESPACHO
#======================================================================
         LET cantidadrequisicion = 0
         SELECT SUM(a.cantidad_1) INTO cantidadRequisicion
         FROM cctb00026 a
         WHERE    a.area = movi2[p_act].area AND
                  a.cod_n = movi2[p_act].cod_n AND
                  a.cod_grupo = movi2[p_act].cod_grupo AND
                  a.cod_tipo = movi2[p_act].cod_tipo AND
                  a.cod_sec = movi2[p_act].cod_sec AND
                  a.num_oc = otros_mov.conduce_no AND
                  a.num_req = pnum_req AND
                  a.status_t IS NULL
   
        IF movi2[p_act].cantidad_1 > cantidadRequisicion THEN
           CALL fgl_Winmessage("ERROR","NO PUEDE DIGITAR UNA CANTIDAD MAYOR A LA REQUISICION","STOP")
           NEXT FIELD cantidad_1
        END IF  

                 SELECT SUM(a.cantidad_2*-1) INTO cantidad_orden
                 FROM iptb00006 a
                 WHERE a.cod_n=movi2[p_act].cod_n and a.cod_grupo=movi2[p_act].cod_grupo 
                       and a.cod_tipo=movi2[p_act].cod_tipo and a.cod_sec=movi2[p_act].cod_sec
                       AND a.area = movi2[p_act].area
                       and a.conduce_no = otros_mov.conduce_no and cod_mov in (30,31,55,12,13,43)
                       and a.status_t IS NULL

      
              IF cantidad_orden IS  NULL THEN
                 LET cantidad_orden = 0
              END IF  

              IF cantidad_conduce IS  NULL THEN
                 LET cantidad_conduce = 0
              END IF  

      
              LET movi2[p_act].cantidad_p = cantidad_conduce - (cantidad_orden + movi2[p_act].cantidad_2)

              DISPLAY movi2[p_act].cantidad_p TO s_movi1[scr_l].cantidad_p 
                 IF movi2[p_act].cantidad_p <-0.005 THEN
                    LET numero_msg = 46
                    CALL msg(numero_msg)
                    NEXT FIELD cod_n
                 END IF

               END IF # CONTROL ORDENS
         END IF # CONTROL CONDUCE_NO
       END IF # CONTROL DEVOLUCION
#=================================================================================================
     LET movi3[p_act].cantidad_2 = movi2[p_act].cantidad_2 
   END IF

    AFTER INPUT

      IF int_flag THEN
         DELETE FROM iptb00025 WHERE cod_mov = otros_mov.cod_mov and num_doc = otros_mov.num_Doc
         
         LET numero_msg = 2
         CALL msg(numero_msg)
         LET int_flag = false
         RETURN
      END IF
      
      IF movi2[p_act].cantidad_2 <0 THEN
         LET numero_msg =  16
         CALL msg(numero_msg)
         NEXT FIELD cantidad_1
      END IF
      IF hacerdocumento = FALSE THEN
         CALL msg(16)
         CONTINUE INPUT
      END IF
            
  END INPUT

   LABEL sale_boni:
    PROMPT "Toda la Informacion Esta Correcta? (S/N)" FOR CHAR opc

 IF OPC = "S" or OPC = "s" THEN
    # Actualiza tabla control ultimo documento
      SELECT num_doc INTO otros_mov.num_doc FROM iptb00007
       WHERE cod_mov = otros_mov.cod_mov

     IF status   = notfound THEN
        LET otros_mov.num_doc = 0
        INSERT INTO iptb00007 values(1,otros_mov.cod_mov,null,usuarios,getdate(),null,null)
     END IF

     LET otros_mov.num_doc = otros_mov.num_doc + 1


     UPDATE iptb00007 set num_doc    = otros_mov.num_doc,
                          us_crea    = user,
                          fech_crea = getdate()
     WHERE cod_mov = otros_mov.cod_mov

     DISPLAY BY NAME otros_mov.num_doc ATTRIBUTE (BLUE)
     # INSERTA REGISTROS DE ENTRADAS CON LOS CONDUCES
       IF otros_mov.cod_mov1 IS NOT NULL THEN
          INSERT INTO iptb00028 VALUES (otros_mov.cod_mov,otros_mov.num_doc,otros_mov.cod_mov1,
                                        otros_mov.entrada)
       END IF
     # INFORMACIONES CUANDO EL MOVIMIENTO ES DE PRODUCCION
       IF otros_mov.cod_mov = 70 OR otros_mov.cod_mov = 71 OR otros_mov.cod_mov = 72 THEN 
          INSERT INTO iptb00026 VALUES (otros_mov.cod_mov,otros_mov.num_doc,otros_mov.departamento)
       END IF
     # INFORMACION PARA ENVIAR EL CORREO A LOS VENDEDORES
        IF chconduce = 'S' OR control_devolucion = 'SI' THEN
           LET subject = otros_mov.conduce_no,otros_mov.descrip_mov CLIPPED
           LET cuerpo_correo = 'CLIENTE: ',otros_mov.descrip4 CLIPPED,", ",
               otros_mov.detalle CLIPPED
        END IF
                           
  FOR idx = 1 TO arr_count()
    IF movi2[idx].cod_n is not null and movi2[idx].cod_grupo is not null and
       movi2[idx].cod_tipo is not null and movi2[idx].cod_sec is not null THEN
       
       IF movi2[idx].cantidad_2 is not null THEN

       IF status_m = "2" THEN
          LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
       END IF

       INSERT INTO iptb00006 VALUES
                 (otros_mov.cod_cia,otros_mov.num_doc,otros_mov.fecha,
                  otros_mov.fact_no,otros_mov.conduce_no,null,null,otros_mov.cod_sp,
                  otros_mov.cod_sp_sec,otros_mov.cod_transp,
                  otros_mov.sec_transp,otros_mov.placa,otros_mov.cod_tarifa,
                  otros_mov.cod_mov,otros_mov.detalle,movi2[idx].area,movi2[idx].cod_n, 
                  movi2[idx].cod_grupo,
                  movi2[idx].cod_tipo,movi2[idx].cod_sec,
                  movi2[idx].cantidad_1,movi2[idx].cantidad_2,
                  null,null,otros_mov.bodega,null,suser_sname(),getdate(),null,null,pnum_req,
                  movi2[idx].codigo_bloque,psec_vend,direccion_p,ordenx)

       INSERT INTO prordenlog VALUES (otros_mov.conduce_no,otros_mov.num_doc,movi2[idx].cod_n, 
                  movi2[idx].cod_grupo,
                  movi2[idx].cod_tipo,movi2[idx].cod_sec,
                  movi2[idx].cantidad_2,getdate(),otros_mov.cod_mov,movi2[idx].cantidad_1,diferencia)
                  

          CALL integridad()          

         if bandera = 1 THEN
           LET bandera = 0
           RETURN
         end if
         IF chconduce = 'S' OR control_devolucion = 'SI' THEN 
            LET cuerpo_correo = cuerpo_correo CLIPPED,' ',movi2[idx].descrip_esp CLIPPED,
                             ' ',movi2[idx].unidad_med,' ',movi2[idx].cantidad_2 USING "<<<,<<<.####",'; '
        END IF
                             
       END IF { if de cantidad_2 no NULL }
    END IF {if cod_n cod_tipo ........ is not null }
  END FOR
  # ACTUALIZA EL ESTADO DE LA REQUISICION DESPACHO   
             UPDATE cctb00025 set estado_despacho = 'DESPACHO PARCIAL',
                    us_mod = usuarios,
                    fech_mod = getdate()
             WHERE num_req = pnum_req
     # CIERRE ORDENES

       SELECT SUM(cantidad) INTO cantidad_orden
       FROM prtb00013 a
       WHERE a.num_oc = otros_mov.conduce_no #AND 
             #a.fech_Crea > datetime (2007-01-01 08:00) year to minute
       IF cantidad_orden IS NULL THEN
          LET cantidad_orden = 0
       END IF
       SELECT SUM(cantidad_2*-1) INTO cantidad_conduce 
       FROM iptb00006 a
       WHERE a.conduce_no = otros_mov.conduce_no AND
             a.cod_mov in (12,13,30,31,55,43) AND
             CONVERT (CHAR(10),a.fecha,101) > "01/01/2007" AND
             a.status_t is null
       IF cantidad_conduce IS NULL THEN
          LET cantidad_conduce = 0
       END IF
       LET diferencia = cantidad_orden - cantidad_conduce
       IF diferencia < 0 THEN
          LET diferencia = diferencia * -1
       END IF
       IF diferencia IS NULL THEN
          LET diferencia = 0
       END IF
       IF diferencia <= .5  THEN
          IF status_m <> 1 THEN
             UPDATE prtb00012 set cerrada = "S",us_mod = user,fech_mod = getdate()
             WHERE num_oc = otros_mov.conduce_no
        # ACTUALIZA EL ESTADO DE LA REQUISICION DESPACHO   
             UPDATE cctb00025 set estado_despacho = 'DESPACHADA',
                    us_mod = usuarios,
                    fech_mod = getdate()
             WHERE num_req = pnum_req 
                   
       IF chconduce = 'S' THEN
             LET TOEmail = NULL
             IF psec_vend IS NOT NULL THEN
                SELECT a.email INTO TOEmail
                FROM seg0000 a
                WHERE a.sec_vend = psec_vend
             END IF
             IF TOEmail IS NULL THEN
                LET TOEmail = "jsoto@marmotech.com.do"
             END IF
             DECLARE buscaCorreos CURSOR FOR
               SELECT a.correo FROM seg0003 a
               WHERE a.controldespacho = 'SI'
               
             LET ccemail = NULL  
             FOREACH buscacorreos INTO PCCEMAIL
              LET CCEmail = Pccemail CLIPPED,';',CCEmail
             END FOREACH
               LET cuerpo_correo = cuerpo_correo CLIPPED,' CANTIDAD PENDIENTE: ',
                                   diferencia USING "<<<,<<<.####"
                                 
               LET procedimiento = "{ call cc_avisadespacho(?,?,?,?) }" CLIPPED
               CALL envia_correo(TOemail,CCEmail,cuerpo_correo,
                                 subject, procedimiento )
                                 
          END IF
        END IF
       END IF


   #-> Actualiza la tabla de monitoreo de las ordenes de corte vg. Saturday, 03 March, 2001 10:51:42 AM
      IF otros_mov.conduce_no IS NOT NULL THEN 
           LET prtb09.detalle =otros_mov.descrip_mov CLIPPED, " CON EL NUMERO DE DOCUMENTO: ",otros_mov.num_doc USING "<<<<<<<",
                                " DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"
          INSERT INTO prtb00009 
          VALUES (ordenx,otros_mov.fecha,NULL,"S",prtb09.detalle,NULL,USER,getdate(),NULL,NULL)
        IF otros_mov.cod_mov = 12 OR otros_mov.cod_mov = 13 THEN
           UPDATE cctb00025 set estado = 'AUTORIZADA',estado_despacho = 'DESPACHO PARCIAL',
                                us_mod = usuarios,fech_mod = getdate()
           WHERE num_req = pnum_req
           
           
        END IF
      END IF 

    PROMPT "Desea Imprimir Formulario Ahora? (S/N)" FOR CHAR opt2

       IF opt2 = "S" OR opt2 = "s" THEN
            
            
            CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia

                                                       
    START REPORT formu4 TO archivo
 
          LET ya = null
         FOR idx = 1 TO arr_count()
             IF movi2[idx].cod_sec IS NOT NULL THEN
                OUTPUT TO REPORT formu4(otros_mov.*,movi2[idx].*)
            END IF
       END FOR

        FINISH REPORT formu4
        RUN imprime
        END IF

          LET numero_msg = 1
          CALL msg(numero_msg)
        CLEAR FORM

     CALL movi2.clear()
  

     ELSE
         GOTO otra_vez
   END IF

    GOTO vuelve
END FUNCTION

REPORT formu4(x,z)

DEFINE x RECORD
  num_doc       LIKE iptb00006.num_doc,
    cod_cia       LIKE iptb00006.cod_cia,
    cod_mov       LIKE iptb00006.cod_mov,
    fact_no       LIKE iptb00006.fact_no,
    cod_transp    LIKE iptb00006.cod_transp,
    sec_transp    LIKE iptb00006.sec_transp,
    cod_tarifa    LIKE iptb00006.cod_tarifa,
    placa         LIKE iptb00006.placa,
    fecha         LIKE iptb00006.fecha,
    conduce_no    LIKE iptb00006.conduce_no,
    descrip_mov   CHAR(40), #LIKE intb00005.descrip_mov,
    bodega        LIKE iptb00006.bodega,
    detalle       LIKE iptb00006.detalle,
    cod_sp        LIKE iptb00006.cod_sp,
    cod_sp_sec    LIKE iptb00006.cod_sp_sec,
    departamento  SMALLINT,
    nombre_depto    CHAR(30),
    cod_mov1      SMALLINT,
    entrada       INT,
    descrip_mov1  CHAR(40),
    descrip4      CHAR(30)
 END RECORD

DEFINE z RECORD
    area         SMALLINT,
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_1   LIKE iptb00006.cantidad_1,
    cantidad_2   LIKE iptb00006.cantidad_2,
    cantidad_p   DEC(12,5),
    unidad_med   LIKE iptb00002.unidad_med,      
    descrip_esp  CHAR(80),
    codigo_bloque CHAR(15)
 END RECORD,
   etiqueta,pcalle,purbanizacion,pcasa_num,ptelefono,ptelefono1,pcelular,nombre,apellido CHAR(30),
   plado1,plado2,plado3,pcantidad,pmedida DEC(12,5),
   pprovincia SMALLINT,
   nombre_provincia CHAR(30),
   nombre_p CHAR(70),
   total_unidades INT,
   hora CHAR(5),
   pubica CHAR(60),
   porden_cliente varchar(25)
   

 DEFINE usuario_c CHAR(9)
 DEFINE signo CHAR(1)
 DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(2)
 DEFINE l,cuenta SMALLINT,
        darea varchar(40)

OUTPUT
  LEFT MARGIN 0

ORDER BY x.num_doc,z.area,z.cod_sec
FORMAT

 BEFORE GROUP OF x.num_doc
  LET doble = ASCII 14
  LET doble_of = ASCII 20
  LET negras = ASCII 27, ASCII 69
  LET negras_off = ASCII 27, ASCII 70
  LET comp_on = ASCII 15
  
SELECT unique us_crea INTO usuario_c 
FROM iptb00006 WHERE num_doc = x.num_doc and
cod_mov = x.cod_mov and
us_crea = user

      LET doce = ASCII 27, ASCII 77
      LET normal = ASCII 27, ASCII 80
      LET hora = time
      PRINT doce
      #PRINT COLUMN 1, negras,doble,p_companias.nombre CLIPPED
      IF x.cod_sp <> 19 AND x.cod_sp <> 18 THEN 
         PRINT COLUMN 1,doble, "M A R M O T E C H, S. A.",doble_of
      END IF
      PRINT COLUMN 71,"No. ",doble,x.num_doc using "<<<<<<"
      #LET l = (80 - LENGTH ("OTROS MOVIMIENTOS")) / 2
      PRINT #COLUMN l, "OTROS MOVIMIENTOS",
            COLUMN 71, x.fecha using "dd/mm/yyyy"
      PRINT COLUMN 71, hora 

       
      LET l = (70 - LENGTH (x.descrip_mov)) / 2

      PRINT COLUMN l-2, doble,negras,"(",x.cod_mov using "&&",") ",x.descrip_mov,doble_of
      PRINT negras_off
      IF x.cod_mov = 12 THEN
        PRINT COLUMN 1, "Factura No: ",x.fact_no using "&&&&&&"
      END IF

      IF x.detalle is null THEN
         LET x.detalle = "**************************************"
      END IF
   { COMENTARIO DE ESTAS DIRECCIONES PORQUE SOLO SE VA A TOMAR LA DIRECCION DEL PROYECTO
    QUE ASU VEZ VIENE EN EL MENSAJE DE LA REQUISICION
    
      SELECT a.calle,a.casa_num,a.urbanizacion,b.telefono,b.telex,c.nom1_emp,c.apell1_emp,b.cod_provincia
      INTO pcalle,pcasa_num,purbanizacion,ptelefono,pcelular,nombre,apellido,pprovincia
      FROM vetb00005 a,vetb00004 b,vetb00028 d,adtb00003 c
      WHERE a.tipo_cliente = x.cod_sp AND
            a.sec_cliente = x.cod_sp_sec AND
            a.tipo_cliente = d.tipo_cliente AND
            a.sec_cliente = d.sec_cliente AND
            a.tipo_cliente = b.tipo_cliente AND
            a.sec_cliente = b.sec_cliente AND
            d.sec_vend = c.num_emp

      SELECT a.nombre_proyecto,a.direccion_proyecto INTO nombre_p,direccion_p
      FROM vetb00050 a
      WHERE a.tipo_cliente = x.cod_sp AND
            a.sec_cliente = x.cod_sp_Sec AND
            a.cotizacion_no = xcotizacion

}
      LET pcelular = NULL
      LET ptelefono = NULL
      LET ptelefono1 = NULL
      LET nombre_p = null
      
      LET nombre = NULL
      SELECT a.nom1_emp+' '+a.apell1_emp INTO nombre
      FROM adtb00003 a
      WHERE a.num_emp = psec_vend
      
      SELECT a.nombre_proyecto,a.telefono_r,a.telefono_o,a.celular1
      INTO nombre_p,ptelefono,ptelefono1,pcelular
      FROM vetb00050 a
      WHERE a.cotizacion_no = xcotizacion
      
      LET nombre_provincia = NULL
      IF x.cod_mov = 30 OR x.cod_mov = 31 THEN
        SELECT a.nombre_provincia INTO nombre_provincia
        FROM vetb00020 a
        WHERE a.cod_provincia = pprovincia 
      END IF
      IF x.cod_mov = 55 THEN
         SELECT unique a.nom_pais INTO nombre_provincia FROM cotb00018 a
          WHERE a.cod_pais = pprovincia
      END IF
      

      SELECT a.direccion,a.nombre_file INTO pubica,porden_cliente FROM prtb00012 a
      WHERE a.num_oc = x.conduce_no AND CONVERT (CHAR(10),a.fech_crea,103) > "01/01/2007"

     # SELECT a.observacion INTO pobserva FROM prtb00014 a
     # WHERE a.num_oc = x.conduce_no AND a.fech_crea > datetime (2007-01-01 08:00) year to minute


      PRINT COLUMN 1, "CLIENTE  : ",negras, x.descrip4," (",
                                    x.cod_sp using "&&","-",
                                    x.cod_sp_sec using "&&&&",")",negras_off
      #PRINT COLUMN 1, "DIRECCION: ",pcalle CLIPPED," ",pcasa_num CLIPPED," ",purbanizacion CLIPPED,
      #                 " TELEFONO: ",ptelefono CLIPPED," CELULAR: ",pcelular
      PRINT COLUMN 1, "Proyecto : ",nombre_p CLIPPED, " DIRECCION: ",direccion_p CLIPPED
      PRINT COLUMN 1, "TELEFONO1: ",ptelefono CLIPPED," TELEFONO2 :,",ptelefono1, " CELULAR: ",pcelular
      PRINT COLUMN 1, "Vendedor : ",nombre clipped," ",apellido
      PRINT COLUMN 1, "Entrada  : ",x.entrada USING "<<<<<<"," (",x.cod_mov1 USING "<<<",") ",x.descrip_mov1 CLIPPED
      PRINT COLUMN 1, "Orden    : ",x.conduce_no, COLUMN 20,"ORDEN CLIENTE: ",porden_cliente #,"Observacion Orden: ",pobserva CLIPPED
      #PRINT COLUMN 1, "Ubicacion: ",pubica CLIPPED

      IF x.cod_mov = 70 OR x.cod_mov = 71 OR x.cod_mov =  72 THEN
         PRINT COLUMN 1, "DEPARTAMENTO: ",x.departamento USING "<<<<"," ",x.nombre_depto
      END IF

                                    
        PRINT comp_on
        PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"

        PRINT COLUMN 2,doble, "PRODUCTO(S)",doble_of CLIPPED
        
        PRINT COLUMN 123, "CANTIDAD"

        PRINT COLUMN 108, "CANTIDAD",
              COLUMN 123, "PENDIENTE"

        PRINT COLUMN 94, "UNIDADES",
              COLUMN 108, "A DESPACHAR",
              COLUMN 123, "CON ESTA TRANSACCION",
              2 SPACES, "BLOQUE"
   
        PRINT COLUMN 1,
"-----------------------------------------------------------------------------",
"-------------------------------------------------------------------"
     SKIP 1 LINES
     BEFORE GROUP OF z.area

       SELECT a.nombre_Area INTO darea FROM prtb00016 a
       WHERE a.area_num = z.area

       PRINT COLUMN 2, darea CLIPPED
       
       
     ON EVERY ROW
      IF z.cod_n is not null and z.cod_grupo is not null and
         z.cod_tipo is not null and z.cod_sec is not null THEN
         PRINT COLUMN 2, z.cod_n using "&&&","-",
                z.cod_grupo using "&&&&","-",
                z.cod_tipo using "&&&&","-",
                z.cod_sec using "&&&"," ",
                z.descrip_esp[1,69] ," ";

         IF cuenta = 1 THEN
            LET signo = "+"
         ELSE
            LET signo = "-"
            LET z.cantidad_2 = z.cantidad_2 * -1
         END IF
       IF z.cantidad_2 < 0 THEN
          LET z.cantidad_2 = z.cantidad_2 * -1
       END IF
       PRINT COLUMN 69, z.cantidad_1 USING "###,###.#####", 
             COLUMN 84, z.cantidad_2 using "###,###.#####"," ",z.unidad_med,
             COLUMN 105, z.cantidad_p using "###,###.#####",
             2 SPACES, z.codigo_bloque
       PRINT COLUMN 22,z.descrip_esp[55,80]
       
       DECLARE busca_d1 CURSOR FOR
          SELECT b.descripcion,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida 
          FROM iptb00025 a,vetb00026 b
          WHERE a.area = z.area AND 
                a.cod_n = z.cod_n AND
                a.cod_grupo = z.cod_grupo AND
                a.cod_tipo = z.cod_tipo AND
                a.cod_sec = z.cod_sec AND
                a.cod_mov = X.cod_mov AND
                a.num_Doc = x.num_doc AND
                CAST(a.etiqueta  AS SMALLINT)= b.codid
                
       LET total_unidades = 0
       FOREACH busca_d1 INTO etiqueta,plado1,plado2,plado3,pcantidad,pmedida
          PRINT COLUMN 19,pcantidad USING "<,<<<"," ",etiqueta ," DE ",plado1 USING "<<.#####"," X ",
                                   plado2 USING "<<.#####"," X ",plado3 USING "<<.#####"," = ",pmedida USING "<<<.#####"
          LET total_unidades = total_unidades + pcantidad
       END FOREACH
       IF total_unidades > 0 THEN
          
          PRINT COLUMN 19, "TOTAL UNIDADES ",total_unidades USING "<,<<<" 
       END IF  
      END IF

PAGE TRAILER
  SKIP 1 LINE
  PRINT COLUMN 1, "OBSERVACIONES: ", UPSHIFT(x.detalle)
  SKIP 1 LINE

  PRINT COLUMN 1, "TRANSPORTISTA: ",descrip2
  PRINT COLUMN 1, "PLACA        : ",x.placa
  SKIP 4 LINES
  PRINT COLUMN 1,  "------------------",
        COLUMN 32, "------------------",
        COLUMN 55, "------------------"


  PRINT COLUMN 5, "Entregado Por",
        COLUMN 34, "Recibido Por",
        COLUMN 58, "Aprobado Por"

  SKIP 1 LINE
  PRINT COLUMN  2, 
  "Original: Contabilidad    Copia: Vendedor    Copia: Ventas    Copia: Almacen"

  PRINT normal
END REPORT

FUNCTION busca_vend()

 DEFINE arr_vend ARRAY[200] OF RECORD
   sec_cliente    INTEGER,
   num_emp        INTEGER,
   nombre         CHAR(30)
 END RECORD

OPEN WINDOW busca_1 AT 8,4 WITH FORM "ipfmwd004" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)

 DECLARE busca_1 CURSOR FOR
  SELECT a.sec_cliente,a.num_emp,b.nombre FROM vetb00033 a,vetb00004 b
  WHERE a.sec_cliente = b.sec_cliente AND a.status_t IS NULL AND
        b.status_t IS NULL
  ORDER BY 1

  LET idx = 1
  FOREACH busca_1 INTO arr_vend[idx].*
   LET idx = idx + 1
  END FOREACH
  CALL SET_COUNT(idx - 1)
 
   DISPLAY ARRAY arr_vend TO sc_vend.*
   LET idx = ARR_CURR()

   LET busca_v.sec_cliente = arr_vend[idx].sec_cliente
   LET busca_v.nombre      = arr_vend[idx].nombre     

  CLOSE WINDOW busca_1
END FUNCTION

FUNCTION busca_prod1()

 DEFINE arr_prod ARRAY[500] OF RECORD
   cod_n          INTEGER,
   cod_grupo      INTEGER,
   cod_tipo       INTEGER,
   cod_sec        INTEGER,
   descrip_esp    CHAR(30),
   unidad_med     CHAR(5)
 END RECORD

OPEN WINDOW busca_2 AT 8,4 WITH FORM "ipfmwd001" ATTRIBUTE (BORDER,FORM LINE
FIRST + 1,PROMPT LINE LAST)

  CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
                   FROM cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp

  LET selec_pt =
  "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
  "       a.unidad_med FROM iptb00002 a ",
  "WHERE a.status_t IS NULL AND ",criterio CLIPPED," ORDER BY a.descrip_esp " 

  PREPARE comando_p FROM selec_pt
  DECLARE busca_2 CURSOR FOR comando_p

  LET idx = 1
  FOREACH busca_2 INTO arr_prod[idx].*
   LET idx = idx + 1
  END FOREACH
  CALL SET_COUNT(idx - 1)
 
   DISPLAY ARRAY arr_prod TO s_prod.*
   LET idx = ARR_CURR()

   LET busca_p.cod_n       = arr_prod[idx].cod_n
   LET busca_p.cod_grupo   = arr_prod[idx].cod_grupo
   LET busca_p.cod_tipo    = arr_prod[idx].cod_tipo
   LET busca_p.cod_sec     = arr_prod[idx].cod_sec
   LET busca_p.descrip_esp = arr_prod[idx].descrip_esp
   LET busca_p.unidad_med  = arr_prod[idx].unidad_med 
# para el precio
   LET p_vetb25.cod_n       = arr_prod[idx].cod_n
   LET p_vetb25.cod_grupo   = arr_prod[idx].cod_grupo
   LET p_vetb25.cod_tipo    = arr_prod[idx].cod_tipo
   LET p_vetb25.cod_sec     = arr_prod[idx].cod_sec
 
   LET descrip1 = arr_prod[idx].descrip_esp
   LET medida   = arr_prod[idx].unidad_med 

   CLOSE WINDOW busca_2
 END FUNCTION
 
 FUNCTION despiece()
    DEFINE cetiqueta VARCHAR(20)
    
    OPEN WINDOW wdespiece AT 5,3 WITH FORM "ipfmwd010" ATTRIBUTE (BORDER,FORM LINE
    FIRST + 1,PROMPT LINE LAST)

    DISPLAY BY NAME movi2[p_act].descrip_esp,movi2[p_act].unidad_med

    CALL despiece.clear()
    IF otros_mov.entrada IS NOT NULL THEN
      DECLARE busca_ent CURSOR FOR
      SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
      FROM iptb00025 a
      WHERE a.cod_mov = otros_mov.cod_mov1 AND
           a.num_doc = otros_mov.entrada AND
           a.cod_n = movi2[p_act].cod_n AND
           a.cod_grupo = movi2[p_act].cod_grupo AND
           a.cod_tipo = movi2[p_act].cod_tipo AND
           a.cod_sec = movi2[p_act].cod_sec AND
          a.area = movi2[p_act].area 
      UNION
      SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
      FROM iptb00025 a
      WHERE a.cod_mov = otros_mov.cod_mov AND
           a.num_doc = tmpnumero AND
           a.cod_n = movi2[p_act].cod_n AND
           a.cod_grupo = movi2[p_act].cod_grupo AND
           a.cod_tipo = movi2[p_act].cod_tipo AND
           a.cod_sec = movi2[p_act].cod_sec AND
           a.area = movi2[p_act].area

     LET idx = 1
     FOREACH busca_ent INTO despiece[idx].*
       
       LET idx = idx + 1
     END FOREACH
   ELSE

    SELECT UNIQUE a.cod_n FROM iptb00025 a
      WHERE a.cod_mov = otros_mov.cod_mov AND
           a.num_doc = otros_mov.num_doc AND
           a.cod_n = movi2[p_act].cod_n AND
           a.cod_grupo = movi2[p_act].cod_grupo AND
           a.cod_tipo = movi2[p_act].cod_tipo AND
           a.cod_sec = movi2[p_act].cod_sec AND
           a.area = movi2[p_act].area 

     IF STATUS = NOTFOUND THEN
       
       DECLARE busca_despiece CURSOR FOR
         SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.lado_1,a.lado_2,a.lado_3,a.cantidad,a.medida
         FROM prtb00022 a
         WHERE 
           a.num_oc = otros_mov.conduce_no AND
           a.cod_n = movi2[p_act].cod_n AND
           a.cod_grupo = movi2[p_act].cod_grupo AND
           a.cod_tipo = movi2[p_act].cod_tipo AND
           a.cod_sec = movi2[p_act].cod_sec AND
          a.area = movi2[p_act].area 
         LET idx = 1

         FOREACH busca_despiece INTO despiece[idx].*
           LET idx = idx + 1
         END FOREACH
     ELSE
      IF pcontrol_despacho <> "SI" THEN
       DECLARE busca_despiece1 CURSOR FOR
         SELECT b.descripcion,a.cod_n,a.cod_grupo,a.cod_tipo,
                a.cod_sec,a.lado_1,a.lado_2,a.lado_3, a.cantidad,a.medida 
         FROM prtb00022 a,vetb00026 b
         WHERE a.num_oc = otros_mov.conduce_no AND
             a.area = movi2[p_act].area AND
             a.cod_n = movi2[p_act].cod_n AND
             a.cod_grupo = movi2[p_act].cod_grupo AND
             a.cod_tipo = movi2[p_act].cod_tipo AND
             a.cod_sec = movi2[p_act].cod_sec AND
             CAST(a.etiqueta AS SMALLINT) = b.codid
       LET idx = 1
       FOREACH busca_despiece1 INTO despiece[idx].*
         LET idx = idx + 1
       END FOREACH
   
      ELSE      
        DECLARE busca_despiece12 CURSOR FOR
         SELECT a.etiqueta,a.cod_n,a.cod_grupo,a.cod_tipo,
                a.cod_sec,a.lado_1,a.lado_2,a.lado_3,
                c.cantidad_r,c.medida_r
         FROM prtb00022 a, cctb00027 c
         WHERE a.num_oc = otros_mov.conduce_no AND
             a.area = c.area AND
             a.area = movi2[p_act].area AND
             a.cod_n = movi2[p_act].cod_n AND
             a.cod_grupo = movi2[p_act].cod_grupo AND
             a.cod_tipo = movi2[p_act].cod_tipo AND
             a.cod_sec = movi2[p_act].cod_sec AND
             a.cod_n = C.cod_n AND
             a.cod_grupo = c.cod_grupo AND
             a.cod_tipo = c.cod_tipo AND
             a.cod_sec = c.cod_sec AND
             c.num_req = pnum_req
             
       LET idx = 1
       FOREACH busca_despiece12 INTO despiece[idx].*
         LET idx = idx + 1
       END FOREACH
     END IF
   
        END IF
   END IF
        LET despiece[1].cod_n = movi2[p_act].cod_n
        LET despiece[1].cod_grupo = movi2[p_act].cod_grupo 
        LET despiece[1].cod_tipo = movi2[p_act].cod_tipo
        LET despiece[1].cod_sec = movi2[p_act].cod_sec
 
     CALL set_count(idx-1)
     INPUT ARRAY despiece WITHOUT DEFAULTS FROM sdespiece.*  
      BEFORE ROW
        LET curr1 = arr_curr()
        LET fila = scr_line()

        CALL cetiquetas()

        LET despiece[curr1].cod_n = movi2[p_act].cod_n
        LET despiece[curr1].cod_grupo = movi2[p_act].cod_grupo 
        LET despiece[curr1].cod_tipo = movi2[p_act].cod_tipo
        LET despiece[curr1].cod_sec = movi2[p_act].cod_sec
        
        IF curr1 > 1 THEN
           IF despiece[curr1].etiqueta IS NULL THEN
              LET despiece[curr1].etiqueta = despiece[curr1-1].etiqueta
           END IF
        END IF
        DISPLAY cetiqueta TO sdespiece[fila].etiqueta

        DISPLAY movi2[p_act].cod_n TO sdespiece[fila].cod_n
        DISPLAY movi2[p_act].cod_grupo TO sdespiece[fila].cod_grupo 
        DISPLAY movi2[p_act].cod_tipo TO sdespiece[fila].cod_tipo
        DISPLAY movi2[p_act].cod_sec TO sdespiece[fila].cod_sec
      
      AFTER FIELD cantidad

        IF movi2[p_act].unidad_med = "M2" THEN 
           LET despiece[curr1].medida = 
           despiece[curr1].cantidad * (despiece[curr1].lado_1 * despiece[curr1].lado_2)
        END IF

        IF movi2[p_act].unidad_med = "M3" THEN 
           LET despiece[curr1].medida = 
           despiece[curr1].cantidad * (despiece[curr1].lado_1 * despiece[curr1].lado_2 * despiece[curr1].lado_3)
        END IF

       IF movi2[p_act].unidad_med = "ML" THEN
          LET despiece[curr1].medida = 
              despiece[curr1].cantidad * despiece[curr1].lado_1
          LET despiece[curr1].lado_2 = 0
       END IF

       IF movi2[p_act].unidad_med = "UD" OR movi2[p_act].unidad_med = "GL" THEN
          LET despiece[curr1].medida =   despiece[curr1].cantidad
       END IF
       DISPLAY despiece[curr1].medida TO sdespiece[fila].medida
       AFTER ROW
        IF despiece[curr1].medida IS NULL AND despiece[curr1].lado_1 IS NOT NULL THEN
           LET numero_msg = 16
           CALL msg(numero_msg)
           NEXT FIELD lado_1
        END IF
        LET total_medida = 0
        FOR idx = 1 TO arr_count()
            IF despiece[idx].medida IS NOT NULL THEN
               LET total_medida = total_medida + despiece[idx].medida
            END IF
  
        END FOR
        DISPLAY BY NAME total_medida 

       AFTER INPUT
        IF int_flag THEN
           LET numero_msg = 2
           CALL msg(numero_msg)
           EXIT INPUT
        END IF
        LET total_medida = 0
        FOR idx = 1 TO arr_count()
            IF despiece[idx].medida IS NOT NULL THEN
               LET total_medida = total_medida + despiece[idx].medida
           END IF
        END FOR
        DISPLAY BY NAME total_medida 
     END INPUT
     IF int_flag THEN
        LET int_flag = FALSE
        RETURN
     END IF
     DELETE FROM iptb00025 WHERE num_doc = otros_mov.num_doc AND
                                 cod_mov = otros_mov.cod_mov AND
                                 cod_n = movi2[p_act].cod_n AND
                                 cod_grupo = movi2[p_act].cod_grupo AND
                                 cod_tipo = movi2[p_act].cod_tipo AND
                                 cod_sec = movi2[p_act].cod_sec  AND
                                area = movi2[p_act].area 
     LET total_medida = 0
     FOR  idx = 1 TO arr_count()
          IF despiece[idx].medida IS NOT NULL THEN

             INSERT INTO iptb00025 VALUES (despiece[idx].etiqueta,otros_mov.cod_mov,otros_mov.num_doc,
                                           movi2[p_act].area,movi2[p_act].cod_n,movi2[p_act].cod_grupo,
                                           movi2[p_act].cod_tipo,movi2[p_act].cod_sec,
                                           despiece[idx].lado_1,despiece[idx].lado_2,
                                           despiece[idx].lado_3,despiece[idx].cantidad,
                                           despiece[idx].medida,null,user,getdate(),null,null)
          LET total_medida = total_medida + despiece[idx].medida
          END IF
     END FOR
     LET movi2[p_act].cantidad_1 = total_medida
     CLOSE WINDOW wdespiece
  END FUNCTION

 FUNCTION consulta()

 CONSTRUCT CRITERIO ON iptb00006.num_Doc,iptb00006.cod_mov,iptb00006.fecha,iptb00006.conduce_no,
                       iptb00006.cod_sp,iptb00006.cod_sp_Sec
                    FROM num_doc,cod_mov,fecha,conduce_no,cod_sp,cod_sp_sec

    
                    LET selec =
"SELECT     iptb00006.num_doc, iptb00006.cod_cia , iptb00006.cod_mov , iptb00006.fact_no, iptb00006.cod_transp, ",
                      "iptb00006.sec_transp AS Expr6, iptb00006.cod_tarifa AS Expr7, iptb00006.placa AS Expr8, iptb00006.fecha AS Expr9, iptb00006.conduce_no,",
                       "iptb00005.descrip_mov AS Expr11, iptb00006.bodega AS Expr12, iptb00006.detalle AS Expr13, iptb00006.cod_sp AS Expr14, ",
                      "iptb00006.cod_sp_sec AS Expr15, iptb00026.departamento AS Expr16, adtb00001.nom_dpto AS Expr17, iptb00028.cod_mov1,iptb00028.entrada AS Expr18, ",
                      " ' ',' ',iptb00006.num_req ",
" FROM         adtb00001 INNER JOIN ", 
                     " iptb00026 ON adtb00001.departamento = iptb00026.departamento RIGHT OUTER JOIN ", 
                     " iptb00006 INNER JOIN  ",
                     " iptb00005 ON iptb00006.cod_mov = iptb00005.cod_mov ON ",
                     " iptb00026.num_doc = iptb00006.num_doc AND  ",
                     " iptb00026.cod_mov = iptb00006.cod_mov LEFT OUTER JOIN ", 
                     " iptb00028 ON iptb00006.num_doc = iptb00028.num_doc AND iptb00006.cod_mov = iptb00028.cod_mov ", 
"WHERE  ", criterio CLIPPED,  " and IPTB00006.status_t IS NULL and iptb00006.fecha > '01/01/2009'"

PREPARE comando FROM selec
DECLARE busca4 SCROLL CURSOR WITH HOLD FOR comando
OPEN busca4

FETCH FIRST busca4 INTO otros_mov.*,pnum_req
  IF STATUS = NOTFOUND THEN
     LET numero_msg = 3
     CALL msg(numero_msg)
     RETURN
  END IF
  CALL busca_info()
  DISPLAY BY NAME otros_mov.*

MENU "Busqueda "
  COMMAND "Siguiete " "Sieguiente Registro Cumpla Condicion"
   FETCH NEXT busca4 INTO otros_mov.*,pnum_req
       IF STATUS = NOTFOUND THEN
          LET numero_msg = 4 
          CALL msg(numero_msg) 
       END IF
       CALL busca_info()
       DISPLAY BY NAME otros_mov.*

       
    COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado"
       FETCH PREVIOUS busca4 INTO otros_mov.*,pnum_req
       IF STATUS = NOTFOUND THEN
          LET numero_msg = 5 
          CALL msg(numero_msg) 
       END IF
       CALL busca_info()
       DISPLAY BY NAME otros_mov.*

       

    COMMAND "Primero" "Presenta en pantalla el primer registro encontrado"
       FETCH FIRST busca4 INTO otros_mov.*,pnum_req
    
       LET numero_msg = 5 
       CALL msg(numero_msg) 
       CALL busca_info()
       DISPLAY BY NAME otros_mov.*


     COMMAND "Ultimo" "Presenta en pantalla el ultimo registro encontrado"
       FETCH LAST busca4 INTO otros_mov.*,pnum_req
    
       LET numero_msg = 4 
       CALL msg(numero_msg) 
       CALL busca_info()
       DISPLAY BY NAME otros_mov.*

     COMMAND "Items" "Busca Items"
        
        DECLARE busca1 CURSOR FOR
          SELECT a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
                 a.cantidad_1,a.cantidad_2,'0',b.unidad_med,b.descrip_esp
          FROM iptb00006 a,iptb00002 b
          WHERE a.num_doc = otros_mov.num_doc AND
                a.cod_mov  = otros_mov.cod_mov AND
                a.cod_n = b.cod_n AND
                a.cod_grupo = b.cod_grupo AND
                a.cod_tipo = b.cod_tipo AND
                a.cod_sec = b.cod_Sec AND
                a.fech_crea > '01/01/2009 08:00'

          
          ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
          
          LET idx = 1
          FOREACH busca1 INTO movi2[idx].*
            IF movi2[idx].cantidad_2 < 0 THEN
               LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
            END IF
            
            SELECT SUM(a.cantidad) INTO cantidad_conduce FROM prtb00013 a
            WHERE a.cod_n = movi2[idx].cod_n AND
                  a.cod_grupo = movi2[idx].cod_grupo AND
                  a.cod_tipo = movi2[idx].cod_tipo AND
                  a.cod_sec = movi2[idx].cod_sec AND
                  a.num_oc = otros_mov.conduce_no AND
                  a.status_t IS NULL

            LET cantidad_orden =0
            IF otros_mov.cod_mov = 30 AND otros_mov.cod_mov = 31 OR otros_mov.cod_mov = 55 THEN
               SELECT SUM(a.cantidad_2*-1) INTO cantidad_orden
               FROM iptb00006 a
               WHERE a.cod_n=movi2[idx].cod_n and a.cod_grupo=movi2[idx].cod_grupo 
                 and a.cod_tipo=movi2[idx].cod_tipo and a.cod_sec=movi2[idx].cod_sec
                 and a.conduce_no = otros_mov.conduce_no and cod_mov in (30,31,55) 
                 and a.status_t IS NULL
            END IF
      
            IF cantidad_orden IS  NULL THEN
               LET cantidad_orden = 0
            END IF  

            IF cantidad_conduce IS  NULL THEN
               LET cantidad_conduce = 0
            END IF  
      
            LET movi2[idx].cantidad_p = cantidad_conduce - cantidad_orden 
      
            LET idx = idx + 1
          END FOREACH
          CALL set_count(idx-1)
          DISPLAY ARRAY movi2 TO s_movi1.*
 
    PROMPT "Desea Imprimir Formulario Ahora? (S/N)" FOR CHAR opt2

       IF opt2 = "S" OR opt2 = "s" THEN
          #LET archivo = FGL_GETENV("FGLSPOOL"),"\\ipmt44"
          #START REPORT formu4 TO archivo
          {START REPORT formu4 TO "C:\\archivo"}
          
          CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of,
                                                       doble_on,doble_off,comp_on,comp_off,
                                                       doce,normal,archivo,copia

                                                       
    START REPORT formu4 TO archivo
          

         FOR idx = 1 TO arr_count()
             IF movi2[idx].cod_sec IS NOT NULL THEN
                   IF movi2[idx].cantidad_2 IS NOT NULL AND
                      movi2[idx].cantidad_2 != 0 THEN
                      
                     OUTPUT TO REPORT formu4(otros_mov.*,movi2[idx].*)
              END IF
             END IF
         END FOR

        FINISH REPORT formu4
        IF opt2 = "S" OR opt2 = "s" THEN
#           LET filename = "TYPE ",archivo CLIPPED," > %USPRINT%"
#           RUN filename
            RUN imprime
          
        END IF
      END IF

    COMMAND "Retornar" "Retorna al menu anterior" 
      CLEAR FORM
      EXIT MENU
  END MENU
END FUNCTION
FUNCTION busca_info()

     SELECT nombre INTO descrip2 FROM vetb00015
     WHERE cod_transp=otros_mov.cod_transp and 
           sec_transp=otros_mov.sec_transp and
          status_t is null

      SELECT nombre INTO otros_mov.descrip4 FROM vetb00004
      WHERE tipo_cliente = otros_mov.cod_sp and
            sec_cliente = otros_mov.cod_sp_sec and
            status_t is null


       SELECT a.descrip_mov INTO otros_mov.descrip_mov1 FROM iptb00005 a
       WHERE a.cod_mov = otros_mov.cod_mov1

       
         SELECT a.tipo_cliente,a.sec_cliente,a.cerrada,a.cotizacion_no
         INTO otros_mov.cod_sp,otros_mov.cod_sp_sec,pcerrada,xcotizacion
         FROM prtb00012 a
          WHERE a.num_oc = otros_mov.conduce_no AND
                a.status_t IS NULL

       
      SELECT a.mensaje INTO direccion_p FROM cctb00029 a
      WHERE a.num_req = pnum_req
         
      DISPLAY BY NAME descrip2,otros_mov.descrip4,otros_mov.descrip_mov1,direccion_p
END FUNCTION

FUNCTION actualiza_st(forden)
 DEFINE forden INTEGER,
        prod_total,vent_total DEC(12,5),
        prtb09 RECORD LIKE prtb00009.*
          
  SELECT SUM(a.cantidad) INTO prod_total FROM prtb00013 a
   WHERE a.num_oc    = forden
   
     IF STATUS = NOTFOUND THEN
        LET prod_total = 0
     END IF
  LET vent_total = 0
  SELECT SUM(b.cantidad_2) INTO vent_total    
    FROM IPTB00006 a
    WHERE a.conduce_no = forden AND CONVERT(CHAR(10),a.fecha,101) > "31122006"
      AND a.cod_sp = otros_mov.cod_sp
      AND a.sec_cliente  = otros_mov.cod_sp_Sec 
      AND a.cod_mov in (30,31,55,12,13) 
      AND a.status_t IS NULL 


    IF vent_total IS NULL THEN
       LET vent_total = 0
    END IF
   

#-> Actualiza la fecha de cierre de la orden de corte vg Wednesday, 17 January, 200112:42:33 PM
   IF vent_total = prod_total THEN
      UPDATE prtb00012 SET fecha_cierre = otros_mov.fecha,
                           cerrada = "S"
       WHERE @num_oc = forden
         AND @tipo_cliente = otros_mov.cod_sp
         AND @sec_cliente  = otros_mov.cod_sp_Sec
  
      LET prtb09.num_oc = forden
      LET prtb09.fecha  = otros_mov.fecha
      LET prtb09.pendiente = "N"
      LET prtb09.detalle = "CIERRE DE ORDEN DE PRODUCCION SEGUN CONDUCE # ",otros_mov.num_doc USING "<<<<<<<",
                           " DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"

        INSERT INTO prtb00009 VALUES (prtb09.num_oc,prtb09.fecha,null,prtb09.pendiente,
                                      prtb09.detalle,NULL,USER,getdate(),NULL,NULL) 
   ELSE
      LET prtb09.num_oc = forden
      LET prtb09.fecha  = otros_mov.fecha
      LET prtb09.pendiente = "N"
      LET prtb09.detalle = "DESPACHO ",otros_mov.descrip_mov CLIPPED,
                           " SEGUN CONDUCE # ",otros_mov.num_doc USING "<<<<<<<",
                           " DE FECHA : ",otros_mov.fecha USING "dd/mm/yyyy"," CONTIENE PRODUCTO(S): ",
                           selec_pt CLIPPED

        INSERT INTO prtb00009 VALUES (prtb09.num_oc,prtb09.fecha,null,prtb09.pendiente,
                                      prtb09.detalle,NULL,USER,getdate(),NULL,NULL) 

   END IF

END FUNCTION
FUNCTION visualizacion_despacho()
  DEFINE arr_autoriza_desp DYNAMIC ARRAY OF RECORD
         num_oc            INT,
         cliente           CHAR(66),
         fecha             CHAR(10),
         tipo_cliente      SMALLINT,
         sec_cliente       INT,
         num_req           INT
  END RECORD
  OPEN WINDOW w1 AT 10,5 WITH FORM "ipfmwd011"
  
  DECLARE busca_autoriza CURSOR FOR
    
    SELECT DISTINCT a.num_oc,rtrim(CAST(b.tipo_cliente AS CHAR(2)) +
           '-'+CAST(b.sec_cliente AS CHAR(6)) +' '+b.nombre),
           CAST (d.fecha AS CHAR(10)),
           b.tipo_cliente,b.sec_cliente,a.num_req
    FROM  cctb00026 a,vetb00004 b,prtb00012 c,cctb00025 d
    WHERE c.tipo_cliente = b.tipo_cliente AND
          c.sec_cliente = b.sec_cliente AND 
          a.num_oc = c.num_oc AND
          a.cotizacion_no = c.cotizacion_no AND
          c.cerrada = 'N' AND
          A.num_req = d.num_req AND
          d.estado in ("AUTORIZADA","DESPACHO PARCIAL") and
          c.status_t is null and a.status_t IS NULL
      
   LET idx = 1
   FOREACH busca_autoriza INTO arr_autoriza_desp[idx].*
     LET idx = idx + 1
   END FOREACH
   CALL set_count(idx-1)
   DISPLAY ARRAY arr_autoriza_desp TO s_despachos.*
   AFTER DISPLAY
    LET idx = arr_curr()
    IF Int_flag THEN
       
       EXIT DISPLAY
            
    END IF
    END DISPLAY
    CLOSE WINDOW w1 
     IF int_flag THEN
        
       RETURN 0,0,0,0
       ELSE
       RETURN arr_autoriza_desp[idx].num_oc,
              arr_autoriza_desp[idx].tipo_cliente,
              arr_autoriza_desp[idx].sec_cliente,
              arr_autoriza_desp[idx].num_req

      END IF
END FUNCTION

FUNCTION existencia(pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,pid)
 DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pid SMALLINT,
        pexistencia,pexistencia1,cantidad DEC(12,5),
        verdad BOOLEAN
        
   LET verdad = FALSE
   SELECT a.cod_n FROM iptbexistencia a
   WHERE a.us_crea = usuarios AND
         a.num_doc = tmpnueroExistencia AND
         a.cod_n = pcodn AND
         a.cod_grupo = pcodgrupo AND
         a.cod_tipo = pcodtipo AND
         a.cod_sec = pcodsec AND
         a.id = pid

    IF STATUS = NOTFOUND THEN      
       INSERT INTO iptbexistencia VALUES (pid,pcodn,pcodgrupo,pcodtipo,pcodsec,tmpnueroExistencia,cantidad,getdate(),usuarios)   
    ELSE
      UPDATE iptbexistencia SET iptbexistencia.cantidad = cantidad
      WHERE us_crea = usuarios AND
            num_doc = tmpnueroExistencia AND
            cod_n = pcodn AND
            cod_grupo = pcodgrupo AND
            cod_tipo = pcodtipo AND
            cod_sec = pcodsec AND
            id = pid

    END IF   
   
   SELECT SUM(a.cantidad) INTO pexistencia1 
           FROM iptbexistencia a
           WHERE a.cod_n=Pcodn and 
                 a.cod_grupo=Pcodgrupo 
                 and a.cod_tipo=Pcodtipo and 
                 a.cod_sec=Pcodsec AND
                 a.us_crea = usuarios
                 
     
   SELECT SUM(a.cantidad_2) INTO pexistencia 
           FROM iptb00006 a
           WHERE a.cod_n=Pcodn and 
                 a.cod_grupo=Pcodgrupo 
                 and a.cod_tipo=Pcodtipo and 
                 a.cod_sec=Pcodsec
                 and a.status_t IS NULL 

           IF pexistencia IS NULL THEN
              LET pexistencia = 0
           END IF
           IF pexistencia1 IS NULL THEN
              LET pexistencia1 = 0
           END IF
           
           IF pexistencia1 > pexistencia THEN
              LET verdad = TRUE
           END IF
           
     RETURN verdad
END FUNCTION

()
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30)
 
 LET petiquetas = ui.combobox.forname("formonly.etiqueta")
 
 DECLARE betiquetas CURSOR FOR
   SELECT a.codid,a.descripcion FROM vetb00026 a
   ORDER BY a.descripcion
   CALL petiquetas.clear()
 
 FOREACH betiquetas INTO ketiquetas,detiquetas
  CALL petiquetas.additem(ketiquetas,detiquetas)
 END FOREACH
  
END FUNCTION