Leandro_Pirozzi

Obrigado por responder fulvio. Consegue me enviar por email essa dll? pir_le@hotmail.com obrigado

Galera bom dia! Gostaria de saber se existe a possibilidade de um sistema vb6 efetuar transformação de um arquivo XML para outros formatos HTML, XML mesmo. Obrigado!

Bom dia galera!! Seguinte gostaria de saber se posso utilizar a função Dir para verificar se o arquivo que o usuário anexou existe ou o caminho esta correto. Isso é possível? Estou usando assim: VALID = ValidEMail(txtemaildestino.Text) SMTP = poSendMail.Connect = True anexo = txtanexo.Text arquivo = Dir (anexo) 'Aqui o Dir não me retorna nada. Preciso saber se o caminho do anexo e o arquivo existem. If txtemaildestino.Text = Empty Then status = "não enviado" msg = "Não foi possível enviar e-mail, porque o campo de email do destinatário estava VAZIO." ElseIf anexo = txtanexo.Text Then status = "Enviado" msg = "E-mail enviado com sucesso!" ElseIf anexo <> txtanexo.Text Then status = "não enviado" msg = "Não foi possível enviar e-mail, porque o arquivo anexado não estava no local correto." End If Obrigado!!

Acredito que seja isso: Adicionei um Timer Passei o Interval para 30000 Private Sub Timer1_Timer() call exibetarefas End Sub

Galera bom dia. Tenho uma dúvida!!! É possível fazer com que uma procura(Select) seja efetuado a cada 30seg, 1minuto atualizando os dados em todas as estações de trabalho? obrigado. Por exemplo: chamar a função abaixo a cada 30seg ou 60seg. Function ExibeTarefas() Dim SQL As String Animation1.Visible = True Animation1.AutoPlay = True Animation1.Open App.Path & "\figuras\barra3.avi" SQL = "Select Equipe, Tarefa, Empresa, Contato, DataTarefa, Hora, Assessor From CONTATOS_AGENDA Where ASSESSOR = '" & Login & "' and DATATAREFA = '" & lblaniver.Caption & "' order by HORA" Set rsTarefas = New ADODB.Recordset rsTarefas.CursorLocation = adUseClient rsTarefas.Open SQL, gDB, adOpenDynamic Set Me.GridEX6.ADORecordset = rsTarefas If rsTarefas.EOF Then GridEX6.Visible = False Else GridEX6.Visible = True End If End Function

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado. Seguinte galera a solução foi bem simples. Entrei nas propriedades do Text e verifiquei que na propriedade DataFormat tinha a opção de Currency, e lá ele exibe um exemplo no Format$. Utilizei o exemplo de format que ele exibiu e adaptei no código que ficou assim: txtcusto.Text = Format(txtcusto.Text, "#,##0.00;(#,##0.00)") Funcionou direitinho. Obrigado a todos.

A unica coisa que mudou foi que ele ficou com uma virgula no fim. ---> 13.913.990, No caso no text ele não aceita nem "," nem "." somente numeros ai na hora de exibir ele coloca no formato de moeda. Mas o problema esta sendo quando depois da virgula o valor é diferente de ",00", ou seja quando o valor não é numero inteiro. exemplo a pessoa vai digitar 123456 porque ela não consegue separar por pontos nem por virgula. Ai no caso eu quero saber se tem como ele sempre por a "," antes dos 2 últimos digitados. No caso do exemplo ficaria assim 1.234,56. Ficou mais claro? obrigado.

Olá galera. Minha dúvida é a seguinte: estou utilizando esse codigo para quando o usuário clicar no grid ele exibe no formato de moeda. ate ai tudo bem. O problema q estou encontrando é quando o usuario precisa digitar um valor com virgula quebrada por exemplo: 139.139,90. o codigo que estou utilizando para visualização é esse. txtcusto.Text = Format(txtcusto, "###,###,##0.00") Mas ai ele me exibe 13.913.990,00. No caso ele acrescenta ,00. tem como modificar isso? obrigado.

Kuroi falha minha. Eu tinha esquecido la no Report/Edit Selecion Formula/Record a formula. ai apaguei e foi de boa e resolveu meu problema. Ele fez a somatoria. Vlwwwww kuroi. quando eu crescer quero ser igual voce. muito obrigado!!

