paulo.bietkoski

11 Abril, 2016

Bom dia Italo,

A principio o problema esta na base de homologação pois funcionou na base de produção.

5 Abril, 2016

Boa noite

preciso consultar uma nota da tecnos que eu tenho certeza que esta cancelada, mas o retorno dela é normal

consulto assim:

Acbr.ConsultarNFSeporRps(vlsRPS, 'UNICA', '1');

mas o retorno vem como Normal e não como srCancelado

acbr.NotasFiscais.Items[0].NFSe.Status

29 Março, 2016

quando envio a nota ocorre o erro abaixo... como devo proceder para resolver?

Falha na validação dos dados da nota: 2907

O elemento '{http://www.portalfiscal.inf.br/nfe}vFCPUFDest' é inesperado, de acordo com o modelo de conteúdo do elemento pai '{http://www.portalfiscal.inf.br/nfe}ICMSTot'.
Esperado: {http://www.portalfiscal.inf.br/nfe}vBCST.

quando desabilito a validação para testar...

function TACBrNFe.Enviar(ALote: String; Imprimir: Boolean; Sincrono: Boolean): Boolean;

...

// NotasFiscais.Validar;

ocorre o seguinte erro: 'Codigo Identificador do CSC no QR-Code nao cadastrado na SEFAZ'

mas o token esta como '&cIdToken=000002&'

<![CDATA[http://www.dfeportal.fazenda.pr.gov.br/dfe-portal/rest/servico/consultaNFCe?chNFe=41160376029024000135651000000029091000029090&nVersao=100&tpAmb=2&dhEmi=323031362d30332d32395431353a32393a33322d30333a3030&vNF=10.00&vICMS=0.00&digVal=326f324d72796773493257776e69766461474e386a4d7443586e493d&cIdToken=000002&cHashQRCode=C558033B4D2D86A69BDB3F9D88086F491F7AB916]]>

como devo proceder para resolver esta questão?

22 Março, 2016

Bom Dia,

Presciso saber como faco para consultar e popular as classes do ACBr com um xml ja enviado para o provedor tecnos que sincrono

22 Março, 2016

Bom Dia,

Presciso saber como faco para consultar e popular as classes do ACBr com um xml ja enviado para o provedor tecnos que sincrono

15 Março, 2016

se eu setar :

UseCertificado=0

ocorre erro em :

function TDFeCapicom.Assinar(const ConteudoXML, docElement, infElement: String;
SignatureNode: String; SelectionNamespaces: String; IdSignature: String
): String;
var
...

begin

...

OleCheck(IDispatch(FCertificado.PrivateKey).QueryInterface(IPrivateKey, PrivateKey));

e desabilitar:

// if not UseCertificate then
// raise EACBrDFeException.Create('Impossível assinar. Componente configurado para não usar Certificado');

15 Março, 2016

se eu desabilitar

if (FUseCertificate) then
FUseSSL := True;

ocorre exceção em :

if (FUseCertificate) then
begin
if not InternetSetOption(pRequest, INTERNET_OPTION_CLIENT_CERT_CONTEXT,
Pointer(HCertContext), SizeOf(CERT_CONTEXT)) then
raise EACBrHTTPReqResp.Create('Erro: Problema ao inserir o certificado')

e não envia!!!

segue o arquivo soap

419-env-lotS-soap.xml

419-env-lotS.xml

15 Março, 2016

Bom dia Italo,

Procuramos o erro, e quando setamos o TECNOS.INI para:

UseCertificado=0
UseSSL=0

O componente gerava um erro de exceção em:

function TDFeSSL.Assinar(const ConteudoXML, docElement, infElement: String;
SignatureNode: String; SelectionNamespaces: String; IdSignature: String
): String;
Var
XmlAss, xmlHeaderAntes, xmlHeaderDepois: String;
I: integer;
begin
if not UseCertificate then
raise EACBrDFeException.Create('Impossível assinar. Componente configurado para não usar Certificado');

entao setei para:

UseCertificado=1
UseSSL=0

mas então quando envio, a rotina abaixo altera a propriedade UseSSL para True mesmo colocando no .ini para false:

procedure TACBrHTTPReqResp.Execute(Resp: TStream);

...

begin

if (FUseCertificate) then
FUseSSL := True;

-----------------------------------------------------------------------------------------------------------------------------------------------------

A SOLUÇÃO PALIATIVA QUE TIVEMOS PARA COMEÇAR A ENVIAR NOVAMENTE FOI:

1) SETAR O TECNOS.INI PARA

UseCertificado=1
UseSSL=0

2) SETAR O (FUseCertificate := false;) E (flags := INTERNET_SERVICE_HTTP;)

procedure TACBrHTTPReqResp.Execute(Resp: TStream);

...

begin

if (FUseCertificate) then
FUseSSL := True;

AProt := '';
APort := '';
APath := '';
HCertContext := 0;

ParseURL(FUrl, AProt, ANone, ANone, AHost, APort, APath, ANone);

FUseCertificate := false; // forcar para false pois não esta respeitando o ini

if (FUseCertificate) then
begin
if ((ShowCertStore) or ((FCertSerialNumber = '') and (FCertificate = nil))) then
begin
FCertSerialNumber := OpenCertStore;
if FCertSerialNumber <> '' then
FCertificate := nil;
end;

...

try

{
if (FUseSSL) then
begin
flags := INTERNET_FLAG_KEEP_CONNECTION or INTERNET_FLAG_NO_CACHE_WRITE;
flags := flags or INTERNET_FLAG_SECURE;

if (FUseCertificate) then
flags := flags or (INTERNET_FLAG_IGNORE_CERT_CN_INVALID or
INTERNET_FLAG_IGNORE_CERT_DATE_INVALID);
end
else
}
flags := INTERNET_SERVICE_HTTP; // forcar para que o envio seja efetuado

-----------------------------------------------------------------------------------------------------------

Apos as alterações o componente voltou a enviar para o provedor a nfs!
OBS: Mas o erro que iniciou este tópico persiste e se encontra na validação abaixo retornando (FDataRecebimento := 0;), criando uma exceção em branco;

function TNFSeWebService.ExtrairNotasRetorno: Boolean;
...

begin

...

if FRetornoNFSe.ListaNFSe.CompNFSe.Count > 0 then

begin
FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.dhRecebimento;
if FDataRecebimento = 0 then
FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.DataEmissao;
if FProvedor in [proInfisc, proGovDigital] then
FProtocolo := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.Protocolo;
end
else begin
FDataRecebimento := 0; // aqui esta populando como zero e retornando erro em branco
end;

...

Result := (FDataRecebimento <> 0);

end;

--------------------------------------------------------------------------------------------------------------------------

(favor avisar quando todos o itens que relatei forem consertado no componente, obrigado)

11 Março, 2016

aproveitando a post... poderia me informar qual a melhor cidade que eu posso utilizar para testar no programa teste? (poderia ser Curitiba?)

11 Março, 2016

isso eu já está configurado desta forma!

Segue o arquivo Tecnos.ini

Tecnos.ini

antes da atualização do dia 10/03 eu estava conseguindo enviar para a homologação e retornava o erro em branco conforme o tópico em que estamos... mas agora apos atualizar para a versão de hoje nem chega a sair dando o erro:

Erro Interno: 12029
Erro HTTP: 0
Erro: Requisição não enviada.
12029 - Uma conexão com o servidor não pôde ser estabelecida

conforme post anterior

11 Março, 2016

Sim, Esta cadastrado e esta funcionando na versão antiga(trunk1).

marcando o SSL3 começa a ocorrer erro de canais seguros e se marcar ssl1 ocorre este erro de conexão...o endereço no browser acessa normalmente.

alguma dica ?

11 Março, 2016

Ajustado problema anterior, mas agora está apresentando o erro abaixo.

Erro de envio [
Erro Interno: 12029
Erro HTTP: 0
Erro: Requisição não enviada.
12029 - Uma conexão com o servidor não pôde ser estabelecida]!

11 Março, 2016

agora ocorreu

Erro Interno: 12157
Erro HTTP: 0
Erro: Requisição não enviada.
12157 - Erro no suporte a canais seguro

11 Março, 2016

Bom dia,

Atualizamos tudo mas agora esta aparecendo o erro:

Erro ao ajustar INTERNET_OPTION_CLIENT_CERT_CONTEXT: 12046

10 Março, 2016

Bom dia,

Efetuamos a instalação do componente do FastReport e todos os componentes do ACBR e sua compilação.

1) Estamos tentando utilizar o exemplo Demo ACBrNFSe e não está aparecendo a cidade de Veranópolis/RS e Nova Prata/RS.

