Показать сообщение отдельно
Старый 05.08.2009, 19:41   #5  
RedFox is offline
RedFox
Участник
 
1,441 / 10 (0) +
Регистрация: 28.12.2004
Адрес: Киев
Цитата:
Сообщение от gala Посмотреть сообщение
report 12456 - создает книгу продаж (это один из обязательных российских отчетов по НДС).... только, кажется, он к этим полям он не имеет прямого отношения.... Во всяком случае я связи не нашла.
Немного по коду:
Код:
		DataItemVarName=PrepmtVATEntry;
		OnPreDataItem=VAR
						Customer@1210001 : Record 18;
						Delimiter@1210000 : Code[1];
					  BEGIN
						IF NOT ShowVendPrepmt THEN
						  CurrReport.BREAK;

						SETRANGE("Posting Date",VATLedgerName."Start Date",VATLedgerName."End Date");
						IF CustFilter <> '' THEN BEGIN
						  Delimiter := '';
						  Customer.RESET;
						  Customer.SETFILTER("No.",CustFilter);
						  IF Customer.FIND('-') THEN
							REPEAT
							  IF Customer."Vendor No." <> '' THEN BEGIN
								VendFilter := VendFilter + Delimiter + Customer."Vendor No.";
								Delimiter := '|';
							  END;
							UNTIL Customer.NEXT = 0;
						  SETFILTER("Bill-to/Pay-to No.",VendFilter);
						END;
..
Код:
		DataItemVarName=PurchReturnVATEntry;
		OnPreDataItem=VAR
						Customer@1001 : Record 18;
						Delimiter@1000 : Code[1];
					  BEGIN
						SETRANGE("Posting Date",VATLedgerName."Start Date",VATLedgerName."End Date");
						IF CustFilter <> '' THEN
						BEGIN
						  Delimiter := '';
						  Customer.RESET;
						  Customer.SETFILTER("No.",CustFilter);
						  IF Customer.FIND('-') THEN
							REPEAT
							  IF Customer."Vendor No." <> '' THEN BEGIN
								VendFilter := VendFilter + Delimiter + Customer."Vendor No.";
								Delimiter := '|';
							  END;
							UNTIL Customer.NEXT = 0;
						  SETFILTER("Bill-to/Pay-to No.",VendFilter);
						END;
..

P.S. А теперь введите 40 знаков в Имени Поставщика, выберите код в Клиенте. А затем покрутите роликом по этой форме...