Luiz Carlos de Lima

Boa tarde, Ao enviar um CTe de Substituição é necessário haver um evento de desacordo do tomador, então pergunto se é possível consultar este evento antes de enviar.

Desculpe o incômodo e grato pela dica. realmente o problema era que estava indo como homologação com chave de produção.

Juliomar, acho que já descobri pelo soap, está indo ambiente de homologaçao e a chave é de producao. vou fazer a correcao.

-sit-soap.xml 51241055195924000182570010000092581154214848-ped-sit-soap.xml

Sim, mas ela está, já conformei, todas retornam 217. Ex: 51241055195924000182570010000082431937354170 51241055195924000182570010000082441718100324

Bom dia, Estou montando uma consulta pela chave e retorna cStat 217, retonando dhRecbto e Protocolo em branco ACBrCTe.Conhecimentos.Clear; ACBrCTe.WebServices.Consulta.CTeChave := vChave; ACBrCTe.WebServices.Consulta.Executar; vCodRetorno := ACBrCTe.WebServices.Consulta.cStat; FieldByName('DTAutCTe_Frete_Carga').AsDateTime := ACBrCTe.WebServices.Consulta.dhRecbto; FieldByName('ProtocCTe_Frete_Carga').AsString := ACBrCTe.WebServices.Consulta.Protocolo;

Grato, resolvido. PS. Só para informação: a noite houve um retorno da Sefaz MT, pedindo para verificar se o problema estava resolvido. parece que era algo errado por lá. de qualquer forma vou deixar com estas alterações efetuadas.

Boa tarde, Ontem começou um problema na sefaz de MT, não estava mais conseguindo pegar os retornos. Estava enviando assim ACBrCTe.Enviar(vLote, false). Então mudei para ACBrCTe.Enviar(vLote, true, true), mas algumas coisas continua não pegar: vACBrCTe.WebServices.Enviar.cStat; OK vACBrCTe.WebServices.Enviar.Protocolo OK Mas não estou conseguindo pegar mais a dhRecbto nem a chCTe

Resolvido, Grato

Boa tarde, Com o problema que ocorreu no RS, não estava emitindo MDFe. Implementei a opção para isso, Colocando ACBrMDFe1.Configuracoes.Geral.FormaEmissao := teContingencia; e Ide.tpEmis := teContingencia; Estou testando em homologação, e retorna o erro: 12007 o nome do servidor nao pode ser resolvido ao ACBrMDFe1.Enviar(1); Pesquisando uma postagem do Ítalo sobre o assunto, ele fala que deve Assinar, consultar e imprimir, mas ao ACBrMDFe1.Manifestos.Assinar, retorna o mesmo erro.

Fiz a correção, caso queiram atualizar está anexado. teste 2.pdf DACTE_OS.fr3

Bom dia, O tamanho do NroRegEstadual no manual é 25, se colocar menor dá erro ao enviar, e 25 está truncando no DACTE.

AGora autorizou, deve ser sido problema com a Sefaz aqui

tentei processar no meu computador e tambem deu erro, consegui fazer uma homologacao, mas nao em producao.

Sempre funcionou sem elas na pasta executavel, de qq forma coloquei e nao resolveu.

boa tarde, um cliente de MT esta tentando emitir CTeOS e esta retornando: ERRO: Erro Interno: 0 Erro HTTP: 500 URL: https://cte.sefaz.mt.gov.br/ctews/services/CteRecepcaoOSV4

OK, vou dar uma olhada nele. Gratos.

Oi Victor, Alguma sugestão de melhor WebService

Estou testando o exemplo, com a wsCorreios e retorna erro. No site do correio cadastrei um usuario, mas não vi nenhuma chave de acesso, será que o erro é falta dela?

boa tarde, problema resolvido. Grato.

Boa tarde, Estou tendo problema no BuscaPorCep, verifiquei que agora precisa de alguns parâmetros, estou testando o exemplo mas não consigo saber onde consegui estes parametros. Fiz cadastro nos correios e criei usuario e senha, acredito que seja isto ACBrCEP1.ProxyUser := edProxyUser.Text ; ACBrCEP1.ProxyPass := edProxyPass.Text ; Mas as informaçoes abaixo não sei onde consegui, podem dar uma ajuda? ACBrCEP1.ProxyHost := edProxyHost.Text ; ACBrCEP1.ProxyPort := edProxyPort.Text ; ACBrCEP1.ChaveAcesso := edChaveBuscarCEP.Text;

Resolvido, Grato pessoal.

Todos CNPJ que testo recorda o erro, já verifiquei e eles tem IE ACBrNFe.Configuracoes.WebServices.TimeOut := 20000; ACBrNFe.Configuracoes.Geral.SSLLib := libWinCrypt; ACBrNFe.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; ACBrNFe.Configuracoes.Geral.SSLHttpLib := httpWinHttp; ACBrNFe.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2; ACBrNFe.SSL.SSLType := LT_TLSv1_2; ACBrNFe.SSL.CarregarCertificado; Documento := EditCNPJ_Fornecedor_Pagar.Text; ACBrNFe.Configuracoes.WebServices.UF := 'MT'; ACBrNFe.Configuracoes.WebServices.Salvar := true; ACBrNFe.WebServices.ConsultaCadastro.UF := 'MT'; ACBrNFe.WebServices.ConsultaCadastro.CNPJ := '03658968000602'; ACBrNFe.WebServices.ConsultaCadastro.Executar; vMotivo := ACBrNFe.WebServices.ConsultaCadastro.xMotivo; vCstat := ACBrNFe.WebServices.ConsultaCadastro.cStat; wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;

Victor, desculpe mas não consegui fazer o teste no index, pode me ajudar.

Boa tarde, Estava com problema no ACBrCEP1.BuscarPorCEP, atualizei o ACBr e comecei a ter alguns problemas que foram corrigidos, mas este ainda não consegui solucionar: Utilizo o ConsultaCadastro.Executar para buscar a IE, agora começou a dar Argument of ranger. Tentei outros campos para testar mas todos estão com este erro. wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE; wNome := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xNome; wLogr := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xLgr;