3 replies to this topic

[jjaugustoo]

Olá a todos!
Alguém pode me ajudar nesta.
Como Mesclar Células dentro do loop asp?
Estou fazendo um “Select Count ”em uma tabela onde mostra vários dados repetidos.
Tipo o mesmo numero de requisição aparece mais de uma vez para varias situações: Exemplo disponível, Ocupado.
Gostaria de mesclar a célula onde este numero aparecesse uma vez só.
Tipo o Excel.

Attached Files

•  Plan.GIF   13.75KB   8 downloads

Edição feita por: jjaugustoo, 21/02/2008, 14:36.

[Mochii]

N deve ser a melhor maneira, mas sempre dah para arrumar uma gambiarra!! hehe

Bom

Eu optaria em Selecionar a requisição e na cédula do lado abrir uma tabela e listar as informações desta requisição

Por exemplo

<%sql = "SELECT DISTINCT requisicao FROM tabela ORDER BY requisicao"
set rsReq = Server.Create("ADODB.Recordset")
rsReq.Open sql, conexao, 3, 3%>


<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%rsReq.Movefirst
do until rsReq.EOF


requisicao = Req("requisicao")%>


  <tr>
	<td>&nbsp;</td>
	<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%sql2 = "SELECT * FORM tabela WHERE requisicao = '"&requisicao&"'"
set rsReq2 = Server.Create("ADODB.Recordset")
rsReq2.open sql2, conexao, 3, 3

rsReq2.Movefirst
do until rsReq.EOF%>

	  <tr>
		<td>&nbsp;</td>
	  </tr>

<%rsReq2.Movenext
loop%>

	</table>
</td>
  </tr>

<%rsReq.Movenext
loop%>

</table>

obs: "SELECT DISTINCT requisicao FROM tabela ORDER BY requisicao"


DISTINCT não repete numeros iguais!!
Mesmo se houver duas ou mais requisições de mesmo numero, ela irá listar apenas uma

XD espero ter ajudado, qualquer coisa estamos ai

flww abraço!

Edição feita por: Mochii, 21/02/2008, 18:12.

[jjaugustoo]

N deve ser a melhor maneira, mas sempre dah para arrumar uma gambiarra!! hehe

Bom

Eu optaria em Selecionar a requisição e na cédula do lado abrir uma tabela e listar as informações desta requisição

Por exemplo

<%sql = "SELECT DISTINCT requisicao FROM tabela ORDER BY requisicao"
set rsReq = Server.Create("ADODB.Recordset")
rsReq.Open sql, conexao, 3, 3%>


<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%rsReq.Movefirst
do until rsReq.EOF


requisicao = Req("requisicao")%>


  <tr>
	<td>&nbsp;</td>
	<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%sql2 = "SELECT * FORM tabela WHERE requisicao = '"&requisicao&"'"
set rsReq2 = Server.Create("ADODB.Recordset")
rsReq2.open sql2, conexao, 3, 3

rsReq2.Movefirst
do until rsReq.EOF%>

	  <tr>
		<td>&nbsp;</td>
	  </tr>

<%rsReq2.Movenext
loop%>

	</table>
</td>
  </tr>

<%rsReq.Movenext
loop%>

</table>

obs: "SELECT DISTINCT requisicao FROM tabela ORDER BY requisicao"


DISTINCT não repete numeros iguais!!
Mesmo se houver duas ou mais requisições de mesmo numero, ela irá listar apenas uma

XD espero ter ajudado, qualquer coisa estamos ai

flww abraço!

Muito obrigado pela ajuda, funcionou perfeitamente.

[hdcyberman]

Pessoal, estou precisando justamente do codigo abaixo, mas nao to conseguindo botar pra rodar..
Uso um banco sql. Qual é a minha necessidade nesse codigo? na clausula Where ela identifica se um cliente em titulos em aberto e retorna alguns campos. só que um cliente pode ter mais de um titulo. entao usei o codigo de voces pra filtrar pelo codigo do cliente, pra listar os titulos.
Atualmente da o seguinte erro:

Microsoft OLE DB Provider for SQL Server error '80040e07'
Syntax error converting the varchar value 'E085HCL.CODCLI' to a column of data type int.
/intranet/requisicao.asp, line 31


Vejam se podem me ajudar!! Por favor!

<%
SevidorDeBancoDeDados = "X.X.X.X"
BancoDeDados = "XXXXX"
UsuarioDoBancoDeDados = "XXX"
SenhaDoBancoDeDados = "XXX"%>

