Ademir P. Voigt

Isso, pq eu guardo o XML no banco de dados, depois gero ele em disco para transmitir exatamente como foi em nodo offline. Ele não pode sofrer alteração alguma. Ao invez de mandar o ABCR gerar o XML, eu só carrego o componente: if MyQrNFetipoemissao.AsString = 'contingencia' then begin ACBrNFe1.NotasFiscais.LoadFromString(MyQrNFexmloffline.AsString); ACBrNFe1.NotasFiscais.GerarNFe; end else begin GerarNFe(vAux); end;

Eu faço assim para NFe: ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teContingencia; ACBrNFe1.Configuracoes.Geral.FormaEmissao := teContingencia; e assim para NFCe: ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teOffLine; ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine;

Se tem internet emite normal. A ideia é não deixar cliente nem transporte esperando na porta da empresa. Dai vc usa contingencia

Olha esse posto do André Ferreira de Moraes que é fera aqui do ACBR: http://anfm.blogspot.com.br/2014/09/como-usar-o-novo-ambiente-de.html Pode ser papel comum mesmo

D Isso mesmo, porem, quando emite ela e imprime novamente, continua saindo impresso a TARJA da contingência que no RS é SVC-RS. Minha duvida é se faz mal isso ou não.

Offiline é NFCe, contigencia é NFe Ambas são distintas.

NFe no caso.

Já verificamos isso também. Em todos os clientes é a mesma coisa. Vou acionar a Bematech mais uma vez. Obrigado Juliomar.

Não duvido Juliomar, mas para a Bematech, no atendimento a desenvolvedores, disseram que o driver está correto. Tivemos inclusive uma acesso remoto por parte deles. Vc usa, ou sabe de algum driver que possamos testar?

Obrigado!

Bom dia! Tenho a seguinte situação em todos os clientes que usam Bematech MP-4200 TH Aleatoriamente sai impresso usando o componente ACBrNFeDANFCeFortes com fonte normal, e em outros momentos a fonte muda de tamanho. No 0800 da bematech fizemos de tudo mas não resolveu. Nós tem um recibo(também em Fortes) que sai impresso na mesma impressora após venda a prazo e nunca tivemos problema. Imagem em anexo

Dê uma olha aqui: http://ip.sysfar.com.br/manual_sysfar/Manual.html?ErrosNFE.html

Pessoal me ajudem aí: Vamos supor a seguinte situação: Estou sem internet, e sendo assim, acabo tendo que emitir a NFe em contingência. Sai a DANFE impressa com a tarde da contingência, data e hora... tudo certinho. Eu guardo esse XML no banco de dados pois será ele que irei usar para emitir a NFe quando minha internet voltar ao normal. Pois li que o XML não pode sofrer alterações. Quando a internet volta, eu carrego o XML no componente e envio ao Sefaz. O Sefaz aceita, consta no xml o protocolo e autorização de uso etc. Daí eu imprimo a DANFE novamente, mas continua saindo a tarja de que foi emitida em contingencia. Isso é normal ou devo informar algo ao componente ACBR, nesse caso, para que a DANFE sejá impressa de forma que não saia essa tarja?

Arce, isso foi resolvido pelo ACBR no dia 17/02/2016. Inclusive cedi o meu certificado ao Regys para que pudesse efetuar os testes e fazer as alterações. Desde então, está tudo OK. Eu não precisei mexer no meu sistema, só atualizei o ABCR no Trunk 2

Pessoal, bom dia! Ulmos dias, o Sicredi vem devolvendo arquivos de retorno com falhas conforme aquivo de retorno em anexo. Nas colunas que se referem aos MotivoRejeicaoComando, deveria vir somente 00, mas tem casos que vem em branco. Dai temos erro de Not valid Integer Value. Da pra resolver assim no arquivo ACBrBancoSicredi.pas na linha 652 onde rodam os demais motivos da mesma linha: Está assim no arquivo original do ACBR: if CodMotivo <> '00' then //Após o 1º motivo os 00 significam que não existe mais motivo begin .... end; Coloque assim com dois caracteres em branco e não tem mais nada pra alterar: if (CodMotivo <> '00') and (CodMotivo <> ' ') then //Após o 1º motivo os 00 significam que não existe mais motivo begin .... end; Onde o CodMotivo <> ' ' ignora caso esses motivos vierem com dois caracteres em branco. Gostaria que se possível subissem essa alteração para o SNV. Em anexo: retonro e ACBrBancoSicredi.pas. Também temos clientes recebendo a situação H4 - Alteração de carteira. Não achei um local especifico para tal. Seria possível incluir isso no processamento de retorno para que nao fique em "Outros motivos"? 00078922.CRT ACBrBancoSicredi.pas

Pessoal, bom dia! Da pra resolver assim no arquivo ACBrBancoSicredi.pas na linha 652 onde rodam os demais motivos da mesma linha: Está assim no arquivo original do ACBR: if CodMotivo <> '00' then //Após o 1º motivo os 00 significam que não existe mais motivo begin .... end; Coloque assim com dois caracteres em branco e não tem mais nada pra alterar: if (CodMotivo <> '00') and (CodMotivo <> ' ') then //Após o 1º motivo os 00 significam que não existe mais motivo begin .... end; Onde o CodMotivo <> ' ' ignora caso esses motivos vierem em branco. Ou aguardamos o Sicredi resolver.

