{
------------------------------------------------------------------
 PROGRAMA          : INPRMT54   
 OBJETIVO          : Modificar, Eliminar registros de los Movimientos
                     de Productos             
 PROGRAMADOR       : JUAN SOTO                  
 FECHA REALIZACION : Febrero 1997
------------------------------------------------------------------
}
GLOBALS "ipprgb000.4gl" 
DEFINE factor_conv1 DECIMAL(12,5)

DEFINE mv_ant ARRAY[100] OF RECORD
      cod_n      SMALLINT,
      cod_grupo  SMALLINT,
      cod_tipo   SMALLINT,
      cod_sec    SMALLINT
 END RECORD

MAIN                
   DEFER INTERRUPT
   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 ipprmt054()
END MAIN

FUNCTION ipprmt054() 
DEFINE usuario CHAR(9)

  #WHENEVER ERROR CONTINUE
   CLEAR SCREEN 
   OPTIONS
        FORM LINE 4,
        ERROR LINE 23,
        COMMENT LINE 21,
        PROMPT LINE 22

   OPEN FORM ipfmmt054 FROM "ipfmmt054"
   DISPLAY FORM ipfmmt054
   DISPLAY "ipprmt054" AT 3,3 ATTRIBUTE (BOLD)
   DISPLAY "Actualizacion Movimientos " AT 3,27 ATTRIBUTE (BOLD)
   
   MENU "OPCIONES"
       COMMAND "Consultar-modificar"
               "<Esc> Realiza Busqueda     <Delete> Cancela Operacion"
           LET INT_FLAG = FALSE
           CALL ippcmf54()
       COMMAND "Salir" "Retorna Menu Anterior"
           EXIT MENU
     END MENU
END FUNCTION

FUNCTION ippcmf54() 

  DEFINE usu_crea       CHAR(9)
  DEFINE fecha_crea     DATETIME YEAR TO MINUTE
  DEFINE cuenta,cuenta1 INTEGER
  DEFINE porciento,total_cantidad_ant,total_cantidad,ordenada,recibida,
         cantidad1,cant_e,devuelto,r_cantidad1,devuelto1,r_cantidad,
         cantidad_1_ant DECIMAL(12,2)
  DEFINE codigo_ant ARRAY[100] OF CHAR(7)
  DEFINE devuelta,cerrada,actualiza CHAR(1)

 #WHENEVER ERROR CONTINUE
    LET int_flag = false
    LET existe = null

## Aqui se prepara para la captura del criterio de seleccion
    CLEAR FORM
    CONSTRUCT criterio ON a.cod_mov,a.num_doc,a.fecha
                     FROM cod_mov,num_doc,fecha

    IF int_flag THEN   
       LET numero_msg = 2 
       CALL msg(numero_msg) 
       LET int_flag = FALSE
       CLEAR FORM
       RETURN
    END IF

    LET SELEC = 
       "SELECT UNIQUE a.cod_mov,a.num_doc,CONVERT(char(10),a.fecha,103),a.tipo,a.orden_compra, ",
       "        a.fact_no,a.conduce_no,a.cod_sp,a.cod_sp_sec,a.cod_sp, ",
       "        a.cod_transp,a.sec_transp,a.placa,a.cod_tarifa,a.bodega,c.departamento, ",
       "        a.detalle ",
       "FROM iptb00006 a,iptb00005 b,OUTER iptb00026 c ",
       "WHERE (", criterio CLIPPED," ) and a.cod_mov = b.cod_mov AND ",
       "      a.num_doc = c.num_doc and a.cod_mov = c.cod_mov AND ",
       "      CONVERT(char(10),a.fecha,103) > '01/01/2008' and a.status_t is null ORDER BY 1,2 "   

 DISPLAY "Buscando Documento... Espere" AT 24,1 ATTRIBUTE (BOLD)
    PREPARE busca FROM selec
    CALL integridad()

       IF bandera = 1 THEN
          LET bandera = 0 
          RETURN
       END IF 

       DECLARE datos SCROLL CURSOR  FOR busca
       OPEN datos 
       LET descrip1 = null
       LET descrip2 = null
       FETCH FIRST datos INTO movimientos.*
         IF STATUS = NOTFOUND THEN
            LET numero_msg = 3 
            CALL msg(numero_msg) 
            RETURN
         END IF
         CALL desplegar54()
  
    MENU "OPCIONES "
    COMMAND "Siguiente" "Presenta en pantalla el proximo registro encontrado"
            FETCH NEXT datos INTO movimientos.*
                  IF STATUS = NOTFOUND THEN
                     LET numero_msg = 4 
                     CALL msg(numero_msg) 
                  END IF
                  CALL desplegar54()
   COMMAND "Anterior" "Presenta en pantalla el registro anterior encontrado"
            FETCH PREVIOUS datos INTO movimientos.*
                  IF STATUS = NOTFOUND THEN
                     LET numero_msg = 5 
                     CALL msg(numero_msg) 
                  END IF
                  CALL desplegar54()
   COMMAND "Primero" "Presenta en pantalla el primer registro encontrado"
            FETCH FIRST datos INTO movimientos.*
            LET numero_msg = 5 
            CALL msg(numero_msg) 
            CALL desplegar54()

   COMMAND "Ultimo" "Presenta en pantalla el ultimo registro encontrado"
            FETCH LAST datos INTO movimientos.*
            CALL desplegar54()

   COMMAND KEY ("L") "eLiminar"
            UPDATE iptb00006 set status_t = "E"
            WHERE num_doc = movimientos.num_doc AND
                  cod_mov = movimientos.cod_mov
            LET numero_msg = 39
            CALL msg(numero_msg)
            EXIT MENU

   COMMAND "Escoger" "<Esc> Actualiza Registro    <Delete> Cancela Operacion"
            LET cerrada = "N"
            LET total_cantidad = 0
            LET total_cantidad_ant = 0

