Jump to content
Fórum Script Brasil

nandomneto

Membros
  • Posts

    13
  • Joined

  • Last visited

About nandomneto

Recent Profile Visitors

634 profile views

nandomneto's Achievements

0

Reputation

  1. [Essa opçao nem aparece.Se você puder postar um exemplo simples pra mim eu te agradeço muito.já tentei de tudo pra agrupar por vendedor escolhendo um periodo de datas e não consigo.
  2. Consegue. Quando você cria um Command, ele tem uma aba de agrupamento, lá você seleciona os campos que quer agrupar, seu Command vai mudar de nome automaticamente, aí no DataReport você seleciona esse Command agrupado e manda bala. Mais como fáço pra utilizar DataEnvironment1.rsCommand1_Grouping.Filter = "dt_contrato= '2008/02/12'" se esse campo não esta rsCommand1_Grouping.Filter. como consigo filtrar um campo que não esta no agrupamento.Se eu fizer isso da erro.
  3. O seu join está certo.Agora faça o seguinte: 1 - Agrupe pelo metodo Command1_Grouping do command1 o campo T1.Campo1 2 - No Datareporte selecione Datasource = DataEnvironment1 e Datamenber = Command1_Grouping 3 - Agora com o botão direto do mouse em cima do datareport clic e escolha Retrieve structure 4 - Agora no goupheader coloque o campo T1.Campo1 que você agrupou e no Detail coloque o campo T2.Campo2 Perfeito o relatorio esta sendo agrupado e aparecendo os dados corretos.Bem agora vem o problema. 5 - Crie um botão e coloque: DataEnvironment1.rsCommand1_Grouping.Filter = "T2.Campo2= 'TESTE'" DataReport1.Show Ai está o problema, não consigo gerar o relatorio.Se você poder me ajudar eu agradeço muito.
  4. você está correto.So que o problema é o seguinte.Quando eu gero dois comandos ex: Command1 e command2 sendo command2 filho de command1. E estruturo o datareport.Fica tuso tranquilo sem problema.Mais o problema aparece quando jogo o filtro.Ele so filtra os campos que estao no command1.ex: Commad1 tem vendedor e command2 tem suas vendas.Se eu peddir pra filtrar os vendedores o filtro funciona normal, mas se eu filtrar vendedor e a data da venda, não funciona.não sei mais o que fazer pra resolver isso.
  5. Já tentei colocar tipo: DataEnvironment1.rsCommand1_Grouping.Filter = "desc_vendedor like 'D%' AND valor venda >= '100' mas continua com erro.Quanquer campo que não esteja no rsCommand1_Grouping ele não faz a pesquisa.So faz com desc_vendedor que é o campo que esta no rsCommand1_Grouping.Por favor me ajudemmmmm, tenho um prazo pra entregar isso.Se alguém puder me ajudar eu agradeço muito.
  6. Entendi o que você quiz dizer.Mas ainda não resolveu o meu problema. Tipo se eu criu um command1 ligando duas tabelas perfeito!.Mas como consigo agrupar? e depois pesquisar por data. ex: Tabela x Cod_vendedor nome Tabela y Data venda valor venda Agora eu preciso agrupar por vendedor e pesquisar por data da venda. Isso no Datareport usando Dataenvironment.Isso que não consigo fazer. DataEnvironment1.rsCommand1_Grouping.Filter = "desc_vendedor like 'D%' AND data venda >= '01/01/2008' quando utilizo esse comando sempre dá a seguinte mensagem "Failed Getting Rowset(s) from current Data Source".Lembrando que o que esta agrupado é so o vendedor. A ideia é o relatorio aparecer assim: --------------------------------------------------------------- Vendedor: Paulo --------------------------------------------------------------- 01/01/2008 300,00 05/01/2008 100,00 --------------------------------------------------------------- Vendedor: Sandro --------------------------------------------------------------- 01/01/2008 400,00 ---------------------------------------------------------------
  7. Estou com um problema em relaçao ao DataReport com o Dataenvironment.Tenho dois comandos o Command1 e o seu filho Command2.Os dois estão relacionados.Quando faço uma pesquisa com o Dataenvironment1.rsCommand1.Filter = "vendedor='A%'" tudo certo a pesquisa sai corretamente.Mais quando utilizo Dataenvironment1.rsCommand1.Filter = "vendedor='A%' and datavenda ='05/05/2007'" mostra o seguinte erro "Failed Getting Rowset(s) from current Data source".Não sei o porque da mensagem.O campo vendedor esta no Command1 e o datavenda no Command2 como os dois estao relacionados acho que o filtro deveria ser feito mais não faz.Se eu deixar Dataenvironment1.rsCommand1.Filter = "vendedor='A%', ai funciona.porque não funciona com os campos do command2.Se alguém puder me ajudar eu gradeço muito.
  8. O codigo abaixo eu uso para gerar um arquivo xml.So que presiso que o mesmo seja validada e fique no schema que a ans pede pra mim.Como faço isso em visual basic.não estou conseguindo resolver isso.Quem puder me ajudar o codigo que eu usa é esse descrito abaixo. Set obxml = CreateObject("microsoft.xmldom") obxml.async = False obxml.Load ("C:\tiss.xml") Set xmlElement = obxml.createProcessingInstruction("xml", " version=""1.0"" encoding=""ISO-8859-1""") obxml.appendChild xmlElement Set obraiz = obxml.createElement("mensagemTISS") obxml.appendChild obraiz Set objno0 = obxml.createElement("cabecalho") obraiz.appendChild objno0 Set objno1 = obxml.createElement("indentificacaoTransacao") objno0.appendChild objno1 Set objinfo = obxml.createElement("tipotransacao") objinfo.Text = "ENVIO_LOTE_GUIAS" objno1.appendChild objinfo Set objinfo = obxml.createElement("sequencialTransacao") objinfo.Text = "3" objno1.appendChild objinfo Set objinfo = obxml.createElement("dataRegistroTransacao") objinfo.Text = "2007-09-28" objno1.appendChild objinfo Set objinfo = obxml.createElement("horaRegistroTransacao") objinfo.Text = "12:38:00" objno1.appendChild objinfo Set objno2 = obxml.createElement("origem") objno0.appendChild objno2 Set objno3 = obxml.createElement("codigoPrestadornaoperadora") objno2.appendChild objno3 Set objinfo = obxml.createElement("cpf") objinfo.Text = "02447550278" objno3.appendChild objinfo Set objno3 = obxml.createElement("destino") objno0.appendChild objno3 Set objinfo = obxml.createElement("registroAns") objinfo.Text = "323080" objno3.appendChild objinfo Set objinfo = obxml.createElement("versaoPadrao") objinfo.Text = "2.01.02" objno0.appendChild objinfo Set objno4 = obxml.createElement("prestadorParaOperadora") obraiz.appendChild objno4 Set objno5 = obxml.createElement("loteGuias") objno4.appendChild objno5 Set objinfo = obxml.createElement("numeroLote") objinfo.Text = "2" objno5.appendChild objinfo Set objno6 = obxml.createElement("guias") objno5.appendChild objno6 Set objno7 = obxml.createElement("guiaFaturamento") objno6.appendChild objno7 ' --------> Inicio do loop Set objno8 = obxml.createElement("guiaConsulta") objno7.appendChild objno8 Set objno9 = obxml.createElement("identificacaoguia") objno8.appendChild objno9 Set objinfo = obxml.createElement("registroAns") objinfo.Text = "323080" objno9.appendChild objinfo Set objinfo = obxml.createElement("dataEmissaoGuia") objinfo.Text = "2007-08-26" objno9.appendChild objinfo Set objinfo = obxml.createElement("numeroGuiaPrestador") objinfo.Text = "CS590709260000000000" objno9.appendChild objinfo Set objinfo = obxml.createElement("numeroGuiaOperadora") objinfo.Text = "753398530-5" objno9.appendChild objinfo Set objno10 = obxml.createElement("beneficiario") objno8.appendChild objno10 Set objinfo = obxml.createElement("numeroCarteira") objinfo.Text = "4245693010" objno10.appendChild objinfo Set objinfo = obxml.createElement("nomebeneficiario") objinfo.Text = "DOMINGAS D. ALCANTARA" objno10.appendChild objinfo Set objinfo = obxml.createElement("nomePlano") objinfo.Text = "GEAP SAUDE" objno10.appendChild objinfo Set objinfo = obxml.createElement("validadeCarteira") objinfo.Text = "2008-08-31" objno10.appendChild objinfo Set objno11 = obxml.createElement("dadosContratado") objno8.appendChild objno11 Set objno12 = obxml.createElement("identificacao") objno11.appendChild objno12 Set objinfo = obxml.createElement("cpf") objinfo.Text = "02447550278" objno12.appendChild objinfo Set objinfo = obxml.createElement("nomeContratado") objinfo.Text = "IREALVO DE JESUS BRITO" objno11.appendChild objinfo Set objno13 = obxml.createElement("enderecoContratado") objno11.appendChild objno13 Set objinfo = obxml.createElement("tipoLogradouro") objinfo.Text = "081" objno13.appendChild objinfo Set objinfo = obxml.createElement("logradouro") objinfo.Text = "BOAVENTURA DA SILVA" objno13.appendChild objinfo Set objinfo = obxml.createElement("numero") objinfo.Text = "715" objno13.appendChild objinfo Set objinfo = obxml.createElement("codigoIBGEMunicipio") objinfo.Text = "0150140" objno13.appendChild objinfo Set objinfo = obxml.createElement("municipio") objinfo.Text = "BELEM" objno13.appendChild objinfo Set objinfo = obxml.createElement("codigoUf") objinfo.Text = "PA" objno13.appendChild objinfo Set objinfo = obxml.createElement("cep") objinfo.Text = "6655090" objno13.appendChild objinfo Set objinfo = obxml.createElement("numeroCNES") objinfo.Text = "3994538" objno11.appendChild objinfo Set objno14 = obxml.createElement("profissionalExecutante") objno8.appendChild objno14 Set objinfo = obxml.createElement("nomeProfissional") objinfo.Text = "IREALVO DE JESUS BRITO" objno14.appendChild objinfo Set objno15 = obxml.createElement("conselhoProfissional") objno14.appendChild objno15 Set objinfo = obxml.createElement("siglaConselho") objinfo.Text = "CRM" objno15.appendChild objinfo Set objinfo = obxml.createElement("numeroConselho") objinfo.Text = "3456" objno15.appendChild objinfo Set objinfo = obxml.createElement("ufConselho") objinfo.Text = "PA" objno15.appendChild objinfo Set objinfo = obxml.createElement("cbos") objinfo.Text = "06150" objno14.appendChild objinfo Set objno16 = obxml.createElement("hipoteseDiagnostica") objno8.appendChild objno16 Set objno17 = obxml.createElement("CID") objno16.appendChild objno17 Set objinfo = obxml.createElement("nomeTabela") objinfo.Text = "CID-10" objno17.appendChild objinfo Set objinfo = obxml.createElement("codigoDiagnostico") objinfo.Text = "M54.2" objno17.appendChild objinfo Set objinfo = obxml.createElement("descricaoDiagnostico") objinfo.Text = "Cervicalgia" objno17.appendChild objinfo Set objinfo = obxml.createElement("tipoDoenca") objinfo.Text = "A" objno16.appendChild objinfo Set objno18 = obxml.createElement("tempoReferidoEvolucaoDoenca") objno16.appendChild objno18 Set objinfo = obxml.createElement("valor") objinfo.Text = "20" objno18.appendChild objinfo Set objinfo = obxml.createElement("unidadeTempo") objinfo.Text = "D" objno18.appendChild objinfo Set objno19 = obxml.createElement("dadosAtendimento") objno8.appendChild objno19 Set objinfo = obxml.createElement("dataAtendimento") objinfo.Text = "2007-08-31" objno19.appendChild objinfo Set objno20 = obxml.createElement("procedimento") objno19.appendChild objno20 Set objinfo = obxml.createElement("codTabela") objinfo.Text = "06" objno20.appendChild objinfo Set objinfo = obxml.createElement("codProcedomento") objinfo.Text = "10101322" objno20.appendChild objinfo Set objinfo = obxml.createElement("tipoConsulta") objinfo.Text = "1" objno19.appendChild objinfo Set objinfo = obxml.createElement("tipoSaida") objinfo.Text = "5" objno19.appendChild objinfo Set objno100 = obxml.createElement("epilogo") obraiz.appendChild objno100 Set objinfo = obxml.createElement("hash") objinfo.Text = "f429cc1ba626191382b2b01faed1441c" objno100.appendChild objinfo obxml.Save ("C:\tiss.xml") Set obxml = Nothing
  9. Obrigado pela ajuda.Funcionou que foi uma beleza.Valeuuuuuuuuuuuuu
  10. O problema é que meus comandos saum um filho do outro.Assim no codigo, não aparece o rscommand2 e nem o 3. Como a]você consegui que aparecesse.Assim resolveria o meu problema. fiz o codigo e funcionou o filtro.So que ainda tem um pequeno problema ai. tenho uma data e um campo pra filtrar.Quando coloco um embaixo do outro como você colocou, ele so filtra o ultimo na ordem.Como pode ser feito pra filtrar os dois campos juntos ou até mais campos.Se alguém souber.Mata as minha duvidas.
  11. Tenho um dataenvironment com command1,command2,command3 e command4, cujo o primeiro é filho do segundo.Quando utilizo no meu form o comando: DataEnvironment1.rsCommand1.Filter = "nome = 'PAULA'" O mesmo filtra tranquilo sem problemas.O problema é o seguinte, nome está no command1, quando coloco para filtrar com algum campo que não esteja no command1, ele não filtra e da erro.alguém pode me ajudar nesse detalhe.Agradeço a atenção
  12. Qual seria outro método rápido e simples que não fosse preciso utilizar o Crystal Report?Me ajudem por favor!!!
  13. Mais ai que está o problema.Quando uso o datareport não coloco nada nessas propriedades e funciona corretamento, porque não uso o dataevironment.Eles me aparecem em branco.O problema mesmo é na hora de agrupar.Qundo uso o group header da erro.Me ajudem por favor . Ai vai o codigo completo pra conexão com data report Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open ("Driver={MySQL ODBC 3.51 Driver};Uid=teste;Pwd=gfgfg;Server=192.168.0.100;Port=3306;Option=2048;Database=clinicas") cn.CursorLocation = adUseClient Set rs = New ADODB.Recordset Set rs = CreateObject("ADODB.RecordSet") Set rs.ActiveConnection = cn Set rs = cn.Execute("select nome,cod_exame,dt_exame,tipo_consulta from exame,paciente where exame.matricula = paciente.matricula") Set DataReport1.DataSource = rs DataReport1.Show
×
×
  • Create New...