Ir para conteúdo
  • Cadastre-se

dev botao

Novo provedor de Maravilha NFSe - (Betha e-Nota)


rodrigod6
  • Este tópico foi criado há 3147 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa Tarde Galera,

A cidade Maravilha/SC estava no GovBR e agora vai mudar de provedor, vai utilizar o provedor Betha.

Alguém já fez os testes com o novo provedor?

Posso ajudar em algo? Basicamente o provedor Betha já funciona. Seria somente retirar as referências do GovBr e apontar para o Betha?

Abraços

Rodrigo

Rodrigo ®¿®

Curitiba-PR

Link para o comentário
Compartilhar em outros sites

Ja estou usando mais de uma semana em homologação, ate por que e da minha cidade aqui.

Segue link para maiores duvidas -> http://www.maravilha.sc.gov.br/cms/pagina/ver/codMapaItem/65131

E entra em produção dia 02/09/2015.

Editado por Oneide Luiz Schneider
 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
Link para o comentário
Compartilhar em outros sites

Mas dentro do pnfsConversao.pas tirou do Pronim e mudou para o Betha?

Já habilitei o modo de homologação lá no Betha

Mudei para o Betha no pnfsConversao

Estou tentando, mas quando chegou nesses comandos:

ACBrNFse1.Enviar

ACBrNFSeNotaFiscais (Procedure NotaUtil.Assinar )

Erro: [unspecified error)

Estou fazendo mais alguns testes por aqui... qualquer avanço eu posto aqui

obrigado por enquanto

 

Editado por rodrigod6

Rodrigo ®¿®

Curitiba-PR

Link para o comentário
Compartilhar em outros sites

Isso, só alterar o pnfsConversao.pas.

Estou emitindo notas desde semana passada tudo 100%, Delphi 2007 e XE6.

 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
Link para o comentário
Compartilhar em outros sites

Quando as assinaturas, de Lote, de RPS, deixou o padrão do Componente?

Continuo com o mesmo erro. Veja a sequencia que faz até da o erro:

 

Chama rotina

ACBrNFSe1.Enviar(nLote,false);

dentro da rotina ACBrNFSe1.Enviar chama a 
  NotasFiscais.Assinar(FConfiguracoes.Certificados.AssinaRPS);   passando parametro true


verifica se tem q assinar (    if AssinaRPS  then )

entra nesta rotina e chama 

if not(NotaUtil.Assinar(LocNFSeW.Gerador.ArquivoFormatoXML,
                                FConfiguracoes.Certificados.GetCertificado,
                                vAssinada, FMsg, False,
                                FConfiguracoes.WebServices.Prefixo3,
                                FConfiguracoes.WebServices.Prefixo4,
                                FConfiguracoes.WebServices.Provedor, ALote))

verifica certificado (GetCertificado) e chama rotina abaixo

NotaUtil.Assinar

dentro desta rotina tem uma diretiva e chama esta rotina

Result := AssinarMSXML(AXML, Certificado, AXMLAssinado,
                         ALote, APrefixo3, APrefixo4, AProvedor, ASincrono);

function AssinarMSXML(XML : AnsiString;
                      Certificado : ICertificate2;
                      out XMLAssinado : AnsiString;
                      ALote: Boolean = False;
                      APrefixo3: string = '';
                      APrefixo4: string = '';
                      AProvedor: TnfseProvedor = proNenhum;
                      ASincrono: Boolean = False): Boolean;


carregando informações do certificador

OleCheck(IDispatch(Certificado.PrivateKey).QueryInterface(IPrivateKey,PrivateKey));
   xmldsig.store := CertStoreMem;

dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0);
if (dsigKey = nil)
    then raise Exception.Create('Erro ao criar a chave do CSP.');

quando executa esta rotina aparece erro
   
signedKey := xmldsig.sign(dsigKey, $00000002);

 

Vou tentar fazer um teste com o demo  do componente.

Eu tinha isso funcionando com o provedor antigo.

Só atualizei os fontes para hoje, mudei o conversão , o schema...

Vou seguindo, se alguém tiver alguma ideia é bem vindo.

Vou postando os resultado aqui..

Obrigado

 

Rodrigo ®¿®

Curitiba-PR

Link para o comentário
Compartilhar em outros sites

isso.. 

uso assim tb = ACBrNFSe.Enviar(_ANumeroLote, False);

mas assim.. acompanha nos LOTES do RPS no sistema BETHA e veja se esta chegando la.

senão vc configurou errado o componente (Acredito que seja isso).

Lembrando que se vc usa Maquina virtual, pega e testa fora dela, por aqui deu problema em algumas.

 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Este tópico foi criado há 3147 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.