Alterações ACBrECFVirtualSAT

[tchuck]

Fiz algumas alterações no componente para o rateio de desconto, foi feita seguinte alteração

    ValorProduto := 0;

    if DescontoAcrescimo < 0 then
    begin
      for i := 0 to CFe.Det.Count - 1 do
       ValorProduto := ValorProduto + (CFe.Det.Items[i].Prod.vUnCom * CFe.Det.Items[i].Prod.qCom);

      for i := 0 to CFe.Det.Count - 1 do
        CFe.Det.Items[i].Prod.vDesc := CFe.Det.Items[i].Prod.vDesc + RoundABNT(((CFe.Det.Items[i].Prod.vUnCom * CFe.Det.Items[i].Prod.qCom) * ((DescontoAcrescimo * -1) * 100) / ValorProduto) /100, -2);
    end;

venda de acréscimo nos itens foi feita a alteração

      Det.Prod.vUnCom := Det.Prod.vUnCom;// + Acres;
      Det.Prod.vOutro := Acres; //Alterado para adicionar acrescimo ao item

e no cancelamento de item usando as impressoras virtuais como no meu caso q mostro o item cancelado na tela de venda da mesma forma que o cancelamento no pafecf

Var
 i: Integer;
begin
  with fsACBrSAT do
  begin
    for i := 0 to CFe.Det.Count - 1 do
    begin
      if (NumItem < 1) and (CFe.Det.Count < 1) then
        exit;

      if CFe.Det.Items[i].nItem = NumItem then
      begin
        CFe.Det.Delete(i);
        Break;
      end;
    end;

    for i := 0 to CFe.Det.Count - 1 do
     CFe.Det.Items[i].nItem := i+1;

  // antiga
    {if (NumItem > CFe.Det.Count) or (NumItem < 1) then
      exit;
    CFe.Det.Delete(NumItem-1);}
  end;

Link do componente

ACBrECFVirtualSAT.pas

Editado 16 Julho, 2015 por tchuck

[Daniel Simoes]

Não compreendi muito bem o que motivou as alterações...

Qual era o problema original ?

Como as suas correções se propõem a corrigi-lo ?

 

PS: Notei que seus fontes não estão atualizados com a última versão do "Trunk2"

[tchuck]

eu estou usando a versao do Trunk

tinha um problema no desconto, que não estava rateando para os itens, quando o desconto no total.

e o acréscimo não esta sendo informado corretamente no campo acréscimo no item, o mesmo so somava o valor total do produto

[Daniel Simoes]

Desculpe... atualmente só analiso e aplico correções para o "Trunk2"...