# Entrada de datos Generales del documento

            LET p_fechas = movimientos.fecha
            IF movimientos.fecha < "31031994" THEN
               LET numero_msg = 58
               CALL msg(numero_msg)  
               RETURN
            END IF
       
            SELECT a.us_crea,MIN(a.fech_crea) INTO usu_crea,fecha_crea
            FROM iptb00006 a
            WHERE a.status_t IS NULL AND a.num_doc = movimientos.num_doc AND
                  a.cod_mov = movimientos.cod_mov GROUP BY a.us_crea

            LET cod_mov_ant = movimientos.cod_mov
            INPUT BY NAME movimientos.fecha THRU movimientos.detalle
            WITHOUT DEFAULTS
             AFTER FIELD departamento
                IF movimientos.departamento IS NOT NULL THEN
                   SELECT a.nom_dpto INTO otros_mov.nombre_depto
                   FROM adtb00001 a
                   WHERE a.departamento = movimientos.departamento AND
                         a.status_t IS NULL
                   IF STATUS = NOTFOUND THEN
                      LET numero_msg = 3
                      CALL msg(numero_msg)
                      NEXT FIELD departamento
                    END IF
                    DISPLAY BY NAME otros_mov.nombre_depto
                  END IF

             AFTER FIELD bodega
              IF movimientos.bodega is null THEN
                 LET numero_msg = 16
                 CALL msg(numero_msg)
                 NEXT FIELD bodega
              ELSE
                 SELECT * FROM intb00009 WHERE cod_bodega = movimientos.bodega
                  IF status = notfound THEN
                     LET numero_msg = 3
                     CALL msg(numero_msg)
                     NEXT FIELD bodega
                  END IF
              END IF
        
         AFTER FIELD fecha
           LET p_fechas = movimientos.fecha 
           IF movimientos.fecha < "31031994" THEN
              LET numero_msg = 58
              CALL msg(numero_msg)  
              RETURN
           END IF

           AFTER FIELD orden_compra

         # Verifica que la orden de compra este en el archivo y 
         # ademas obliga a que el usuario tenga que digitar este campo
         
            IF movimientos.orden_compra IS NULL THEN
               LET numero_msg = 16
               CALL msg(numero_msg)
            ELSE
               SELECT cod_sp,cod_sp_sec,cierre 
               INTO movimientos.cod_sp,movimientos.cod_sp_sec,cerrada
               FROM cotb00014 WHERE num_oc = movimientos.orden_compra
         
               IF STATUS = NOTFOUND THEN
                  LET numero_msg = 3 
                  CALL msg(numero_msg)
                  NEXT FIELD orden_compra
               END IF
               
               IF cerrada = "S" THEN
                  LET numero_msg = 74
                  CALL msg(numero_msg)
                  NEXT FIELD fecha       
               END IF

               SELECT UNIQUE nom_sp INTO movimientos.nom_sp FROM cotb00001 
               WHERE cod_sp = movimientos.cod_sp and
                     cod_sp_sec = movimientos.cod_sp_sec and status_t is null
         
               DISPLAY BY NAME movimientos.nom_sp,movimientos.cod_sp,
                               movimientos.cod_sp_sec

               IF cerrada is null THEN
                  LET cerrada = "N"
               END IF
            END IF
         
          AFTER FIELD cod_sp_sec

               IF movimientos.cod_sp_sec is not null THEN
                  SELECT nombre INTO movimientos.nom_sp FROM vetb00004
                  WHERE tipo_cliente = movimientos.cod_sp and
                        sec_cliente = movimientos.cod_sp_sec
                  DISPLAY BY NAME movimientos.nom_sp
               ELSE
                  LET  movimientos.cod_sp = null
                  DISPLAY BY NAME movimientos.cod_sp
               END IF

           AFTER FIELD cod_transp
             IF movimientos.cod_transp is null THEN
                LET numero_msg = 16
                CALL msg(numero_msg)
                #NEXT FIELD cod_transp
             END IF
        
            AFTER FIELD sec_transp
             IF movimientos.sec_transp is null THEN
                LET numero_msg = 16
                CALL msg(numero_msg)
             #  NEXT FIELD cod_transp
             END IF
             IF movimientos.sec_transp is NOT NULL THEN
                SELECT nombre INTO descrip2 FROM vetb00015
                WHERE cod_transp = movimientos.cod_transp and
                      sec_transp = movimientos.sec_transp and
                      status_t is null
        
                IF status = NOTFOUND THEN
                   LET numero_msg = 3
                   CALL msg(numero_msg)
                END IF
                DISPLAY BY NAME descrip2
             END IF

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

                   IF movimientos.conduce_no is not null and 
                      movimientos.fact_no is not null THEN
                     LET numero_msg = 29
                     CALL msg(numero_msg)
                     NEXT FIELD conduce_no
                   END IF
                   
                {  IF movimientos.cod_mov = 12 or
                      movimientos.cod_mov = 13 THEN

                     SELECT * FROM vetb00002 WHERE factura = movimientos.fact_no
                       IF status = notfound THEN
                          LET numero_msg = 102
                          CALL msg(numero_msg)
                          NEXT FIELD fact_no
                       END IF

                      NEXT FIELD cod_tarifa
                   END IF}
      AFTER INPUT
            IF int_flag THEN
               LET numero_msg = 2
               CALL msg(numero_msg)
               LET int_flag = FALSE
               CLEAR FORM
               RETURN
            END IF

     EXIT INPUT
   END INPUT
 DISPLAY "Buscando Productos... Espere" AT 24,1 ATTRIBUTE (BOLD)

 DECLARE buscate CURSOR FOR                           
 SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.cantidad_1,a.cantidad_2,
        b.unidad_med,b.descrip_esp 
 FROM iptb00006 a,iptb00002 b
 WHERE a.num_doc = movimientos.num_doc and a.cod_mov = movimientos.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.status_t is null

