vand3rson
Membros-
Total de ítens
24 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
vand3rson's Achievements
-
@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
- 1 reply
-
- 1
-
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