Galera. como faço para quando a pessoa tentar dividir por um valor = 0(zero) ele exibir uma msg de que não é possível. Ou sei la quando o primeiro caractere digitado for igual 0(zero) ele informa de que não e possivel dividir por zero(0). Isso eu to fazendo no Keypress, mas acho que não esta legal. Se alguém puder dar uma dica, agradeço. Obrigado!! Select Case KeyAscii Case 48 N = \\\"0\\\" Case 0 N = \\\"NULL\\\" Case 49 N = \\\"1\\\" Case 50 N = \\\"2\\\" Case 51 N = \\\"3\\\" Case 52 N = \\\"4\\\" Case 53 N = \\\"5\\\" Case 54 N = \\\"6\\\" Case 55 N = \\\"7\\\" Case 56 N = \\\"8\\\" Case 57 N = \\\"9\\\" End Select If N = Empty Then Controle = \\\"bloqueado\\\" txtcustoEC.Enabled = False MsgBox \\\"Impossivel dividir por zero!\\\" Call limpa_txtcustoqtdeEC Exit Sub ElseIf N <> Empty And N <> \\\"0\\\" Then Controle = \\\"liberado\\\" txtcustoEC.Enabled = True \\\' txtcustoqtdeEC.Text = txtcustoqtdeEC.Text End If

Aconteceu a mesma coisa. Ele deixou eu fazer o SUM e tals, mas exibiu a mesma msh de boolean. The result of selection formula must be a boolean.

Em Report/Edit Selection Formula/ Record. Não é ai?

O que ele exibe é: The result of selection formula must be a boolean. E so tem a opção de OK.

opa kuroi será que é assim? CDbl ({Testepro_ttx.CUSTO}) Mas ai quando salvo la no Ela da a msg: There is an error in this formula. Do you want to save it anyway? Ai quando faço o sum em cima desse campo formula ele da erro no vb. opa kuroi será que é assim? CDbl ({Testepro_ttx.CUSTO}) Mas ai quando salvo la no Ela da a msg: There is an error in this formula. Do you want to save it anyway? Ai quando faço o sum em cima desse campo formula ele da erro no vb.

Galera estou aqui mais uma vez... Minha dúvida é: É possível efetuar a SUM de um campo do tipo STRING?? Quando é NUMBER vai facinho. Será que existe alguma fórmula que faça isso? Pegar todos os valores no .rpt do campo por exemplo VALOR e na última página exibit a SOMATÓRIA do conteúdo do campo VALOR. Obrigado!!!

É pior que agora ficou pior eu removi o ttx. e coloquei novamente, ai montei o rpt de novo. To quase criando um novo .rpt so pra ver se vai. Fórmula não existe nenhuma. É Kuroi acabei apelando e criando um novo. Adivinha só? Na primeira compilação ele me gerou o relatório. Detalhe usei o mesmo .ttx, apenas criei um .rpt novo. Vai entender ne? muito obrigado pela ajuda.

É pior que agora ficou pior eu removi o ttx. e coloquei novamente, ai montei o rpt de novo. To quase criando um novo .rpt so pra ver se vai. Fórmula não existe nenhuma.

Bom, acredito eu que tenha feito certo. Primeira coisa foi o BD, tudo certinho. Depois com o .rpt aberto eu mudei o o .ttx salvei ai no .rpt dei um refresh e depois entrei em Database/Verify Database ai ele abriu uma caixa de unmap e map ai selecionei o campo no formato novo que agora é Number. ele automaticamente atualizou o que era antigo para o campo novo CUSTOPRO. salvei direitinho e compilei o programa. coloquei o breakpoint quando chegou no sql. copiei e fui pro oracle, sem problema nenhum, mas quando chega na hora do Preview, ele simplesmente exibe a mensagem Method Preview of object 'ICRReport' failed

Opa, bom dia Kuroi. então mudei sim, no banco e no .TTX. Atualizei, mas ele exibe essa msg só porque mudei o tipo de dados. alterei o codigo voltando pro campo anterior que era STRING e o relatório abriu certinho, mas não fez a soma devido ser STRING.

