FUNCTION estado_requisicion(xnum_req)
  DEFINE monto_cotizacion,xlimite,xmonto_req DEC(12,2),
         xnum_req INT,xfecha date,
         idx INT,
         xvendedor,xcliente VARCHAR(100),
         rdata DYNAMIC ARRAY OF RECORD
           fecha         DATETIME YEAR TO MINUTE,
           descripcion_estado VARCHAR(250),
           usuario       VARCHAR(60),
           num_oc        INT,
           cotizacion_no INT,
           balance       DEC(12,2),
           limite_cr     DEC(12,2)
          END RECORD 
  OPEN WINDOW w1 WITH FORM "estado_requisicion"
               SELECT  UNIQUE a.fecha,CAST(a.sec AS CHAR(6))||''||RTRIM(b.nom1_emp)||' '||b.apell1_emp,
                      '('||CAST(c.tipo_cliente AS CHAR(3))||'-'||CAST(c.sec_cliente AS CHAR(10))||')'||
                                rtrim(c.nombre),a.monto_req
               INTO  xfecha,xvendedor,xcliente,xmonto_req
               FROM cctb00025 a,adtb00003 b,vetb00004 c,cctb00026 d,vetb00050 e
               WHERE a.num_req = xnum_req AND 
                     a.num_req = d.num_req AND 
                     d.cotizacion_no = e.cotizacion_no AND
                     e.tipo_cliente = c.tipo_cliente AND
                     e.sec_cliente = c.sec_cliente AND
                     a.status_t IS NULL

          DISPLAY BY NAME xfecha,xvendedor,xcliente,xmonto_req

          
          DECLARE busca_req CURSOR FOR 
           SELECT a.fecha,a.descrip_estado,a.usuario,a.documento_ref,a.cotizacion_no,a.balance,a.limite_cr
           FROM cctb00031 a WHERE a.num_req = xnum_req   

           ORDER BY a.fecha
           LET idx = 1
           FOREACH busca_req INTO rdata[idx].*
             LET idx = idx + 1
           END FOREACH
           
           DISPLAY ARRAY rdata TO sdata.* 

             
      CLOSE WINDOW w1
END FUNCTION