netstart

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 ?

Ocorreu o mesmo comigo , optei por substituir a campo: TACBrTipoPagamento = ( tpVista, // 0 - À Vista tpPrazo, // 1 - A Prazo tpOutros, // 2 - Outros tpNenhum // Preencher vazio ); Acho que assim não vai confundir ja que a opção anterior não vai existir mais, vou anexar as units que eu mexi para o pessoal avaliar e subir para o SVN. ACBrEPCBloco_A_Class.pas ACBrEPCBloco_C_Class.pas ACBrEPCBlocos.pas

Bom Dia Italo e João Henrique , estou acompando o tópico e testando conforme vcs estão disponibilizando, e nos teste que fiz percebi que não está criando a estrutura de pasta quando é o evento de cancelamento , vai tudo para o path MDe onde vai todos os eventos que são gerados , internamente eu estou redirecionando para o path de cancelamento antigo o xml com o protocolo de cancelamento , não sei se estou fazendo algo errado . Não estou cobrando nada , mas acho que ficaria ainda melhor se tivesse dentro do path MDe sub diretórios para cada evento com é feito com as NFe transmitidas,isso é apenas uma ideia , estou fazendo isso manualmente no meu sistema , pois no final do mes busco os arquivos nas respectivas pasta para enviar para contabilidade no caso hj as CCe,NFe transmitida e NFe Cancelada.

Obrigado pelo retorno , CCe eu ja estava usando , mas o cancelamento ainda estava usando da forma antiga , ja vou fazer a mudança nos meus fontes .

Bom fiz o teste usando a versão da pastas BRANCHES ,deu tudo certo , agora que ja esta na trunk , podemos usar para enviar em ambiente de produção a CCe e o cancelamento da NFe ? A duvida surgiu pq no site da SEFAZ SP fala que esta liberado para consulta e no manual fala que a SEFAZ deveria ter liberado 01/07/2012 conforme a NT2011/006 , mas não fala em que ambiente .

Voçê deve passar o codigo do pais do destinatario correto , vc esta passando 1058 - Brasil ...

Eu não estava conseguindo validar no PVA 2.0 com os os blocoP disponibilidado pelo colega acima , então alterei duas linhas nas units que e ele forneceu : procedure TBloco_0.WriteRegistro0145(Reg0140: TRegistro0140); begin if Assigned(Reg0140.Registro0145) and (Reg0140.Registro0145.COD_INC_TRIB > '') then // coloquei o a validação para nao gerar o registro 145 begin with Reg0140.Registro0145 do begin Add( LFill('0145') + LFill(COD_INC_TRIB) + LFill(VL_REC_TOT,0,2) + LFill(VL_REC_ATIV,0,2) + LFill(VL_REC_DEMAIS_ATIV,0,2) + LFill(INFO_COMPL)); end; Registro0990.QTD_LIN_0 := Registro0990.QTD_LIN_0 + 1; /// Variavél para armazenar a quantidade de registro do tipo. FRegistro0145Count := FRegistro0145Count + 1; end; end; procedure TACBrSPEDPisCofins.WriteBloco_P; begin if (Bloco_P.Gravado) or (not(Bloco_0.Registro0145Count > 0)) then exit ; // coloquei a verificação se existir o registro 0145 ai sim gerar o bloco P if not Bloco_M.Gravado then WriteBloco_M; /// BLOCO P WriteRegistroP001; WriteRegistroP990; Bloco_P.WriteBuffer; Bloco_P.Conteudo.Clear; Bloco_P.Gravado := True ; end; Ai consegui validar normalmente como era antes , claro que essa não deve ser a maneira correta de resolver o problema , pois ainda estou testando , mas ja da pelo menos já nao gera o BLOCO P junto com o PIS/COFINS ...

Muito obrigado ajudou muito, ficou bom mesmo dessa forma ai nao precisamos fazer nenhuma alteração nas units do componente mesmo, com o exemplo acima ficou bem mais facil entender . Estamos avaliando aqui na empresa se será necessário gerar esse arquivo para a contimatic realmente, quantos clientes usam a ferramenta G5, pois o ideal mesmo seria a Contimatic criar a importação do proprio arquivo PIS/COFINS de acordo com o layout da receita .

Boa tarde , será que poderia colocar um exemplo para a chamada dos eventos e como fica os campos que foram acrescentados no bloco C e nos demais , tipo o bloco a que nao possui no layout da RFB ficaria assim ? : ACBrSpedFiscal.Bloco_0.Add('|A100|0|'); - > Seria desta forma ? ACBrSpedFiscal.Bloco_0.Add('|A100|0|'); ACBrSpedFiscal.Bloco_0.Add('|A100|...|'); ACBrSpedFiscal.Bloco_0.Add('|A170|...|'); ACBrSpedFiscal.Bloco_0.Add('|A990|...|'); O bloco C por exemplo que ja existe com os campos declarados na unit ,como irei inserir ? : NAT_REC_PIS VL_BC_PIS ALIQ_PIS VL_PIS CST_COFINS Desde já agradeço a atenção .

Deu certo o amigo acima matou a pau, era a opção de baixo , mas fiz a importação ana mão e deu certo , que loucura , obrigado a todos ...

Pessoal estou enfrentando problemas para transmitir notas em alguns cliente por Causa da nova cadeia de certificação somente no WIN 7 , no xp está tudo dando certo , ja fiz de tudo mas nada funciona , ja vi opções de internet esta tudo certo , quando instalo a nova cadeia aparece que o importação foi realizada com sucesso mas não aparece no aba Autoridades Certicadoras , alguem passou por isso ou esta passando ?

Pessoal alguem ja conseguiu rodar o Danfe do Fortes no Xe2 , sem ser da forma citada acima ?