Ir para conteúdo
  • Cadastre-se

suporte.corpsystem

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

suporte.corpsystem's Achievements

Apprentice

Apprentice (3/14)

  • Dedicated Rare
  • Collaborator Rare
  • One Year In
  • First Post
  • Conversation Starter

Recent Badges

4

Reputação

  1. Bom dia Italo! Após gerar o token e fazer o teste de emissão segue os arquivos. 8-lista-nfse-ger.xml 8-lista-nfse-ger-soap.xml 8-ger-nfse.xml 8-ger-nfse-soap.xml 20230128073919-ret-token.xml 20230128073919-ret-token-soap.xml 20230128073918-ped-token.xml 20230128073918-ped-token-soap.xml
  2. No aplicativo exemplo continua apresentando mensagem de erro de conexão.
  3. Boa tarde Italo, Neste Valores.ValorLiquidoNfs é feito. Ajustei criando uma linha no fim deste bloco. Continuei com os testes, e apresentou Sucesso Ok, mas apresenta mensagem de erro de conexão, e também apresenta erro ao consultar o RPS.
  4. O componente está gerando com valores diferentes mesmo.
  5. Ele também pede para que o valor_nf seja igual ao valor_servico.
  6. Tinha dado este erro comigo, após refazer os testes deu certo.
  7. Estou gerando o token com este usuário e senha. Segue no anexo o envio e o retorno do arquivo ret-token-soap.xml. Obs.: Coloquei o mesmo usuário e senha na opção WebService e na opção Retorno de Envio. 20230120051716-ret-token-soap.xml 20230120051714-ped-token.xml 20230120051716-ret-token.xml
  8. Boa tarde Italo! Confirmei o usuário e senha e continua o problema.
  9. Boa tarde Diego! Continua sem sucesso, parece que não está funcionando no ACBR. Testei o timeout com 10.000 e 20.000 e nada. Depois dos testes tentei o envio. Segue os arquivos anexos. Falei com a pessoa do sistema na prefeitura e insiste que o problema está antes de chegar lá. 20230118164042-ped-token-soap.xml 20230118164042-ret-token.xml 20230118164042-ret-token-soap.xml 20230118163931-ret-token.xml 20230118163931-ret-token-soap.xml 20230118163930-ped-token.xml 20230118163930-ped-token-soap.xml 1-ger-nfse.xml 1-ger-nfse-soap.xml 20230118164243-ped-token.xml 20230118164243-ped-token-soap.xml 20230118164243-ret-token.xml 20230118164243-ret-token-soap.xml 20230118164044-ped-token.xml 20230118164044-ped-token-soap.xml 20230118164044-ret-token.xml 20230118164044-ret-token-soap.xml 20230118164042-ped-token.xml
  10. Segue os Soaps. 1-ger-nfse.xml 1-ger-nfse-soap.xml
  11. Prezados Devs, ao testar o envio da NFS-e pelo programa exemplo, apresenta erro. Conferi o xml de envio e está batendo com o layout da Prefeitura. Já coloquei para salvar Envelope Soap. Apresenta erro no envio e não pega nada no retorno do Xml conforme anexos. Att Lima
  12. Pessoal como tenho muita urgência eu substitui a tag na XML pra não ter de sair Procurando em todo o ACBR.... NA UNIT ACBrNFSeXProviderABRASFv1 NA FUNCAO PreencherNotaResposta Result := False; if Node <> nil then begin Node := Node.Childrens.FindAnyNs('InfNfse'); Node := Node.Childrens.FindAnyNs('IdentificacaoRps'); NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr); ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); //AQUI strValorAntigo := copy(parentNode.OuterXml, pos('<DataEmissao>', parentNode.OuterXml)+13, 20); strNovoXML := parentNode.OuterXml; if (Copy(strValorAntigo, 5, 1) = '-') and (Copy(strValorAntigo, 11, 1) = 'T') and (Copy(strValorAntigo, 20, 1) = 'Z') then begin strNovoValor := Copy(strValorAntigo, 1, 10) + ' ' + Copy(strValorAntigo, 12, Length(strValorAntigo) - 12); strNovoXML := StringReplace(parentNode.OuterXml, '<DataEmissao>'+strValorAntigo+'</DataEmissao>', '<DataEmissao>'+strNovoValor+'</DataEmissao>',[]); end; strValorAntigo := copy(strNovoXML, pos('<Competencia>', strNovoXML)+13, 7); if (COPY(strValorAntigo,7,1) = 'Z') then begin strNovoValor := (COPY(strValorAntigo,0,6)); strNovoXML := StringReplace(strNovoXML, '<Competencia>'+strValorAntigo+'</Competencia>', '<Competencia>'+strNovoValor+'</Competencia>',[]); end; if Assigned(ANota) then ANota.XmlNfse := strNovoXML else begin TACBrNFSeX(FAOwner).NotasFiscais.LoadFromString(strNovoXML, False); ANota := TACBrNFSeX(FAOwner).NotasFiscais.Items[TACBrNFSeX(FAOwner).NotasFiscais.Count-1]; end; //ATÉ AQUI SalvarXmlNfse(ANota); Result := True; // Processado com sucesso pois retornou a nota end; Aguardando a solução mais definitiva... Obrigado
×
×
  • 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.