Erro registro M410

[Rodrigo - Digibyte]

Aqui não estava gerando o registro M410, filho do 400. Comparei com o 800/810 e existe a diferença destacada abaixo, a não ser que seja por algum motivo específico creio que seja um erro.

procedure TBloco_M.WriteRegistroM400(RegM001: TRegistroM001) ;

var

intFor : integer;

strCST_PIS : AnsiString;

begin

if Assigned(RegM001.RegistroM400) then

begin

for intFor := 0 to RegM001.RegistroM400.Count - 1 do

begin

with RegM001.RegistroM400.Items[intFor] do

begin

case CST_PIS of

stpisValorAliquotaNormal : strCST_PIS := '01';

stpisValorAliquotaDiferenciada : strCST_PIS := '02';

stpisQtdeAliquotaUnidade : strCST_PIS := '03';

stpisMonofaticaAliquotaZero : strCST_PIS := '04';

stpisValorAliquotaPorST : strCST_PIS := '05';

stpisAliquotaZero : strCST_PIS := '06';

stpisIsentaContribuicao : strCST_PIS := '07';

stpisSemIncidenciaContribuicao : strCST_PIS := '08';

stpisSuspensaoContribuicao : strCST_PIS := '09';

stpisOutrasOperacoesSaida : strCST_PIS := '49';

stpisOperCredExcRecTribMercInt : strCST_PIS := '50';

stpisOperCredExcRecNaoTribMercInt : strCST_PIS := '51';

stpisOperCredExcRecExportacao : strCST_PIS := '52';

stpisOperCredRecTribNaoTribMercInt : strCST_PIS := '53';

stpisOperCredRecTribMercIntEExportacao : strCST_PIS := '54';

stpisOperCredRecNaoTribMercIntEExportacao : strCST_PIS := '55';

stpisOperCredRecTribENaoTribMercIntEExportacao : strCST_PIS := '56';

stpisCredPresAquiExcRecTribMercInt : strCST_PIS := '60';

stpisCredPresAquiExcRecNaoTribMercInt : strCST_PIS := '61';

stpisCredPresAquiExcExcRecExportacao : strCST_PIS := '62';

stpisCredPresAquiRecTribNaoTribMercInt : strCST_PIS := '63';

stpisCredPresAquiRecTribMercIntEExportacao : strCST_PIS := '64';

stpisCredPresAquiRecNaoTribMercIntEExportacao : strCST_PIS := '65';

stpisCredPresAquiRecTribENaoTribMercIntEExportacao : strCST_PIS := '66';

stpisOutrasOperacoes_CredPresumido : strCST_PIS := '67';

stpisOperAquiSemDirCredito : strCST_PIS := '70';

stpisOperAquiComIsensao : strCST_PIS := '71';

stpisOperAquiComSuspensao : strCST_PIS := '72';

stpisOperAquiAliquotaZero : strCST_PIS := '73';

stpisOperAqui_SemIncidenciaContribuicao : strCST_PIS := '74';

stpisOperAquiPorST : strCST_PIS := '75';

stpisOutrasOperacoesEntrada : strCST_PIS := '98';

stpisOutrasOperacoes : strCST_PIS := '99';

end;

Add( LFill('M400') +

LFill( strCST_PIS ) +

LFill( VL_TOT_REC,0,2 ) +

LFill( COD_CTA ) +

LFill( DESC_COMPL ) ) ;

end;

// Registros FILHOS

WriteRegistroM410( RegM001.RegistroM400.Items[intFor] );

********* faltavam as duas linhas acima destacadas em vermelho ***********

///

RegistroM990.QTD_LIN_M := RegistroM990.QTD_LIN_M + 1;

end;

/// Variavél para armazenar a quantidade de registro do tipo.

FRegistroM400Count := FRegistroM400Count + RegM001.RegistroM400.Count;

end;

end;