fnietto

Luan Alison Quando a nota tiver retenção o valor total dela será igual ao valor total dos serviços e o valor líquido será o total - retenção. Segundo o manual abrasf versão 2.02 pag. 7: O Valor Líquido da NFS-e é calculado pelo Valor Total de Serviços subtraindo-se: Valor do PIS, COFINS, INSS, IR, CSLL, Outras Retenções, ISS Retido, Desconto Incondicionado e Desconto Condicionado.

Italo Referente ao post #109, qual seria o correto, mudar a classe Fiorilli para usar os prefixo ou colocar um if só para usar a função NotaUtil.RetirarPrefixos nos retornos desse provedor ? Segue anexo os arquivos para você dar uma olhada. carlosrosa Tenta fazer um teste por exemplo não passar o campo Servico.MunicipioIncidencia, verifica se ai vai exibir a menssagem, pois aqui não estava exibindo até eu fazer essa alteração, talvez esse teste do RPS eu fiz depois e me confundi. Mas o primeiro problema foi esse do Servico.MunicipioIncidencia arce Aguarda o Italo verificar os códigos que estou passando para ele, pois já consegui enviar no método síncrono e até o momento está dando certo. Qualquer coisa baixa esses fontes anexo e faz um teste. ACBrNFSeWebServices.pas pnfsGerarNfseResposta.pas

carlosrosa Consegui acertar também para tratar o retorno quando houver algum erro no envio... Testei aqui tentando enviar o mesmo RPS duas vezes e exibiu a mensagem do erro. Vamos à alteração feita... na classe pnfsGerarNfseResposta.pas na linha 589 tem um if leitor.rExtrai(2, 'ListaMensagemRetorno') <> '' then Na linha 601 tem o end desse if... Pulei uma linha e 603 eu adicionei esse código: if leitor.rExtrai(2, 'ListaMensagemRetornoLote') <> '' then begin i := 0; while Leitor.rExtrai(3, 'MensagemRetorno', '', i + 1) <> '' do begin ListaNfse.FMsgRetorno.Add; ListaNfse.FMsgRetorno.FCodigo := Leitor.rCampo(tcStr, 'Codigo'); ListaNfse.FMsgRetorno.FMensagem := Leitor.rCampo(tcStr, 'Mensagem'); ListaNfse.FMsgRetorno.FCorrecao := Leitor.rCampo(tcStr, 'Correcao'); inc(i); end; end; Me parece que o retorno da Fiorilli não vem na tag ListaMensagemRetorno e sim na ListaMensagemRetornoLote, nesse caso não vejo necessidade do if do provedor pois ou terá uma tag ou a outra.

carlosrosa Eu to com esse problema também... só para testar eu fiz a seguinte mudança e agora ta salvando. Abre o arquivo ACBrNFSeWebServices.pas, vai na linha 3900 ve se está assim FRetListaNfse := SeparaDados(FRetWS, Prefixo3 + 'ListaNfse'); e muda para FRetListaNfse := SeparaDados(NotaUtil.RetirarPrefixos(FRetWS), Prefixo3 + 'ListaNfse'); Pelo que entendi isso ta acontecendo porque no retorno as tags estão vindo com o prefixo ns2: e nossa classe fiorilli não está configurada para usar o prefixo. Não sei agora o que seria o mais correto, mudar nossa classe fiorilli para usar os prefixo ou fazer um if nessa linha somente para esse provedor.

carlosrosa Da uma olhada se a opção Configuracoes.WebServices.Salvar está true.