[4322806]
Nome=Veranopolis
UF=RS
Provedor=Tecnos
NomeURL_H=ver
NomeURL_P=veranopolis

[4313300]
Nome=Nova Prata
UF=RS
Provedor=Tecnos
NomeURL_H=prata
NomeURL_P=novaprata

2) Tentamos fazer uma consulta de notas já enviadas em homologação e apresentou de requisição

9 Março, 2016

Verifiquei aqui, e realmente teremos que adquirir este componente.

Se adquirirmos esta licença do FastReport irá resolver o problema?

Obs: você tem algum conhecimento do FortesReport. qual é o mais indicado?

9 Março, 2016

também ocorreu erro na instalação do componente

Log da instalacao - log_Delphi_2006.txt

9 Março, 2016

Atualizei e gerei o arquivo que esta em anexo para você analisar

410-lot-rps.xml

410-lot-rps-soap.xml

9 Março, 2016

Bom dia,

Depois que eu atualizei para ultima versão os componentes, apos enviar para Veranópolis com o provedor Tecnos,

esta chegando a nota e aparece no Site, mas ocorre um erro no retorno mas a mensagem do erro esta em branco,

não esta funcionando porque a variável FDataRecebimento esta com zero e retornando erro mesmo com a mensagem de sucesso na transmissão.

