IgorAcertSoft

Ja atualizei os fontes, vamos realizar os testes, posto aqui o retorno dos resultados

enviei as informações no partiicular

analisando o xml, constatei que o codigo 14.01 esta sendo preenchido corretamente confoirme imagem anexo, exportei o xml de notas antigas do cliente que estao com o codigo 14.01 informado corretamentre e nelas tambem exibe a informasção errada, outra coisa tem momentos que ele exibe a formatação do xml correta mas sem as informações do serviço e horas exibe conforme a imagem

revisei todo meu codigo, e emtodas as situações que ele carrega Servico.ItemListaServico ele carrega com o codigo correto, neste caso 14.01, alguma sugestao de onde mais posso olhar?

sim esta dessa forma so expus o campo onde estava sendo informado, com o caminho completo, mas sim estamos seguindo o padrao do exemplo

Mas e exatamente isso, no meu codigo estou movendo 14.01 para o campo NotasFiscais.New.NFSe.Servico.ItemListaServico corretamente

Boa tarde, Após termos atualizado os componentes, o danfe sai sem a descrição do código de serviço, antes da atualização estava saindo corretamente, Versao dos fontes 36978.

encontrei o problema, nao estava carregando a pasta schema, ajustei o retorno e voltou a funcionar. podemos encerrar o topico. obrigado a todos pela paciencia e auxilio.

sim vou analizar os dois e ver o que pode estar gerando o erro, obrigado por enquanto, posto aqui assim que descobrir a causa

certo

certo so nao havia configurado a versaoDf correta no exemplo, mas no meu caso especifico o erro ocorre nesse trecho debugando o codigo abaixo notei que no inherited ele chama ele mesmo e ali fica ate dar o access violation procedure TNFeWebService.InicializarServico; begin { Sobrescrever apenas se necessário } inherited InicializarServico; FOldSSLType := FPDFeOwner.SSL.SSLType; FOldHeaderElement := FPHeaderElement; if FPConfiguracoesNFe.Geral.VersaoDF >= ve400 then FPHeaderElement := ''; //Versão 4.00 não tem o elemento <soap12:Header> TACBrNFe(FPDFeOwner).SetStatus(FPStatus); end; no exemplo apresenta essa mensagem

realizei os testes pelo o exemplo do acbr, meus componentes estao na versão 36965 e apresentou o seguinte erro

procedure ConsultaCadastroNFe(UF, Documento : String); var lRetornoConsultaCadastroNFe :TRetornoConsultaCadastro; NumeroInteiro: Integer; begin if Trim(UF) = '' then if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then exit; if Trim(Documento) = '' then if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then exit; Documento := Trim(OnlyNumber(Documento)); // descomentei para teste Dados.ACBRNFE.WebServices.ConsultaCadastro.UF := UF; if Length(Documento) > 11 then Dados.ACBrNFE.WebServices.ConsultaCadastro.CNPJ := Documento else Dados.ACBrNFE.WebServices.ConsultaCadastro.CPF := Documento; Dados.ACBrNFE.WebServices.ConsultaCadastro.Executar;

Funcionava e simplesmente parou, no exemplo deu a mesma coisa