netstart

Estava tentado alimentar o componente com os registros 0210 assim: IBQRegistros0210.First; while not(IBQRegistros0210.Eof) do begin with ACBrSPEDFiscal1.Bloco_0.Registro0210New do // aqui retorna erro de violação de acesso begin COD_ITEM_COMP := IBQRegistros0210.FieldByName('COD_ITEM_COMP').AsString; QTD_COMP := IBQRegistros0210.FieldByName('QTD_COMP').AsFloat; PERDA := IBQRegistros0210.FieldByName('PERDA').AsFloat; end; IBQRegistros0210.Next; end; Como esta dando erro, fui debugando percebi que a linha de criação estava faltando como nos outros registro: unit ACBrEFDBloco_0; constructor TRegistro0200.Create(AOwner: TRegistro0001); begin FRegistro0205 := TRegistro0205List.Create; FRegistro0206 := TRegistro0206List.Create; FRegistro0210 := TRegistro0210List.Create; // linha inserida FRegistro0220 := TRegistro0220List.Create; end; destructor TRegistro0200.Destroy; begin FRegistro0205.Free; FRegistro0206.Free; FRegistro0210.Free; // linha inserida FRegistro0220.Free; inherited; end; Outras alterações fiz fazendo busca no registro 0220 e verificando se existia algum parecido 0210 onde não tinha coloquei como na unit ACBrSpedFiscal: : //Inserido if Bloco_0.Registro0210Count > 0 then begin with New do begin REG_BLC := '0210'; QTD_REG_BLC := Bloco_0.Registro0210Count; end; end; // Fim

Bom dia pessoal, estou testando a geração dos blocos que serão necessários para o bloco K, e quando alimentei o componente especificamente no registro 0210, deu alguns erros que acredito ter corrigido, vou anexar as units alteradas para analise, coloquei em comentário a flag para geração apenas 2015 somente para teste. ACBrEFDBloco_0.pas ACBrEFDBloco_0_Class.pas ACBrSpedFiscal.pas

Localizei o meu erro, esta declarado na minha Uses a pcnconversao, fazendo assim gerar o conflito, removi e deu certo, mas faz um bom tempo que utilizo dessa forma...

Acabei de atualizar, até apaguei a classe ACBrEFDBloco_C_Class e mesmo assim a minha classe esta : if DT_INI >= EncodeDate(2012,07,01) then begin case IND_PGTO of tpVista: strIND_PGTO := '0'; tpPrazo: strIND_PGTO := '1'; tpOutros: strIND_PGTO := '2'; tpNenhum: strIND_PGTO := ''; end end else begin case IND_PGTO of tpVista: strIND_PGTO := '0'; tpPrazo: strIND_PGTO := '1'; tpSemPagamento: strIND_PGTO := '9'; tpNenhum: strIND_PGTO := ''; end; end; Se eu tento colocar assim : IND_PGTO := tpOutros; tenho o retorno : [Error] U_SpedFiscal.pas(431): Incompatible types: 'TACBrIndPgto' and 'TpcteProp', alquem esta tendo esse tipo de problema ?

Daniel após atualizar, estou com problemas ao recompilar o pacote SAT : [Error] ACBrSATExtratoESCPOS.pas(283): Undeclared identifier: 'Msg_ICMS_123_2006' Procurei a declaração e realmente não encontrei, e também tive problema no Xe2 na Uses tive que mudar Graphics para Vcl.Graphics.

Testei em Ambos..., só lembrando que com alterando direto funciona...

Na versão nova compilando normalmente, apenas tenho problema com String x AnsiString mesmo, que retorna o tal do codigo de ativação inválido, quando me referi ao não compilar foi quando voltei minhas units alteradas que ja estava funcionando,mas não compilava pq tb houve mudanças nas declarações na ACBrSATClass.pas, voltando tb a mesma pela anterior compila normalmente. O meu problema real que acredito ser o problema de todos que estão testando na IDE Xe, é : ACBrSAT.Inicializado -- 16:16:28:081 - numeroSessao: 543956 - Comando: ConsultarStatusOperacional 16:16:28:216 - numeroSessao: 543956 - Resposta:543956|10001|Código de ativação inválido.|| Que anteriormente em contornava mexendo na ACBrSATDinamico_cdecl.pas e ACBrSAT.pas, mas como vi no post acima que rodrigo teve exito na nova versão resolvi atualizar e testar, aqui ja fiz de tudo, e não funciona...