# Se quito del query la fecha porque no buscaba los registros si se modificaba 

LET idx = 1
 FOREACH buscate INTO movi[idx].*
   IF movi[idx].cantidad_2 < 0 THEN
      LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
   END IF

   LET idx = idx + 1
END FOREACH
DISPLAY "                            " AT 24,1 
CALL set_count(idx -1)

 INPUT ARRAY movi WITHOUT DEFAULTS FROM s_movi1.*
   BEFORE ROW          
    LET p_act = arr_curr()
    LET scr_l = scr_line()
    LET codigo_ant[p_act] = movi[p_act].cod_n using "&",
                            movi[p_act].cod_grupo using "&",
                            movi[p_act].cod_tipo using "&&",
                            movi[p_act].cod_sec using "&&&" 

    LET movi_ant[p_act].cant_ant = movi[p_act].cantidad_2

# Chequeo si es un reporte de entrada para mandar la secuencia del programa a
# La Cantidad Recibida

      AFTER FIELD cod_n
         LET scr_l = scr_line()
         LET p_act = arr_curr()
         LET ya = "N"
         CALL repetir()
         IF existe = "S" THEN
            NEXT FIELD cod_grupo
            LET existe = "N"
         END IF

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

         LET ya = "N"
         CALL repetir()
         IF existe = "S" THEN
            NEXT FIELD cod_tipo
            LET existe = "N"
         END IF

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

         LET ya = "N"
         CALL repetir()
         IF existe = "S" THEN
            NEXT FIELD cod_sec
            LET existe = "N"
         END IF

      AFTER FIELD cod_sec
         IF movi[p_act].cod_sec is null THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD cod_n  
         END IF
         
         IF movi[p_act].cod_n is null AND movi[p_act].cod_grupo is null AND
            movi[p_act].cod_tipo is null AND movi[p_act].cod_sec is null THEN
            LET numero_msg = 16
            CALL msg(numero_msg)
            NEXT FIELD cod_n
         ELSE
            IF mv_ant[p_act].cod_n     != movi[p_act].cod_n and
               mv_ant[p_act].cod_grupo != movi[p_act].cod_grupo and
               mv_ant[p_act].cod_tipo  != movi[p_act].cod_tipo and
               mv_ant[p_act].cod_sec   != movi[p_act].cod_sec THEN
               LET ya = "N"
               CALL repetir()
               IF existe = "S" THEN
                  LET existe = "N"
                  NEXT FIELD cod_n  
               END IF

               SELECT a.descrip_esp,a.unidad_med 
               INTO articulos.descrip_esp,articulos.unidad_med
               FROM iptb00002 a
               WHERE a.cod_n = movi[p_act].cod_n and
                     a.cod_grupo = movi[p_act].cod_grupo and
                     a.cod_tipo = movi[p_act].cod_tipo and
                     a.cod_sec  = movi[p_act].cod_sec and a.status_t is null
                 
               IF STATUS   = NOTFOUND THEN 
                  LET numero_msg = 3 
                  CALL msg(numero_msg)
                  NEXT FIELD cod_n      
               END IF
               LET movi[p_act].descrip_esp = articulos.descrip_esp
               LET movi[p_act].unidad_med = articulos.unidad_med
               DISPLAY movi[p_act].descrip_esp TO s_movi1[scr_l].descrip_esp
               ATTRIBUTE (BOLD)
               DISPLAY movi[p_act].unidad_med  TO s_movi1[scr_l].unidad_med 
               ATTRIBUTE (BOLD)
            END IF
            LET factor_conv1 = 0
            SELECT a.factor_conv INTO factor_conv1 FROM iptb00001 a
            WHERE a.cod_n = movi[p_act].cod_n AND
                  a.cod_grupo = movi[p_act].cod_grupo AND
                  a.cod_tipo  = movi[p_act].cod_tipo AND
                  a.cod_sec   = movi[p_act].cod_sec AND a.status_t is null

            IF STATUS = NOTFOUND THEN
               ERROR "NO EXISTE FACTOR DE CONVERSION"
               NEXT FIELD cod_n
            END IF
         END IF

    AFTER FIELD cantidad_1
         IF movi[p_act].cod_n is NOT null     AND 
            movi[p_act].cod_grupo is NOT null AND
            movi[p_act].cod_tipo is NOT null  AND 
            movi[p_act].cod_sec is NOT null   THEN

            IF movi[p_act].cantidad_1 IS NULL OR movi[p_act].cantidad_1 < 0 THEN
               LET numero_msg = 16
               CALL msg(numero_msg)
               NEXT FIELD cantidad_1
            END IF
            LET movi[p_act].cantidad_2=movi[p_act].cantidad_1*factor_conv1 
    
            DISPLAY movi[p_act].cantidad_2 TO s_movi1[scr_l].cantidad_2
           
            IF transacc.status_mov = "2" THEN
               SELECT cantidad_2 INTO p_iptb02.exist_min FROM iptb00006
               WHERE cod_n     = movi[p_act].cod_n AND
                     cod_grupo = movi[p_act].cod_grupo AND
                     cod_tipo  = movi[p_act].cod_tipo AND
                     cod_sec   = movi[p_act].cod_sec AND 
                     num_doc   = movimientos.num_doc AND
                     cod_mov   = movimientos.cod_mov

               SELECT SUM(cantidad_2) INTO p_iptb06.cantidad_2 FROM iptb00006
               WHERE cod_n = movi[p_act].cod_n AND
                     cod_grupo = movi[p_act].cod_grupo AND
                     cod_tipo  = movi[p_act].cod_tipo AND
                     cod_sec   = movi[p_act].cod_sec and status_t is null

               IF p_iptb06.cantidad_2 IS NULL THEN
                  LET p_iptb06.cantidad_2 = 0
               END IF

               IF p_iptb02.exist_min IS NULL THEN
                  LET p_iptb02.exist_min = 0
               END IF
               LET p_iptb06.cantidad_2=p_iptb06.cantidad_2-p_iptb02.exist_min

               IF movi_ant[p_act].cant_ant is null THEN
                  LET movi_ant[p_act].cant_ant = 0
               END IF

               LET cantidad1 = p_iptb06.cantidad_2

               IF movi[p_act].cantidad_2 > cantidad1 THEN
                  LET numero_msg =  30
                  CALL msg(numero_msg)
                  NEXT FIELD cantidad_1
               END IF

               IF cantidad1 <= p_iptb02.exist_min THEN
                  LET numero_msg = 31
                  CALL msg(numero_msg)
               END IF
            END IF
         END IF

