Sections в отчете - Страница 3 - NAV: Программирование

InTacto · 18.04.2012, 11:38

Цитата:

Сообщение от zoya210489

В таблице Detailed Vendor Ledg. Entry, есть поля и поставщик, и учетная группа и договор может попробывать как нибудь на нее настроить фильтр??

Код:

DVLE.SETCURRENTKEY(DVLE."Vendor Posting Group",DVLE."Vendor No.",DVLE."Agreement No.");
IF DVLE.GET("Vendor Ledger Entry"."Vendor Posting Group") and DVLE.GET("Vendor Ledger Entry"."Vendor No.") THEN BEGIN
DVLE.SETRANGE(DVLE."Posting Date",StartDate,EndDate);
DVLE.CALCSUMS(DVLE."Debit Amount (LCY)",DVLE."Credit Amount (LCY)");
LineAmount1[3] := DVLE."Debit Amount (LCY)";
LineAmount1[4] := DVLE."Credit Amount (LCY)";
END;

Сорри, смотрел табличку 4 версии, там таких полей нет. В 5 есть. Это упрощает все.
Можно почти забыть про временную табличку, правда отсутствие счета может подпортить картину.
Вы так и не ответили что за смысл в этой строке

Код:

IF DVLE.GET("Vendor Ledger Entry"."Vendor Posting Group") and DVLE.GET("Vendor Ledger Entry"."Vendor No.") THEN BEGIN

для справки, GET возвращает запись по главному ключу, у DVLE это поле Entry No с типом Integer. Кроме цифорок для этой таблицы пихать в GET ничего нельзя, о чем и выводится ошибка.
Если вы хотите поставить фильтры, то используйте setrange или setfilter, что вы и делаете для даты, а вот для группы и договора делаете почему-то по другому.

ZoyaKom · 18.04.2012, 11:53

Цитата:

Сообщение от InTacto

Цитата:

Сообщение от zoya210489

В таблице Detailed Vendor Ledg. Entry, есть поля и поставщик, и учетная группа и договор может попробывать как нибудь на нее настроить фильтр??

Код:

DVLE.SETCURRENTKEY(DVLE."Vendor Posting Group",DVLE."Vendor No.",DVLE."Agreement No.");
IF DVLE.GET("Vendor Ledger Entry"."Vendor Posting Group") and DVLE.GET("Vendor Ledger Entry"."Vendor No.") THEN BEGIN
DVLE.SETRANGE(DVLE."Posting Date",StartDate,EndDate);
DVLE.CALCSUMS(DVLE."Debit Amount (LCY)",DVLE."Credit Amount (LCY)");
LineAmount1[3] := DVLE."Debit Amount (LCY)";
LineAmount1[4] := DVLE."Credit Amount (LCY)";
END;

Сорри, смотрел табличку 4 версии, там таких полей нет. В 5 есть. Это упрощает все.
Можно почти забыть про временную табличку, правда отсутствие счета может подпортить картину.
Вы так и не ответили что за смысл в этой строке

Код:

IF DVLE.GET("Vendor Ledger Entry"."Vendor Posting Group") and DVLE.GET("Vendor Ledger Entry"."Vendor No.") THEN BEGIN

для справки, GET возвращает запись по главному ключу, у DVLE это поле Entry No с типом Integer. Кроме цифорок для этой таблицы пихать в GET ничего нельзя, о чем и выводится ошибка.
Если вы хотите поставить фильтры, то используйте setrange или setfilter, что вы и делаете для даты, а вот для группы и договора делаете почему-то по другому.

Просто я написала код для счета поставщика (учетная группа):

IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN GL:=GLA.Name;
IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN BEGIN
GLA.SETRANGE("Date Filter",StartDate,EndDate);
GLA.CALCFIELDS(GLA."Debit Amount",GLA."Credit Amount");
LineAmount1[1] := GLA."Debit Amount";
LineAmount1[2] := GLA."Credit Amount";
END;

