MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Replace em tabela.

    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Replace em tabela. Empty [Resolvido]Replace em tabela.

    Mensagem  XPTOS Seg 22 Mar 2021, 14:05

    Pessoal,

    Tenho a seguinte situação:
    Realizei a importação de um registro para tabela, porém, perceba que o campo (CodGlosaTISS) está em branco na segunda linha.
    Como devo fazer para incluir o código 1714 na linha de baixo ?  Pois, se ficar um em branco e outro preenchido não consigo agrupar o registro e devo considerar CodGlosaTISS no GroupBy.

    Codigo Descricao                                                CodGlosaTISS   Dt. Credito
    90049012 | RHOPHYLAC 150 MCG/ML SOL INJ CT SER | 1714           | 30/03/2021
    90049012 | RHOPHYLAC 150 MCG/ML SOL INJ CT SER |                      | 30/03/2021


    .................................................................................
    Grato,
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1453
    Registrado : 13/12/2016

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  Alexandre Fim Seg 22 Mar 2021, 14:46

    Ola XPTOS,

    Você está importando os dados de um arquivo .txt ou csv?
    Qual o tipo de separador que está usando no arquivo?
    Ponto e virgula(Wink ?
    Pipe (|) ?



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  XPTOS Seg 22 Mar 2021, 16:07

    Obrigado pela atenção!
    Estou importando de um XML com este código:

    Código:

    Dim Importar, Proce As Integer
    textoLinha = ""
    Importar = 0

    Dim xCodGuia$ 'senha
    Dim xCodUsuario$ 'numeroCarteira
    Dim xNomeUsuario$ 'nomeBeneficiario
    Dim xDtAtendimento$ 'dataInicioFaturamento - dataExecucao
    Dim xDtAlta$ 'dataFinalFaturamento
    Dim xCodServico$ 'codigoProcedimento
    Dim xNomeServico$ 'descricaoProcedimento
    Dim xQuantidadeServico$ 'quantidadeExecutada
    Dim xReferencia$ 'valorUnitario
    Dim xValorPago$ 'valorTotal


    meuFicheiro = Application.CurrentProject.Path & "\500000019_DemonstrativoAnalise_168218.xml"

    Open meuFicheiro For Input As #1
    Do Until EOF(1)
    Line Input #1, txtLinha

        If InStr(txtLinha, "</ans:relacaoGuias>") > 0 Then Importar = 1 'TAG PAI
            textoLinha = textoLinha & txtLinha
        
            If InStr(txtLinha, "</ans:detalhesGuia>") > 0 And Importar = 1 Then 'TAG FILHO
            If InStr(textoLinha, "<ans:numeroGuiaPrestador>") > 0 Then xCodGuia = extrairCampoXml(textoLinha, "ans:numeroGuiaPrestador")
            If InStr(textoLinha, "<ans:nomeBeneficiario>") > 0 Then xNomeUsuario = extrairCampoXml(textoLinha, "ans:nomeBeneficiario")
            If InStr(textoLinha, "<ans:numeroCarteira>") > 0 Then xCodUsuario = extrairCampoXml(textoLinha, "ans:numeroCarteira")
            If InStr(textoLinha, "<ans:dataInicioFat>") > 0 Then xDtAtendimento = extrairCampoXml(textoLinha, "ans:dataInicioFat"): xDtAtendimento = right(xDtAtendimento, 2) & "-" & Mid(xDtAtendimento, 6, 2) & "-" & left(xDtAtendimento, 4)
            If InStr(textoLinha, "<ans:codigoProcedimento>") > 0 Then xCodServico = extrairCampoXml(textoLinha, "ans:codigoProcedimento")
            If InStr(textoLinha, "<ans:qtdExecutada>") > 0 Then xQuantidadeServico = extrairCampoXml(textoLinha, "ans:qtdExecutada"): xQuantidadeServico = left(xQuantidadeServico, 2)
            If InStr(textoLinha, "<ans:descricaoProcedimento>") > 0 Then xNomeServico = extrairCampoXml(textoLinha, "ans:descricaoProcedimento")
            If InStr(textoLinha, "<ans:valorLiberado>") > 0 Then xReferencia = Replace(extrairCampoXml(textoLinha, "ans:valorLiberado"), ".", ",") 'alterara separador decimais
            If InStr(textoLinha, "<ans:valorLiberado>") > 0 Then xValorPago = Replace(extrairCampoXml(textoLinha, "ans:valorLiberado"), ".", ",") 'alterara separador decimais
            
            'Execulta consulta
            CurrentDb.Execute "INSERT INTO tblBradesco (CódUsuário, CódGuia, NomeUsuário, DtAtendimento, CódServiço, NomeServiço, QuantidadeServiço, Referencia, ValorPago) SELECT '" _
            & Format(xCodUsuario, "000000000000000") & "', '" & xCodGuia & "', '" & xNomeUsuario & "', " & IIf(Len(xDtAtendimento) = 0, "'" & Null & "'", "#" & Format(xDtAtendimento, "mm/dd/yyyy") & "#") & " , '" & xCodServico & "', '" & xNomeServico & "', '" _
            & xQuantidadeServico & "', '" & xReferencia & "', '" & xValorPago & "';"
            textoLinha = ""
                    
        End If


    .................................................................................
    Grato,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  XPTOS Ter 23 Mar 2021, 21:29

    Pessoal,

    Fiz essa consulta com o assistente e consegui recuperar as duplicatas que preciso alterar.
    Basta agora executar um Update com base nessa query.

    Quem puder ajudar, fique à vontade.

    Código:
    SELECT Recebido.nomeBeneficiario, Recebido.senhaAutorizacao, Recebido.dataHoraInternacao, Recebido.codigo, Recebido.valorTotal, Recebido.CodGlosaTISS
    FROM Recebido
    WHERE (((Recebido.nomeBeneficiario) In (SELECT [nomeBeneficiario] FROM [Recebido] As Recebido GROUP BY [nomeBeneficiario],[senhaAutorizacao],[codigo],[descricao] HAVING Count(*)>1  And [senhaAutorizacao] = [Recebido].[senhaAutorizacao] And [codigo] = [Recebido].[codigo] And [descricao] = [Recebido].[descricao])) AND ((Recebido.CodGlosaTISS)>"0"))
    ORDER BY Recebido.nomeBeneficiario, Recebido.senhaAutorizacao, Recebido.codigo, Recebido.descricao;


    .................................................................................
    Grato,
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  XPTOS Sab 27 Mar 2021, 02:07

    UP


    .................................................................................
    Grato,
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  DamascenoJr. Dom 11 Abr 2021, 02:09

    Algum avanço?

    Aguardamos... Smile


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido]Replace em tabela. Empty Re: [Resolvido]Replace em tabela.

    Mensagem  XPTOS Sab 17 Abr 2021, 21:02

    cheers


    .................................................................................
    Grato,

      Data/hora atual: Qua 16 Jun 2021, 12:54