listar o menor Preço por Produto e Fornecedor

Leandro Ribeiro · Outubro 23, 2008

Olá galera,

Sou novo aqui no forum, estou precisando de uma ajudinha...

Tenho um sistema onde o admin um periodo para cotação, e lista os produtos para serem cotados.

Os fornecedores tem acesso a uma area apenas para cotar os produtos.

Depois dos produtos cotados preciso listar o Nome do Produto, Nome do Fornecedor, QTD e o menor Preço.

O sistema faz isso, mas duplica alguns produtos: Exemplo:

Prod: Arroz Fornecedor: São João QTD: 20 Preço: R$ 5,45

Prod: Arroz Fornecedor: Brás Pal QTD: 20 Preço: R$ 5,25

O sistema repete o produto entendendo que os dois preços sao menores dos demais, sem que era para listar apenas o com preço R$ 5,25

Segue abaixo o Select que utilizo:

<%SQL = "Select distinct(nome_produto_cotacao),nome_fornecedor, qtd_prod_cotacao, min(preco) as menorpreco from tbl_fornecedor_cotacao group by nome_produto_cotacao, nome_fornecedor, qtd_prod_cotacao"%>

<%Set RS = conexao.execute(sql)%>

Leandro Ribeiro · Outubro 23, 2008

Olá Pessoal,

Sou novo no fórum, estou precisando de uma ajudinha...

Funcionamento do sistema:

1- O admin cadastra um os (periodos para cotação), em seguida libera os produtos que devem ser cotados.

2- Os fornecedores Acessa a área para cotar os produtos.

3- Finalizando o periodo de cotação o Fornecedor Desativa o Periodo de Cotação.

4- O admin precisa gerar um relatório que busque o Nome do produto, Nome do Fornecedor e o menor Preço.

Obserção:Terá varios fornecedores cotando o mesmo produtos, porem o sistema tem que pegar apenas o produto com o menor preço referente ao fornecedor.

Até a etapa 3 Tudo funciona perfeitamente, Já na etapa 4 começam os erros.

O sistema duplica o mesmo produto, lista apenas parte do menor preço....

Alguem sabe como posso fazer isso?

Segue abaixo o Select que utilizei:

<%SQL = "Select distinct(nome_produto_cotacao),nome_fornecedor, qtd_prod_cotacao, min(preco) as menorpreco from tbl_fornecedor_cotacao group by nome_produto_cotacao, nome_fornecedor, qtd_prod_cotacao"%><%Set RS = conexao.execute(sql)%>

Mário Monteiro · Outubro 23, 2008

Nao consegui fazer uma sql que resolve-se de uma vez seu problema, mas acredito que identifiquei o porque do mesmo

Acontece que algum outro produto tem o menor valor igual ao 5,45 que apareceu foi justamente o maximo que consegui aqui nos meus testes e por isso apareceu na lista

Como disse nao consegui finalizar os eu problema mas é neste ponto que precisa atacar pois a query esta considerando todos os registros que tenham valores iguais ao de algum preço minimo de algum produto

Leandro Ribeiro · Outubro 23, 2008

Nao consegui fazer uma sql que resolve-se de uma vez seu problema, mas acredito que identifiquei o porque do mesmo

Acontece que algum outro produto tem o menor valor igual ao 5,45 que apareceu foi justamente o maximo que consegui aqui nos meus testes e por isso apareceu na lista

Como disse nao consegui finalizar os eu problema mas é neste ponto que precisa atacar pois a query esta considerando todos os registros que tenham valores iguais ao de algum preço minimo de algum produto

=====================================================================

Eu fiz alguns teste e consegui fazer com que liste

O problema é que lista apenas 1 produto, ou seja o que tem o menor preço, sendo que era para listar varios produtos com o menor preço entre si,

Da uma olhada:

%SQL = "SELECT DISTINCT nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco FROM tbl_fornecedor_cotacao WHERE preco = (SELECT MIN(preco) FROM tbl_fornecedor_cotacao) group by nome_produto_cotacao,qtd_prod_cotacao,nome_fornecedor,preco"%>

<%Set RS = conexao.execute(sql)%>

