CTe Simplificado - DACTe FR Total a Receber

[Vanderlei Soares]

Boa tarde. é valida essa alteração para sair o Total a Receber da DACTe.
Incluir o fCTe.det[i].vRec ao invés de 0.

procedure TACBrCTeDACTEFR.CarregaComponentesPrestacao;
var
i, j: Integer;
begin
with cdsComponentesPrestacao do
begin
    if FCTe.ide.tpCTe in [tcCTeSimp, tcSubstCTeSimpl] then
    begin
     for i := 0 to (fCTe.det.Count - 1) do
     begin
        for j := 0 to (fCTe.det[i].Comp.Count - 1) do
        begin
         Append;
         FieldByName('Nome').AsString        := fCTe.det[i].comp[j].xNome;
         FieldByName('Valor').AsFloat        := fCTe.det[i].comp[j].vComp;
         FieldByName('TotalServico').AsFloat := fCTe.total.vTPrest;
--->         FieldByName('TotalReceber').AsFloat := fCTe.det[i].vRec;
         Post;
        end;
     end;

 

[Juliomar Marchetti]

Necessário conferir o manual e ver o que deve ser somado.
chegou a olhar ele?