Ir para conteúdo
  • Cadastre-se

Luiz Carlos de Lima

Membros Pro
  • Total de ítens

    553
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Luiz Carlos de Lima

  1. Em 22/03/2024 at 17:09, Victor H. Gonzales - Panda disse:

    wsCorreios usa o SIGEP, para você ter acesso você precisa ter API na versão comercial, então você precisa ser assinante dos correios.

    porem como não temos acesso a essa API Comercial, baixa adesão e não houve nenhuma contribuição, o componente não tem.

     

    Oi Victor, Alguma sugestão de melhor WebService

  2. Em 14/03/2024 at 17:06, Renato Rubinho disse:

    Boa tarde,

    As configurações de Proxy são apenas se você tiver Proxy na sua rede, caso contrário deixe todas essas propriedades sem preenchimento.

    Os dados de autenticação dos serviços devem ser preenchidos em:

    ACBrCEP1.ChaveAcesso

    ACBrCEP1.Usuario

    ACBrCEP1.Senha

    Dependendo do serviço selecionado em ACBrCEP1.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?

  3. 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;

     

  4. 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;

     

  5. Em 09/03/2024 at 23:48, Victor H. Gonzales - Panda disse:

    Se está ocorrendo Argumento fora da Faixa, quer dizer que o indice que está sendo lido não é válido.

    Lembrando que nem todas as UF tem o serviço de consulta, e para funcionar precisa a IE estar no CCC.

    Tambem vale lembrar que não são todos CNPJ que possuem IE vinculadas

    então é recomendado testar o index antes de acessar o indice 0 prontamente

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

  6. 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;

     

  7. 5 horas atrás, Italo Giurizzato Junior disse:

    Bom dia @Luiz Carlos de Lima,

     

    ACBrBPe.Bilhetes.Items[0].BPe.Ide.tpAmb

    Mudou para: tpAmb agora é do tipo TACBrTipoAmbiente

    Você poderia detalhar o problema que você esta tendo com essa linha?


    ACBrBPe.WebServices.Enviar.BPeRetorno.ProtBPe.Items[0].chBPe

    Mudou para:  ACBrBPe1.WebServices.Enviar.BPeRetorno.ProtBPe.chDFe
     

    ACBrBPe.WebServices.Consulta.protBPe.chBPe

    Mudou para: ACBrBPe1.WebServices.Consulta.protBPe.chDFe

     

    ACBrBPe.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.XML

     

    Mudou para: ACBrBPe1.WebServices.EnvEvento.EventoRetorno.retInfEvento.XML

     

    ACBrBPe.Configuracoes.WebServices.Ambiente := ACBrBPe.Bilhetes.Items[0].BPe.Ide.tpAmb;

     Incompatible types: 'TpcnTipoAmbiente' and 'TACBrTipoAmbiente'

  8. Boa tarde,

    Após atualizar o ACBr estou tendo problemas com o BPe

    Por Exemplo pcnConversaoBPe ficou ACBrBPeConversao. Mas as chamadas abaixo não consegui descobrir como ficou, podem ajudar?

    ACBrBPe.Bilhetes.Items[0].BPe.Ide.tpAmb
    ACBrBPe.WebServices.Enviar.BPeRetorno.ProtBPe.Items[0].chBPe
    ACBrBPe.WebServices.Consulta.protBPe.chBPe
    ACBrBPe.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.XML

     

  9. Olá Rubinho,

    Sim, uso A1.

    As configuraçoes abaixo utilizo hoje na emissão de CTe, MDFe, BPe, NFe, sem problema, e agora estou implementando a NFSe.

        SSLLib              := libWinCrypt;
        SSLCryptLib     := cryWinCrypt;
        SSLHttpLib       := httpWinHttp;
        SSLXmlSignLib := xsLibXml2;
        SSL.SSLType     := LT_SSLv2

        Configuracoes.WebServices.TimeOut := 20000;

        certificadoStream := TStringStream.Create;
        TBlobField(FieldByName('Certificado_Certificado_Nucleo')).SaveToStream(certificadoStream);
        ACBrNFSeX1.Configuracoes.Certificados.ArquivoPFX  := certificadoStream.DataString;
        ACBrNFSeX1.Configuracoes.Certificados.Senha       := FieldByName('Senha_Certificado_Nucleo').AsString;
        ACBrNFSeX1.Configuracoes.Certificados.NumeroSerie := FieldByName('Serie_Certificado_Nucleo').AsString;

    Tentei com libOpenSSL mas também não deu certo, nos dois casos se não informar a serie retorna sujeira:

    First chance exception at $77069542. Exception class EACBrDFeException with message
    'Arquivo: 0€0€*†H†÷ €$€‚è0€0€*†H†÷ €$€‚è0‚l0‚h *†H†÷ ‚û0‚÷0)*†H†÷ 0“ÛOsĶu×Äú¾TÞ „¿RL‡ não encontrado'.
     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.