[Resolvido]Replace em tabela.

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

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( ?
Pipe (|) ?

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

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;


UP

Algum avanço?

Aguardamos...