AFTER INPUT
  ## Verifica si el usuario presiono la tecla <Delete>   
      IF int_flag THEN
         LET numero_msg = 2 
         CALL msg(numero_msg) 
         LET int_flag = FALSE
         CLEAR FORM
         RETURN
      END IF

         IF movi[p_act].cod_n is NOT null     AND 
            movi[p_act].cod_grupo is NOT null AND
            movi[p_act].cod_tipo is NOT null  AND 
            movi[p_act].cod_sec is NOT null   THEN

            IF transacc.status_mov = "2" THEN
               SELECT cantidad_2 INTO p_iptb02.exist_min FROM iptb00006
               WHERE cod_n     = movi[p_act].cod_n AND
                     cod_grupo = movi[p_act].cod_grupo AND
                     cod_tipo  = movi[p_act].cod_tipo AND
                     cod_sec   = movi[p_act].cod_sec AND 
                     num_doc   = movimientos.num_doc AND
                     cod_mov   = movimientos.cod_mov

               SELECT SUM(cantidad_2) INTO p_iptb06.cantidad_2 FROM iptb00006
               WHERE cod_n = movi[p_act].cod_n AND
                     cod_grupo = movi[p_act].cod_grupo AND
                     cod_tipo  = movi[p_act].cod_tipo AND
                     cod_sec   = movi[p_act].cod_sec and status_t is null

               IF p_iptb06.cantidad_2 IS NULL THEN
                  LET p_iptb06.cantidad_2 = 0
               END IF

               IF p_iptb02.exist_min IS NULL THEN
                  LET p_iptb02.exist_min = 0
               END IF
               LET p_iptb06.cantidad_2=p_iptb06.cantidad_2-p_iptb02.exist_min

               IF movi_ant[p_act].cant_ant is null THEN
                  LET movi_ant[p_act].cant_ant = 0
               END IF

               LET cantidad1 = p_iptb06.cantidad_2

               IF movi[p_act].cantidad_2 > cantidad1 THEN
                  LET numero_msg =  30
                  CALL msg(numero_msg)
                  NEXT FIELD cantidad_1
               END IF

               IF cantidad1 <= p_iptb02.exist_min THEN
                  LET numero_msg = 31
                  CALL msg(numero_msg)
               END IF
            END IF
         END IF
  EXIT INPUT
