jonatan.souza

Bom dia Antônio, eu emito NFSe de BH com estes fontes e funciona normal, mas qual é o erro ?

Bom dia Davi, segue os fontes da assinatura : http://www.4shared.com/get/KisnnGPVce/AssinaturaRPS_SP.html

Bom dia André, este erro está relacionado as configurações do IE ou Java desatualizado. Estamos com muitos problemas desse em BH também, é só atualizar o Java para 8.51 e desativar as opções "Verifica a revogação do certificado" também no IE como nas configurações do Java.

Jonathan, boa noite.Não consigo baixar os fontes que você disponibilizou. Todos os links estão quebrados. Você consegue postar novamente? Obrigado. Boa noite. Não consegui baixar os fontes de nenhum link disponibilizado. Todos estão dando erro. Alguém consegue colocar os fontes novamente? Obrigado. O link não está quebrado : http://www.4shared.com/rar/wI0N3oaAba/Acbr__1_.html

Realmente André, eu refiz todo o procedimento como "Prodam", agora para implementar qualquer município que utiliza "Prodam" ficou bem mais simples.

André tem sim, olha a imagem em anexo. É só seguir o exemplo de enviou e consulta, qualquer dúvida pode perguntar.

André vc baixo os meus fontes ? junto com os fontes estão os exemplos de enviou e consulta da NFSe, tenta fazer o teste por lá. Talvez seja não esteja passando os tipos corretos. Veja ai me avise, eu tenho clientes emitindo normalmente com estes mesmos fontes.

Boa tarde André, nos meu fontes já estão implementadas as novas tributações.

Obrigado Delfino. Hoje dentro dos meus fontes ( anexo no primeiro post ) as Units e funções estão tudo padronizado como Prodam, existe só mais uma DLL "AssinaturaRPS_SP.dll" que deve ser registrada pelo regasm.exe, mas os moderadores não aceitaram incluir ela no projeto. Espero que em futuro próximo conseguimos fazer uma assinatura pelo Delphi, estou pensando em fazer uma DLL pelo XE e embutir no projeto.

Como estou de férias não consigo comparar o XML, mas se assinou pode ter certeza que vai funcionar, o sistema que eu implementei já está emitindo tudo ok. Envie a NFse para a prefeitura e veja se deu certo, qualquer coisa pode me acionar.

Bom dia, você registrou foi a DLL "AssinaturaRPS_SP.dll", se sim, verifique se a mesmas está na pasta c:\Windows\SysWOW64 ( Win64 ) ou c:\Windows\System32 ( Win32 ) Coloque também o no diretório do executável, tenta e me avisa.

Bom saber, podemos fazer uma API em Delphi XE !!!

Bom dia pessoal, eu implementei a NFSe de SP no Acbr com tudo funcionando no layout mais novo da prefeitura, com exemplos e tudo mais. Caso queiram, segue o link :

Concordo Juliomar, eu fiz muitas pesquisas e testes, infelizmente o Delphi não gera a chave correta.. É somente uma DLL para registrar, acho que os benefícios será muito maior para os desenvolvedores.

Juliomar, a DLL foi feita em C#. Estou tentando anexar os arquivos, mais é muito grande, posso compartilhar via 4shared para você ? Eu tenho os fontes feito em C#, se quiser também coloco na pasta Acbr.

