suporte.corpsystem

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

No aplicativo exemplo continua apresentando mensagem de erro de conexão.

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.

O componente está gerando com valores diferentes mesmo.

Ele também pede para que o valor_nf seja igual ao valor_servico.

Tinha dado este erro comigo, após refazer os testes deu certo.

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

Boa tarde Italo! Confirmei o usuário e senha e continua o problema.

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

Gerei o token vide anexo retorno.

Use o método GerarToken. -> Como faço isso?

Segue os Soaps. 1-ger-nfse.xml 1-ger-nfse-soap.xml

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

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