Исправление результатов Фин. Учет Себест. Товаров

[romtex_imported]

Поставьте нужный фильтр и наслаждайтесь:

Dlg.OPEN('Идет Процесс @1@@@@@@@@@@@@@@@@@');

ValueEntry.RESET;
ValueEntry.SETRANGE(поле,значение);
ILECount := ValueEntry.COUNT;
IF ValueEntry.FIND('-') THEN
 REPEAT
  I+= 1;
   IF GLEntry.GET(ValueEntry."G/L Entry No. (Account)") THEN
	BEGIN
	  IF GLEntry.GET(ValueEntry."G/L Entry No. (Account)") THEN GLEntry.DELETE;
	  IF GLEntry.GET(ValueEntry."G/L Entry No. (Bal. Account)") THEN  GLEntry.DELETE;

	  GLCorr.RESET;
	  GLCorr.SETRANGE("Debit Entry No.",ValueEntry."G/L Entry No. (Account)");
	  IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	  GLCorr.RESET;
	  GLCorr.SETRANGE("Debit Entry No.",ValueEntry."G/L Entry No. (Bal. Account)");
	  IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 GLCorr.RESET;
	 GLCorr.SETRANGE("Credit Entry No.",ValueEntry."G/L Entry No. (Account)");
	 IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 GLCorr.RESET;
	 GLCorr.SETRANGE("Credit Entry No.",ValueEntry."G/L Entry No. (Bal. Account)");
	 IF GLCorr.FIND('-') THEN GLCorr.DELETE;

	 ValueEntry."G/L Entry No. (Account)" := 0;
	 ValueEntry."G/L Entry No. (Bal. Account)" := 0;
	 ValueEntry."Cost Posted to G/L" := 0;
	 ValueEntry."Cost Posted to G/L (ACY)" := 0;
	 ValueEntry.MODIFY;
	END;
   Dlg.UPDATE(1,ROUND(I/ILECount*10000,1));
 UNTIL ValueEntry.NEXT = 0;

 Dlg.CLOSE;