Ainda não obtive sucesso com a nova atualização do delphi Xe2 , já removi totalmente o emulador da sefaz , apaguei a pasta e dll, reinstalei o ACBrSat e ainda sempre tenho o retorno de codigo de ativação inválido, antes com as as alterações direto ACBrSATDinamico_cdecl.pas, eu estava obtendo exito, agora com alteração tb na ACBrSATClass não consigo compilar, vou ter que usar a versão enterior ainda, todos estão tendo sucesso na IDE Xe ?

Juliomar também precisei fazer algumas alterações na na AcbrBoleto.pas e ACBrBancoBrasil.pas para corrigir um problema referente a cobrança de Multa com valor fixo e não apenas em percentual, estou anexando as units para análise, tentei seguir o padrão que estava no componente espero que esteja de acordo, desde já agradeço atenção... ACBrBancoBrasil.pas ACBrBoleto.pas

Daniel desde já agredeço a atenção, o meu evento está igual, o trecho esta no meu fonte já , mas o do DEMO está idéntico : procedure TF_DataModule.ACBrSATGetcodigoDeAtivacao(var Chave: string); begin Chave := QR_Ecf_Configuracao.FieldByName('sat_codigo_ativacao').AsString; end; Como agora o emulador da SEFAZ está funcional estou realizando todas as implementações e testes pendentes que eu tinha, vou deixar essa correção por ultimo já que alterando as funções diretamente na classe está dando certo (estou emitindo com exito usando ACBrSAT + Delphi Xe2 ), ai depois vou ficar somente com essa inconsistência para corrigir.

