[Modificação de trunk 2 para melhor visualização de erro de retorno]

1 hora atrás, Juliomar Marchetti disse:

Em todas as versões do delphi? desde a 7 até seattle?

Presado  Juliomar Marchetti  acredito que não tenha nenhum problema pois todos os códigos modificados já são utilizados ...dentro da mesma rotina

 

 

[Modificação de trunk 2 para melhor visualização de erro de retorno]

Nao foi proposital ...daniel e que fico pulando de um programa pra outro me dividindo em dois ... posso ter apagado sem querer essa linha vou acrescentar e te mando o concerto ...mais esta funcionando sem problemas mesmo sem essa linha ..

 

 

 

ACBrNFeWebServices.pas

[Modificação de trunk 2 para melhor visualização de erro de retorno]

prezado daniel

nao consegui editar  por isso mandei novamente o arquivo por algum motivo estava com um pequeno erro de escrita FpMSG estava fmsg foi corrigido ... erro meu 

 

ACBrNFeWebServices.pas

[Modificação de trunk 2 para melhor visualização de erro de retorno]

Em anexo o arquivo .pas modificado...

ACBrNFeWebServices.pas

[Modificação de trunk 2 para melhor visualização de erro de retorno]

  //Verificando se existe alguma nota nao confirmada
  for I := 0 to FNotasFiscais.Count-1 do
  begin
    if not FNotasFiscais.Items[I].Confirmada then
    begin
      FMsg :='';
      FMsg := ACBrStr('Nota(s) não confirmadas:'+ IntToStr(FNotasFiscais.Items[I].NFe.Ide.nNF))+ LineBreak; //aqui fica nota 
      break;
    end;
  end;

  //Montando a mensagem de retorno para as notas nao confirmadas
  for I := 0 to FNotasFiscais.Count-1 do
  begin
    if not FNotasFiscais.Items[I].Confirmada then
      FMsg:= FMsg + IntToStr(AInfProt.Items[I].cStat) + '->'+ FNotasFiscais.Items[I].Msg + LineBreak; //aqui nessa linha fica erro e o retorno 
  end;

Acredito que essas mudanças iram melhorar a compreensão do erro de retorno da sefaz!!! gostaria de saber se e possível essa mudança ///

jah utilizava assim no trunk 1.    

 

[NT 2015/003 "Cobrança do ICMS na Operação Interestadual"]

essa e a tag gerada pelo acbr -

W02|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00 

-por isso que dava erro no emissor gratuito quando gerava o txt do acbr para ele e dele para o acbr 

no sistema da sefaz eles tratam de outra forma o txt 

esse e a forma que o emissor gera ...

obrigado pela atenção enviei a resolução do problema caso precisem ....

NA|0.00|0.00|0.00

W02|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00|0.00

w04c|0.00   campo novo

w04e|0.00   campo novo 

w04g|0.00  campo novo

 

[NT 2015/003 "Cobrança do ICMS na Operação Interestadual"]

vc deu uma olhada no txt gerado? ele nao tem as tags informadas mesmo assim nao passa

[NT 2015/003 "Cobrança do ICMS na Operação Interestadual"]

Rejeicao: Valor total do ICMS Interestadual da UF do remetente difere do somatorio dos itens

soque a operação esta sendo realizada dentro do estado ....oque eu estou fazendo de errado

NFe1.TXT

[campo cest]

Amigo bigWings Esse Proplema e deles mesmo ele informa no  layout  uma coisa no proprio programa deles eles nao realizam a operação 

o programa esta atualizado ja mostra ate os campos ... a serem informados mais no TXT que ele Gera nao vem informando as TAGS 

uso o emissor somente quando tenho algum problema com o ACBR ,utilizo o emissor ate corrigir o erro no acbr... 

/////////////////////////////////////processo que utilizo e da seguinte forma ///////////////////////////////////////

tenho um programa retaguarda que gera o txt com todas as informações em txt para que eu possa importar para o componente acbr

como o   layout e igual 

nao tem diferença nos aquivos txt gerados tanto para o programa que uso componente acbr quanto para do emissor 

mais estou com esse pequeno problema .... vou  deixar ir mais pra frente e ver se eles corrigem ou me informam alguma COISA .

 

[campo cest]

3 horas atrás, BigWings disse:

Qual erro acontece quando se informa a CEST?

Não vi nenhuma regra de validação referente a ele na NT 2015/003 que implementou o campo.

