O sintegra não trata iss como icms, então você deve criar um registro 60A com a soma de todos os totalizadores do iss, tipo:
// Totalizadores do iss.
DMGeral.AbrirSQL(DMGeral.CDSGeral,
'SELECT SUM(VALOR) FROM ITENSREDUCOESZ WHERE REDUCAOZ = :A AND TIPO = ''S''',
[DMMovimentacao.CDSReducoesZ.FieldByName('CODIGO').AsInteger]);
ValorIss := DMGeral.CDSGeral.Fields[0].AsFloat +
DMMovimentacao.CDSReducoesZ.FieldByName('VALORISENTOSISS').AsFloat +
DMMovimentacao.CDSReducoesZ.FieldByName('VALORNAOTRIBUTADOSISS').AsFloat +
DMMovimentacao.CDSReducoesZ.FieldByName('VALORISSST').AsFloat +
DMMovimentacao.CDSReducoesZ.FieldByName('VALORDESCONTOSISS').AsFloat +
DMMovimentacao.CDSReducoesZ.FieldByName('VALORCANCELAMENTOSISS').AsFloat;
if (ValorIss > 0) then
begin
Reg60A := TRegistro60A.Create;
Reg60A.Emissao := Reg60M.Emissao;
Reg60A.NumSerie := Reg60M.NumSerie;
Reg60A.StAliquota := 'ISS';
Reg60A.Valor := ValorIss;
DMGeral.Sintegra.Registros60A.Add(Reg60A);
end;
Atenciosamente, Daniel Breda.