William, vou testar e posto aqui os resultados. Obrigado.

Juliomar, eu pego o erro e trato ele, porem, hj ocorreu um caso em um cliente ref um erro que eu ainda não tratava. Não posso simplesmente emitir ofline caso ocorra um except, devo emitir offline somente em caso de falta de internet. Se for outro problema, acredito que dev resolver internamente, pois depois, ao enviar a NFCe para o sefaz, devo usar o mesmo XML(por isso que guardo o XML no banco de dados). Eu trato da seguinte forma: try ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; ACBrNFe1.Enviar(vNumLote, False, True); ACBrNFeDANFCeCupom.ViaConsumidor := True; // em caso de erro, emitir em OffLine // NFCe ficará em posição para enviar ao SEFAZ mais tarde except on E: Exception do begin if (Copy(E.Message, Pos('Erro HTTP:', E.Message), 10) = 'Erro HTTP:') or (Copy(E.Message, Pos('O nome ou o endereço do servidor não pôde ser resolvido', E.Message), 55) = 'O nome ou o endereço do servidor não pôde ser resolvido') then begin imprimo offline end else // se o erro não for falta de internet begin frmAlertasUsuarios.ExibirAlerta('FORM | MONITOR NFE', 'ERRO', 'Ocorreu o seguinte Erro: ' + #13, E.Message); frmAlertasUsuarios.ShowModal; Existe uma forma de o próprio componente ACBRNFe testar a conexão? ou outro meio eficaz?

Vou tentar fazer no eventos antes e novamente um depois da redução e depois fazer um merge para comparar os dados. Retorno aqui os resultados.

Eu achei, é um Lazarus... to abrindo pro partes no delphi

Isaque, isso server para o que preciso DadosUltimaReducaoZ? no site do Regys, eu encontrei um exemplo que é o que eu uso, mas sem retorno de dados: // MEIOS DE PAGAMENTO ****************************************************** for I := 0 to ReducaoZ.MeiosDePagamento.Count - 1 do begin with ReducaoZ.MeiosDePagamento do begin Indice Descricao PermiteVinculado Data TipoDoc end; end;

No demo do ecf tem, mas não me mostra como obter os meios de pagamento. Vou tentar com o monitorPlus e retorno aqui procedure TForm1.DadosUltimaReduoZ1Click(Sender: TObject); Var AIni : TMemIniFile ; AStringList : TStringList ; Resp : String ; AVal : Double ; ADate : TDateTime ; AStr : String ; begin Resp := ACBrECF1.DadosUltimaReducaoZ ; mResp.Lines.Add( 'Dados da Ultima Redução Z' + sLineBreak + Resp ); AStringList := TStringList.Create ; AIni := TMemIniFile.Create( 'DadosUltimaReducaoZ.ini' ) ; try AStringList.Text := Resp ; AIni.SetStrings(AStringList); // Lendo a Data do Movimento ADate := AIni.ReadDateTime('ECF','DataMovimento', 0) ; ShowMessage('Data do Movimento'+sLineBreak+DateToStr(ADate)); // Lendo o NumCOOInicial AStr := AIni.ReadString('ECF','NumCOOInicial', '') ; ShowMessage('COO Inicial'+AStr); // Lendo a Venda Bruta: AVal := AIni.ReadFloat('Totalizadores','VendaBruta', 0) ; ShowMessage('Venda Bruta'+sLineBreak+FormatFloat('0.00',AVal)); finally AIni.Free ; AStringList.Free ; end ; AtualizaMemos ; end; Não tenho acesso ao ACBRMonitorPLUS. É componente pago né?

Pessoal, Bom dia! Minha dificuldade é a seguinte em uma Impressora fiscal Bematech MP 4000 TH F1: Referente ao Procedimento DadosUltimaReducaoZ, estou tendo problemas em dois casos bem isolados para armazenar os dados da redução Z para fins de sped fiscal: Em Meios de Pagameto também não obtenho resultado algum: // MEIOS DE PAGAMENTO ****************************************************** MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamento.Active := true; for I := 0 to ReducaoZ.MeiosDePagamento.Count - 1 do begin with ReducaoZ.MeiosDePagamento[I] do begin MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamento.Insert; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoreducao_id. AsInteger := MyTbReducoesid.AsInteger; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoIndice.AsString := Indice; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoDescricao.AsString := Descricao; if PermiteVinculado = true then begin MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoPermiteVinculado. AsInteger := 1; end else begin MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoPermiteVinculado. AsInteger := 0; end; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoData. AsDateTime := Data; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamentoTipoDoc.AsString := TipoDoc; MyTbecf_dados_reducao_ecf_dados_reducao_meiosdepagamento.Post; end; end; Existe alguma outra forma de conseguir os dados das formas de pagamento?

Poderia pegar o primeiro cupom da data da redução em minha base de dados? é isso? E sobre os meio de pagamento alguma ideia?

A Elgin K possui um software em java chamado Sgaard... Escolha no site Impressoras Fiscais e depois K Fiscal e Vc consegue comunicar com ele? Da pra fazer vários testes por lá, e eu mesmo já pude me orientar no ABR testando algumas coisas com esse software. Da pra vender item, fazer leitura X redução Z etc.