Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3134 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Pessoal, boa tarde!

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:

// dados gerais
   MyTbReducoesNumeroCOOInicial.AsString := ReducaoZ.NumeroCOOInicial;

NumeroCOOInicial, não retorna nenhum valor para posta em minha tabela.

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? 
 

  • Fundadores
Postado

Isso depende muito do retorno do ECF...

Nem todos os modelos, retornam o COO Inicial na leitura de Dados da última redução Z...

Uma sugestão para esse caso, é computar o mesmo, usando a sua base de dados...

COOInicial = COO_ReducaoZ_Movimento_anterior + 1

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

  • Este tópico foi criado há 3134 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.