Mário Monteiro · Outubro 23, 2008

consegui quase o que quer

SELECT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco
FROM tbl_fornecedor_cotacao GROUP BY nome_produto_cotacao, qtd_prod_cotacao

pega certinho os produtos e os seus menores preços mas nao pega o fornecedor

se nao conseguir montar esta sql e for urgente pode pegar este ultimo dado em um novo select a partir dos valores para pegar o nome do fornecedor

Leandro Ribeiro · Outubro 23, 2008

consegui quase o que quer
SELECT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco
FROM tbl_fornecedor_cotacao GROUP BY nome_produto_cotacao, qtd_prod_cotacao
pega certinho os produtos e os seus menores preços mas nao pega o fornecedor

se nao conseguir montar esta sql e for urgente pode pegar este ultimo dado em um novo select a partir dos valores para pegar o nome do fornecedor

Cara Realmente deu certo, muito bom meus parabéns.... o problema é somente o nome do fornecedor que realmente não ta listando, vou ver o que consigo, se você tiver uma outra idéia, agradeço desde já......

Mário Monteiro · Outubro 23, 2008

testei aqui mas nao consegui, como disse se for urgente e voce nao tiver tempo de procurar esta solucao pode recuperar este outro campo em um select que ficaria dentro do loop que exibiria estes valores

Leandro Ribeiro · Outubro 24, 2008

testei aqui mas nao consegui, como disse se for urgente e voce nao tiver tempo de procurar esta solucao pode recuperar este outro campo em um select que ficaria dentro do loop que exibiria estes valores

Se querer abusar da sua boa voltade, mas como seria esse select, tentei fazer alguns mas nenhum deu certo.... Segue abaixo um dos modelos que fiz...

<%SQL = "SELECT DISTINCT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco FROM tbl_fornecedor_cotacao WHERE nome_fornecedor = (SELECT DISTINCT(nome_fornecedor) FROM tbl_fornecedor_cotacao) GROUP BY nome_produto_cotacao, qtd_prod_cotacao"%><%Set RS = conexao.execute(sql)%>

Mário Monteiro · Outubro 24, 2008

me referi a outro select dentro do loop que voce fara para exibir estes dados

Leandro Ribeiro · Outubro 24, 2008

me referi a outro select dentro do loop que voce fara para exibir estes dados

Olá Mário, desculpa estar lhe incomodando novamente, mas não estou conseguindo.... fiz o seguinte select dentro do loop na celula ao lado do menorpreco:

<%SQL = "Select * from tbl_fornecedor_cotacao order by codigo" Set RS = conexao.execute(sql)%><%=rs("nome_fornecedor")%><%end%>

Assim não deu certo, você tem uma idéia de como seria esse select dentro do loop?

Desde já sou muito grato.....

Mário Monteiro · Outubro 24, 2008

tem qeu usar os outros dados selecionados no select anterior

post aqui como fez o loop e o seu primeiro select como ficou

Leandro Ribeiro · Outubro 24, 2008

tem qeu usar os outros dados selecionados no select anterior

post aqui como fez o loop e o seu primeiro select como ficou

Segue abaixo parte do codigo como foi feito

<%SQL = "SELECT DISTINCT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco FROM tbl_fornecedor_cotacao GROUP BY nome_produto_cotacao, qtd_prod_cotacao"%><%Set RS = conexao.execute(sql)%><%if RS.EOF then%>

<div align="center">Obs: Não há nenhuma Cotação cadastrada pelos fornecedores.</div>

<%else%>

</td>

</tr>

<tr>

</tr>

<tr>

Produto</td>

<td width="331" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1">Fornecedor</td>

<td width="94" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1">Preço</td>

</tr>

<%

while not RS.EOF

if flag = 0 then

flag = 1

bgcolor = "#FFFFFF"

else

flag = 0

bgcolor = "#ECF1F4"

end if

%>

<% Response.write "<tr align=""left"" valign=""top"" bgcolor=" & bgcolor & ">" %>

<tr>

<%SQL = "Select * from tbl_fornecedor_cotacao order by codigo"

