Demostenes Damasio B Jr

Bom dia , Alguém já conseguiu testar a 4.00 , com SP ? Pelo site de homologação , da SEFAZ , estaria tudo ok ! Obrigado ! Demóstenes

Prezados Estou recendo está mensagem para a 4.00 , no caso de SP . Para o RJ está normal Servidor SEFAZ Erro Inativo ou Inoperante Obrigado ., Demóstenes

Obrigado BigWings o Erro mudou , vou pesquisar . Chave:33170733054412000163550010001544161457347972 Status Resposta:879 Motivo:Rejeicao: Informado item 'Produzido em escala NAO Relevante' e nao informado CNPJ do Fabricante [nItem:1] abcs, Demóstenes

No meu caso o erro persiste para o RJ : procedure TNFeEnvEvento.DefinirServicoEAction; begin // FPServico := GetUrlWsd + 'RecepcaoEvento'; // FPSoapAction := FPServico; if (FPConfiguracoesNFe.Geral.VersaoDF >= ve400) then begin FPServico := GetUrlWsd + 'NFeRecepcaoEvento4'; FPSoapAction := FPServico; // + '/nfeRecepcaoEvento'; end else begin FPServico := GetUrlWsd + 'RecepcaoEvento'; FPSoapAction := FPServico; end; end; Efetuando a consulta do Recibo: 333002174365347 Ocorreu um Erro na Consulta de Lotes: Erro Interno: 0 Erro HTTP: 500

Olá senhores, Acabei de fazer a alteração acima e continuo com este erro : Efetuando a consulta do Recibo: 333002174357075 Ocorreu um Erro na Consulta de Lotes: Erro Interno: 0 Erro HTTP: 500 Estado : RJ at., Demóstenes

bom dia amigos , Estou com este erro ao consultar Lotes, rio de janeiro : Efetuando a consulta do Recibo: 333002174357075 Ocorreu um Erro na Consulta de Lotes: Erro Interno: 0 Erro HTTP: 500 at., Demóstenes

Olá , Faça assim , adaptando ao seu código : with NotaBase.pag.Add do begin tPag := fpOutro; end

Olá amigo . Possui alguma referência ou exemplo ? Obrigado ! Demóstenes estou usando estas configurações . ACBrNFe1.Configuracoes.Geral.SSLLib := libWinCrypt; . libWinCrypt: begin SSLCryptLib := cryWinCrypt; SSLHttpLib := httpWinHttp; SSLXmlSignLib := xsMsXml; Obrigado Demóstenes

Sim. Abandonei a Capicom! Antes funcionava normalmente!

Somente para ceritficado A3 estou tendo o seguinte erro : Erro: Falha ao ler a Chave Privada de DadosPFX. : ACBrDFeXsXmlSec; FdsigCtx^.signKey := xmlSecCryptoAppKeyLoadMemory( MS.Memory, MS.Size, xmlSecKeyDataFormatPkcs12, PAnsiChar(Senha), nil, nil); if (FdsigCtx^.signKey = nil) then raise EACBrDFeException.Create(cErrPrivKeyLoad); procedure xmlSecDSigCtxDebugDump (dsigCtx: xmlSecDSigCtxPtr; output: PFILE); cdecl; external LIBXMLSEC_SO; Obrigado ! Demóstenes

Pessoal , Reinstalei o certificado ajustando a opção de exportação e funcionou . Obrigado ! at., Demóstenes

