Ввод ДО, счетов в оперативном режиме.

[Selena]

Уважаемые коллеги!
У нас происходит постоянный ввод счетов/До на отпуск, в оперативном режиме. Вот хотела спросить а как у вас это происходит. Вы как только получили звонок или заказ от клиента сразу вводите в галактику или как? По мнению наших диспетчеров это не очень удобно. Поэтому до сих пор они принимают заказы на продажу на бумажку а потом вводят в Галактику. А вы как?

[Slava]

Как только получили заказ. Но иногда - при разборе полетов - бумажки очень даже не хватает...

[m0p3e]

У нас манагер собирает заказы. Сделан свой фейс для ввода его на основании текущих остатков. Создается полноценное ДО с BaseDoc.vidDoc = 6666; Есть второй фейс с просмотром этих ДО. В нем можно подредактировать/удалить и т.д. После того как он утвержден, BaseDoc.vidDoc меняется на 201 и доступен для дальнейшей обработки.

[vitali]

А почему нельзя сразу и стандартными средствами

[m0p3e]

Потому что так удобнее:
Доступны только нужные поля. (Контрагент, дата, примечание).
В нижнем окне текущие остатки по партиям. Манагер просто бьет нужное количество. Плюс разные удобные фенечки.
После того как манагер сформировал заказ его не видно в общем списке ДО. Первым его просматривает Зам.ком.дир. Если все в порядке то он его подписывает. Уже подписанные заказы просматривает Зам.директора и импортирует. (меняет BaseDoc.vidDoc на 201). Все манипуляции логируются. Кто, что и когда можно просмореть.
В момент выписки и утверждения всегда можно просмотреть баланс с коргом и т.д.

[Selena]

Суперско!

[Dium]

А не выложешь эту мулечку в опыт?

[m0p3e]

Она довольно серьезно заточена под нашу базу. Использует добавленые мною настройки. (Надо ж давать как то право на создание, подпись и импорт заказа).

[dozent]

M0P3E сказал:
> В момент выписки и утверждения всегда можно просмотреть
> баланс с коргом и т.д.

Как ты баланс смотришь? Каким отчетом?

[m0p3e]

Свой фейс. Считает с помощью Галактических средств. Как на работу приеду - вышлю.

[ALEKS123]

Серега, если не сложно, кинь и мне.
Спасибо

[Grom]

И мне.
Спасибо

[m0p3e]

Вот пример:

ObjInterface GKonBalObj;
function GetKontrBalance (_c1 : comp; _d1 : date; NaklOnlyWas: word;
var BalR: double; var BalV:double; var BalB: double): boolean;
end;

Interface GetBlockForCorgDO AlwaysReturn;

Create View
var DoNrec : comp;
BalR, BalV, BalB, MaxDolgR : double;
GKB : GKonBalObj;
Block : Boolean;
as select *
from BaseDoc, Katorg
where ((
DoNrec == BaseDoc.nrec and
BaseDoc.corg == Katorg.nrec
))
;

Parameters DoNrec, Block;

HandleEvent
cmInit : { If GetFirst BaseDoc = tsOk
then If GetFirst Katorg = tsOk
then begin
GetVipRef(GKB,'GKonBal');
GKB.GetKontrBalance(Katorg.nrec, BaseDoc.dDoc, 0, BalR, BalV, BalB);
MaxDolgR := Katorg.MAXDOLGRUB;
If BalR + MaxDolgR < 0
then Block := true
else Block := false;
//Message( BalR + ' - ' + MaxDolGRub, 0);
end;
Abort;
};
End;
END.