END INPUT
DISPLAY "                                                " AT 24,1 
DISPLAY "En Proceso... Espere Por Favor" AT 24,1 ATTRIBUTE (BLUE)

# Actualizacion de la orden de compras cuando se devuelve articulo

     IF recibida is null THEN
        LET recibida = 0
     END IF

     IF ordenada is null THEN
        LET ordenada = 0
     END IF

     LET porciento = ordenada * 0.10
     LET recibida = recibida - total_cantidad_ant + total_cantidad
     LET r_cantidad = ordenada - porciento
     LET r_cantidad1 = ordenada + porciento

     IF recibida >= r_cantidad and recibida <= r_cantidad1 THEN
        LET cerrada = "S"
     END IF


     DELETE FROM iptb00006 WHERE num_doc = movimientos.num_doc and
                                 cod_mov = movimientos.cod_mov and
                                 fecha > '01/01/2008'

# Activa la factura cuando es una devolucion para posteriormente anular lo que
# hay que anular
  {IF movimientos.cod_mov = 12 or movimientos.cod_mov = 13 THEN
     UPDATE vetb00002 set status_t = null
     WHERE factura = movimientos.fact_no
     UPDATE vetb00003 set status_t = null
     WHERE factura = movimientos.fact_no
  END IF}

  FOR idx = 1 TO arr_count()
    LET movi3[idx].codigo = movi[idx].cod_n using "&",
                            movi[idx].cod_grupo using "&",
                            movi[idx].cod_tipo using "&&",
                            movi[idx].cod_sec using "&&&" CLIPPED

     LET actualiza = "S"
     IF movi[idx].cod_n is not null or  movi[idx].cod_grupo is not null or 
        movi[idx].cod_tipo is not null or  movi[idx].cod_sec is not null THEN

        IF transacc.status_mov = "2" THEN
           LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
        END IF

        INSERT INTO iptb00006 (cod_cia,cod_mov,num_doc,fecha,fact_no,conduce_no,
                               tipo,orden_compra,cod_sp,cod_sp_sec,bodega,
                               detalle,cod_n,cod_grupo,cod_tipo,cod_sec,
                               cantidad_1,cantidad_2,us_mod,fech_mod,
                               cod_tarifa,cod_transp,sec_transp,placa)
        VALUES (1,movimientos.cod_mov,movimientos.num_doc,movimientos.fecha,
                movimientos.fact_no,movimientos.conduce_no,movimientos.tipo,
                movimientos.orden_compra,movimientos.cod_sp,
                movimientos.cod_sp_sec,movimientos.bodega,movimientos.detalle,
                movi[idx].cod_n,movi[idx].cod_grupo,movi[idx].cod_tipo,
                movi[idx].cod_sec,movi[idx].cantidad_1,movi[idx].cantidad_2,
                SUSER_SNAME(),GETDATE(),movimientos.cod_tarifa,movimientos.cod_transp,
                movimientos.sec_transp,movimientos.placa)

        CALL integridad()

        IF bandera = 1 THEN
           LET bandera = 0 
           RETURN
        END IF 

        IF movi[idx].cantidad_2 < 0 THEN
                LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
          END IF

   END IF
