Показать сообщение отдельно
Старый 13.11.2007, 14:51   #3  
Ros is offline
Ros
Участник
 
36 / 10 (1) +
Регистрация: 05.10.2007
Цитата:
Сообщение от romeo Посмотреть сообщение
В этой форме (12406 наверное) триггер OnDrillDown() не переписывали на поле Конечное Сальдо (РУБ)?
Разговор про форму 12406.

Вроде нет -

Код:
Balance Ending - OnDrillDown()
DrillDownGLEntry(3);
Функцию правили, но ничего криминального -

Код:
DrillDownGLEntry(Show : 'StartBalance,Debit,Credit,EndBalance,NetChange')
GLEntry.RESET;
GLEntry.SETCURRENTKEY("Source Type","Source No.","G/L Account No.","Global Dimension 1 Code","Global Dimension 2 Code");
GLEntry.SETRANGE("Source Type",GLEntry."Source Type"::Customer);
GLEntry.SETRANGE("Source No.","No.");
GLEntry.SETFILTER("G/L Account No.",GETFILTER("G/L Account Filter"));
GLEntry.SETFILTER("Global Dimension 1 Code",GETFILTER("Global Dimension 1 Filter"));
GLEntry.SETFILTER("Global Dimension 2 Code",GETFILTER("Global Dimension 2 Filter"));
GLEntry.SETFILTER("Posting Date",GETFILTER("Date Filter"));
CASE Show OF
  Show::StartBalance:
	IF COPYSTR(GETFILTER("Date Filter"),1,2) <> '..' THEN BEGIN
	  IF GETRANGEMIN("Date Filter") <> 0D THEN
		GLEntry.SETRANGE("Posting Date",0D,GETRANGEMIN("Date Filter") - 1);
	END ELSE
	  EXIT;
  Show::Debit: GLEntry.SETFILTER("Debit Amount",'<>%1',0);
  Show::Credit: GLEntry.SETFILTER("Credit Amount",'<>%1',0);
  Show::EndBalance:
	IF GETRANGEMAX("Date Filter") <> 0D THEN

	  // *** MBS ERROR >>
	  // GLEntry.SETRANGE("Posting Date",0D,GETRANGEMAX("Date Filter") - 1)
	  GLEntry.SETRANGE("Posting Date",0D,GETRANGEMAX("Date Filter"))
	  // *** MBS ERROR <<

	ELSE
	  EXIT;
  Show::NetChange: GLEntry.SETFILTER(Amount,'<>%1',0);
  ELSE
	ERROR('');
END;
FORM.RUN(0,GLEntry);