MOROZGK
Joined: 16 Dec 2003
Posts: 94
Location: MorozGK
Occupation: OAOBG
Interests: BOKSITOGORSK
|
 Posted: 17 Jan 2005 11:13 Post subject: BEST+ SP2 Не работают групповые операции |
 |
|
*Переоценка отгрузки по предоплате
Т="Проводка записана"
*
ПОКА( 1 = 1 )
*
ВАЛЮТА(ВАЛ,"Определите вид валюты:")
ВВОД( ("Дата предоплаты или переоценки:","Д_ПР","Д" ),;
("Дата таможенной процедуры: ","Д_ГТД","Д" ),;
("Номер документа: ","ДОК","С","XXXXXX" ),;
("Сумма таможенной процедуры: ","СУМ_ГТД","Ч" );
)
ВАЛЮТА_КУРС(КУРС_ГТД,ВАЛ,Д_ГТД,"Курс валюты тамож.проц.")
ВАЛЮТА_КУРС(КУРС_ПР,ВАЛ,Д_ПР,"Курс валюты предоплаты")
СУМ_БОК=СУМ_ГТД*(КУРС_ГТД-КУРС_ПР)
СУМ_РАЗН=ОКРУГ(СУМ_БОК,2)
СУМ_ОТР = -СУМ_РАЗН
П(Д_ГТД,ДОК,"4401 ","600204 ","Таможенные процедуры",СУМ_ГТД)
ЕСЛИ (СУМ_ОТР<0)
П(Д_ГТД,ДОК,"600204 ","910606 ","Переоценка валюты по тамож.проц.",СУМ_РАЗН)
ИНАЧЕ
П(Д_ГТД,ДОК,"910706 ","600204 ","Переоценка валюты по тамож.проц.",СУМ_ОТР)
ВСЕ_ЕСЛИ
СООБ(Т)
ЕСЛИ (ДА(" Определите действия "," Ввод следующего документа "," Завершить ввод ")= "0")
ВЫХОД
ВСЕ_ЕСЛИ
ВСЕ_ПОКА
Функция ВАЛЮТА_КУРС не работает ( В справочнике по F2 название функции ВАЛЮТА_КУР ? |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