Где GLA - это Record G/L Account.
GL - это Text (100)
LineAmount1 - это Decimal.

У меня в отчете есть раздел groupheader в который я вывожу счета (по учетным группам поставщиков).
В этом разделе я разместила 4 textbox: 1)"Vendor Ledger Entry"."Vendor Posting Group"; 2)GL (выводит наименования счета) 3)LineAmount1[1] (выводит сумму по дебету для конкретного счета) 4) LineAmount1[2] (выводит сумму по кредиту для конкретного счета).

И у меня это получилось правильно вывести, вот я и подумала по аналогии сделать с поставщиками.

Я думала что функция GET позволит вычислить значание дебета и кредита для нужной комбинации свое.

InTacto · 18.04.2012, 12:59

Цитата:

Сообщение от zoya210489

Просто я написала код для счета поставщика (учетная группа):

IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN GL:=GLA.Name;
IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN BEGIN
GLA.SETRANGE("Date Filter",StartDate,EndDate);
GLA.CALCFIELDS(GLA."Debit Amount",GLA."Credit Amount");
LineAmount1[1] := GLA."Debit Amount";
LineAmount1[2] := GLA."Credit Amount";
END;

Где GLA - это Record G/L Account.
GL - это Text (100)
LineAmount1 - это Decimal.

Это не правильный код.
Наверное у вас одинаковые кода учетной группы и счета, по этому показывате правильно.
На самом деле вам нужно что-то такое:

Код:

if "Vendor Posting group".get("Vendor Ledger Entry"."Vendor Posting Group") then
  begin
    IF GLA.GET("Vendor Ledger Entry".Payables Account) THEN BEGIN
      GLA.SETRANGE("Date Filter",StartDate,EndDate);
      GLA.CALCFIELDS(GLA."Debit Amount",GLA."Credit Amount");
      LineAmount1[1] := GLA."Debit Amount";
      LineAmount1[2] := GLA."Credit Amount";
    END;
 end

и даже так будет на совсем правильно. В общем случае операции поставщика у вас показывают все: основные суммы, округления, суммовые разницы. А вот на счете поставщика округление и суммовые разницы могут и не оказаться, т.к. их могут складывать на другие счета.

ZoyaKom · 19.04.2012, 03:25

Цитата:

Сообщение от InTacto

Цитата:

Сообщение от zoya210489

Просто я написала код для счета поставщика (учетная группа):

IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN GL:=GLA.Name;
IF GLA.GET("Vendor Ledger Entry"."Vendor Posting Group") THEN BEGIN
GLA.SETRANGE("Date Filter",StartDate,EndDate);
GLA.CALCFIELDS(GLA."Debit Amount",GLA."Credit Amount");
LineAmount1[1] := GLA."Debit Amount";
LineAmount1[2] := GLA."Credit Amount";
END;

Где GLA - это Record G/L Account.
GL - это Text (100)
LineAmount1 - это Decimal.

Это не правильный код.
Наверное у вас одинаковые кода учетной группы и счета, по этому показывате правильно.
На самом деле вам нужно что-то такое:

Код:

if "Vendor Posting group".get("Vendor Ledger Entry"."Vendor Posting Group") then
  begin
    IF GLA.GET("Vendor Ledger Entry".Payables Account) THEN BEGIN
      GLA.SETRANGE("Date Filter",StartDate,EndDate);
      GLA.CALCFIELDS(GLA."Debit Amount",GLA."Credit Amount");
      LineAmount1[1] := GLA."Debit Amount";
      LineAmount1[2] := GLA."Credit Amount";
    END;
 end

и даже так будет на совсем правильно. В общем случае операции поставщика у вас показывают все: основные суммы, округления, суммовые разницы. А вот на счете поставщика округление и суммовые разницы могут и не оказаться, т.к. их могут складывать на другие счета.

Что такое Payables Account??