[layout Sat 0.07]

Obrigado

[layout Sat 0.07]

Eu nao uso o AcbrMonitor, usamos o componente ACBrSAT.

Eu mudei ACBrSAT1.Config.infCFe_versaoDadosEnt := '0.07';

O xml ficou dessa maneira

<infCFe Id="CFe35160711111111111111591234567890000062622255" versao="0.06" versaoDadosEnt="0.07" versaoSB="000003">

Ficou um lugar como versao = 0.06 e versaoDadosEnt = 0.07 

Alguem sabe onde tenho que alterar para ficar como versao 0.07 ?

Estou usando o emulador do governo na versao 2.9.2.

[Falta Tag CSitConf]

Respondendo a mim mesmo, me parece que essa tag na existe mais.

Fiz confusao porque vi no Manual_de_Orientacao_Contribuinte_v_6.00.pdf

Mas no NT2014.002_v1.01_WS_Distribuicao_DFE.pdf ela nao existe

Vi tambem que no retorno do comando NFE.DistribuicaoDFe alem da chave RESNFE vem outras 2 chaves.

PROEVE e INFEVE

Alguem saberia me informar onde encontro informacoes sobre essas duas chaves ?

Obrigado

[Falta Tag CSitConf]

Ola

Estou utilizando a ultima versão do AcbrMonitorPlus 0.3.5.3

Ao utilizar o comando NFe.DistribuicaoDFe, o retorno não trás a tag CSitConf

No XML retornado pela secretaria da fazenda tem essa tag c:\ACBrMonitorPLUS\Arqs\NFe\Down\

Alguem poderia dar uma verificada?

Obrigado

[Rejeição 701 Nfe cupom fiscal]

vc tem que baixar a NT 2013.005 v.1.22 em http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=tW+YMyk/50s=

na pagina 48 vc vai ver todas as tag

nos 2 casos tanto da RefNFe quanto RefEcf vc pode referenciar multiplos cupom.

Olha os exemplos

                    with NF.NFe.InfNFe.Ide.NFref.Add do
                      begin
                        RefNFe:= FieldByName('CHAVEACESSO').AsString;
                      end;
 

                    with NF.NFe.InfNFe.Ide.NFref.Add do
                      begin
                        RefECF.Mod_:= FieldByName('MOD').AsString;
                        RefECF.NECF:= FieldByName('ECF').AsString;
                        RefECF.NCOO:= FieldByName('COO').AsString;
                      end;
 

[Rejeição 701 Nfe cupom fiscal]

1 minuto atrás, lauro_ajose disse:

Quem utiliza SAT, como referenciar?

Quem utiliza SAT com 5929, como faz? Pois não tem número de ECF, e nem COO!

a chave do SAT tem que ser referenciada em RefNFe

http://www.spedbrasil.net/forum/topics/nf-e-sat?commentId=2159846%3AComment%3A867499

[Rejeição 701 Nfe cupom fiscal]

Realmente é isso, achei nesse site tambem a mesma explicacao, a chave do SAT tem que ser referenciada em RefNFe

http://www.spedbrasil.net/forum/topics/nf-e-sat?commentId=2159846%3AComment%3A867499

Valeu pela ajuda

[Rejeição 701 Nfe cupom fiscal]

Obrigado pela resposta hasa e qualidade.

O NT mais nova que achei foi essa NT2013.005_v1.22.pdf

Mas mesmo essa que o Qualidade enviou eu vi somente como referenciar :

NFe

NF mod 1/1A

NF Produtor Rural

Cupom Fiscal

Me desculpe se nao estou enxergando direito

[Rejeição 701 Nfe cupom fiscal]

Para informar que é cupom fiscal já existe a tag no XML, e para quem já utiliza o SAT?

Eu procurei e não encontrei nenhuma norma tecnica incluindo essa tag no XML da NFe.

 

[Cupom SAT autorizado em duplicidade]

no meu caso o erro foi depois do comando  ACBrSAT1.EnviarDadosVenda(ArquivoXml)

mas o arquivo XML autorizado estava na pasta VENDAS

porque apos esse comando o componente do ACBrSAT já gravou o xml na pasta

 

 

[Cupom SAT autorizado em duplicidade]

voce esta usando o ACBrMonitorPlus ou vc desenvolveu um autorizador proprio?

