FUNCTION productos(paplica)
DEFINE paplica INT,
  arr_productos DYNAMIC ARRAY OF RECORD
    cod_n   SMALLINT,
    cod_Grupo  SMALLINT,
    cod_tipo   SMALLINT,
    cod_sec    SMALLINT,
    descripcion VARCHAR(100),
    precio      DEC(12,2),
    porc_Desc   DEC(12,2),
    valor       DEC(12,2) 
  END RECORD,
  idx SMALLINT
  OPEN WINDOW w1 WITH FORM "ccfmwd006"
  DECLARE busca_productos CURSOR FOR
    SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,b.descrip_esp,a.precio,a.cantidad_2,a.precio*a.cantidad
    FROM vetb00003 a,iptb00002 b,iptb00006 c
    WHERE a.factura = paplica 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.factura = c.fact_no AND 
          c.cod_mov IN (12,13,43)
          
          
    LET idx = 1
    FOREACH busca_productos INTO arr_productos[idx].*
      LET idx = idx + 1
    END FOREACH 

    DISPLAY ARRAY arr_productos TO sproductos.*
   CLOSE WINDOW w1       
END FUNCTION