Set RS = conexao.execute(sql)%>

<%SQL = "Select nome_fornecedor from tbl_fornecedor_cotacao order by codigo"%>

<%=rs("nome_fornecedor")%><%end%></td>

</tr>

<%

RS.MoveNext

wend

%>

</table>

<%end if%>

Mário Monteiro · Outubro 24, 2008

Aqui

<%SQL = "Select * from tbl_fornecedor_cotacao order by codigo"
Set RS = conexao.execute(sql)%>
<%SQL = "Select nome_fornecedor from tbl_fornecedor_cotacao order by codigo"%>

Mude para

<%SQL = "Select * from tbl_fornecedor_cotacao WHERE nome_produto_cotacao = '" & rs("nome_produto_cotacao") & "' AND qtd_prod_cotacao = " & rs("qtd_prod_cotacao") & " AND preco = " & rs("MenorPreco")
Set RS2 = conexao.execute(sql)%>

note que mudei o nome do RS pois nao pode ser o mesmo mude tambem onde escreve

Leandro Ribeiro · Outubro 24, 2008

Aqui

<%SQL = "Select * from tbl_fornecedor_cotacao order by codigo"
Set RS = conexao.execute(sql)%>
<%SQL = "Select nome_fornecedor from tbl_fornecedor_cotacao order by codigo"%>

Mude para

<%SQL = "Select * from tbl_fornecedor_cotacao WHERE nome_produto_cotacao = '" & rs("nome_produto_cotacao") & "' AND qtd_prod_cotacao = " & rs("qtd_prod_cotacao") & " AND preco = " & rs("MenorPreco")
Set RS2 = conexao.execute(sql)%>

note que mudei o nome do RS pois nao pode ser o mesmo mude tambem onde escreve

Nossa Mário, não funcionou... acho que devo estar colocando no local errado, outro detalhe é que não vi opção para chamar o nome_fornecedor.

Aquele primeiro que você me passou funciona normal, apenas não mostra o nome do fornecedor, e nesse último agora não funcionou da um erro.

1- CODE que você me passou:

<%SQL = "SELECT DISTINCT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco FROM tbl_fornecedor_cotacao GROUP BY nome_produto_cotacao, qtd_prod_cotacao"%><%Set RS = conexao.execute(sql)%>

Esse lista certo, so o nome do fornecedo que não aparece...

Mário Monteiro · Outubro 24, 2008

posta o codigo desta page

Leandro Ribeiro · Outubro 24, 2008

posta o codigo desta page

<!--#include file="conexao.asp"-->
<!--#include file="seguranca_admin.asp"-->
<script language="JavaScript" src="bibleScripts/oncopyright.js"></script>
<script language="JavaScript" src="bibleScripts/onerror.js"></script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>centro</title>

