{
-------------------------------------------------------------------------------
 PROGRAMA          : IPPRCS041
 OBJETIVO          : Programa Consulta Movimientos Productos           :
                     Otros Movimientos Productos           
 PROGRAMADOR       : JUAN SOTO
 FECHA REALIZACION : Febrero 1997
 DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
-------------------------------------------------------------------------------
}
GLOBALS
  "ipprgb000.4gl"

MAIN                
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL ipprcs041()
END MAIN

FUNCTION ipprcs041()

  DEFINE fecha1 char(8)
  DEFINE hora1 char(5)
  LET fecha1 = today using "dd/mm/yy"
  LET hora1 = time 
  LET int_flag = false
  LET bandera = 0
  
  CLEAR SCREEN
  OPTIONS
    ERROR LINE 24,
    FORM LINE 6,
    COMMENT LINE 22,
    PROMPT LINE 23

    DISPLAY " MARMOTECH, S. A." AT 3,19
            ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha1 AT 3,70 ATTRIBUTE (BLUE)
    DISPLAY hora1 AT 4,73 ATTRIBUTE (BLUE)
    DISPLAY "Otros Movimientos de Productos           " AT 4,22
    DISPLAY "<Esc> Ejecuta Consulta " AT 5,2  ATTRIBUTE (BLUE,REVERSE)
    DISPLAY "<Delete> Cancela Operacion" AT 5,56 ATTRIBUTE (BLUE,REVERSE)
    DISPLAY "ipprcs041" AT 3,3 ATTRIBUTE (BLUE)

  OPEN FORM ipfmcs041 FROM "ipfmcs041" 
  DISPLAY FORM ipfmcs041
   
  INITIALIZE datos_gen.* TO NULL
  #WHENEVER ERROR CONTINUE

  LABEL volver:
 DISPLAY "                                                                     "
AT 1,1

   CONSTRUCT criterio ON a.num_doc,a.cod_mov,a.fecha,a.conduce_no
                    FROM num_doc,cod_mov,fecha,conduce_no

 LET SELEC = 
    "SELECT UNIQUE a.num_doc,a.cod_cia,a.cod_mov,a.fact_no,a.cod_transp, ",
    "              a.sec_transp,a.cod_tarifa,a.placa,a.fecha,a.bodega,a.conduce_no, ",
    "              a.detalle,a.cod_sp,a.cod_sp_sec ",
    "FROM iptb00006 a ",
    "WHERE ", criterio clipped," and a.cod_mov != 99 and a.status_t is null ",
    "ORDER BY 1"

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

PREPARE busca FROM selec
DECLARE johnn SCROLL CURSOR FOR busca
OPEN johnn

FETCH FIRST johnn INTO otros_mov.*

   IF status = notfound THEN
    LET numero_msg = 3
    CALL msg(numero_msg)
    GOTO volver
 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
    
             SELECT descrip INTO descrip1 FROM vetb00023
             WHERE cod_tarifa = otros_mov.cod_tarifa and
                   status_t is null
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM iptb00005 WHERE 
           cod_mov = otros_mov.cod_mov

 DISPLAY BY NAME  otros_mov.*,descrip1,descrip2
  LABEL vuelve1:
  MENU "OPCION"
    COMMAND "Siguiente"
            "Presenta en pantalla SIGUIENTE registro encontrado."
FETCH NEXT  johnn INTO otros_mov.*

   IF status = notfound THEN
    LET numero_msg = 5
    CALL msg(numero_msg)
 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
    
             SELECT descrip INTO descrip1 FROM vetb00023
                    WHERE cod_tarifa = otros_mov.cod_tarifa and
                          status_t is null
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM iptb00005 WHERE 
           cod_mov = otros_mov.cod_mov

 DISPLAY BY NAME  otros_mov.*,descrip1,descrip2

    COMMAND "Anterior"
            "Presenta en pantalla el registro ANTERIOR encontrado."
