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


2 participantes

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    Registrado : 31/08/2012

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Chamon Consultoria Sex Set 30, 2016 9:54 pm

    Bd em Access 2010.

    Formulários e campos envolvidos:

    Formulário "DevolucaoRemessa": Campo: txtChaveNFe -> Origem: tbl_Compras.CHAVENFE

    Formulário "Vendas": Campo: txtREFNFE -> recebe o conteúdo do campo txtChaveNFe ((Formulário DevolucaoRemessa) -> Forms!Vendas.txtREFNFE = txtChaveNFe)


    No formulário Vendas há um botão que abre o formulário DevolucaoRemessa a fim de importar para o formulário Vendas, os dados da nota fiscal que será devolvida.
    Até aqui o sistema está funcionando perfeitamente.
    O problema é que da maneira que está, só é possível armazenar a chave de uma nota... e há casos em que são devolvidas várias notas em uma única nota.
    Assim, se ainda dentro do mesmo registro no formulário Vendas, eu buscar uma outra nota a ser devolvida, o chave desta sobrepoem a anterior e assim por diante, pois não há um limite da quantidade de notas a ser devolvida, pode ser apenas uma ou vinte notas de uma vez.

    Consultei os tópicos relacionados à "concatenar" nesse Fórum e na internet, mas não encontrei nenhum parecido com este caso.

    Existe uma maneira para concatenar o número dessa chave, de forma que não tenha um limite de quantidade de chaves buscadas sem que sejam sobrepostas?

    Desde já agradeço!

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    Registrado : 31/08/2012

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty Re: [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Chamon Consultoria Ter Out 04, 2016 11:50 pm

    .
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty Re: [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Alexandre Neves Qua Out 05, 2016 5:30 am

    Bom dia,
    Se resolveu, convém que explique como, para que ajude outros colegas que tenham o mesmo problema


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 266
    Registrado : 31/08/2012

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty Re: [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Chamon Consultoria Qua Out 05, 2016 12:25 pm

    Alexandre, bom dia!

    Na verdade não consegui resolver... Essa questão envolvia muito mais do que eu imaginava... tive que contratar um profissional em desenvolvimento de sistemas da área da NFe para resolver.

    Assim, infelizmente não sei explicar os todos ajustes feitos por ele, pois ainda tenho pouco conhecimento em VBA, além de ter sido feito por conexão remota (tudo feito muito rápido e sem muitas explicações).

    Por não ter essa segurança em passar as informações, temo por induzir os colegas ao erro.

    No mais peço desculpas, pois só tenho a agradecer a colaboração deste forúm.

    Sei que foi criada uma tabela "tbl_VendasChaveNFe" para armazenar as chaves e criado um módulo com duas funções para concatenar quando houver mais de uma chave:


    Public Function NFe_Referenciada(ByVal NUMEROPEDIDO As String)

    Dim ide_NFRefs As String ' Declara a variável que vai receber o XML das notas fiscais referenciadas

    Dim objNFeUtil As Object
    Set objNFeUtil = CreateObject("NFe_Util_2G.Util")

    Dim ssql As String
    Dim rst As DAO.Recordset

    ide_NFRefs = ""
    ssql = ""
    ssql = "Select * From tbl_VendasChaveNFe where NUMEROPEDIDO='" & NUMEROPEDIDO & "'"


    Set rst = CurrentDb.OpenRecordset(ssql) 'abre o recordeset
    While (Not rst.EOF)


    ide_NFRefs = ide_NFRefs & objNFeUtil.NFeRef(rst("REFNFE").Value)

    rst.MoveNext

    Wend

    rst.Close

    Set rst = Nothing


    NFe_Referenciada = ide_NFRefs


    End Function

    '----------------------------------------------------------------------------------------------------------------

    Public Function Concateca_NFeRef(ByVal NUMEROPEDIDO As String) 'Chamon 04-10-2016


    Dim ssql As String
    Dim rst As DAO.Recordset

    ide_NFRefs = ""
    ssql = ""
    ssql = "Select * From tbl_VendasChaveNFe where NUMEROPEDIDO='" & NUMEROPEDIDO & "'"


    Set rst = CurrentDb.OpenRecordset(ssql) 'abre o recordeset
    While (Not rst.EOF)


    ide_NFRefs = ide_NFRefs & ";" & rst("REFNFE").Value

    rst.MoveNext

    Wend

    rst.Close

    Set rst = Nothing


    Concateca_NFeRef = "NFe Referenciada: " & Mid(ide_NFRefs, 2)


    End Function





    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty Re: [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Alexandre Neves Qui Out 06, 2016 10:15 am

    Obrigado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto Empty Re: [Resolvido]Concatenar campo para que seu conteúdo não seja sobreposto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex Nov 22, 2024 2:02 pm