[Cupom SAT autorizado em duplicidade]

Ola Siscomp

Na realidade o problema era na nossa aplicacao. Nos temos uma tabela com a lista dos cupom a serem impressos.

Temos tambem uma aplicacao autonoma que serve apenas para ler essa tabela e autorizar o cupom.

O erro aconteceu logo apos o comando  ACBrSAT1.EnviarDadosVenda(ArquivoXml)

Nesse ponto o cupom ja havia sido autorizado, mas nao gravamos o XML no banco de dados, entao nosso programa autorizou a venda novamente.

Para resolver esse problema criamos um campo para controlar as requisicoes que ja foram feitas ao SAT.

Entao quando isso acontece, ao inves de autorizar o cupom uma segunda vez, o programa vasculha a pasta dos XML e grava no banco de dados.

 

 

[Download de NFe XML Corrompido]

vou verificar

obrigado

[Limpar Pastas ACBrMonitorPlus]

Daniel, bom dia

Gostaria de saber a possibilidade de desenvolver um comando no ACBrMonitorPLUS para limpar o conteudo da pasta C:\ACBrMonitorPLUS\Arqs

Se der certo, nao precisarei mais compartilhar a pasta do monitor.
No meu sistema apaga somente arquivos com mais de 30 dias e fiz mais ou menos assim :

var
  DataArq: TDateTime;
  PastaXml: String;
  A: Integer;
  TS: TStrings;
begin  
  PastaXml := 'C:\ACBrMonitorPLUS\Arqs'
  TS := TStringList.Create;
  TS.Clear;
  ArquivosSubDiretorio(PastaXML, TS);  // funcao que retorna todos os arquivos dentro da pasta
  for A := 0 to TS.Count-1 do
    begin
        DataArq := TFile.GetCreationTime(TS[a]);
        if (Now -  DataArq) > 30 then DeleteFile(TS[a]);
    end;
  TS.Free;
end;
 

O comando no monitor poderia passar como parametro a pasta e a qtde de dias

o proprio monitor poderia executar ou minha aplicacao passaria um comando para executar, 

Obrigado

Carlo

[Acentuação na impressao de inutilização de NFe]

Daniel, obrigado pela solução da acentuação.

No começo do post, perguntei tambem sobre a possibilidade de desenvolver um comando no ACBrMonitorPLUS para limpar o conteudo da pasta C:\ACBrMonitorPLUS\Arqs

Se der certo, nao precisarei mais compartilhar a pasta do monitor.
No meu sistema apaga somente arquivos com mais de 30 dias e fiz mais ou menos assim :

var
  DataArq: TDateTime;
  PastaXml: String;
  A: Integer;
  TS: TStrings;
begin  
  PastaXml := 'C:\ACBrMonitorPLUS\Arqs'
  TS := TStringList.Create;
  TS.Clear;
  ArquivosSubDiretorio(PastaXML, TS);  // funcao que retorna todos os arquivos dentro da pasta
  for A := 0 to TS.Count-1 do
    begin
        DataArq := TFile.GetCreationTime(TS[a]);
        if (Now -  DataArq) > 30 then DeleteFile(TS[a]);
    end;
  TS.Free;
end;
 

O comando no monitor poderia passar como parametro a pasta e a qtde de dias

[Download de NFe XML Corrompido]

Valeu Daniel, obrigado

[Download de NFe XML Corrompido]

Estamos utilizando o ACBrMonitorPLUS para fazer o download do arquivo XML de Fornecedores

O comando que utilizamos foi NFE.DownLoadNFe(Cnpj, ChaveAcesso)

O arquivo XML que o ACBrMonitorPLUS grava nao consigo abrir no internet explorer, parece estar corrompido

O que sera que estou fazendo de errado?

Segue os arquivos gerado pelo monitor e o arquivo que foi feito download pelo site do governo

ArquivosXML.rar

[Acentuação na impressao de inutilização de NFe]

O comando é esse :

NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal)

Da uma olhada no arquivo 35160942750700010955002000001401000001401-ped-inu.xml  que a justificativa esta sem acento

 

35160942750700010955002000001401000001401-procInutNFe.xml

35160942750700010955002000001401000001401-ped-inu.xml

[Acentuação na impressao de inutilização de NFe]

Delphi XE 10 Professional

