Condição IF

[Boris 0]

ele geraalgum erro !?!?!

 

Então eu fiz assim

while loja<>"loja"
	response.write ObjRS("loja")&"<br>"
		
		While formapagamento<>"formapagamento"
			
			response.write ObjRS("formapagamento")&" - "&ObjRS("total")&"<br>"
			
			ObjRS.movenext
		wend
ObjRS.movenext
wend

E está aparecendo assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

E deveria aparecer assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

 

MORUMBI

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

 

 

Não esta me separando por loja.

[Boris 0]

consegui resolver assim:

 

While not objrs.eof
	if loja<>objrs("loja") then
		loja=objrs("loja")
		response.Write("<BR><BR>"&loja&"<BR>")
	end if
		

		if formapagamento="dinheiro" then 
			v_dinheiro= objRS("total")
			else
			v_dinheiro="0,00"
		end if
	
		if formapagamento="cheque" then 
			v_cheque= objRS("total")
		else
			v_cheque="0,00"
		end if
		
		if formapagamento="cartao" then
			v_cartao= objRS("total")
		else  
			v_cartao="0,00"
		end if

			response.Write v_dinheiro&"<br>"
			response.Write v_cartao&"<br>"
			response.Write v_cheque&"<br>"
	
ObjRS.movenext


			
wend

Porem não estou conseguindo alimentar as variaveis.

 

e mostrar as mesmas...

[xanburzum 169]

você ker apenas k o layout fike assim:

 

E está aparecendo assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

E deveria aparecer assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

 

MORUMBI

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

você colocar no loop um <br> para dar a kebra de linha...

[Boris 0]

você ker apenas k o layout fike assim:

 

E está aparecendo assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

E deveria aparecer assim

 

CENTER NORTE (NOVA)

CARTAO - 11750,2

CHEQUE - 342,43

DINHEIRO - 2742,24

VALE FUNCIONARIO - 533,2

 

MORUMBI

CARTAO - 6945,6

CHEQUE - 706,91

DINHEIRO - 603,89

VALE FUNCIONARIO - 431,22

 

você colocar no loop um <br> para dar a kebra de linha...

 

 

Eu já tenho os campos

Dinheiro

Cheque

Cartão

Vale Funcionario

 

E seria algo assim

 

LOJA

 

Dinheiro: <% v_dinheiro %>

Cheque: <% v_cheque %>

Cartao: <% v_cartao %>

Vale Funcinairo: <% v_v_Funcionario %>

 

LOJA2

 

Dinheiro: <% v_dinheiro %>

Cheque: <% v_cheque %>

Cartao: <% v_cartao %>

Vale Funcinairo: <% v_v_Funcionario %>

 

Entendeu, é que da maneira que está ele vai colocar da maneira que o loop encontra

e eu queria colocar as informações na variavel em uma determinada ordem que eu mesmo possa definir.

[xanburzum 169]

mas você apenas recuperando os dados e inserindo em seu layout especifico, você naun consegue,

apenas colocando ele no loop, sendo o nome da loja primeiro e depois as outras info...

[Boris 0]

Eu coloquei porem aparece da seguinte forma...

 

CENTER NORTE (NOVA)

Dinheiro: 0,00

CARTÃO: 11750,2

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 342,43

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 2742,24

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 533,2

CHEQUE: 0,00

 

 

MORUMBI

Dinheiro: 0,00

CARTÃO: 6945,6

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 706,91

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 603,89

CHEQUE: 0,00

Dinheiro: 0,00

CARTÃO: 431,22

CHEQUE: 0,00

 

 

 

 

 

	formapagamento = Lcase(Trim(Cstr("" & objRS("formapagamento"))))
	

While not objrs.eof
	if loja<>objrs("loja") then
		loja=objrs("loja")
		response.Write("<BR><BR>"&loja&"<BR>")
	end if
		

		if formapagamento="dinheiro" then 
			v_dinheiro= objRS("total")
			else
			v_dinheiro="0,00"
		end if
	
		if formapagamento="cheque" then 
			v_cheque= objRS("total")
		else
			v_cheque="0,00"
		end if
		
		if formapagamento="cartao" then
			v_cartao= objRS("total")
		else  
			v_cartao="0,00"
		end if

			response.Write ("Dinheiro: "&v_dinheiro&"<br>")
			response.Write ("CARTÃO: "&v_cartao&"<br>")
			response.Write ("CHEQUE: "&v_cheque&"<br>")
	
ObjRS.movenext


			
wend