C# test

Java code posted by Noman
created at 08 Jul 16:07, updated at 24 Nov 16:44

Edit | Back
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
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)
2.48 KB in 5 ms with coderay