Ir para conteúdo
  • Cadastre-se

Desenv. AT Info Sistemas

Membros Pro
  • Total de ítens

    615
  • Registro em

  • Última visita

  • Days Won

    1

Tudo que Desenv. AT Info Sistemas postou

  1. Boa tarde! Estamos com problema para transmitir nota de serviço no Trunk2, para a cidade de Flores da Cunha, RS. Servidor Tecnos. Conforme o erro Erro Interno: 12002 Erro HTTP: 0 Erro: Requisição não enviada. 12002 - O tempo limite da operação foi atingido. ou conforme imagem abaixo.
  2. O meu esta dando o mesmo problema, tentei utilizar os fontes e os fr3 mas não ta funcionando mesmo assim =(
  3. Alterei para Dest.indIEDest := inNaoContribuinte e mesmo assim não transmite...
  4. Daniel, muito obrigado, era isto mesmo que eu estava precisando.
  5. Pois é, tentei alterar para a nova função e da problema, é que temos a nota fiscal de serviço da nossa cidade e estamos usando o componente somente para retornar o certificado .
  6. Boa tarde, está função de SelecionarCertificado tem um efeito diferente, a GetCertificado que existia retornava um objeto do tipo "ICertificate2", tentei olhar em várias funções e não encontrei.
  7. Boa tarde, não estou conseguindo encontrar a função "GetCertificado" que uma ves se encontrava no caminho -> ACBrNFe.Configuracoes.Certificados.GetCertificado, tentei procurar no ACBRNfe.SSL. porem não encontrei, e no forum aqui pesquisei um pouco e não tive sucesso nos posts que criaram. Att Matthias
  8. Brotheeeeeeeeeer, foiiiiiiiiiiiiiiiii, dei um cleanup na pasta e limpou tudo e FOIIIIIIIIIIIIIIIIIIIIII. VLWWWWWWWWWWWWWWWWWWWWWWWWW, Obrigado a todos do fórum pela ajuda.
  9. Em anexo, obrigado pela ajuda, vou criar uma VM e vou fazer uns testes enquanto isso. log_Delphi_XE3.txt
  10. Boa tarde Tiago, acabei de tentar sua sugestão e mesmo assim não funcionou :((( removi o trunk, baixei o trunk 2, rodei o bat no disco C e D e tentei instalar.
  11. Tentei apagar a pasta do trunk e apagar no Delphi no library e os componentes instalados, mas mesmo assim persisto com o mesmo problema.
  12. Opa, segue em anexo. log_Delphi_XE3.txt
  13. Bom dia, vi na entrada no fórum que era já possível instalar o NFS-e no trunk2, tentei fazer a instalação e o CT-e e NF-e instalaram mas o NFS-e e o MDF-e estão dando o mesmo erro. Erro: ACBr_NFSe.dpk(39) Fatal: E2202 Required package 'ACBrComum' not found ACBr_MDFe.dpk(36) Fatal: E2202 Required package 'ACBrComum' not found Meu repositório esta na última versão, fiz update agora pouco. Att Matthias Bebber Breda
  14. Bom dia Italo, desculpe a demora acabei olhando só hoje, em anexo tem um XML de exemplo e os Schemas. Schemas_data_center.zip nota18_export.xml
  15. O ACBr funciona em qualquer versão do Delphi a partir da 7. Bom dia, instalei a ultima versão e esta dando problema no fonte "pcnGerador" -> [dcc32 Error] pcnGerador.pas(895): E2003 Undeclared identifier: 'PadR' . Tentei apagar tudo e reinstalar mas sem sucesso.
  16. Boa tarde Italo, conseguistes fazer a alteração no componente para aceitar 1 ou mais serviços ?
  17. Bom dia Italo, obrigado pelo retorno. Em anexo os Schemas do servidor Tecnos e também um XML gerado pelo portal de homologação da Prefeitura de Flores da Cunha com 2 serviços. Qualquer coisa estamos a disposição. nota18_export.xml Schemas_Tecno.zip
  18. Boa tarde, estamos tentando inserir multiplos itens de serviço do provedor Tecno, mas ao gerar o XML ele só preenche 1 serviço. Percebemos que no exemplo tem um provedor chamado "SimplISS" que permite informar mais de 1 serviço. Existe a possibilidade de enviar multiplos itens de serviço para o provedor da Tecno ? Att Matthias Atinfo Sistemas
  19. Este campo -> "InfAdic.infCpl" ? Mas este vai mostrar no nas observações no meio do NFC-e, gostaria de imprimir no final sem ter que mandar outro comando pra impressora.
  20. Bom dia, gostaria de saber se tem alguma opção de adicionar um texto a ser impresso logo depois do NFC-e, por exemplo "Volte Sempre". Att Matthias
  21. Boa tarde, em alguns clientes ao carregar o certificado digital está demorando em média 2 minutos, acontece sempre, o certificado de todos os clientes são A1. Pesquisei aqui no forum e encontrei um caso aonde alteraram no fonte "ACBrNFEConfigurações.pas" um parâmetro da chamada do capicom, alterando de "CAPICOM_STORE_OPEN_READ_ONLY" para "CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED", tentei fazer esta alteração mas acontece a mesmo problema, e é neste comando mesmo que fica "pendurado", olhe abaixo: if DFeUtil.EstaVazio( FNumeroSerie ) then raise EACBrNFeException.Create('Número de Série do Certificado Digital não especificado !'); Result := nil; Store := CoStore.Create; // Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY); Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Alguem tem idéia do que pode ser ?
  22. **Obs: fiz no forum errado, me desculpem, era no da NFE. Boa tarde, em alguns clientes ao carregar o certificado digital está demorando em média 2 minutos, acontece sempre, o certificado de todos os clientes são A1. Pesquisei aqui no forum e encontrei um caso aonde alteraram no fonte "ACBrNFEConfigurações.pas" um parâmetro da chamada do capicom, alterando de "CAPICOM_STORE_OPEN_READ_ONLY" para "CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED", tentei fazer esta alteração mas acontece a mesmo problema, e é neste comando mesmo que fica "pendurado", olhe abaixo: if DFeUtil.EstaVazio( FNumeroSerie ) then raise EACBrNFeException.Create('Número de Série do Certificado Digital não especificado !'); Result := nil; Store := CoStore.Create; // Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_READ_ONLY); Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Alguem tem idéia do que pode ser ?
  23. Não, ele não substitui pelo texto anterior sem concatenação, de uma olhada abaixo. cdsEmitenteDADOS_ENDERECO.AsString := Trim(FieldByName('XLgr').AsString) + ', ' + trim(FieldByName('Nro').AsString); if (trim(FieldByName('XCpl').AsString) <> '') then cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ', ' + Trim(FieldByName('XCpl').AsString); cdsEmitenteDADOS_ENDERECO.AsString := cdsEmitenteDADOS_ENDERECO.AsString + ' - ' + Trim(FieldByName('XBairro').AsString) + ' - ' + Trim(FieldByName('XMun').AsString) + ' - ' + Trim(FieldByName('UF').AsString) + #13 + 'Fone: ' + Trim(FieldByName('Fone').AsString) +
  24. Funcionou, na verdade esse IF é só pra concatenar o complemento quando existe, senão tem complemente continua como era antes.
×
×
  • 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...