{
-----------------------------------------------------------------------------
 PROGRAMA          : ISPRCS006
 OBJETIVO          : Programa Consulta Balances    Suministro.   
 PROGRAMADOR       : Juan Fco. Soto (Johnny)
 FECHA REALIZACION : Octubre 29, 1992. 
-----------------------------------------------------------------------------
}
GLOBALS
  "isprgb000.4gl"

FUNCTION isprcs006()
  DEFINE segunda CHAR(1)
  DEFINE fecha1 char(10)
  DEFINE hora1 char(5)
  DEFINE balance_in DECIMAL(12,2)
  DEFINE primera CHAR(1)
  DEFINE nombre CHAR(8)
  LET fecha1 = today using "dd/mm/yyyy"
  LET hora1 = time
  LET int_flag = false
  LET bandera = 0
  
  WHENEVER ERROR CONTINUE

  CLEAR SCREEN
  OPTIONS
    ERROR LINE 24,
    FORM LINE 4,
    COMMENT LINE 22,
    PROMPT LINE 23
    DISPLAY " R A Y . O . V A C  D O M I N I C A N A " AT 1,21
            ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha1 AT 1,70 ATTRIBUTE (RED)
    DISPLAY hora1 AT 2,73 ATTRIBUTE (RED)
    DISPLAY "Consulta Balance - Suministros" AT 2,25 ATTRIBUTE(BLACK)
    DISPLAY "<Esc> Continua Consultando" AT 3,7 ATTRIBUTE (RED,REVERSE)
    DISPLAY "<Supr> Cancela Operacion"    AT 3,50 ATTRIBUTE (RED,REVERSE)
    DISPLAY "isprcs006" AT 1,3 ATTRIBUTE (RED)

  OPEN FORM isfmcs006 FROM "isfmcs006" 
  DISPLAY FORM isfmcs006
   
  INITIALIZE datos_gen.* TO NULL

 LABEL volver:
 INPUT BY NAME datos_cons.*                                   
  BEFORE FIELD fech_in
   LET datos_cons.fech_in = today using "dd/mm/yyyy"
   DISPLAY BY NAME datos_cons.fech_in

  BEFORE FIELD fech_fi
    LET datos_cons.fech_fi = today using "dd/mm/yyyy"
    DISPLAY BY NAME datos_cons.fech_fi

  AFTER FIELD cod_sec

      SELECT descrip_esp,unidad_med INTO datos_cons.descrip_esp,
      articulos.unidad_med

            FROM intb00001
               WHERE cod_n   = datos_cons.cod_n and
                     cod_grupo = datos_cons.cod_grupo and
                     cod_tipo  = datos_cons.cod_tipo and
                     cod_sec   = datos_cons.cod_sec and
                     status_t is null

         IF STATUS = NOTFOUND THEN
           LET numero_msg = 3
           CALL msg(numero_msg)
           CLEAR FORM
           NEXT FIELD cod_n  
        END IF
       DISPLAY BY NAME datos_cons.descrip_esp,articulos.unidad_med

       CALL integridad()
         if bandera = 1 THEN
           LET bandera = 0
           RETURN
       end if

   {SELECT fecha INTO datos_cons.fech_in FROM istb00006
     WHERE cod_mov = 99 AND
           cod_n = datos_cons.cod_n and
           cod_grupo = datos_cons.cod_grupo and
           cod_tipo = datos_cons.cod_tipo and
           cod_sec  = datos_cons.cod_sec}

        AFTER FIELD bodega

            SELECT * FROM istb00009 where cod_bodega = datos_cons.bodega
              IF STATUS = NOTFOUND THEN
                LET numero_msg = 3
                CALL msg(numero_msg)
                NEXT FIELD bodega
             END IF

         IF STATUS = NOTFOUND THEN
           LET numero_msg = 3
           CALL msg(numero_msg)
           CLEAR FORM
           NEXT FIELD cod_n  
        END IF
   SELECT * FROM istb00002
     WHERE cod_n = datos_cons.cod_n and
           cod_grupo = datos_cons.cod_grupo and
           cod_tipo = datos_cons.cod_tipo and
           cod_sec  = datos_cons.cod_sec and
           bodega  = datos_cons.bodega

         IF STATUS = NOTFOUND THEN
           LET numero_msg = 3
           CALL msg(numero_msg)
           CLEAR FORM
           NEXT FIELD cod_n  
        END IF

        AFTER FIELD fech_fi

         IF datos_cons.fech_fi IS NULL THEN
           LET numero_msg = 16
           CALL msg(numero_msg)
          NEXT FIELD fech_in
       END IF
         IF datos_cons.fech_in IS NULL THEN
           LET numero_msg = 16
           CALL msg(numero_msg)
          NEXT FIELD fech_in
       END IF

            IF datos_cons.fech_in > datos_cons.fech_fi THEN
               LET numero_msg = 36
               CALL msg(numero_msg)
               NEXT FIELD fech_in
      END IF
       AFTER INPUT             
    EXIT INPUT
  END INPUT

   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = false
    CLEAR SCREEN
   RETURN
 END IF
 DISPLAY "Buscando Informacion... Espere Por Favor" AT 24,2 ATTRIBUTE (blue)
{  SELECT existencia INTO balance FROM istb00002 WHERE
        cod_n = datos_cons.cod_n and
        cod_grupo = datos_cons.cod_grupo and
        cod_tipo = datos_cons.cod_tipo and
        cod_sec  = datos_cons.cod_sec and
        status_t is null 

      IF STATUS >= 0 THEN
        IF status = notfound THEN
         LET numero_msg = 3
         CALL msg(numero_msg)
         GOTO volver
        END IF
         ELSE
          CALL integridad()
            IF bandera = 1 THEN
              LET bandera = 0
              GOTO volver
          END IF
         END IF
}
   SELECT SUM(cantidad_2) INTO balance FROM istb00006 WHERE
        cod_n = datos_cons.cod_n and
        cod_grupo = datos_cons.cod_grupo and
        cod_tipo = datos_cons.cod_tipo and
        cod_sec  = datos_cons.cod_sec and
        fecha <= datos_cons.fech_in and
        status_t is null 
 
        IF balance is null THEN
           LET balance = 0
        END IF
        LET balance_in = balance

      DISPLAY "Balance Inicial Al: " AT 13,30 ATTRIBUTE (blue)
      DISPLAY datos_cons.fech_in using "dd/mm/yyyy" AT 13,51 ATTRIBUTE (blue)
      DISPLAY balance_in using "---,---,---.##" AT 13,61 ATTRIBUTE (blue)

   DECLARE jhonn_1  CURSOR FOR 
   SELECT unique p.num_doc,p.fecha,p.cantidad_2,p.cod_mov
          FROM istb00006 p 
              WHERE
                 p.cod_n   = datos_cons.cod_n and 
                 p.cod_grupo = datos_cons.cod_grupo and 
                 p.cod_tipo  = datos_cons.cod_tipo and 
                 p.cod_sec   = datos_cons.cod_sec and  
                 p.status_t is null and
                 p.fecha > datos_cons.fech_in and 
                 p.fecha <= datos_cons.fech_fi 

     ORDER BY 2,1
   OPEN jhonn_1 
   LET idx = 1
