Fórum Levando uma coça da BEMATECH #188779

Procedure TfrmCAIXA_bematech.PassarItem( CodBarra: String );
varnValor: Currency;
    nTotal: Currency;
    sQtde, sTipoQtde, cICMS, cDescricao: String;
    nResto, Topo: Integer;
Begin

nValor:= qProdutosVR_VENDA.Value;// Pega o valor normal

// Verifica se esta em promoção e pega o vlr se estiver
If ( qProdutosVR_PROMO.Value > 0.00 ) Then nValor := qProdutosVR_PROMO.Value;

 cICMS:= PegarICMS(qProdutosCD_TRIBUTO.Value);

  // Formatação da string para impressora fiscal
  cDescricao := PadR( Copy( qProdutosDESCRICAO.Value, 1, 29 ), 29, ´ ´ );

// Verificando se é fracionado
  if rxQtde.Value>Trunc(rxQtde.Value) then
  begin
nResto  := Trunc((rxQtde.Value-Trunc(rxQtde.Value))*1000);
  sTipoQtde:= ´F´;
    sQtde:= StrZero(Trunc(rxQtde.Value),4)+StrZero(nResto,3);
  end else
  begin
  sQtde:= StrZero(Trunc(rxQtde.Value),4);
  sTipoQtde := ´I´;
end;

nTotal    := (nValor*rxQtde.Value);
  nTotal:= Trunc(nTotal*100)/100;

iRetorno   := Bematech_FI_VendeItem( CodBarra, cDescricao, PChar(cICMS), sTipoQtde,
                                        PChar(sQtde),2,PChar(PadL(FloatToStrF(nValor,ffNumber,09,02),09,´0´)),
                                        ´$´,PChar(´0000´));

  Analisa_iRetorno;
  Retorno_impressora;

  if iRetorno<>1 then exit;

  Inc(nItem);
  OldValor  := nTotal;
  lCancelar:= true;
  // Relacionar os itens vendidos e obter o numero no indice
  Topo:= lbItens.Items.Add(
                  cDescricao + ´ ´ +
                  PadL(FloatToStr(rxQtde.Value),07,´ ´)+´ ´+
                  PadL(FloatToStrF(nValor,ffNumber,09,02),09,´ ´)+´ ´+
                  PadL(FloatToStrF(nTotal,ffNumber,09,02),12,´ ´)+´ ´+
                  PadL(cICMS,5,´ ´)+´ ´+
                  StrZero(nItem,04));

  // Rolar a tela para o elemento adicionado

  lbItens.TopIndex:= Topo;
  rxGrandeTotal.Value:= ( rxGrandeTotal.Value + nTotal );


End;