[Implementação Nfse - São Paulo]

Em 04/12/2015 at 23:33, Antonio Alexanadre disse:

Ao instalar o acbr do link eu nao consigo instalar o nfse da erro alguem pode me dar um help

 

Bom dia Antônio,

eu emito NFSe de BH com estes fontes e funciona normal, mas qual é o erro ?

[Nfs-E São Paulo ( Prodam ) Implementada !]

Boa tarde Jonathan, existe solicitação para incluir esta implementação no projeto ACBR ?

Por favor, pode disponibilizar os fontes em C# da DLL ?

Bom dia Davi,

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

[Nfs-E São Paulo ( Prodam ) Implementada !]

ERRO: Erro no suporte a canais seguros - URL:https://nfe.prefeitura.sp.gov.br/ws/lotenfe.asmx - SOAPAction:http://www.prefeitura.sp.gov.br/nfe/ws/envioLoteR

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.

[Implementação Nfse São Paulo]

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 : 

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

[Nfs-E São Paulo ( Prodam ) Implementada !]

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

[Nfs-E São Paulo ( Prodam ) Implementada !]

Sim, baixei os arquivos que estão naquele link do 4shared lá no primeiro post.

Pra mim só veio arquivos de fonte, nenhum exemplo...

Consegui gerar uma nota usando o método Enviar(), mas ao final da rotina, quando manda Consultar a Situação do Lote, gera uma exceção de erro desconhecido.

Quando eu utilizo o método ConsultarLoteRPS() dá um erro dizendo que o CNPJ da assinatura não confere com o CNPJ do emitente.

Mas no XML de Consulta não vai a TAG <Assinatura> gerada a partir da DLL... ou vai?

Amanhã vou fazer mais testes, mas se tu tiver mais alguma dica, agradeço.

Abraço, André

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

[Nfs-E São Paulo ( Prodam ) Implementada !]

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.

[Nfs-E São Paulo ( Prodam ) Implementada !]

Boa tarde Jonathan Augusto!

Estou aplicando as tuas alterações no meu ACBr pra atender uns clientes de São Paulo.

Porém, quando cheguei no pnfsConversao.pas percebi que as funções de natureza de Operação estão defasadas...

Tem umas alterações de Fevereiro (ou março) desse ano, que criou umas naturezas novas e alterou outras duas ficando assim:

'T' - Tributação Normal
'F' - Isenta ou não tributável pelo Município de São Paulo, executada em outro Município
'A' - Tributado em São Paulo, porém Isento.
'B' - Tributado fora de São Paulo, porém Isento.
'M' - Tributado em São Paulo, porém Imune.
'N' - Tributado fora de São Paulo, porém Imune.
'X' - Tributado em São Paulo, porém Exigibilidade Suspensa.
'V' - Tributado fora de São Paulo, porém Exigibilidade Suspensa.
'P' - Exportação de Serviços.

Tu já tem essas alterações? De qualquer forma vou fazer aqui no meu, e posso disponibilizar aqui depois de testar.

Abraço, André

Boa tarde André,

nos meu fontes já estão implementadas as novas tributações.

[Nfs-E São Paulo ( Prodam ) Implementada !]

Boa Tarde jonathan-augusto

 

Parabens pelo  trabalho e compartilhamento da sua solucao.

Temos acompanhado seu trabalho e tomamos a liberdade de fazermos uma sugestão, infelizmente sem ter nocao do trabalho que isto pode gerar ou conflitar com seus interesses.

Sem desvalorizar o pessoal do ACBr, que merece todo nosso agradecimento e creditos, como sugestão se possivel, ate o pessoal da ACBr incorporar o provedor PRODAM em seus componentes, talvez voces pudessem fazer um componente independente do ACBr, baseado inicialmente nas units do ACBr conforme tem expostos, porem com nomes de modulos/units/classes/arquivos diferentes, permitindo o uso simultaneo das solucoes dos componentes do ACBr e a de voces (talves acrescentando nos nomes das units/classes/modulos da ACBr somente o sufixo _SP ou mesmo nomes proprios da sua solucao), as solucoes teriam atualizacoes independentes.

 

Grato

 

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.

 

[Nfs-E São Paulo ( Prodam ) Implementada !]

Boa Tarde jonathan-augusto

 

Consegui registrar a DLL e esta assinando, mas reparei que a assinatura esta saindo com 344 caracteres, sendo que no exemplo da prefeitura esta com 172... É correto isso mesmo? 

 

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.

[Nfs-E São Paulo ( Prodam ) Implementada !]

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.

[Nfs-E São Paulo ( Prodam ) Implementada !]

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

[Implementação Nfse São Paulo]

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 : 

[Nfs-E São Paulo ( Prodam ) Implementada !]

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.  

[Nfs-E São Paulo ( Prodam ) Implementada !]

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.

[Nfs-E São Paulo ( Prodam ) Implementada !]

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

[Retorno Do Acbrnfse1.consultarloterps]

       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;

[Implementação Nfse São Paulo]

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.

 

   

[Implementação Nfse - São Paulo]

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 ).

[Implementação Nfse - São Paulo]

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/ 

[Implementação Nfse - São Paulo]

Ótimo, estou trabalhando nisso também, mas na versão OpenSSL,  vi que você criou os métodos para CapCom, caso queira ajuda com os ajustes, posso partir do que você já fez e ajustar o código para funcionar no servidor.

 

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.

[Implementação Nfse - São Paulo]

Olá j. augusto.

Eu também estou implantando a NFS-e em São Paulo e por enquanto criei o arquivo txt e não sei como enviá-lo diretamente ao site da NFS-e Paulistana.

Você pode me dizer como configurar a tab webservice do componente ? Isso é possível ou terei que fazê-lo manualmente através do site da prefeitura ?

 

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.

[Implementação Nfse - São Paulo]

 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.

[Implementação Nfse - São Paulo]

 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

[Implementação Nfse - São Paulo]

Até é melhor usar o delphi 7, pois depois é mais tranquilo para corrigir possíveis problemas que venham a ocorrer devido as versões

tome como exemplo o ACBrNFeMonitor ele é escrito em delphi 7

mas o mais importante é deixe compatível com os fontes que já tem e use a mesma estrutura

 

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