View previous topic :: View next topic |
Author |
Message |
Максим Черепанов
Joined: 17 Jan 2004 Posts: 136 Location: Максим Черепанов Occupation: ЖА Interests: Анапа
|
Posted: 25 Feb 2004 16:27 Post subject: Продажи! Счет - Fileeval-как выдернуть реквизиты |
|
|
Доброе время суток!
Очень хочется сделать нормальный счет. Для этого надо бы повыдергивать реквизиты из справочника -(расчетный счет, инн, бик, и тд) своего предприятия и контрагента.
пробовал Через Fileeval("этот файл",{cCodeDop}) //для контрагента видимо надо подставлять aCode.
Не получилось . Помогите чего не так сделал???????
private a
dbOpenBase({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
dbpush("PARTNER","CODE","",{"UPPER(CODE)",apars[2]})
a:=partner->recvizit
dbpop()
dbCloseBase({'Partner'})
a |
|
Back to top |
|
|
Aidar
Joined: 13 Jan 2003 Posts: 222
Interests: Казань
|
Posted: 25 Feb 2004 17:17 Post subject: |
|
|
Подробнее опиши проблему.
Что за счет, и почему через Fileeval, когда любой реквизит любого предприятия можно вытащить напрямую в блоках товаров, материалах,закупках и продажах.
Можно посмотреть в счет-фактурах демо-баз.
Айда |
|
Back to top |
|
|
Максим Черепанов
Joined: 17 Jan 2004 Posts: 136 Location: Максим Черепанов Occupation: ЖА Interests: Анапа
|
Posted: 25 Feb 2004 19:35 Post subject: |
|
|
Все спасибо.. решение нашел, может кому пригодится
А выдернуть неполучилось.... собственные реквизиты(может руки кривые).... а контрагента действительно получается
aVars:=AFill(ARRAY(10),0)
dbOpenBase({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
dbpush("PARTNER","CODE","",{"UPPER(CODE)",apars[1]})
aVars[1]:=partner->ORGNAME //полное наименование
aVars[2]:=partner->BNKKOD //бик
aVars[3]:=partner->BNKKOD1//КОД БАНКА
aVars[4]:=partner->BANK //название банка
aVars[5]:=partner->code_pr//Инн/КПП
aVars[6]:=partner->adress//адрес
aVars[7]:=partner->code_okpo//код ОКПО
aVars[8]:=partner->telefon1
dbpop()
dbCloseBase({'Partner'})
aVars[1] |
|
Back to top |
|
|
|