END FOR
DISPLAY " "
     UPDATE iptb00026 SET departamento = movimientos.departamento 
     WHERE num_Doc = movimientos.num_doc and cod_mov = movimientos.cod_mov
     UPDATE iptb00006 SET (us_crea,fech_crea) = (usu_crea,fecha_crea)
     WHERE @cod_mov = movimientos.cod_mov AND @num_doc = movimientos.num_doc

    {IF movimientos.cod_mov = 12 or movimientos.cod_mov = 13 THEN
        SELECT SUM(cantidad) INTO  cuenta1 FROM vetb00003
        WHERE factura = movimientos.fact_no 

         SELECT SUM(cantidad_2) INTO  cuenta  FROM vetb00003
          WHERE
                factura = movimientos.fact_no 

       IF cuenta = cuenta1 THEN
          UPDATE vetb00002 set status_t = "D",
                              us_mod = user,
                              fech_mod  = current
                 WHERE factura = movimientos.fact_no
       END IF
    END IF}

DISPLAY "                              " AT 24,1 
PROMPT "Desea Imprimir este documento (S/N) ?" FOR CHAR opt4
  LET opt4 = upshift(opt4)
  IF opt4 = "S" THEN
    #IF transacc.status_mov = "2" 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
 
      FOR idx = 1 to arr_count()

           LET otros_mov.num_doc = movimientos.num_doc
           LET otros_mov.cod_cia = null
           LET otros_mov.cod_mov = movimientos.cod_mov
           LET otros_mov.fact_no = movimientos.fact_no
           LET otros_mov.cod_transp = movimientos.cod_transp
           LET otros_mov.sec_transp = movimientos.sec_transp
           LET otros_mov.placa = null
           LET otros_mov.fecha = movimientos.fecha
           LET otros_mov.descrip_mov = datos_gen.descrip_mov
           LET otros_mov.bodega = null
           LET otros_mov.detalle = movimientos.detalle
           LET otros_mov.cod_sp  = movimientos.cod_sp
           LET otros_mov.cod_sp_sec = movimientos.cod_sp_sec
           LET otros_mov.descrip4 = movimientos.nom_sp
           OUTPUT TO REPORT formu4(otros_mov.*,movi[idx].*)
      END FOR
     FINISH REPORT formu4
     RUN imprime
    #ELSE
      { START REPORT rep_ent TO "%USHOME%\\archivo"
       FOR idx = 1 to arr_count()
  SELECT cantidad INTO p_conteo.cantidad FROM vetb00014
         WHERE cod_n = movi[idx].cod_n AND
               cod_grupo = movi[idx].cod_grupo AND
               cod_tipo  = movi[idx].cod_tipo AND
               cod_sec   = movi[idx].cod_sec AND
               status_t is null
           LET datos_gen.cod_mov = movimientos.cod_mov
           LET datos_gen.num_doc = movimientos.num_doc
           LET datos_gen.cod_sp = movimientos.cod_sp
           LET datos_gen.cod_sp_sec = movimientos.cod_sp_sec
           LET datos_gen.orden_compra = movimientos.orden_compra
           LET datos_gen.conduce_no = movimientos.conduce_no
           LET datos_gen.fact_no = movimientos.fact_no
           LET datos_gen.fecha = movimientos.fecha
           LET datos_gen.bodega = movimientos.bodega
           LET datos_gen.nom_sp = movimientos.nom_sp
         IF movi[idx].cantidad_1 is not  null THEN
           LET movi[idx].cantidad_1 = movi[idx].cantidad_1 / p_conteo.cantidad
         END IF

           LET p_unidad[idx] = movi[idx].cantidad_2
           LET movi[idx].cantidad_2 = movi[idx].cantidad_2 / p_conteo.cantidad

           OUTPUT TO REPORT rep_ent(datos_gen.*,movi[idx].*,p_unidad[idx])
      END FOR
     FINISH REPORT rep_ent}
     LET idx = 0
    #END IF
  END IF

      LET numero_msg = 13 
      CALL msg(numero_msg) 

    COMMAND "Retornar" 
            "Retorna al menu anterior" 
            EXIT MENU
  END MENU