Nós fizemos uma modificação em nosso TcpClient e conseguimos resolver o problema assim :

Client := TIdTCPClient.Create(Application);
UTF8Encoding := IndyTextEncoding_UTF8();
Client.IOHandler.DefStringEncoding := UTF8Encoding;

A resposta do webservice esta vindo com acento e ja conseguimos salvar o XML no banco de dados com acento.

Agora ficou somente um problema, que o ACBrMonitorPLUS está removendo o acento da justificativa 

NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal)

Até o ponto que enviamos para o ACBrMonitorPLUS está com acento, a resposta já esta sem acento.

<xJust>

PROBLEMA TECNICO OU OPERACIONAL/Nao/Tem/Acentuacao/

</xJust>

 

Essa frase colocamos acento

Tenta fazer uma NFe de Inutilização com acentuação na justificativa que você já vai ver o problema.

[Acentuação na impressao de inutilização de NFe]

Daniel, me desculpe a demora.

Nós estamos usando o ACBrMonitorPLUS para assinar o XML e enviar.

Quando ele autoriza, o XML é salvo na pasta C:\ACBrMonitorPLUS\Arqs

Nós recuperamos esse XML autorizado pelo comando NFe.LoadFromFile e gravamos no banco de dados (SQL SERVER)

A partir daí nós usamos o componente TAcbrNFe para imprimir o XML autorizado.

O XML que o ACBrMonitorPLUS salva na pasta C:\ACBrMonitorPLUS\Arqs está com acentuação correta.

O método NFe.LoadFromFile que está perdendo a acentuação.

Mas estamos desconfiados que o nosso cliente soket que comunica com o ACBrMonitorPLUS que não esta configurado para UTF8.

Você tem algum exemplo de comunicação por soket com o ACBrMonitorPLUS ?

[Acentuação na impressao de inutilização de NFe]

ACBrMonitorPLUS

dá uma olhada na justificativa, nesse ponto ja esta ficando errado

eu teria que usar o comando AnsiToUTF8 para a justificativa ficar correta?

eu usei mas nao deu certo

35160942750700010955002000001363000001363-ped-inu.xml

[Acentuação na impressao de inutilização de NFe]

Daniel, pelo jeito meu projeto inteiro ta com problema de acentuação.

O retorno do XML esta correto a acentuação, mas ai eu fui ver o pedido de inutilização, na justificativa já está ficando errado.

Na hora de enviar o comando NFE.InutilizarNFe( cCNPJ, cJustificativa, nAno, nModelo, nSerie, nNumInicial, nNumFinal)

a justificativa tem que fazer alguma conversão?

[Acentuação na impressao de inutilização de NFe]

function NFeImprimeInutilizacao(Filial, Sequencia: String): Boolean;
var
  XMLInu, S: String;
  NFe: TACBrNFe;
  NFeDANFEFR: TACBrNFeDANFEFR;
begin
  Result := True;
  try
    // Arquivo XML Initulização
    S := 'SELECT ARQUIVO_XML FROM NFE_INUT' +
         ' WHERE FILIAL = ' + Filial +
         '   AND SEQUENCIA = ' + Sequencia;
    XMLInu := CodigoExiste(S, 'ARQUIVO_XML');
    NFe := TACBrNFe.Create(nil);
    NFeDANFEFR := TACBrNFeDANFEFR.Create(nil);
    NFe.DANFE := NFeDANFEFR;
    NFe.DANFE.Sistema := SH;
    NFeDANFEFR.FastFileInutilizacao := LeParametros('RelatoriosSistema', PCodigoFilial) + 'INUTILIZACAO.fr3';
    NFeDANFEFR.MostrarPreview := True;
    NFeDANFEFR.MostrarStatus := True;
    NFeDANFEFR.ShowDialog := True;
    NFe.InutNFe.LerXMLFromString(XMLInu);
    NFe.ImprimirInutilizacao;
    FreeAndNil(NFe);
    FreeAndNil(NFeDANFEFR);
  except
    Result := False;
  end;
end;
 

estamos usando o AcbrMonitorPlus

[Acentuação na impressao de inutilização de NFe]

usamos socket, e esse relatorio é do fast report FR3

 

[Acentuação na impressao de inutilização de NFe]

o xml esta correto, o problema é somente na impressao mesmo

35160942750700010955002000001355000001355-procInutNFe.xml