Galera preciso de ajuda. Quando clico para gerar o relatório no CR 8.5 ele exibe essa mensagem: Segue o código. Private Sub cmdprintadm_Click() If cbostatus.Text = Empty Then MsgBox "Selecione o status!", vbExclamation, "Advertência" Exit Sub ElseIf cboass.Text = Empty Then MsgBox "Selecione um Assessor!", vbExclamation, "Advertência" Exit Sub ElseIf datinicial.Value = Empty Then MsgBox "Selecione a data inicial!", vbExclamation, "Advertência" Exit Sub ElseIf datfinal.Value = Empty Then MsgBox "Selecione a data final!", vbExclamation, "Advertência" Exit Sub Else SQL = "Select A.EMPRESA, A.ASSESSOR, A.CONTATO, A.CUSTOA, A.DATAPRO, A.STATUS, A.OBS, A.DATPROXCONT, A.MOTIVO, A.EQUIPE, B.NOMCONT, B.NOMEMPRESA, B.CARGOCONT, B.EMAILCONT, B.TELCONT From CONTATOS_PROPOSTA A, CONTATOS_CONTATO B Where A.ASSESSOR = '" & cboass.Text & "' and A.DATAPRO BETWEEN '" & datinicial.Value & "' and '" & datfinal.Value & "' and A.STATUS = '" & cbostatus.Text & "' and A.EMPRESA = B.NOMEMPRESA and A.CONTATO = B.NOMCONT order by A.DATAPRO" Set TabRelatorio = New ADODB.Recordset TabRelatorio.CursorLocation = adUseClient TabRelatorio.Open SQL, gDB, adOpenDynamic, adLockReadOnly StrRelat = App.Path & "\PropostaADM.rpt" Set CRApp = New CRPEAuto.Application Set Report = CRApp.OpenReport(StrRelat) Set ReportDb = Report.Database Set ReportRss = ReportDb.Tables Set ReportRs = ReportRss.Item(1) ReportRs.SetPrivateData 3, TabRelatorio [b]Report.Preview[/b] 'AQUI É EXIBIDO A MENSAGEM: Method Preview of object 'ICRReport' failed Screen.MousePointer = 0 Exit Sub End If End Sub Quem puder ajudar agradeço. No caso esse erro começou depois que mudei o tipo de dados do campo CUSTOA de Varchar2 para Number, pois preciso fazer um somatório dos valores.

Cara eu acho que voce esqueceu de setar o recordset ou ate mesma a connection. Você está fazendo direto 'Set rsCount = Conn.Execute(sql) tenta fazer assim:Set rsCount = New ADODB.Recordset ou 'Declaração Dim Conn As ADODB.Connection Dim rsCount As ADODB.Recordset Set Conn = New ADODB.Connection Set rsCount = New ADODB.Recordset Set rsCount.ActiveConnection = Conn rsCount.CursorLocation = adUseClient Conn.Execute sql

Opa, vlw a ajuda. Então ele não me retornou nenhuma linha. Tenho 13 no total.

Cara ele ate fez a consulta, mas demorou e ainda não trouxe o resultado esperado. Estou tentando fazer um select que me retorne os 5 últimos registros da tabela de históricos até ai tudo belezinha. select * from (select rownum a, EMPRESA,CONTATO,HISTORICO,DATATAREFA, ASSESSOR, EQUIPE, CODEMP from CONTATOS_HISTORICO) where a > (select (max(rownum)- 5) from CONTATOS_HISTORICO) Porém eu preciso que agora ele me retorne os últimos 5 registros da tabela histórico quando o nome da empresa por exemplo for igual a ‘TESTE’. Onde eu coloco esse Where? To tentando mas não consigo.

Galera gostaria de saber como faço pra exibir os 3 ultimos registros de uma tabela de historicos. alguém sabe como me ajudar? Exemplo de algum select, algo do tipo? vlwwww Estou usando esse select para retornar os últimos 5 registros, porém eu queria os últimos 6 registros quando por exemplo o NOMEMPRESA fosse \'TESTE\' alguém pode me ajudar? select * from (select rownum a, EMPRESA,CONTATO,HISTORICO,DATATAREFA, ASSESSOR, EQUIPE, CODEMP from CONTATOS_HISTORICO) where a > (select (max(rownum)- 5) from CONTATOS_HISTORICO)

Cara tenta assim Ohhh: Ao invés 'AGORA ESSE QUE É O DE GRAVAR DÁ ERRO NESSA LINHA rs.Open "clientes", cn, adOpenDynamic, adLockPessimistic 'GRAVA OS REGISTROS rs.Open sql, cn, adOpenDynamic, adLockPessimistic Aqui a mesma coisa rs.Open sql, cn, adOpenDynamic, adLockPessimistic No insert: SQL = "insert into conexao (CODI, NOME, ENDE, FONE) VALUES ('" & TxtCodi.Text & "', '" & TxtNome.text & "', '" & TxtEnde.text & "', '" & TxtFone & "')"