Talvez siga a mesma regra do grupo de tributação interestadual, e só possa ser informado a partir de 01/01/2016.

BigWings esse e meu receio pois quando gero um txt  pelo acbr e importo pelo emissor gratuito,  ele nao consegue importar  devido existir as tags no txt gerado. 

o emissor  ele ja atualizado nao informa os campos no txt ...

fica a pergunta , partir de 01/01/2016 no ambiente de produção vai ser aceito ou nao as <TAG>CEST E EXTIPI<TAG>

se informar em branco vai dar certo ou nao  

[campo cest]

venho migrando meu programa para o trunk 2  mais percebi que no emissor gratuito da sefar ele nao informa as <TAG>CEST E EXTIPI<TAG>

e se informar essas tags em txt no emissor da erro em ambiente de produção isso nao vai dar erro ... Sefaz esta passando informações divergentes , em ambiente de homologação ta passando mais fico na duvida de que isso va da conflito em ambiente de  produção por favor informações para esclarecer essa duvida .

 

AQUI EM FORTALEZA LIGO PRA SEFAZ E ELES NAO SABEM INFORMAR QUASE NADA ! NA SEMANA PASSADA PEDIRAM PRA QUE EU ENVIA-SE A MINHA DUVIDA POR Email MAIS ATE HOJE NAO TIVE NENHUM RETORNO..

desde ja agradeço... 

[Natureza : Tnfsenaturezaoperacao;]

resolvido amigo Juliomar   MUITO OBRIGADO...

mais o Erro foi meu Falta de atenção  mesmo....

mais deixo aqui a resolução caso alguém cometa o mesmo deslize   
    

with NotasFiscais.Add.NFSe do
  begin
     // TnfseNaturezaOperacao=( 0=noTributacaoNoMunicipio, 1=noTributacaoForaMunicipio, 2=noIsencao, 3=noImune, 4=noSuspensaDecisaoJudicial,                      						       5=noSuspensaProcedimentoAdministrativo );

     NaturezaOperacao :=noTributacaoNoMunicipio  => Estava assim 
     NaturezaOperacao :=TnfseNaturezaOperacao(0)   => o correto e assim ;
  end;

  

[Natureza : Tnfsenaturezaoperacao;]

[Error] Frm_Demo_ACBrNFSe.pas(476): Undeclared identifier: 'noTributacaoNoMunicipio'

oque eu estou fazendo de errado ??? 

por favor ajudem ..

[campo cest]

oque mais essa prorrogação abrange ? e o que vai ter de informar na <tag> ou ela vai ter de ser informado em branco...

[Pegar Data Validade Certificado A1 - OpenSSL]

Na pasta \ACBr\Projetos\ no repositório existe um projeto para o que eu precisava: ValidadeCertificadoOpenSSL

Obrigado ..... não tinha visto...

[Consulta CNPJ ACBR]

uses
  PNGimage;
  
  
procedure TF_Principal.LabAtualizarCaptchaClick(Sender: TObject);
var
  Stream: TMemoryStream;
  Png :   TPngImage ; =====  Png :tpngobject; // trocar por isso 
begin
  Stream := TMemoryStream.Create;
  Png := TPngImage.Create;======  tpngobject.Create;// Aqui tmb

pronto so isso mesmo se quiser te mando o componente tmb ;;;;

[Erro Na Validaçao Nfe 3.10 Referenciada Homologaçao]

estou tendo problemas com o txt ... consigo gerar o txt com as informações da nf-e com o campo BA02 nfeRef alguém ja passou por isso

 

[Problemas Com Cancelamento De Nfe Por Evento]

        ACBrNFe.NotasFiscais.Clear;
        ACBrNFe.NotasFiscais.LoadFromFile('c:\teste.xml');
        ACBrNFe.EnvEvento.EnvEventoNFe.Evento.Clear;
        //ACBrNFe.EnvEvento.EnvEventoNFe.idLote := idlote;

        chave     := ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.chNFe;
        protocolo := ACBrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt;
        Cnpj      := ACBrNFe.NotasFiscais.Items[0].NFe.Emit.CNPJCPF;

        with ACBrNFe.EnvEvento.EnvEventoNFe.Evento.Add do
        begin
          infEvento.chNFe      := chave;
          infEvento.CNPJ       := Cnpj;
          infEvento.detEvento.nProt := Protocolo;
          infEvento.dhEvento   := NOW;
          infEvento.tpEvento   := teCancelamento;
          infEvento.detEvento.xJust := 'NOTA EMITIDA INDEVIDAMENTE';
        end;

        ACBrNFe.EnviarEventoNFe(idlote); 
