Добавление в интерфейс вычисляемого поля.

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Ренат
Постоянный обитатель
Сообщения: 194
Зарегистрирован: 12 сен 2007, 16:34
Откуда: Глазов
Контактная информация:

Добавление в интерфейс вычисляемого поля.

Сообщение Ренат »

Здравствуйте.
Задача такая - Надо в интерфейс "Выбор матценностей для возврата из накладных на отпуск" добавить столбец "Тара". Наверное это должно быть вычисляемое поле.
Это нужно для того , чтобы бухгалтер видел что по данной накладной уже имеется возврат.
Т.е. чтобы в списке столбцов:
"Дата" "Номер" _________ "Примечание" "Вх. налог" "Валюта"
были столбцы
"Дата" "Номер" __"Тара"__ "Примечание" "Вх. налог" "Валюта"

Я написал отдельный интерфейс который показывает список накладные и для каждой позиции факт наличия возрата.
Сам вопрос: Можно ли написать функцию которая для данного Nrec накладной определит факт полного возврата тары и как это сделать?

Спасибо.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

sTxoGetFieldValue в Txo.pdf поищите. Ну либо в настройке Тхо посмотрите как их вызывать (на закладке общеиспользуемые функции). С версии 8_00 alter interface +скрипт конфигуратора ( скомпиленный тоже vip-ом) рулит.
Ренат
Постоянный обитатель
Сообщения: 194
Зарегистрирован: 12 сен 2007, 16:34
Откуда: Глазов
Контактная информация:

Сообщение Ренат »

Почитаем. :grin:
Ренат
Постоянный обитатель
Сообщения: 194
Зарегистрирован: 12 сен 2007, 16:34
Откуда: Глазов
Контактная информация:

Сообщение Ренат »

Ничё не понимаю :( . Объясните пожалуйста по пунктам как это можно сделать
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

полностью за спасибо влом.
примерная схема с учетом того что alter вы знаете.
1. Из своего фейса делаете объектный фейс с какой либо функцией которая возвращает нужное (далее test)
2. в alter прописываем перед create view
#include my_face.vih
var imy_face: my_face ;
var wtest_tara :string ; // для проверки по Ctrl+F4
function test_tara : string , forward ;
в as select
test_tara (fieldname = tara_exist)
за view описываем test_tara
function test_tara :string ;
{ wtest_tara:=imy_face.test(spsopr.nrec) ;
test_tara:=wtest_tara ;
}
компилим, цепляем с номером 10000(или 2900, чтобы изм.конфигуратора не перекрыть).
далее проверяем рабостоспособность. Добавляем конфигуратором поле tara_exist. Здесь если вы подключили с номером 2900 можно прерваться, но мне так не нравиться, посему продолжим.
делаете cnf (только измененное из рабочего ресурса).
из cnf выкидываете все поля кроме вашего(ну и объекты в которые оно включено тоже оставляем). Всключаем вашу cnf в низ файла с alter, компилим и цепляем теперь уже этот рес. Все. Теперь после выхода патчей вам нужно скомпилить тока файл с alter. Преимущество такого подхода в том, что так можно и встроенные фейсы подправить -если тока со структурой cnf разберетесь. Подсмотреть то их структуру можно через тот же конфигуратор или консоль управления. Опять же -тогда при отключении ресурса вы не вывалитесь по рантайму.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

усе это если нельзя вытащить значение нужного поля через свзяку sTxoGetFieldValue (если получиться написать select к spsopr, в котором дочерние таблицы будут одназначно подцепляны по nrec, то можно обойтись одним конфигуратором) .
Ренат
Постоянный обитатель
Сообщения: 194
Зарегистрирован: 12 сен 2007, 16:34
Откуда: Глазов
Контактная информация:

Сообщение Ренат »

Попытаюсь осмыслить :-(
Спасибо.
Ответить