Alexsandro Lopes

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

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

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

Em anexo o arquivo .pas modificado... ACBrNFeWebServices.pas

//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.

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

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

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

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 .

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

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...

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;

[Error] Frm_Demo_ACBrNFSe.pas(476): Undeclared identifier: 'noTributacaoNoMunicipio' oque eu estou fazendo de errado ??? por favor ajudem ..

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

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

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 ;;;;

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

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...

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...

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;

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 ....

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 ...

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

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....

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.