<style type="text/css">
<!--
body {
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(images/acon_17.jpg);
}
.style1 {	font-family: Arial, Helvetica, sans-serif;
	font-size: 16px;
	font-weight: bold;
	color: #666666;
}
.style32 {font-size: 12px; color: #000000; font-family: Arial, Helvetica, sans-serif; }
.style12 {font-size: 14px}
.style37 {color: #666666}
.style39 {	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 11px;
	font-weight: bold;
}
.style40 {
	color: #990000;
	font-weight: bold;
}
.style38 {	font-size: 11px;
	color: #000000;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style41 {	color: #990000;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
-->
</style>
<style type="text/css">
<!--
#loading {
	border:#93a1c0 solid; 
 	width: 300px;
 	height: 100px;
 	background-color: #dbdeef;
 	position: absolute;
 	left: 50%;
 	top: 50%;
 	margin-top: -50px;
 	margin-left: -100px;
 	text-align: center;
}
.style33 {	color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
<script type="text/javascript">

document.write('<div id="loading"><br><br><font size="-1" color="#41416b" face="verdana"><b>Aguarde... Carregando a Listagem!</b></font></div>');


function addLoadEvent(func) {
  var oldonload = window.onload;
  if (typeof window.onload != 'function') {
	window.onload = func;
  } else {
	window.onload = function() {
	  if (oldonload) {
		oldonload();
	  }
	  func();
	}
  }
}

addLoadEvent(function() {
  document.getElementById("loading").style.display="none";
});
//-->
</script>
<script type="text/javascript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
	var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
	if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
	d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
<script>
function valida()
{
if(document.busca.busca.value == "")
{alert("Digite o Nome do Cliente no campo Pesquisar!");
this.busca.busca.focus();
return false;}

}
</script>
</head>
<link href="estilo.css" rel="stylesheet" type="text/css" />

<body onLoad="MM_preloadImages('images/btn_fechar2.gif')">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td width="100%" height="205" colspan="2" align="center" valign="top"><table width="98%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#9aa8c8">
		<tr>
		  <td width="96%" height="35" valign="middle" background="images/mw_27.jpg"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			  <tr>
				<td width="94%" height="36"><span class="style1"><img src="images/ico_comerc.gif" width="28" height="28" align="absmiddle"> <span class="style37">Relatório por Produtos Cotado (Menor Preço)</span></span></td>
				<td width="6%" align="right" valign="middle"><a href="centro_admin.asp"><img src="images/btnfechar.gif" alt="Fechar" width="32" height="33" border="0"></a></td>
			  </tr>
		  </table></td>
		</tr>
		<tr>
		  <td height="143"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="5" bgcolor="#F2F4F9">
			  <tr>
				<td height="131" valign="top"><table width="100%" border="0" align="center">
				  
				  <tr>
					<td colspan="2" class="style32"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td height="213" colspan="3" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="left" valign="top"><td width="1236" colspan="2" valign="top" class="style12"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td align="left" valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
					  <tr>
						<td height="213" colspan="3" align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
							<!--DWLayoutTable-->
							<tr align="left" valign="top">
							  <td width="1" height="184" class="style12"></td>
							  <td width="1236" colspan="2" valign="top" class="style12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
								  <tr>
									<td align="left" valign="top"></td>
								  </tr>
								  
								  <tr>
									<td align="left" valign="top"><table width="100%" border="0">
									  <tr>
										<td colspan="2"><strong class="style33"><font color="#666666" size="4"><strong class="style33"><font color="#666666" size="4"><strong>
										  <%SQL = "Select * from tbl_fornecedor_cotacao" 
										  Set RS = conexao.execute(SQL)%>
										</strong></font></strong></font></strong><strong>Relatório Gerado: </strong><%=date%> - <%=time%> - <span class="style39">Administrador:</span> <%=Session("nome")%>   </td>
									  </tr>
									  <tr>
										<td colspan="2"> </td>
									  </tr>
									  <tr>
										<td colspan="2"><strong>Período de Cotação:</strong>  <%=rs("datai_cotacao")%> - <%=rs("dataf_cotacao")%> </td>
									  </tr>
									  <tr>
										<td colspan="2"><strong>Mês:</strong><%=rs("mes_periodo_cotacao")%>  -  <strong>Cond. Pgto: </strong><%=rs("cond_pgto_cotacao")%></td>
									  </tr>
									  <tr>
										<td width="17%"> </td>
										<td width="83%"> </td>
									  </tr>
									</table></td>
								  </tr>
								  <tr>
									<td align="left" valign="top"><strong><font color="#666666">
<%SQL = "SELECT DISTINCT nome_produto_cotacao, qtd_prod_cotacao, Min(preco) AS MenorPreco FROM tbl_fornecedor_cotacao GROUP BY nome_produto_cotacao, qtd_prod_cotacao"%><%Set RS = conexao.execute(sql)%><%if RS.EOF then%>
									  <br>
									</font> </strong>
									  <div align="center"><font size="2" color="#666666"><strong>Obs:</strong></font><font color="#666666"><strong><font size="2"> Não há nenhuma Cotação cadastrada pelos fornecedores.</font></strong></font></div>
									  <p> <font color="#666666">
										<%else%>
									  </font></td>
								  </tr>
								  
								  <tr>
									<td valign="middle"> </td>
									</tr>
								  
								  <tr>
									<td align="left" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="3" bordercolor="#9aa8c8" style="border-collapse: collapse">
										  <tr align="center" bgcolor="#999999">
											<td width="353" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1"><font size="2"> 
											  Produto</font></td>
											<td width="40" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1"><font size="2">QTD</font></td>
											<td width="331" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1"><font size="2">Fornecedor</font></td>
											<td width="94" height="33" align="left" valign="middle" background="images/mw_27.jpg" bgcolor="#9AA8C8" class="style1"><font size="2">Preço</font></td>
											</tr>
										  <%
			  while not RS.EOF
			  
			  if flag = 0 then
			  flag = 1
			  bgcolor = "#FFFFFF"
			  else
			  flag = 0
			  bgcolor = "#ECF1F4"
			  end if
			  %>
										  <% Response.write "<tr align=""left"" valign=""top"" bgcolor=" & bgcolor & ">" %>
										  <tr>
											<td width="353" height="26" align="left" valign="middle" class="style32"><%=rs("nome_produto_cotacao")%></td>
											<td width="40" align="left" valign="middle" class="style32"><%=rs("qtd_prod_cotacao")%></td>
											<td width="331" align="left" valign="middle" class="style32">
<%SQL = "Select * from tbl_fornecedor_cotacao WHERE nome_produto_cotacao = '" & rs("nome_produto_cotacao") & "' AND qtd_prod_cotacao = " & rs("qtd_prod_cotacao") & " AND nome_fornecedor = " & rs("nome_fornecedor") & " AND preco = " & rs("MenorPreco")
Set RS2 = conexao.execute(sql)%><%=rs2("nome_fornecedor")%></td>
											<td width="94" align="left" valign="middle" class="style32 style40"><%=formatcurrency(rs("MenorPreco"))%></td>
											</tr>
										  <%
RS.MoveNext
wend
%>
										</table>
									  <font color="#666666">
										<%end if%>
									  </font></td>
								  </tr>
							  </table></td>
							</tr>
						</table>
						  <div align="left"></div></td>
					  </tr>
					</table></td>
									</tr>
					</table>								</td>
							</tr>
					</table></td>
					  </tr>
					</table></td>
					</tr>
				  <tr>
					<td colspan="2" class="style32"></td>
					</tr>
				  

				  <tr>
					<td align="left" class="style32"><p> </p></td>
					<td align="right" class="style32"><a href="gerar_wordmpreco.asp"><img src="images/btn_salvaWord.gif" width="183" height="58" border="0"></a> <a href="imprimir_rel_menor_preco.asp" target="_blank"><img src="images/btn_imprimir1.gif" alt="Preparar Relatório para Impressão" width="183" height="58" border="0"></a></td>
				  </tr>
				  <tr>
					<td width="48%" class="style32"> </td>
					<td width="52%" class="style32"> </td>
				  </tr>
				  <tr align="right">
					<td colspan="2" class="style32"><hr></td>
					</tr>
				  <tr>
					<td colspan="2" align="left" class="style32"><a href="centro_admin.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('btn_Fechar','','images/btn_fechar2.gif',1)"><img src="images/btn_fechar1.gif" name="btn_Fechar" width="73" height="21" border="0"></a><a href="centro.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('btn_Fechar','','images/btn_ok2.gif',1)"></a></td>
					</tr>
				  
				</table>				
				</td>
			  </tr>
		  </table></td>
		</tr>
	  </table>
	</td>
  </tr>
</table>

</body>
</html>

Mário Monteiro · Outubro 24, 2008

ta como queria mesmo

que erro que deu?

Leandro Ribeiro · Outubro 24, 2008

ta como queria mesmo

que erro que deu?

O erro que esta ocorrendo Mário é o seguinte:

ADODB.Recordset erro '800a0cc1'

O item não pode ser encontrado na coleção

Correspondente ao nome ou ao ordinal solicitado.

/sistema/relatorio_menor_preco.asp, line 224

Mário Monteiro · Outubro 24, 2008

qual a linha exata?

Leandro Ribeiro · Outubro 24, 2008

qual a linha exata?

É a linha 224

Arquivado

listar o menor Preço por Produto e Fornecedor

Recommended Posts

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leandro Ribeiro 0