Editing ray

Title / Description

Code
long neg,seg,sub,lin,pro,ll_idart string filtrar,filtrar1,filtrar2,filtrar3,filtrar4,filtrar5 string ls_deart, ls_idemp, filtrar6,filtrar7,filtrar8 dw_busca.AcceptText() // saca filtros dw_list.SetRedraw(false) dw_list.Setfilter("") dw_list.Filter() // coloca nuevos filtros neg=dw_busca.object.id_negocio[1] seg=dw_busca.object.id_segmento[1] sub=dw_busca.object.id_subrubro[1] lin=dw_busca.object.id_linea[1] pro=dw_busca.object.id_proveedor[1] ll_idart = dw_busca.object.id_art[1] ls_deart = dw_busca.object.de_articulos[1] ls_idemp = dw_busca.object.id_articulos[1] if not isnull(neg) then filtrar1 = 'id_negocio = '+string(neg) else filtrar1 = '' filtrar = filtrar1 if not isnull(seg) then filtrar2 = 'id_segmento = '+string(seg) else filtrar2 = '' if filtrar <> '' then if filtrar2 <> '' then filtrar = filtrar+' and '+filtrar2 else if filtrar2 <> '' then filtrar = filtrar2 end if if not isnull(sub) then filtrar3 = 'id_subrubro = '+string(sub) else filtrar3 = '' if filtrar <> '' then if filtrar3 <> '' then filtrar = filtrar+' and '+filtrar3 else if filtrar3 <> '' then filtrar = filtrar3 end if if not isnull(lin) then filtrar4 = 'id_linea = '+string(lin) else filtrar4 = '' if filtrar <> '' then if filtrar4 <> '' then filtrar = filtrar+' and '+filtrar4 else if filtrar4 <> '' then filtrar = filtrar4 end if if not isnull(pro) then filtrar5 = 'id_proveedor = '+string(pro) else filtrar5 = '' if filtrar <> '' then if filtrar5 <> '' then filtrar = filtrar+' and '+filtrar5 else if filtrar5 <> '' then filtrar = filtrar5 end if if not isnull(ls_deart) then filtrar6 = 'Upper(de_articulos) like "%'+Upper(string(ls_deart)) + '%"' else filtrar6 = '' if filtrar <> '' then if filtrar6 <> '' then filtrar = filtrar+' and '+filtrar6 else if filtrar6 <> '' then filtrar = filtrar6 end if if not isnull(ll_idart) then filtrar7 = 'id_articulos = '+string(ll_idart) else filtrar7 = '' if filtrar <> '' then if filtrar7 <> '' then filtrar = filtrar+' and '+filtrar7 else if filtrar7 <> '' then filtrar = filtrar7 end if if not isnull(ls_idemp) then filtrar8 = '(cid_articulos) like "%'+upper(string(ls_idemp))+ '%"' else filtrar8 = '' if filtrar <> '' then if filtrar8 <> '' then filtrar = filtrar+' and '+filtrar8 else if filtrar8 <> '' then filtrar = filtrar8 end if if filtrar <> '' then dw_list.setfilter( filtrar ) dw_list.filter() end if //dw_list.SetSort('de_articulos') dw_list.sort() dw_list.SetRedraw(true)

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code