tem que informar o lote aqui .....oque estiver cadastrado na nota o resto faço da        mesma forma e funciona perfeitamente... 

 

[Problema Na Hora de importar Txt Com Valores da NFE]

alguma outra solução????

Daniel simoes desde ja agradeço por todo o seu tempo ....foi muito útil e e dessa forma que conseguimos melhorar   as rotinas geradas e doadas...

 

[Problema Na Hora de importar Txt Com Valores da NFE]

sei que pode ser tosca a maneira que fiz aqui pra poder corrigir mais esta dando certo e por enquanto e uma solução

procedure TNFeRTXT.LerRegistro(const Registro: String);
var
  i, j, k: Integer;
  ok: Boolean;
  versao:double;
begin
  FRegistro := Registro;
  FID := UpperCase(copy(Registro, 2, pos('|', FRegistro) - 2));
  if FID = '' then
    exit;

  if ID = 'A' then
  begin
    versao:=StrtoFloat(trim(StringReplace(copy(FRegistro,4,4),'.',',',    [rfReplaceall])));
    NFe.infNFe.Versao :=versao;//LerCampo(tcDe2, 'versao');
  end;

 

[Problema Na Hora de importar Txt Com Valores da NFE]

Você usa o Trunk2, correto ?

Verifique se seus fontes estão corretamente atualizados... havia um bug na leitura dessa propriedade, que já foi corrigido a algumas semanas (veja no Change-Log.txt)

Nao Daniel .!  eu uso o Trunk mesmo

obs: todos os componentes estao 100% atualizados do dia que venho me comunicando com vc ate hoje ja baixei a pasta            acbr umas 3 vezes para garantir que o servido nao estava com erros ....

[Problema Na Hora de importar Txt Com Valores da NFE]

Isso não bom... dessa maneira o componente não saberá mais ler XMLs de outras versões (antigos)

sim sei disso mais eu nao sei de onde ele esta trazendo esse valor 2

 que nao e pra trazer de forma alguma que ele traz ....dessa  variável...

por enquanto eu nunca precisei ler um arquivo de notas antigas ...

[Problema Na Hora de importar Txt Com Valores da NFE]

Resolvido dessa forma...

  if ID = 'A' then
  begin
     NFe.infNFe.Versao := LerCampo(tcDe2, 'versao');
  end;

  if ID = 'A' then
  begin
     NFe.infNFe.Versao :=3.10; //deixei dessa forma la; LerCampo(tcDe2, 'versao');
  end;

dentro  pcnNFeRTXT.pas

 

muito obrigado....pessoal pela ajuda

[Impressão de Logomarca com DANFECB]

resolvi o meu da seguinte forma desinstalei todo o acbr e o rave do delphi baixei o rave 5.1.3  , removi todos os registros referentes ao rave report antes de instalar o rave 5.1.3

instalei o rave 5.1.3 corretamente obs:  vc tem que ter o serial do rave ele nao e gratuito...

e depois instalei o acbr novamente rodo tudo maravilhosamente bem....

[Problema Na Hora de importar Txt Com Valores da NFE]

Verifique se seus fontes estão corretos... Aqui está tudo funcionando adequadamente...

Na dúvida apague a Unit e baixe novamente

me manda suas pastas do acbr pq pode ter sido alguma mudança que vc realizou pois ja esta tudo atualizado...e nao consigo fazer da certo  preciso da pasta acbrnfe2,pcn2...pra comparar aqui com as minhas

 

 

  if ID = 'A' then
  begin
     NFe.infNFe.Versao := LerCampo(tcDe2, 'versao');
  end;

  if ID = 'A' then
  begin
     NFe.infNFe.Versao :=3.10; //deixei dessa forma la; LerCampo(tcDe2, 'versao');
  end;

 

Mais um detalhe. Verificando para encontrar o erro identifiquei que quando ele passa por esse codigo acima,

O NFe.infNFE.vesao vem com o valor correto que é o 3.10. No entanto ele muda para a versao 2.0.

Nao consigo achar de onde vem esse valor já que a versao é carregada pelo arquivo .TXT e lá esta 3.10.