GLOBALS
 "inprgb000.4gl"

 
 FUNCTION desplega()
   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 intb00001 k,intb00006 p 
              WHERE
                p.num_doc = datos_gen.num_doc and
                 p.cod_mov = datos_gen.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 and 
                 p.status_t is null and
                 k.status_t is null  

   OPEN jhonn 
        CALL integridad()

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

FOREACH jhonn  INTO movi[idx].*

        CALL integridad()
        IF bandera = 1 THEN
           LET bandera = 0
           RETURN
        END IF

        IF STATUS = NOTFOUND THEN
           EXIT FOREACH
           RETURN
        END IF
      IF opera1 = "S" THEN
         LET movi[idx].cantidad_2 = movi[idx].cantidad_2 * -1
END IF

        LET movi3[idx].codigo = movi[idx].cod_n using "&", "-",
                                movi[idx].cod_grupo using "&", "-",
                                movi[idx].cod_tipo using "&&","-",
                                movi[idx].cod_sec using "&&&"
        LET movi3[idx].cantidad_1 = movi[idx].cantidad_1 using "##,###,###.##"
        LET movi3[idx].cantidad_2 = movi[idx].cantidad_2 using "##,###,###.##"
        LET movi3[idx].unidad_med = movi[idx].unidad_med 
        LET movi3[idx].descrip_esp = movi[idx].descrip_esp
        LET movi3[idx].diferencia = movi[idx].cantidad_1 - movi[idx].cantidad_2 
                                    using "##,###,###.##"  
        LET idx = idx + 1
 END FOREACH

    CALL set_count(idx - 1)

END FUNCTION