Bom dia, a algum tempo atrás eu comecei a implementar a NFSe de SP dentro do Acbr e por outras prioridades aqui na empresa tive que parar, mas eu compartilhei algumas informações ( ) para a implementação. Vi alguns tópicos com a implementação de SP, mais nada muito claro, então eu voltei a desenvolver a NFS-e e finalizei na semana passada, e está funcionando tudo de acordo com as regras do ACBR. Eu alterei os mínimos detalhes do fonte ACBR, tornando totalmente compatível, criei telas de exemplo no Envio, Consulta e Cancelamento da NFSe. Assim como se deve registrar a DLL "Capicom.dll" para a NFS-e de SP só deve registrar mais uma DLL "AssinaturaRPS_SP.dll" pelo Regasm. ( Dentro na pasta "Acbr\Exemplos\ACBrNFSe\Delphi\" tem um bat que fazer o registro "InstalarDLLNFSESP.bat"). Lembre-se de importar o arquivo "AssinaturaRPS_SP.tbl" que se encontra na pasta "Acbr\DLLs\AssinaturaRPS_Sp". Fontes : http://www.4shared.com/rar/wI0N3oaAba/Acbr__1_.html

ACBrNFSe1..ConsultarLoteRps(NumLote, qryConLoteRPS.FieldByName('num_protocolo').AsString, qryConLoteRPS.FieldByName('cnpj').AsString, qryConLoteRPS.FieldByName('inscricao').AsString ); Result := True; RetMSG := ''; For i := 0 To ACBrNFSe1..WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Count-1 Do Begin RetMSG := RetMSG + 'Código : ' + ACBrNFSe1..WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Items.Codigo + #13 + 'Mensagem : ' + ACBrNFSe1.WebServices.ConsLote.NFSeRetorno.ListaNfse.MsgRetorno.Items.Mensagem + #13; End;

Parabéns arieldll pelo trabalho, o tópico que você citou foi o meu, mais devido a outros projetos na empresa não finalizei a NFSe SP, mas que bom que vocês fizeram, desta maneira vamos longe aqui no fórum.

Boa noite, eu fiz a parte de assinatura do XML e da TAG <Assinatura>, já esta enviando e está faltando a consulta e cancelamento, devido eu estar com outro projetos não tive tempo de terminar, mais afirmo que está bem adiantado os fontes. ( link acima 4shared.com ).

Boa noite amigos, disponibilizei no 4shared os fonte contendo o inicio da implementação de SP, lembrando que esta somente Assinando a TAG assinatura, enviando e pegando retorno, não tive tempo de terminar os outros eventos como cancelamento e consulta. Link : http://www.4shared.com/rar/YLBvwwlKce/

Vamos sim, deixa eu só receber o certificado de São Paulo só para acertar últimos detalhes aí coloco o fontes disponíveis, pois estou desenvolvendo somente o envio de lote, cancelamento e consulta, assim que eu documentar tudo certinho eu faço o upload dos fontes. O meu e-mail é [email protected] se caso querer manter um melhor contato.

Pelo que sei o arquivo TXT é importado direto pelo site da prefeitura, agora o XML é enviado via web service ( o que eu estou implementando ), como as outras prefeituras.

Bom dia csoft estou implementando no Acbr, já estou enviando, consultando e cancelando. Estou neste momento tratando os retorno do XML e alimentando as propriedade do Acbr. Imagino que até Janeiro esteja tudo pronto e disponível no fórum.

Boa tarde Amigo, como na conversa anterior estou implementando a NFSe Paulistana no Acbr, já estou realizando o envio de Lote e tratando os erros retornados, tudo dentro do padrão Acbr. Como todos sabem existe uma TAG <Assinatura> na NFSe Paulistana que o Delphi não assina correto, ou seja muitos programadores usaram DLL feita em C#, visitei diversos fóruns solicitando a DLL para fazer a tal assinatura, mais nunca ninguém me ajudou. Então tive que aprender C# na raça, e então desenvolvi a tão sonhada DLL que faz a assinatura. Quando toda a rotina estiver implementada foi enviar os fontes para os moderadores verificar e subir. A DLL com o tbl esta em anexo, vou mostrar também como realizar a assinatura : Dentro da Unit AcbrNFSeUtil adicione a função : class function NotaUtil.AssinaturaProdam( Assinatura, NumSerial : String ) : String; var Store : IStore3; Certs : ICertificates2; Certs2 : ICertificates2; Cert : ICertificate2; AssinarRPSSP : TAssinaturaRPS; begin Result := ''; Store := CoStore.Create; Store.Open(CAPICOM_CURRENT_USER_STORE, CAPICOM_STORE_NAME, CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Certs := Store.Certificates as ICertificates2; Certs2 := Certs.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false); if not(Certs2.Count = 0) then begin Cert := IInterface(Certs2.Item[1]) as ICertificate2; AssinarRPSSP := TAssinaturaRPS.Create(nil); Assinatura := AssinarRPSSP.AssinarRPS(Assinatura,UpperCase(Cert.SerialNumber)); Assinatura := StringReplace( Assinatura, #10, '', [rfReplaceAll] ); Assinatura := StringReplace( Assinatura, #13, '', [rfReplaceAll] ); Result := Assinatura; //FDataVenc := Cert.ValidToDate; //FInformacao := Cert.SubjectName end; end; Na pasta do executável você coloca a DLL e registra com o regasm.exe : pelo prompt do DOS (como administrador) execute : "RegAsm AssinaturaRPS_SP.DLL" Para importar o arquivo AssinaturaRPS_SP.tbl faça o seguinte : No Delphi vai em : Project -> Import Type Library -> Add ( AssinaturaRPS_SP.tbl ) Não se esqueça de adicionar a unit "AssinaturaRPS_SP_TLB" em USES. Abraços. AssinaturaRPS_Sp.rar

Estou implementando na mesma estrutura, já tinha feito o de Nova Lima-MG, agora estou fazendo de São Paulo. Mais você sabe me dizer se a assinatura digital de SP é muito diferente das outras ? Obrigado