Daniel, estou testando no Delphi Xe2 no emulador v2.7.7 como o citado acima (Chave := AnsiString( edtCodigoAtivacao.Text ) porém sempre recebo o retorno de codigo de ativação inválido, ai eu mudo diretamente na função: Resp := xSAT_EnviarDadosVenda( numeroSessao, PAnsiChar(AnsiString(codigoDeAtivacao)), PAnsiChar(dadosVenda) ) ; ai funciona, tem alguma outra alternativa para contornar esse problema?

Boa Tarde, testando a impressão no FastReport usando a implementações disponibilizada no fórum por (Roberto.Goldinho), precisei inserir mais um campo para ser alimentado, pois não encontrei no fonte, seria na mensagem fiscal (Consulte pela chave de acesso em :[identificacao."URL"]),fazendo isso posso alimentar ACBrNFeDANFEFR1.URLConsultaPublica := ..., não sei se é a maneira correta, estou anexando para que o pessoal de uma olhada, pois estava fixo... DANFeNFCe.rar

Resolvi o meu problema citado logo acima alterando a procedure clear localizada no AcbrMail para public, permitindo assim fazer a chamada antes de alimentar novamente o componente, claro que talvez não seja o ideal, para min min resolveu...

Bom dia, estou migrando minhas rotinas de e-mail para o novo componente, fiz vários testes hotmail,gmail,etc.., todos ok, estou apenas com um probleminha que não estou conseguindo resolver, fui testar o retorno com um email invalido e retorna SMTP Error: Unable to send MailTo. que esta no trecho de código : .... for i := 0 to fMIMEMess.Header.ToList.Count - 1 do for vAttempts := 1 to fAttempts do begin if fSMTP.MailTo(GetEmailAddr(fMIMEMess.Header.ToList.Strings))then Break; if vAttempts >= fAttempts then raise Exception.Create('SMTP Error: Unable to send MailTo.'); end; .... O problema que uma vez que deu erro, mesmo inserindo email corredo sempre entra na mesma restrição, como se ainda estivesse em memória o email anterior, ai fecho a aplicação e abro novamente tudo ok. Como faço para limpar o componente antes de tentar novamente ? Meu codigo : procedure EnviarEmail(EmailEmitente, NomeEmitente, Host, UserName, Password, Assunto, EmailCliente :String; Mensagem,Anexos: TStringList; Porta : Integer; HTML, SSL, TSL : Boolean); var x:Integer; vEmails:TStringList; begin try vEmails := TStringList.Create; vEmails.Text := StringReplace(EmailCliente,';',chr(13)+chr(10),[rfReplaceAll]); frmPrincipal.ACBRmail.From := EmailEmitente; //-- Email do emitente. frmPrincipal.ACBRmail.FromName := NomeEmitente; //-- Nome do emitente. frmPrincipal.ACBRmail.Host := Host; //-- Servidor SMTP. frmPrincipal.ACBRmail.Username := UserName; //-- Nome de usuário. frmPrincipal.ACBRmail.Password := Password; //-- Senha do usuário. frmPrincipal.ACBRmail.Subject := UTF8Encode(Assunto); //-- Assunto. frmPrincipal.ACBRmail.Body.Text:= UTF8Encode(Mensagem.Text);//-- Corpo da mensagem. frmPrincipal.ACBRmail.Port := IntToStr(Porta); //-- Porta do servidor SMTP. frmPrincipal.ACBRmail.IsHTML := HTML; //-- Define se a mensagem é em HTML. frmPrincipal.ACBRmail.SetSSL := SSL; //-- Define SSL. frmPrincipal.ACBRmail.SetTLS := TSL; //-- Define TLS. for x:= 0 to vEmails.Count - 1 do begin frmPrincipal.ACBRmail.AddAddress(vEmails.Strings[x], '');//-- Adiciona os emails que serão enviados. end; for x:= 0 to Anexos.Count - 1 do begin frmPrincipal.ACBRmail.AddAttachment(Anexos.Strings[x], '');//-- Adiciona os anexos. end; frmPrincipal.Thread.Execute(0); // o send está na Thread , mas tb testei sem a Tread e ainda sim sempre volta no erro Finally FreeAndNil(vEmails); end;

Tive este mesmo problema, a solução esta no fórum mesmo, o motivo no meu caso era porque tinha mais de um componente na minha aplicação, em dois forms, centralizei em um DataModule e o problema foi resolvido...

Obrigado Régys, assim que possível coloco no Demo...

Bom dia, fiz uma alteração nas procedure EnviaEmailThread e EnviaEmail já algum tempo para que conseguisse enviar o XML e PDF da NFe com a logo do cliente e mais algumas personalizações em HTML, fiz a alteração bem simples no código fonte, mas toda a vez que tenho que fazer um UPDATE no ACBr tenho que mudar novamente, peço que analisem o código em anexo e se julgarem viável, subir a alteração para o SVN. ACBrNFe.pas

Pessoal estou tentando enviar as vendas para o Emulador v2.1.20 mas sempre recebo a o mesmo retorno Aplicativo disponibilizado SEFAZ : SAT nao esta Associado ao AC, ou quando uso o ACBrSAT recebo o retorno : ERRO NA ASSOCIACAO, Campos CNPJValue Invalido. Alguém está obtendo sucesso nos testes com essa versão ?

Resposta para quem passar pela mesma situação, após a atualização a forma de alimentar o componente mudou para melhor : Antes eu alimentava da seguinte forma : CST_ICMS := sticmsEstrangeiraAdqMercIntCobradoAnteriormentePorST // gerando assim um case enorme. Agora a forma correta que deu certo : StrToCstIcms(IBQItens.FieldByName('cst_icms').AsString); // excelente...

Estou com o mesmo problema as CSTs estão convertendo tudo errado...

Jone vc teve algum problema referente a CNPJ invalido no Delphi Xe2, no Delphi 7 esta dando certo, já no Xe2 mesmo depois de fazer as alterações acima, estou recebendo a resp: ACBrSAT.Inicializado -- 18:35:37:149 - numeroSessao: 530734 - Comando: AtivarSAT( 1, 11111111111111, 35 ) 18:35:37:238 - numeroSessao: 530734 - Resposta:530734|04099|Erro desconhecido na ativacao|| Somente no Xe2...

Boa tarde, recebi agora a pouco o retorno da SEFAZ : Prezado (a), O problema questionado foi solucionado. Solicitamos que consulte novamente. Já fiz os testes e já esta tudo normalizado ...

Também estou achando isso, mandei um e-mail falando do problema, mas até responderem, demora um pouco...

Pessoal estou com a seguinte situação, varias notas transmitidas do mês 04/2013 estão registradas no ambiente nacional e na SEFAZ/SP que é a origem, não existe, uma delas, Chave : 35130402868547000139550010000004431000004433 Ocorrência Autorização Protocolo 135130202248617 Data/Hora 08/04/2013 11:04:23 Recebimento no Amb. Nacional 08/04/2013 11:21:24 Alguém já passou por algo parecido ?

Bom dia , estou com esse problema de placa , ja peguei as ultimas atualizações das pastas AcbrNFe2 e PCN2, mas nao conseguir transmitir a nota com placa de veiculo usando os ultimos schemas, o ShowLog do SVN e nao achei essa revisao, e ainda estou com esse problema, sera que poderia me passar em que unit teve a alteração ?