vand3rson

@Italo Jurisato Junior Boa tarde, baixei os fontes e funcionou. Muito obrigado.

Boa tarde, estou usando o método "ConsultaLoteRps" mas ele não está retornando a mensagem de falha. Fiz algumas modificações para conseguir obter a mensagem, mas acredito não ser a melhor abordagem. Vou passar o que alterei para se possível apontarem uma melhor solução, obrigado. Arquivo [ ISSJoinville.ini ] [GrupoMsgRet] Recepcionar= ConsSit= ConsLote=MensagemRetornoLote ConsNFSeRPS= ConsNFSe= Cancelar= Substituir= Fonte: ACBrNFSeWebServices function TWebServices.ConsultaLoteRps(ANumLote, AProtocolo: String): Boolean; begin FConsLote.FNumeroLote := ANumLote; FConsLote.FProtocolo := AProtocolo; Result := FConsLote.Executar; if not (Result) then if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor = proISSJoinville then FConsLote.GerarException( FConsLote.RetWS ) else FConsLote.GerarException( FConsLote.Msg ); end; FConsLote.Msg retorna sempre uma string vazia, por isso alterei para RetWS. Em anexo XML que retorna a falha. 00000000062019329461100821995000151-sit.xml

Segue mudança de provedor para Araquari-SC [4201307] Nome=Araquari UF=SC Provedor=IPM

Bom dia, não sei se aqui é o melhor local, mas o assunto é pertinente. Estou atualmente ajustando a NFSe para a cidade de Palhoça e eles estão utilizando IPM, poderia ser atualizado Cidades.ini. Também adicionei a cidade de Timbó - SC Cidades.INI

Bom dia, como não consigo carregar o xml no componente (ACBrNFSe1.NotasFiscais.LoadFromFile) eu utilizo a mesma rotina que uso para "alimentar" o componente. Assim consigo imprimir o DANFESe e enviar e-mail. Damos a opção de visualização/impressão, envio de email no retorno da prefeitura, bem como também posteriormente as ações ficam disponíveis (dados do banco "alimenta" o componente).

Boa tarde, não sei se é o correto mas é como estou obtendo o retorno. if NFS.WebServices.Envia(NFS.NotasFiscais.NumeroLote) then Com o retorno verdadeiro da função "Envia" você pode fazer como está no arquivo ACBrNFSeWebServices conforme imagem anexada <acbr.PNG>. Quanto ao xml esse é difícil, eles só retornam isso mesmo: https://www.nfs-e.net/arquivos/xml/exemplo_retorno.xml

2 Novas naturezas de operação para o provedor publica cidade de Caçador . pnfsConversao.pas

Segue arquivos. pnfsConversao.pas pnfsNFSeG.pas pnfsNFSeW_ABRASFv1.pas

Ola, segue algumas modificações efetuadas para envio/cancelamento de NFSe para o Provedor Publica testadas para a prefeitura de Caçador. [ pnfsNFSeW_ABRASFv1.pas ] Situação: Informação da aliquota deve ser dividida por 100 como o GINFES Linha: 280 proGINFES, proPublica: Gerador.wCampoNFSe(tcDe4, '#25', 'Aliquota', 01, 05, 0, (NFSe.Servico.Valores.Aliquota / 100), ''); [ pnfsNFSeG.pas ] Situação: Quando o código de cancelamento for 'C999' é necessario informar o Motivo. Linha: 1271 ** Adicionado abaixo da linha 1271 ** if (Provedor in [proPublica]) and (CodigoCanc = 'C999') then Gerador.wCampoNFSe(tcStr, '#1', 'MotivoCancelamento', 01, 255, 1, MotivoCanc, ''); [ pnfsConversao.pas ] Situação: Função "StrToNaturezaOperacao" foi modificada, função "NaturezaOperacaoToStr" não foi. Linha: 257 ['1', '2', '3', '4', '5', '6', '7', '9', Linha: 264 [no1, no2, no3, no4, no5, no6, no7, no9, não sei se foi a melhor abordagem, mas com essas modificações consegui transmitir a NFSe, espero estar contribuindo. Se for possível analisar, melhorar e incluir as modificações. Obrigado.

Provedor: Equiplano Ambiente: Homologação/Produção Ao assinar o RPS ocorre o seguinte erro: ** Não encontrei final do elemento: </Rps> ** Não sei se é a melhor solução, mas alterei o arquivo ACBrNFSeNotasFiscais.pas na linha 263, substituindo o seguinte fonte: if Assina then FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'Rps', InfElemento) else FXMLAssinado := XMLOriginal; Por este: if Assina then begin if Configuracoes.Geral.Provedor = proEquiplano then FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'rps', InfElemento) else FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'Rps', InfElemento) end else FXMLAssinado := XMLOriginal; Acredito que possam incorporar uma melhor solução no projeto. Obrigado.

Efetuei algumas modificações e ajustes na impressão QuickReport como troca de Cedente por Beneficiário etc.. Segue em anexo para avaliação pelos responsáveis. Obrigado. ACBrBoleto.rar

