03.08.2009, 16:21 | #1 |
Участник
|
Как-то не совпадает размерность полей..
Я понимаю, что это "наследие прошлого". Но все равно исправлять то нужно помоему? |
|
05.08.2009, 00:16 | #2 |
Участник
|
А где эта функциональность использовать можно. Не подскажите?
|
|
05.08.2009, 12:32 | #3 |
Участник
|
|
|
05.08.2009, 15:33 | #4 |
Moderator
|
Цитата:
report 12456 - создает книгу продаж (это один из обязательных российских отчетов по НДС).... только, кажется, он к этим полям он не имеет прямого отношения.... Во всяком случае я связи не нашла. |
|
05.08.2009, 19:41 | #5 |
Участник
|
Цитата:
Код: 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 знаков в Имени Поставщика, выберите код в Клиенте. А затем покрутите роликом по этой форме... |
|