|
Postada em 14/10/2007 15:52 hs
Ámigos, após exeutar minha sql no access ela está me retornando os registros certinho, acontece que na tabela ela fica assim: cod descricao valor Valor do custo complemento data_movimento 123 teste 6,80 1,80 furo 12/10/2007 123 teste 6,80 2,30 montar 12/10/2007 123 teste 6,80 1,20 embalar 13/10/2007 é o mesmo produto, acontece que eu gostaria de imprimir esse produto, só que ele está saindo os 3 registros pq eu dou um loop e na vedade ele deveria de sair um só: O relatório deveria de sair assim: cod descricao valor 123 teste 6,80 Complemento valor do custo data movimento furo 1,80 12/10/2007 montar 2,30 12/10/2007 embalar 1,20 13/10/2007 é possível isso ?
|
|
|
|
|
Postada em 15/10/2007 00:49 hs
Como vc imprime o relatório colega?? Dependendo do caso poderia fazer assim: rs.sort = "cod ASC" DO while no RS.EOF IF strCOD <> RS("COD") THEN PRINTER.PRINT PRINTER.PRINT RS("COD"); RS("DESCRICAO"); RS("VALOR") strCOD = RS("COD") ENDIF PRINTER.PRINT RS("COMPLEMENTO");RS("VALOR_CUSTO");RS("DATA") RS.MOVENEXT LOOP Aí vc adapta de acordo com as suas necessidades. Qualquer dúvida é só postar. at+
|
|
|
|
Postada em 16/10/2007 19:17 hs
Não funcionou, se eu tenho 3 serviços para cada produto ele está pegando o código e mostrando um código para cada produto! ex: 123 teste 6,80 furo 1,80 12/10/2007 123 teste 6,80 montar 2,30 12/10/2007 123 teste 6,80 embalar 1,20 12/10/2007 Obrigado
|
|
|
|
Postada em 17/10/2007 01:41 hs
Colega o código que passei eu testei e funciona, ao menos o que entendi, só que errei ao digitar. Veja se vc colocou "no" ao invés de "NOT" conforme exemplo destacado abaixo: rs.sort = "cod ASC" DO while NOT RS.EOF IF strCOD <> RS("COD") THEN PRINTER.PRINT PRINTER.PRINT RS("COD"); RS("DESCRICAO"); RS("VALOR") strCOD = RS("COD") ENDIF PRINTER.PRINT RS("COMPLEMENTO");RS("VALOR_CUSTO");RS("DATA") RS.MOVENEXT LOOP
|
|
|
|
Postada em 17/10/2007 17:49 hs
Ghost_ilp e o resultado está retornando assim ? cod descricao valor 123 teste 6,80 Complemento valor do custo data movimento furo 1,80 12/10/2007 montar 2,30 12/10/2007 embalar 1,20 13/10/2007 Obrigado
|
|
|
|
Postada em 17/10/2007 18:03 hs
Ghost_ilp, desculpas, eu vi um erro meu, funcionou sim, obrigado
|
|
|
|