Pesquisar na Comunidade
Showing results for tags 'totalizador'.
Encontrado 1 registro
-
Durante gerações sucessivas do arquivo SEF II alguns totalizadores do registro 9900 referentes ao bloco 0 não estão sendo zerados. Essa situação faz com que o totalizador seja somado a cada geração do arquivo. Ex.: |9900|0200|100| -> |9900|0200|200| -> |9900|0200|300| Segue o arquivo ACBrSEF2_Bloco0_1.pas com a correção para verificação. Somente o FRegistro0005Count era zerado. procedure TBloco_0.CriaRegistros; begin FRegistro0000 := TRegistroSEF0000.Create; FRegistro0001 := TRegistroSEF0001.Create; FRegistro0990 := TRegistroSEF0990.Create; FRegistro0005Count := 0; FRegistro0025Count := 0; FRegistro0030Count := 0; FRegistro0100Count := 0; FRegistro0150Count := 0; FRegistro0200Count := 0; FRegistro0205Count := 0; FRegistro0215Count := 0; FRegistro0400Count := 0; FRegistro0450Count := 0; FRegistro0460Count := 0; FRegistro0465Count := 0; FRegistro0470Count := 0; FRegistro0990.QTD_LIN_0 := 0; end; ACBrSEF2_Bloco0_1.pas