Extrato Fiscal Personalizado... Exemplo Drogasil...

[Mário Augusto Pisani]

Boa tarde, em primeiro lugar, gostaria de saber como eu posto um arquivo jpg aqui, meu arquivo tem 1 mega e não consigo subir para sanar uma duvida 

em relação ao extrato fiscal CfeSat.

 

 

 

 

 

[Juliomar Marchetti]

diminui ele

[Mário Augusto Pisani]

Oi Juliomar boa tarde, jpg não entra, reduzi para 200k mas ele da um erro infomando que eu só posso fazer upload de B.... 

 

 

 

 

[Mário Augusto Pisani]

Oi Juliomar .... consegui resolver o problema... só não consigo mostrar aqui como o extrato fica, como o exemplo do da Drogasil rede de farmácias em minha cidade... Eis a solução.. nos fontes, no ACBrSATExtratoFortesFr fica assim:

procedure TACBrSATExtratoFortesFr.rlbRatDescSubTotBeforePrint(Sender: TObject;
  var PrintIt: Boolean);
  var x, y: Currency;
begin
  with ACBrSATExtrato.CFe.Det.Items[fNumItem] do
  begin
    PrintIt := ACBrSATExtrato.ImprimeDescAcrescItem and (not Resumido) and (Prod.vRatDesc > 0);
    x := Prod.vProd;
    y := Prod.vProd - Prod.vRatDesc;
    if PrintIt then
      lRatDescSubTot.Caption := FormatFloatBr(Prod.vRatDesc,'-,0.00');
      lTitRatDescSubtot.Caption :=  ' De '  +  CurrToStr(x)  +  ' por '  +  CurrToStr(y)  +  ' desconto de: ';

  end;
end;

Bem isso, unica difirença é que no meu, tenho que considerar todos os itens com desconto... considerando uma compra acima de tantos itens de dois 

ou mais produtos .... como fazerem... Viva a tecnologia ! sem ela hoje não somos nada ... Forte abraço 

 

 

 

[Victor H. Gonzales - Panda]

Bom dia

Não é só aplicar o desconto ao item?