Boa Obrigado, Consegui sair do erro . Aparentemente já consegui eliminar a Capicom ! at., Demóstenes Boa tarde , Alguém pode ajudar ou passou por isto ? Estou agora com o seguinte erro : Certificado não permite Exportar Chave Privada. Seguem a Unit e as funções que consegui processar : ACBr_WinCrypt; function CertOpenStore; external Crypt32 name 'CertOpenStore'; <<<<<<<<<<<<<<<<<<<<<< ok function CertAddCertificateContextToStore; external Crypt32 name 'CertAddCertificateContextToStore' <<<<<<<<<<<<<<<<<<<<<< ok function CertFreeCertificateContext; external Crypt32 name 'CertFreeCertificateContext'; <<<<<<<<<<<<<<<<<<<<<< ok function PFXExportCertStoreEx; external Crypt32 name 'PFXExportCertStoreEx'; <<<<<<<<<<<<<<<<<<<<<< Erro if not PFXExportCertStoreEx( AStore, PFXBlob, LPCWSTR(WideString( APass )), Nil, dwFlags) then raise EACBrDFeExceptionNoPrivateKey.Create('Certificado não permite Exportar Chave Privada.'); obrigado ! Demóstenes

Obrigado, Consegui sair do erro . Aparentemente já consegui eliminar a Capicom ! at., Demóstenes

Olá , Ainda pedindo ajuda : Estou tendo erro nesta instrução . libWinCrypt: begin SSLCryptLib := cryWinCrypt; <<<<<<<<<<<<<<<<<<<<<<<<<<<< Access violation . Fiz todas as alterações . Obrigado ! Demóstenes

Obrigado amigo, Vou buscar as alterações . Qq coisa te falo ! Abcs. Demóstenes

Boa tarde , Estou colocando o meu pedido de ajuda aqui, pois, acredito que o assunto é semelhante . Estou caindo nesta situação: function TDFeSSLHttpClass.Enviar(const ConteudoXML: String; const AURL: String; const ASoapAction: String; AMimeType: String): String; begin {$IFDEF FPC} Result := ''; {$ENDIF} raise EACBrDFeException.Create('Método "Enviar" não implementado em: '+ClassName); __________<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Por razões que independem da minha vontade , tenho feito merge e tem dado certo. Segue um arquivo com mais informações . Uso o ACBR por mais de 4 anos . Com bastante sucesso . Estou tentando migrar para 4.0 Obrigado ! Demóstenes ErroConsultaStatus.txt

Olá estou com este tipo de problema (220 2.0.0 SMTP server ready') . Sendo que , consigo enviar em um projeto e em outro , que modifiquei com esta finalidade , não consigo : Erro no ReadResult na função abaixo : function TSMTPSend.StartTLS: Boolean; begin Result := False; if FindCap('STARTTLS') <> '' then begin FSock.SendString('STARTTLS' + CRLF); if (ReadResult = 220) and (FSock.LastError = 0) then begin Fsock.SSLDoConnect; Result := FSock.LastError = 0; end; end; end;

Olá estou com este tipo de problema (220 2.0.0 SMTP server ready') . Sendo que , consigo enviar em um projeto e em outro , que modifiquei com esta finalidade , não consigo : Erro no ReadResult na função abaixo : function TSMTPSend.StartTLS: Boolean; begin Result := False; if FindCap('STARTTLS') <> '' then begin FSock.SendString('STARTTLS' + CRLF); if (ReadResult = 220) and (FSock.LastError = 0) then begin Fsock.SSLDoConnect; Result := FSock.LastError = 0; end; end; end;

Amigos resolvido , obrigado !

Pessoal , Também estou com este problema de separar destinatários , alguém sabe ? Já tentei , ou ; e < 501 5.1.3 SMTP error mailto:permanent failure-bad destination At., Demóstenes

Obrigado Italo , At., Demóstenes

Senhores , Acabei de processar em SCAN-AN , com Base De ICMS e fui bem sucedido em homologação , este ambiente em produção parece que está inativo !

Italo , Muito obrigado , neste caso aguardamos , certo ? at., Demóstenes

Italo, É o mesmo problema que estou tendo . Se enviar sem ICMS funciona , caso contrário não . Os XML´s estão postados acima. Outro problema é o ambiente SCAN - produção parece não estar ativo e pelo SEFAZ está mostrando ativo !!! Obrigado ! Demóstenes

É companheiro , estamos sofrendo !!!!