FETCH PREVIOUS johnn INTO otros_mov.*

   IF status = notfound THEN
    LET numero_msg = 5
    CALL msg(numero_msg)
 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
    
             SELECT descrip INTO descrip1 FROM vetb00023
                    WHERE cod_tarifa = otros_mov.cod_tarifa and
                          status_t is null
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM iptb00005 WHERE 
           cod_mov = otros_mov.cod_mov

 DISPLAY BY NAME otros_mov.*,descrip1,descrip2

    COMMAND "Primero"
            "Presenta en pantalla PRIMER registro encontrado."
FETCH FIRST johnn INTO otros_mov.*

    LET numero_msg = 5
    CALL msg(numero_msg)

             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 descrip INTO descrip1 FROM vetb00023
                    WHERE cod_tarifa = otros_mov.cod_tarifa and
                          status_t is null
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM iptb00005 WHERE 
             cod_mov = otros_mov.cod_mov

 DISPLAY BY NAME  otros_mov.*,descrip1,descrip2

    COMMAND "Ultimo"
            "Presenta en pantalla ULTIMO registro encontrado."
FETCH LAST johnn INTO otros_mov.*

    LET numero_msg = 4
    CALL msg(numero_msg)

             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 descrip INTO descrip1 FROM vetb00023
                    WHERE cod_tarifa = otros_mov.cod_tarifa and
                          status_t is null
    SELECT descrip_mov INTO otros_mov.descrip_mov FROM iptb00005 WHERE 
           cod_mov = otros_mov.cod_mov

 DISPLAY BY NAME  otros_mov.*,descrip1,descrip2

      COMMAND "Ver"
        CALL desplega2()

    DISPLAY ARRAY movi2 to s_movi1.*
   FOR idx = 1 to 4
       LET movi2[idx].cod_n = null
       LET movi2[idx].cod_grupo = null
       LET movi2[idx].cod_tipo = null
       LET movi2[idx].cod_sec = null
       LET movi2[idx].cantidad_1 = null
       LET movi2[idx].cantidad_2 = null
       LET movi2[idx].unidad_med = null
       LET movi2[idx].descrip_esp = null

       DISPLAY movi2[idx].cod_n to s_movi1[idx].cod_n
       DISPLAY movi2[idx].cod_grupo to s_movi1[idx].cod_grupo
       DISPLAY movi2[idx].cod_tipo to s_movi1[idx].cod_tipo
       DISPLAY movi2[idx].cod_sec to s_movi1[idx].cod_sec
       DISPLAY movi2[idx].cantidad_1 to s_movi1[idx].cantidad_1
       DISPLAY movi2[idx].cantidad_2 to s_movi1[idx].cantidad_2
       DISPLAY movi2[idx].unidad_med to s_movi1[idx].unidad_med
       DISPLAY movi2[idx].descrip_esp to s_movi1[idx].descrip_esp
   END FOR

        IF int_flag THEN
           LET numero_msg = 2
           CALL msg(numero_msg)
           LET int_flag = false
           GOTO vuelve1
        END IF

   COMMAND "Retornar"
     EXIT MENU
   END MENU
   CLEAR SCREEN
END FUNCTION

FUNCTION desplega2()

   DECLARE jhonn  CURSOR FOR 
   SELECT p.cod_n,p.cod_grupo,p.cod_tipo,p.cod_sec,p.cantidad_1,
          p.cantidad_2 ,k.unidad_med,k.descrip_esp
   FROM iptb00002 k,iptb00006 p 
   WHERE p.num_doc = otros_mov.num_doc and p.cod_mov = otros_mov.cod_mov and
         p.cod_n   = k.cod_n and p.cod_grupo = k.cod_grupo and 
         p.cod_tipo  = k.cod_tipo and p.cod_sec   = k.cod_sec

   OPEN jhonn 
   LET idx = 1

   FOREACH  jhonn  INTO movi2[idx].*,descrip1
       IF movi2[idx].cantidad_2 < 0 THEN
          LET movi2[idx].cantidad_2 = movi2[idx].cantidad_2 * -1
       END IF
     
       LET movi2[idx].descrip_esp = movi2[idx].descrip_esp CLIPPED
       LET idx = idx + 1
       CALL integridad()
       IF bandera = 1 THEN
          CLEAR SCREEN
          RETURN
       END IF

   END FOREACH
    CALL set_count(idx - 1)
END FUNCTION