<%Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "Provider=SQLOLEDB.1; SERVER=" & SevidorDeBancoDeDados & "; DATABASE=" & BancoDeDados & "; UID=" & UsuarioDoBancoDeDados & "; PWD=" & SenhaDoBancoDeDados & ";"
set RsTemp=Conexao.execute("SELECT DISTINCT E085HCL.CODCLI FROM E301TCR, E085CLI, E085HCL, E039POR, E001TNS, E002TPT, E070FIL, E070EMP WHERE"+_
"(((E085HCL.CODCLI = E301TCR.CODCLI) AND (E085HCL.CODEMP = E301TCR.CODEMP) AND "+_
"(E085HCL.CODFIL = E301TCR.CODFIL))) AND ((E301TCR.CODEMP = 1)) AND ((E301TCR.CODFIL = 1) OR "+_
"(E301TCR.CODFIL = 9999)) AND ((E301TCR.CODREP = 42)) AND ((E301TCR.CODEMP = E001TNS.CODEMP) AND"+_
"(E301TCR.CODTNS = E001TNS.CODTNS) AND (E301TCR.CODEMP = E039POR.CODEMP) AND (E301TCR.CODPOR ="+_
"E039POR.CODPOR) AND (E301TCR.CODEMP = E070EMP.CODEMP) AND (E301TCR.CODEMP = E070FIL.CODEMP) AND"+_
"(E301TCR.CODFIL = E070FIL.CODFIL) AND (E301TCR.CODCLI = E085CLI.CODCLI) AND ((E085HCL.CODCLI = E301TCR.CODCLI)"+_
"AND (E085HCL.CODEMP = E301TCR.CODEMP) AND (E085HCL.CODFIL = E301TCR.CODFIL)) AND (E301TCR.CODTPT = E002TPT.CODTPT))"+_
"AND ((E301TCR.VLRABE > 0 ) AND (E301TCR.VCTPRO + E039POR.FLOBAN + E085HCL.MEDATR <= CONVERT(DATETIME, '24-03-2008'))) ORDER BY E085HCL.CODCLI")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">

<%RsTemp.Movefirst
do until rsTemp.EOF
requisicao = ("E085HCL.CODCLI")
%>
<tr>
<td>&nbsp;</td>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%Set Conexao2 = Server.CreateObject("ADODB.Connection")
Conexao2.Open "Provider=SQLOLEDB.1; SERVER=" & SevidorDeBancoDeDados & "; DATABASE=" & BancoDeDados & "; UID=" & UsuarioDoBancoDeDados & "; PWD=" & SenhaDoBancoDeDados & ";"
set RsTemp2=Conexao2.execute("SELECT E301TCR.NUMTIT,E301TCR.CODTPT FROM E301TCR, E085CLI, E085HCL, E039POR, E001TNS, E002TPT, E070FIL, E070EMP WHERE"+_
"(((E085HCL.CODCLI = E301TCR.CODCLI) AND (E085HCL.CODEMP = E301TCR.CODEMP) AND "+_
"(E085HCL.CODFIL = E301TCR.CODFIL))) AND ((E301TCR.CODEMP = 1)) AND ((E301TCR.CODFIL = 1) OR "+_
"(E301TCR.CODFIL = 9999)) AND ((E301TCR.CODREP = 42)) AND ((E301TCR.CODEMP = E001TNS.CODEMP) AND"+_
"(E301TCR.CODTNS = E001TNS.CODTNS) AND (E301TCR.CODEMP = E039POR.CODEMP) AND (E301TCR.CODPOR ="+_
"E039POR.CODPOR) AND (E301TCR.CODEMP = E070EMP.CODEMP) AND (E301TCR.CODEMP = E070FIL.CODEMP) AND"+_
"(E301TCR.CODFIL = E070FIL.CODFIL) AND (E301TCR.CODCLI = E085CLI.CODCLI) AND ((E085HCL.CODCLI = E301TCR.CODCLI)"+_
"AND (E085HCL.CODEMP = E301TCR.CODEMP) AND (E085HCL.CODFIL = E301TCR.CODFIL)) AND (E301TCR.CODTPT = E002TPT.CODTPT))"+_
"AND ((E301TCR.VLRABE > 0 ) AND (E301TCR.VCTPRO + E039POR.FLOBAN + E085HCL.MEDATR <= CONVERT(DATETIME, '24-03-2008'))) AND E085HCL.CODCLI = '"&requisicao&"'")
do until RsTemp.EOF%>
<tr>
<td>&nbsp;</td>
</tr>
<%RsTemp2.Movenext
loop%>
</table>
</td>
</tr>
<%rsReq.Movenext
loop%>
</table>