Ítalo na procedure GerarServico da pnfsNFSeW.pas tive que incluir um if, mas não sei se é bom deixar ele para os outro provedores... proISSDigital, proFiorilli, proSaatri: begin Gerador.wGrupoNFSe('Servico'); Gerador.wGrupoNFSe('Valores'); Gerador.wCampoNFSe(tcDe2, '#13', 'ValorServicos', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, ''); Gerador.wCampoNFSe(tcDe2, '#14', 'ValorDeducoes', 01, 15, 0, NFSe.Servico.Valores.ValorDeducoes, ''); Gerador.wCampoNFSe(tcDe2, '#15', 'ValorPis ', 01, 15, 0, NFSe.Servico.Valores.ValorPis, ''); Gerador.wCampoNFSe(tcDe2, '#16', 'ValorCofins ', 01, 15, 0, NFSe.Servico.Valores.ValorCofins, ''); Gerador.wCampoNFSe(tcDe2, '#17', 'ValorInss ', 01, 15, 0, NFSe.Servico.Valores.ValorInss, ''); Gerador.wCampoNFSe(tcDe2, '#18', 'ValorIr ', 01, 15, 0, NFSe.Servico.Valores.ValorIr, ''); Gerador.wCampoNFSe(tcDe2, '#19', 'ValorCsll ', 01, 15, 0, NFSe.Servico.Valores.ValorCsll, ''); Gerador.wCampoNFSe(tcDe2, '#22', 'OutrasRetencoes ', 01, 15, 0, NFSe.Servico.Valores.OutrasRetencoes, ''); Gerador.wCampoNFSe(tcDe2, '#21', 'ValorIss ', 01, 15, 1, NFSe.Servico.Valores.ValorIss, ''); Gerador.wCampoNFSe(tcDe2, '#25', 'Aliquota ', 01, 05, 1, NFSe.Servico.Valores.Aliquota, ''); Gerador.wCampoNFSe(tcDe2, '#27', 'DescontoIncondicionado', 01, 15, 0, NFSe.Servico.Valores.DescontoIncondicionado, ''); Gerador.wCampoNFSe(tcDe2, '#28', 'DescontoCondicionado ', 01, 15, 0, NFSe.Servico.Valores.DescontoCondicionado, ''); Gerador.wGrupoNFSe('/Valores'); Gerador.wCampoNFSe(tcStr, '#20', 'IssRetido ', 01, 01, 1, SituacaoTributariaToStr(NFSe.Servico.Valores.IssRetido), ''); if (NFSe.Servico.Valores.IssRetido) <> stNormal then Gerador.wCampoNFSe(tcStr, '#21', 'ResponsavelRetencao ', 01, 01, 1, ResponsavelRetencaoToStr(NFSe.Servico.ResponsavelRetencao), ''); Gerador.wCampoNFSe(tcStr, '#29', 'ItemListaServico ', 01, 0005, 1, NFSe.Servico.ItemListaServico, ''); Gerador.wCampoNFSe(tcStr, '#30', 'CodigoCnae ', 01, 0007, 0, SomenteNumeros(NFSe.Servico.CodigoCnae), ''); Gerador.wCampoNFSe(tcStr, '#32', 'Discriminacao ', 01, 2000, 1, NFSe.Servico.Discriminacao, ''); Gerador.wCampoNFSe(tcStr, '#33', 'CodigoMunicipio ', 01, 0007, 1, SomenteNumeros(NFSe.Servico.CodigoMunicipio), ''); if FProvedor <> proISSDigital then Gerador.wCampoNFSe(tcInt, '#34', 'CodigoPais ', 04, 04, 0, NFSe.Servico.CodigoPais, ''); Gerador.wCampoNFSe(tcStr, '#35', 'ExigibilidadeISS ', 01, 01, 1, ExigibilidadeISSToStr(NFSe.Servico.ExigibilidadeISS), ''); Gerador.wCampoNFSe(tcInt, '#36', 'MunicipioIncidencia ', 07, 07, 0, NFSe.Servico.MunicipioIncidencia, ''); Gerador.wGrupoNFSe('/Servico'); end;

Segue procedure alterada da classe ACBrNFSeWebServices.pas procedure.txt

Pessoal fiz algumas alterações e consegui fazer enviar no método síncrono. Agora estou tentando resolver poque não está lendo o retorno da nfse. Vou fazer alguns testes hj a noite a amanha cedo já posto as alterações que fiz. Ítalo da uma olhada nesse xml... estou com dúvida quanto a essas tags com valor ns2: Nesse caso tenho que usar os prefixo ??? Pois não esta lendo esse xml e não está salvando na pasta certa da nfse. 5310-lista-nfse-c.xml

carlosrosa você está passando os parâmetros usuario e senha da guia WebService. Eles são repassados para os campos: ACBrNFSe1.Configuracoes.WebServices.SenhaWeb ACBrNFSe1.Configuracoes.WebServices.UserWeb

Boa tarde a todos Estive mexendo com o servidor Fiorilli esses dias. Baixei as atualizações do ACBR e quando fui ver estava um pouco diferente do que pede a documentação. Como estava com tempo acabei fazendo uma série de implementações no componente e até o momento está dando certo. Ainda não ta rodando, mas já ta quase. Como estão as alterções que o ítalo começou a fazer ??? Alguém já esta rodando com esse servidor?? Pois eu não sei se estou fazendo algo que já foi feito... De qualquer forma ta servindo pra estudar o componente. Segue anexo os arquivos alterados.... Por hoje vou ter que para de mexer mas segunda 05/07/2013 darei continuidade. ACBrNFSe.rar

Boa tarde a todos Estou utilizando o componente para emissão de NFS-e na cidade de Catanduva/SP. Fiz algumas adições de código e gostaria de saber se tem como repassar para o fonte do repositório: ACBrProvedorGovBR.pas - Adição Conteúdo - Linha 104 3511102:ConfigCidade.CodigoURLs := 10; // Catanduva/SP ACBrProvedorGovBR.pas - Adição Conteúdo - Linha 299 3511102: begin ConfigURL.HomNomeCidade := ''; ConfigURL.HomRecepcaoLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.HomConsultaLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.HomConsultaNFSeRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.HomConsultaSitLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.HomConsultaNFSe := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.HomCancelaNFSe := 'http://nfse.catanduva.sp.gov.br/NFSEWSTESTE/Services.svc'; ConfigURL.ProNomeCidade := ''; ConfigURL.ProRecepcaoLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; ConfigURL.ProConsultaLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; ConfigURL.ProConsultaNFSeRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; ConfigURL.ProConsultaSitLoteRPS := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; ConfigURL.ProConsultaNFSe := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; ConfigURL.ProCancelaNFSe := 'http://nfse.catanduva.sp.gov.br/NFSEWS/Services.svc'; end; pnfsConversao.pas - Adição Conteúdo - Linha 630 3511102, // Catanduva/SP pnfsConversao.pas - Adição Conteúdo - Linha 869 3511102: Cidade := 'Catanduva/SP'; ACBrProvedorGovBR.pas pnfsConversao.pas

Desativei a opção e funcionou blz.... Muito Obrigado