Bom dia, se possível poderia ser atualizado o logo do boleto do banco Sicredi, segundo orientação do banco o logo correto é o que segue em anexo. Obrigado. 748.bmp

Por favor se for possível adicionar a cidade de Herval D Oeste/SC provedor Betha 4206702, Cidade := 'Herval D Oeste/SC'; Obrigado.

Show de bola, muito obrigado.

Para o provedor Equiplano deve ser informado a IE do tomador, porem para clientes que não possuem IE segundo contato que tive com o pessoal da Equiplano a Tag <nrInscricaoEstadual> não deve ser informada no RPS. --------- Nesse caso não envie a tag referente a IE. Suporte EQUIPLANO ----------- Efetuei uma modificação na linha 1271 no pas [pnfsNFSeW] segue em anexo para avaliação. pnfsNFSeW.pas

Para o provedor Equiplano deve ser informado a IE do tomador, porem para clientes que não possuem IE segundo contato que tive com o pessoal da Equiplano a Tag <nrInscricaoEstadual> não deve ser informada no RPS. --------- Nesse caso não envie a tag referente a IE. Suporte EQUIPLANO ----------- Efetuei uma modificação na linha 1271 no pas [pnfsNFSeW] segue em anexo para avaliação.

Estou homologando no Banrisul e Itaú, ambos solicitaram alterações de "Sacado" para "Pagador" e "Cedente" para "Beneficiário". O Itaú solicitou ainda alteração no local de pagamento para "ATÉ O VENCIMENTO PAGUE PREFERENCIALMENTE NO ITAÚ'+#13#10+'APÓS O VENCIMENTO PAGUE SOMENTE NO ITAÚ' O Banrisul solicitou que seja informado o nome do "Beneficiário", o endereço do "Beneficiário" e o CNPJ/CPF do mesmo, no recibo do "Pagador" Para as situações de troca de cedente e sacado, ok .. troquei na unit do quick, a questão do local de pagamento, também organizei para que esta informação possa ser exibida sem cortes, (autostretch = true). Porem a solicitação do Banrisul de passar o endereço e cnpj no recibo do "Pagador", teria que diminuir fonte e ajustar o campo para as informações serem exibidas corretamente, ou como sugestão do pessoal de sistemas do banco criar um novo campo para esta informação. Gostaria de saber se alguém já teve que fazer essa adaptação?

Ola, Alguém esta desenvolvendo para o provedor Equiplano? Estão conseguindo recuperar o XML da NFSe? Percebi que no fonte: pnfsConsLoteRpsResposta, existe a função (function TretLote.LerXML_provedorEquiplano: Boolean;) porem ela é bem simples comparada a função (function TretLote.LerXml: boolean;) a qual identifica no XML de retorno a listaNfse. Em anexo um arquivo XML com a listaNfse que obtive da equiplano. listaNFse.xml

Concordo plenamente, seria muito mais fácil se todos os provedores seguissem um único padrão, exemplo NFe.

Obrigado, Segue anexo conforme solicitado. nfse.xml

Ola, estou com um problema para exibir o numero da NFSe substituída no Danfe (QuickReport). Dando uma olhada nos fontes encontrei uma diferença, não sei se esta certo. Mas, la vai. Provedor Betha No XML a tag esta assim: <NfseSubstituta>82</NfseSubstituta> No fonte unit (pnfsNFSeR): NFSe.NfseSubstituida := Leitor.rCampo(tcStr, 'NfseSubstituida'); Nota: Trocando 'NfseSubstituida' para 'NfseSubstituta' passa a aparecer o numero da NFSe Substituída. Alguém já passou por esse problema, essa é a solução? Estou fazendo algo errado? Obrigado.

Bom dia, 1) Alguém precisou implementar o Danfe no QR, no formato da Betha para mais de um serviço seguindo o modelo proposto por eles? Modelo Betha, para mais de um serviço: <Discriminacao> {[[Descricao=Alug. Sist. Folha de Pagamento][Quantidade=3][ValorUnitario=1213.32][Deducoes=1.00][DescontoCondicionado=1.20][DescontoIncondicionado=1.12]] [[Descricao=Alug. Sist. Contabilidade Publica][Quantidade=1][ValorUnitario=587.05]] </Discriminacao> Acredito que tenho que identificar os "{ [ ] }" que eles usam e fazer a quebra na procedure TfqrDANFSeQRRetrato.qrb_5_ItensBeforePrint também substituir o Memo por labels em coluna. 2) Alguém esta informando o parcelamento no Danfe com o QR também para a Betha ? Já observaram como eles fazem pelo site, seria interessante fazer algo parecido. Obrigado.

Bom dia Italo, 2012 era ISSNet 2013 passou a ser Betha. Att.

Adicionar no fonte pnfsConversao, cidades de Xanxerê e Caçador Provedor: Betha 4219507, // Xanxere/SC; 4203006, // Cacador/SC; Obrigado.