FOREACH  jhonn_1  INTO csmov.*
   CALL integridad()
   IF bandera = 1 THEN
      LET bandera = 0  
      RETURN
   end if
   
       LET balance = balance + csmov.cantidad_2
       LET csmov1[idx].fecha_2 = csmov.fecha_1
       LET csmov1[idx].balance = balance USING "---,---,---.##"
       LET csmov1[idx].num_doc = "(",csmov.cod_mov using "&&",")"," ",
                                 csmov.num_doc USING "&&&&&&"

    IF csmov.cantidad_2 < 0 THEN
       LET csmov1[idx].entrada = null
       LET csmov1[idx].salida     = csmov.cantidad_2 USING "---,---,---.##"
     ELSE 
       LET csmov1[idx].salida  = null
       LET csmov1[idx].entrada    = csmov.cantidad_2 USING "###,###,###.##"
    END IF
IF idx < 9 THEN
 DISPLAY csmov1[idx].num_doc TO s_csmov[idx].num_doc
 DISPLAY csmov1[idx].fecha_2  TO s_csmov[idx].fecha
 DISPLAY csmov1[idx].entrada TO s_csmov[idx].entrada
 DISPLAY csmov1[idx].salida  TO s_csmov[idx].salida
 DISPLAY csmov1[idx].balance TO s_csmov[idx].balance
END IF
   LET idx = idx + 1
 END FOREACH
DISPLAY "                                                       " AT 24,2
      LET balance_in = 0
    CALL set_count(idx - 1)
   DISPLAY ARRAY csmov1 TO s_csmov.*
   IF int_flag THEN
    LET numero_msg = 2
    CALL msg(numero_msg)
    LET int_flag = false
    CLEAR SCREEN
   RETURN
 END IF
  CLEAR FORM
  DISPLAY "                                                       " AT 13,6
  DISPLAY "                  " AT 13,60
 GOTO volver
END FUNCTION