Totalizadores parciais - cancelamento do ISSQN

[Ramon Lopes]

Como devo proceder com os cancelamentos e Descontos de ISSQN ?

Informo CANC e DESC, ou ISS, ou nenhum deles?

Fiz algumas simulacoes e cancelei um item de SERVICO, e dei DESCONTO tmb num servico. Na hora de gerar os registros 60A, eu nao informei um totalizador parcial para "Cancelamentos de ISS", nem "Descontos de ISS" pois nao encontrei equivalencia para eles na tabela de situacoes tributarias. Na hora de validar apresenta a mensagem: "Receita Bruta de ECF diverge da soma dos analiticos".

[daniel.breda]

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.