declare
v_sql clob ;
v_sql2 clob ;
v_whsid varchar(10);
v_sql4 clob;
v_sql3 clob;
begin
  v_whsid  := :GS_WHSID;
  v_sql :=  'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$, $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$, $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$  OR x.jrnid = $DCTRS$)';

   

     V_sql2 := 'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$  OR x.jrnid = $DCTRS$)';
  
  
  v_sql3 := 'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:P1550_DTFR||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:P1550_DTTO||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:P1550_TYPE||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$)';
   
   v_sql4 :=  'select T.GLTRNPUR_PK,
      t.purno_c,
      t.purdt,
      sbs.sbsname vndname,
      t.purrefno,
      t.paytype,
      t.crnid,
      t.grsamt,
      t.WHSID,
      t.BRID,
      nvl(t.grsamt, 0) - nvl((SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTADJ)  FROM GLTRNCLG_INV CLG WHERE INVNO_C = T.PURNO_C), 0)
      - nvl((SELECT SUM(AMTDR)  FROM GLTRNJV_D CLG WHERE INVNO_C = T.PURNO_C), 0)
      balance,
      t.srcno_c,
      (SELECT MAX(PV.PVNO_C)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) PVNO_C,
     (SELECT SUM(PV.AMT)  FROM VGLTRNPV_1_ABM PV WHERE PV.INVNO_C = T.PURNO_C) AMT,
      decode(t.srcno_c, null, $M$, $A$) TYPE
 from VGLTRNPUR_L01_ABM t,cmjrn x ,cmsbs sbs
 where t.PURJRNID = x.jrnid(+)
 and  t.vndid_c = sbs.sbsid_c(+)
  and X.JRNFLT1 IS NULL
  and to_date(t.purdt, $DD-MON-YY$) BETWEEN
      nvl(to_date($'||:GS_BRID||'$ , $DD-MON-YY$), t.purdt) and
      nvl(to_date($'||:GS_BRID||'$ , $DD-MON-YY$), t.purdt)
  and decode(t.srcno_c, null, $M$, $A$) = $'||:GS_BRID||'$ 
  and (x.jtyid =  $GLPUR$ and  x.BRID = $'||:GS_BRID||'$)
  and x.jrnid = $asd$';
   
  
   
if v_whsid =  'G1' or v_whsid = 'K1' then
return( REPLACE (replace (v_sql,''''),'$',''''));
--elsif v_whsid = 'K1' then 
 --return( REPLACE (replace (v_sql2,''''),'$',''''));
elsif v_whsid = 'KH' then 
 return( REPLACE (replace (v_sql3,''''),'$',''''));
else return ( REPLACE (replace (v_sql4,''''),'$',''''));
  end if;
   end;