verifiquei que a lista FRetornoNFSe.ListaNFSe.CompNFSe.Count não esta vindo preenchida e caindo no else

if FRetornoNFSe.ListaNFSe.CompNFSe.Count > 0 then
begin
FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.dhRecebimento;
if FDataRecebimento = 0 then
FDataRecebimento := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.DataEmissao;
if (FProvedor = proInfisc) then
FProtocolo := FRetornoNFSe.ListaNFSe.CompNFSe[0].NFSe.Protocolo;
end
else begin
FDataRecebimento := 0;
end;

ocasionando o erro.

poderia me ajudar?

1 Março, 2016

Boa tarde,

Sim, do provedor...

mas eu não estou tentando cancelar, mas sim enviar...

eu consigo enviar o XML com o comando (Result := acbr.WebServices.EnviaSincrono(sLoteSefaz);),

e aparece no site de homologação,

mas apos o envio consulto a mensagem no comando (acbr.WebServices.EnviarSincrono.Msg) e aparece o erro "O RPS informado já está cancelado."

estou achando que é o numero cadastrado no provedor que esta incorreto

1 Março, 2016

Bom dia Italo...

Obrigado, me ajudou muito... sim estava sem o Emitente pois antes estava enviando os dados através da função do ACBr,

com a atualização do ACBr tive que enviar através das property.

Agora esta ocorrendo o erro: "O RPS informado já está cancelado." saberia me informar do que seria?

29 Fevereiro, 2016

segue o arquivo

332-env-lotS-soap.xml

29 Fevereiro, 2016

Bom dia Italo,

Estou enviando no mÉtodo EnviarSincrono e esta retornando:

<mEnvioLoteRPSSincronoResponse xmlns="http://tempuri.org/">
   <mEnvioLoteRPSSincronoResult>
       <?xml version="1.0" encoding="utf-8"?>
       <EnviarLoteRpsSincronoResposta xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abrasf.org.br/nfse.xsd">
           <DataRecebimento>0001-01-01T00:00:00</DataRecebimento>
           <ListaMensagemRetorno>
               <MensagemRetorno>
                   <Codigo>E0800</Codigo>
                   <Mensagem>Seqüência de entrada não estava em um formato incorreto. - </Mensagem>
                   <Correcao>Erro no processamento do envio</Correcao>
               </MensagemRetorno>
           </ListaMensagemRetorno>
       </EnviarLoteRpsSincronoResposta>
   </mEnvioLoteRPSSincronoResult>
</mEnvioLoteRPSSincronoResponse>

26 Fevereiro, 2016

Boa tarde Rogerio,

Poderia me informar como você resolveu este problema... pois estou com uma mensagem parecida!!!

Seqüência de entrada não estava em um formato incorreto. -

Obrigado

26 Fevereiro, 2016

consegui avançar um pouco,

mas agora parei na mensagem "Seqüência de entrada não estava em um formato incorreto. -"

alguem tem alguma informação sobre esta mensagem para me auxiliar?

Entrar

Sobre nós...

Blocks

Notes ACBrLibNFe

Fóruns

Downloads

Calendário

Posts postados por paulo.bietkoski

Sobre nós...

Informação Importante