END FUNCTION

FUNCTION buscame()  
                  IF movimientos.cod_sp is not null THEN
                     SELECT nom_sp INTO datos_gen.nom_sp FROM cotb00001
                       WHERE cod_sp = movimientos.cod_sp and
                             cod_sp_sec = movimientos.cod_sp_sec 
                  END IF
END FUNCTION

FUNCTION repetir()
               LET ant_art.cod_n = movi[p_act].cod_n
               LET ant_art.cod_grupo = movi[p_act].cod_grupo 
               LET ant_art.cod_tipo = movi[p_act].cod_tipo 
               LET ant_art.cod_sec = movi[p_act].cod_sec   

                  FOR idx = 1 TO arr_count()
                   IF idx != p_act THEN
                      IF movi[idx].cod_n = ant_art.cod_n AND
                         movi[idx].cod_grupo = ant_art.cod_grupo AND 
                         movi[idx].cod_tipo = ant_art.cod_tipo AND
                         movi[idx].cod_sec = ant_art.cod_sec THEN 
                         LET numero_msg = 21
                         CALL msg(numero_msg)
                         LET existe = "S"     
                         LET ya = "S"
                       ELSE
                        IF ya = "N" THEN
                         LET existe = "N"
                        END IF
                      END IF
                    END IF
                  END FOR
END FUNCTION
FUNCTION desplegar54()
# Busca nombre del cliente
             SELECT nombre INTO movimientos.nom_sp FROM vetb00004
             WHERE tipo_cliente = movimientos.cod_sp and
                   sec_cliente = movimientos.cod_sp_sec
                  
             SELECT nombre INTO descrip2 FROM vetb00015
              WHERE cod_transp = movimientos.cod_transp and
                    sec_transp = movimientos.sec_transp and
                    status_t is null
    
             SELECT descrip INTO descrip1 FROM vetb00023
             WHERE cod_tarifa = movimientos.cod_tarifa and
                   status_t is null

             SELECT status_mov,descrip_mov 
             INTO transacc.status_mov,datos_gen.descrip_mov
             FROM iptb00005 WHERE cod_mov = movimientos.cod_mov
             SELECT nom_dpto INTO otros_mov.nombre_depto FROM adtb00001 
             WHERE departamento = movimientos.departamento

# Busca el nombre del suplidor
    IF movimientos.cod_mov = 34 or movimientos.cod_mov = 35 THEN
       CALL buscame()
    END IF

    DISPLAY BY NAME datos_gen.descrip_mov,datos_gen.nom_sp,otros_mov.nombre_depto
    DISPLAY BY NAME movimientos.*,descrip1,descrip2

# Verifica que el documento pertenezca al usuario que lo agrego a la 
# Tabla
    DISPLAY "                            " AT 24,1 
END FUNCTION