| View previous topic :: View next topic |
| Author |
Message |
Дениска
Joined: 26 Feb 2002
Posts: 649
|
 Posted: 13 Jun 2007 09:10 Post subject: Генерация проводок для Р/О |
 |
|
Плагином создаю в кассе Р/О. Как сгенерировать проводки к нему? Создаю Р/О примерно так:
| Code: |
NetUse("F_memdat", LoadPath() + "cash\memdat.dbf")
F_memdat->(dbGoTop())
IF F_memdat->(DBSEEK('501 Р/О' + str(year(Date()),4,0)))
F_memdat->(RecLock())
F_memdat->Value := Next(F_memdat->Value)
F_memdat->(f_dbunlock())
EndIf
NetUse("F_main", LoadPath() + "main.dbf")//Надо?
NetUse("F_k_order", LoadPath() + "cash\k_order.dbf")
F_k_order->(addrec())
F_k_order->MAIN_SCHET := cMainSchet
F_k_order->TYPE := 'Р/О'
//.............
F_k_order->REASON := 'Выдана заработная плата'
F_k_order->NNPROVOD := ?//Номер группы проводок базы
F_k_order->VTYPE := 'Р/О'//Тип документа
F_k_order->MODEL := '0002'//Модель калькуляции
F_k_order->OPER_KALK := ?
F_k_order->(f_dbunlock())
F_k_order -> (dbclosearea())
F_memdat -> (dbclosearea())
|
|
|
| Back to top |
|
 |
Behemoth
Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
|
| Posted: 13 Jun 2007 09:21 Post subject: |
|
|
Добрый день.
Ну так дальше и продолжайте:
f_main->(addrec())
f_main->task:='02'
f_main->nnoper:=F_k_order->NNPROVOD
...
Проще выйдет.
oper_kalk := IncStep("N_KALKUL")
Значения параметров калькуляции надо заполнить в базе KALK_D_K.DBF Она открыта с алиасом KALK_D.
_________________
С уважением, Новиков Алексей. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
