Meios de Pagto Dados Ultima Reducao Z

[Ademir P. Voigt]

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? 
 

[Juliomar Marchetti]

Já chegou a olhar o ECFTeste?

lá tem um belo exemplo de como pegar os dados!

no projeto do ACBrMonitorPLUS também tem!

[Ademir P. Voigt]

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é?

[Isaque Pinheiro]

  // Ler os valores das aliquotas;
  ACBrECF.LerTotaisAliquota;

  // Ler Formas de Pagto
  ACBrECF.LerTotaisFormaPagamento;

Depois faça um loop na lista

      for iFor := 0 to ACBrECF.FormasPagamento.Count - 1 do
      begin
          ACBrECF.FormasPagamento[iFor].Descricao;
          ACBrECF.FormasPagamento[iFor].Total;

       for iFor := 0 to TIF_Class.ACBrECF.Aliquotas.Count - 1 do
       begin
           Mesma ideia

[Ademir P. Voigt]

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;

Editado 6 Maio, 2016 por CertaSolucoes

[Juliomar Marchetti]

13 minutos atrás, CertaSolucoes disse:

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é?

tu tem acesso sim está no svn na pasta projetos nada é fechado no acbr !

[Ademir P. Voigt]

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

[Daniel Simoes]

Lembre-se que nem todos ECFs retornam essa informação, no Dados Ultima Reducao Z.. Alias, acho que apenas 1 ou 2 modelos retornam...

isso não depende to ACBr... pois é o ECF que não dá a informação...

para ter esses dados... use: "DadosReducaoZ, instantes antes de emitir a Redução Z

[Ademir P. Voigt]

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.

[Daniel Simoes]

Sim... É exatamente isso que eu faço... Lembro de ter postado aqui no fórum, um método para efetuar Merge de INIs