Total Das Aliquotas

[marcelokrol]

pessoal estou implementando o registro 60 do sintegra em meu pdv, e como nao tinha testado ainda com aliquotas de icms, e fui fazer isso somente hoje, pude parceber que a propriedade valor sempre retorna tudo zerado, segue o exemplo de como estou utilizando.

 

vb.net

Dim Tmp_Aliq() As ACBrFramework.ECF.Aliquota

Tmp_Aliq = AcBrECF.Aliquotas

 

For i = Tmp_Aliq.GetLowerBound(0) To Tmp_Aliq.GetUpperBound(0)

   MsgBox(Tmp_Aliq(i).Sequencia & " - " & Tmp_Aliq(i).Total)

Next i

 

antes que alguem pergunte, o dia na ecf ainda esta aberto

 

executando o ecfteste do acbrmonitor os dados sao retornado corretamente

 

 

 

 

[Rafael Dias]

@marcelokrol

Você carregou as aliquotas com o comando acbrECF.CarregaAliquotas() ?

Senão teste usando este comando antes.

sempre que for usar as aliquotas, formas de pagamento e comprovantes nãos ficais você precisa carregar antes eles.

Um comando que eu sempre executo quando inicio minha aplicação é o  acbrECF.PreparaTEF() este comando carrega os 3 de uma vez so.

[marcelokrol]

Ola rafael fiz assim:

 AcBrECF.CarregaAliquotas()

      Dim a() As ACBrFramework.ECF.Aliquota
      a = AcBrECF.Aliquotas

      lbl1.Text = CStr(a(0).Total)

 

mais continua retornado com valor zerado, segue a tela com o debug

[Rafael Dias]

Ja descobri o que pode estar ocorrendo, vou esta dando uma olhada e depois posto aqui o resultado.

[Rafael Dias]

@marcelokrol

baixe a ultima versão do svn e tente da seguinte maneira,

 AcBrECF.CarregaAliquotas()

 AcBrECF.LerTotaisAliquotas()

[marcelokrol]

Beleza Rafael funcionou direitinho, vou continuar debugando (ahahaha) o acbrframework. muito obrigado