Цитата:
Сообщение от
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 знаков в Имени Поставщика, выберите код в Клиенте. А затем покрутите роликом по этой форме...