1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| w.req = "select distinct " & _
"a.lib_cach, " & _
"b.daterecep, " & _
"c.lib_norme, " & _
"d.lib_orig, " & _
"i.raison_fou, " & _
"b.nolot, " & _
"(g.poidbsorti) as poidbr_in, " & _
"(e.nbsacs) as bag_in, " & _
"(g.poidbsorti) as poidfou_in, " & _
"(g.poidnet_ev) as poidnet_in, " & _
"(e.poidplein) as poidbr_st, " & _
"(b.nbsac1) as bag_out, " & _
"(b.poiddec) as poidnet_st, " & _
"(e.ecartpoid) as freinte, " & _
"(iif(g.poidnet_ev<>0,round((e.ecartpoid*100/g.poidnet_ev),3),0)) as freinte_pr, " & _
"(b.prixbrut) as prix_usin, " & _
"((-1)*(g.poidnet_ev-b.poidnet-(g.poidnet_ev*0.012)-(g.poidplein*0.003)-IIF((b.poidbrut-g.poidplein)>0,0,IIF((-0.003*g.poidplein)+(g.poidplein-b.poidbrut)>0,(((-1)*(0.003*g.poidplein))+(g.poidplein-b.poidbrut)),0)))) as stor_exlos," & _
"round((-1)*(g.poidnet_ev-b.poidnet-(g.poidnet_ev*0.012)-(g.poidplein*0.003)-IIF((b.poidbrut-g.poidplein)>0,0,IIF((-0.003*g.poidplein)+(g.poidplein-b.poidbrut)>0,((-0.003*g.poidplein)+(g.poidplein-b.poidbrut)),0)))*(b.prixbrut),3) as stor_exval, " & _
"b.poidnet, " & _
"b.poidbrut, " & _
"round(IIF(((b.poidbrut-g.poidplein)>0),0,IIF((-0.003*g.poidplein)+(g.poidplein-b.poidbrut)>0,(-0.003*g.poidplein)+(g.poidplein-b.poidbrut),0))*(1),3) as trsp_exc, " & _
"(b.poidbrut-b.poidnet-e.nbsacs) as fact_disc, " & _
"round(IIF(((b.poidbrut-g.poidplein)>0),0,IIF((-0.003*g.poidplein)+(g.poidplein-b.poidbrut)>0,(-0.003*g.poidplein)+(g.poidplein-b.poidbrut),0))*(b.prixbrut),3) as recov_val, " & _
"(b.poidbrut-g.poidplein) as trsp_wlos, " & _
"(round((((b.poidbrut-g.poidplein)/g.poidplein)*100),3)) as pr_trsp " & _
"from " & w.p & "0664 a," & w.np & "0670 b," & w.p & "1140 c," & w.p & "0063 d," & w.np & "1975 e," & w.np & "1980 f," & w.np & "1920 g," & w.p & "0022 i " & _
"where " & _
"a.cod_cach=b.cod_cach and " & _
"b.cod_orig=d.cod_orig and " & _
"b.cod_norme=c.cod_norme and " & _
"b.nobl_int=e.nobl_int and " & _
"e.nobl_int=f.nobl_int and " & _
"f.nolot=g.no_group and " & _
"b.franchise=.F. and " & _
"b.cod_fou=i.cod_fou and " & _
"b.cod_prod='" & w.vcod_prod.Trim & "' and b.type_lot=1 " & _
"order by b.daterecep"
' '''
w.remplir_ds(w.ds, "st_exit1", w.req) |