|
|
Postada em 20/10/2005 07:54 hs
amigos estou tendo um problema, gerei um relatorio via codigo no VB , com seleção do vendedor para o relatorio, portanto tenho q selecionar o vendedor para gerar,so que. se eu selecionar um vendedor.. ele lista beleza.. so q depois se eu listar outro vendedor ele so lista o anterior,, ai tenho q fechar o programa e abrir novamente para listar outro representante..
assim ele so lista o primeiro vendedor q escolhi..
|
|
|
|
|
|
|
|
Postada em 20/10/2005 08:02 hs
NEM FAZENDO UM REFRESH NO DATAREPORT ELE ATUALIZA?
dsmn
|
|
|
|
|
|
Postada em 20/10/2005 08:10 hs
Daniel, acabei de fazer o teste, e realmente não deu certo..
segue abaixo meu codigo..
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES,"
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST,"
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.Commands("TABPES").CommandText = Sql
DataReport1.Show
|
|
|
|
|
|
Postada em 20/10/2005 13:41 hs
Caro amigo Valmir, o seu problema é simples....vc precisa somente fechar e abrir a tabela antes de iniciciar o relatorio...ex.:
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES,"
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST,"
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.rsTABPES.close
DataEnvironment1.rsTABPES.Open Sql
'DataEnvironment1.Commands("TABPES").CommandText = Sql
DataReport1.Show
qquer coisa avise,
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
|
Postada em 20/10/2005 15:06 hs
Alexandre, é o seguinte, nao deu certo, pois coloquei os comandos que me passou, a primeira vez ele faz belezinha, na proxima vez ele me fala q o arquivo o arquivo ja esta aberto e q nao é possivel abrir um arquivo ja aberto.. o codigo ficou o seguinte
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES, TABPES.DESEND, "
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST, TABPES.NUMTLF, "
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.rsTABPES.Open Sql
DataEnvironment1.rsTABPES.Clone
DataReport1.Show
o erro é o seguinte.
Operation is not allowed when the object is open
->Operação não é permitida quando o objeto estiver aberto
|
|
|
|
|
|
Postada em 20/10/2005 19:23 hs
Voce tem q fazer o tratamento de erro, ex.:
On Error Resume Next
Sql = "SELECT TABPES.NOMREP, TABPES.NOMPES, TABPES.CODPES, TABPES.DESEND, "
Sql = Sql & "TABPES.NOMBAI, TABPES.NUMCGC, TABPES.INSEST, TABPES.NUMTLF, "
Sql = Sql & "TABCID.NOMCID, TABCID.UNDFED FROM [TABPES] "
Sql = Sql & "LEFT JOIN TABCID ON (TABCID.CODCID = TABPES.CODCID) "
Sql = Sql & "WHERE NOMREP = '" & NOMREP.Text & "'"
Sql = Sql & "order by TABPES.NOMPES"
DataEnvironment1.rsTABPES.Close
DataEnvironment1.rsTABPES.Open Sql
DataReport1.Show Agora de ve funcionar....
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
|
