FoxClub Forums > Не фоксом единым > VFP + 1C, первый шаг ::

• Войти

Страницы: 1 2 3 4 5

VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 24.05.07 14:37:52 [attachment 4513 untitled.PNG] CONFIG.FPW codepage = 1251 resource = .\foxuser.dbf и как это выполнить ? WinXP Pro, VFP7, Regional: RU/RU

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 24.05.07 15:05:58 Скорей всего в 77 так: go1C.("Метаданные.Константа()") У меня 8.0. Поищи по форуму, Равиль и Саша Медведев(твой тезка) отвечали многим. Вот рабочий кусок на 77: wait window "Ждите , идет выполнение программы..." nowait lc1Cdata='\\H043-srv-04\1cv77Conf\Ousql_' lc1Cname='синхро' lc1Cpass='1' go1C = Createobject("V77.Application") luResult = go1C.Initialize(go1C.RMTrade,'/D'+lc1Cdata+' /N'+lc1Cname+' /P'+lc1Cpass,'NO_SPLASH_SHOW') && Немонопольный доступ Файл =go1C.Createobject("XBASE") ПланДБФ = go1C.Createobject("Справочник.ПланыПоставки") Файл.ДобавитьПоле("dog","S",15,0) Файл.ДобавитьПоле("socr_potr","S",50,0) Файл.ДобавитьПоле("poln_potr","S",255,0) Файл.ДобавитьПоле("mame_okonx","S",35,0) ........... Файл.СоздатьФайл("plan_mes.dbf") ПланДБФ.ВыбратьЭлементы(0) Do While ПланДБФ.ПолучитьЭлемент(0)>0 If ПланДБФ.ДатаНачала>=Ctod('01.01.'+left(right(home(),5),4)) Файл.Добавить() Файл.dog =ПланДБФ.Владелец.Наименование Файл.socr_potr =ПланДБФ.Потребитель.Наименование Файл.poln_potr =ПланДБФ.Потребитель.Предприятие.ПолнНаименование.Получить(Date()) Файл.okonx =ПланДБФ.Потребитель.Предприятие.ОКОНХ ............. Файл.Записать() Endif Enddo Файл.ЗакрытьФайл() go1C.ФС.КопироватьФайл("plan_mes.dbf","C:\plan_mes.dbf",0) wait clear Исправлено 2 раз(а). Последнее : Сергей_Л, 24.05.07 15:26

Re: VFP + 1C, первый шаг

Сергей_Л

Сообщений: 20257
Откуда: Киров(Вятка)
Дата регистрации: 07.02.2005

Сергей_Л

24.05.07 15:05:58

Скорей всего в 77 так:
go1C.("Метаданные.Константа()")
У меня 8.0. Поищи по форуму, Равиль и Саша Медведев(твой тезка) отвечали многим.
Вот рабочий кусок на 77:


wait window "Ждите , идет выполнение программы..." nowait  

lc1Cdata='\\H043-srv-04\1cv77Conf\Ousql_'
lc1Cname='синхро'
lc1Cpass='1'

go1C = Createobject("V77.Application")
luResult = go1C.Initialize(go1C.RMTrade,'/D'+lc1Cdata+' /N'+lc1Cname+' /P'+lc1Cpass,'NO_SPLASH_SHOW')    && Немонопольный доступ

Файл =go1C.Createobject("XBASE")
ПланДБФ = go1C.Createobject("Справочник.ПланыПоставки")
Файл.ДобавитьПоле("dog","S",15,0)
Файл.ДобавитьПоле("socr_potr","S",50,0)
Файл.ДобавитьПоле("poln_potr","S",255,0)
Файл.ДобавитьПоле("mame_okonx","S",35,0)
...........

Файл.СоздатьФайл("plan_mes.dbf")

ПланДБФ.ВыбратьЭлементы(0)
Do While  ПланДБФ.ПолучитьЭлемент(0)>0
    If  ПланДБФ.ДатаНачала>=Ctod('01.01.'+left(right(home(),5),4))
        Файл.Добавить()
        Файл.dog =ПланДБФ.Владелец.Наименование
        Файл.socr_potr =ПланДБФ.Потребитель.Наименование
        Файл.poln_potr =ПланДБФ.Потребитель.Предприятие.ПолнНаименование.Получить(Date())
        Файл.okonx =ПланДБФ.Потребитель.Предприятие.ОКОНХ

.............
    
        Файл.Записать()
    Endif
Enddo

Файл.ЗакрытьФайл()
go1C.ФС.КопироватьФайл("plan_mes.dbf","C:\plan_mes.dbf",0)
  wait clear

Исправлено 2 раз(а). Последнее : Сергей_Л, 24.05.07 15:26

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 24.05.07 16:43:53 Спасибо ! Пробил похоже.

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 31.05.07 12:14:44 У кого-нибудь есть возможность пообщатся со мной в ICQ, MSN, IRC или Skype об 1С. Есть вопросы. ICQ: 116656453 MSN: vedmak_home@hotmail.com IRC: irc.tsk.ru #foxpro Skype: Vedmak@Office

Re: VFP + 1C, первый шаг
oleg_km Сообщений: 487 Откуда: СПб Дата регистрации: 02.12.2002	oleg_km 01.06.07 13:10:24 7.7 или 8.x

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 04.06.07 14:37:34 [attachment 4585 untitled.PNG] Правильно ли огданизован перебор документов и получения строк содержимого табличной части ? [attachment 4586 untitled.PNG] Конфигурация.

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 04.06.07 14:38:04 oleg_km 7.7 или 8.x 77

Re: VFP + 1C, первый шаг
h.i.a. Сообщений: 4002 Откуда: Мурманск/Спб/Мск Дата регистрации: 18.11.2005	h.i.a. 04.06.07 19:29:49 В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ) Исправлено 1 раз(а). Последнее : h.i.a., 04.06.07 19:31

Re: VFP + 1C, первый шаг

h.i.a.

Сообщений: 4002
Откуда: Мурманск/Спб/Мск
Дата регистрации: 18.11.2005

h.i.a.

04.06.07 19:29:49

В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ)

Исправлено 1 раз(а). Последнее : h.i.a., 04.06.07 19:31

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 05.06.07 09:11:35 У тебя ТМЦ- это ссылка на справочник Если ТМЦ-это название справочника, то БлаБла=СоздатьОбъект("Справочник.ТМЦ") ; БлаБла.НайтиЭлемент(oDoc.ТМЦ); Сообщить(БлаБла.Код); Сообщить(БлаБла.Наименование); Мой пример см. вложение там в документе поле Счетчик-это ссылка на справочник Счетчик пример работает [attachment 4591 02.jpg] Исправлено 2 раз(а). Последнее : Сергей_Л, 05.06.07 09:18

Re: VFP + 1C, первый шаг

Сергей_Л

Сообщений: 20257
Откуда: Киров(Вятка)
Дата регистрации: 07.02.2005

Сергей_Л

05.06.07 09:11:35

У тебя ТМЦ- это ссылка на справочник
Если ТМЦ-это название справочника, то
БлаБла=СоздатьОбъект("Справочник.ТМЦ") ;
БлаБла.НайтиЭлемент(oDoc.ТМЦ);
Сообщить(БлаБла.Код);
Сообщить(БлаБла.Наименование);

Мой пример см. вложение
там в документе поле Счетчик-это ссылка на справочник Счетчик
пример работает
[attachment 4591 02.jpg]

Исправлено 2 раз(а). Последнее : Сергей_Л, 05.06.07 09:18

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 05.06.07 10:33:37 LOCAL oLib, oPeriod oLib = go1C.createobject("Справочник.ОсновныеСредства") oLib.ВыбратьЭлементы() Do WHILE oLib.ПолучитьЭлемент() > 0 cID = LEFT(oLib.ПолныйКод,AT("/",oLib.ПолныйКод)) * выборка "компутерного" IF INLIST(cID,"25/","19/", "1/", "26/", "22/", "8/" ) * выделение наименования cName = Right(oLib.ПолноеНаименование,LEN(oLib.ПолноеНаименование)-AT("/",oLib.ПолноеНаименование) ) * экспорт в таблицу INSERT INTO Tmp ( id_, name_, buyDate_,useon_ ) ; value ( oLib.ПолныйКод, cName, oLib.ДатаПоступления, oLib.ДатаНачалаЭксплуатации ) * поиск посленнего места хранения * oPeriod = go1C.createobject("Периодический") * oPeriod.ИспользоватьОбъект("МестоХранения",oLib) * oPeriod.ОбратныйПорядок(1) * oPeriod.ВыбратьЗначения() * IF oPeriod.ПолучитьЗначение() = 1 * replace tmp.owner_ with oPeriod.Значение.Наименование * ENDIF ENDIF ENDDO LOCAL oDocs, oDoc, oRec oDocs = go1C.createobject("Документ.РасходТМЦ") oDocs.ВыбратьДокументы() Do WHILE oDocs.ПолучитьДокумент() > 0 oDoc = oDocs.ТекущийДокумент() oDoc.ВыбратьСтроки() DO WHILE oDoc.ПолучитьСтроку() > 0 IF oLib.НайтиЭлемент( oDoc.ТМЦ ) > 0 SET STEP ON ENDIF * ?oDoc.ТМЦ.Код,oDoc.ТМЦ.Наименование * IF SEEK( oDoc.ТМЦ.Код , "Tmp", "id_" ) * REPLACE tmp.useoff_ with TTOD( oDoc.ДатаДок ) * ENDIF enddo ENDDO вот SET STEP ON не отрабатывает. В базе точно есть значения из справочника

Re: VFP + 1C, первый шаг

Vedmak
Автор

Сообщений: 5967
Откуда: CiTY
Дата регистрации: 30.10.2003

Vedmak

05.06.07 10:33:37


LOCAL oLib, oPeriod
oLib = go1C.createobject("Справочник.ОсновныеСредства")
oLib.ВыбратьЭлементы()  
Do WHILE oLib.ПолучитьЭлемент() > 0 
    cID = LEFT(oLib.ПолныйКод,AT("/",oLib.ПолныйКод))
    * выборка "компутерного"
    IF INLIST(cID,"25/","19/", "1/", "26/", "22/", "8/" )
        * выделение наименования
        cName = Right(oLib.ПолноеНаименование,LEN(oLib.ПолноеНаименование)-AT("/",oLib.ПолноеНаименование) )
        * экспорт в таблицу
        INSERT INTO Tmp ( id_, name_, buyDate_,useon_ ) ;
            value ( oLib.ПолныйКод, cName, oLib.ДатаПоступления, oLib.ДатаНачалаЭксплуатации )
            
        * поиск посленнего места хранения
*       oPeriod = go1C.createobject("Периодический")
*       oPeriod.ИспользоватьОбъект("МестоХранения",oLib)
*       oPeriod.ОбратныйПорядок(1)
*       oPeriod.ВыбратьЗначения()
*       IF oPeriod.ПолучитьЗначение() = 1
*           replace tmp.owner_ with oPeriod.Значение.Наименование
*       ENDIF 
        
    ENDIF 
ENDDO  


LOCAL oDocs, oDoc, oRec
oDocs = go1C.createobject("Документ.РасходТМЦ")
oDocs.ВыбратьДокументы()  
Do WHILE oDocs.ПолучитьДокумент() > 0 
    oDoc = oDocs.ТекущийДокумент()

    oDoc.ВыбратьСтроки()
    DO WHILE oDoc.ПолучитьСтроку() > 0
        IF oLib.НайтиЭлемент( oDoc.ТМЦ ) > 0
            SET STEP ON 
        ENDIF 
*       ?oDoc.ТМЦ.Код,oDoc.ТМЦ.Наименование
*       IF SEEK( oDoc.ТМЦ.Код , "Tmp", "id_" )
*           REPLACE tmp.useoff_ with TTOD( oDoc.ДатаДок )
*       ENDIF 
    enddo
ENDDO

вот SET STEP ON не отрабатывает. В базе точно есть значения из справочника

Re: VFP + 1C, первый шаг
Vedmak Автор Сообщений: 5967 Откуда: CiTY Дата регистрации: 30.10.2003	Vedmak 05.06.07 10:37:12 h.i.a. В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ) Конфигурацию я не имею права править. Что есть, так и показал.

Re: VFP + 1C, первый шаг

Vedmak
Автор

Сообщений: 5967
Откуда: CiTY
Дата регистрации: 30.10.2003

Vedmak

05.06.07 10:37:12

h.i.a.
В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ)

Конфигурацию я не имею права править. Что есть, так и показал.

Re: VFP + 1C, первый шаг
Василий Сообщений: 682 Откуда: Москва Дата регистрации: 19.10.2000	Василий 05.06.07 11:31:59 Цитата: В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ) совсем не обязательно Исправлено 1 раз(а). Последнее : Василий, 05.06.07 11:33

Re: VFP + 1C, первый шаг

Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000

Василий

05.06.07 11:31:59

Цитата:
В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ)

совсем не обязательно

Исправлено 1 раз(а). Последнее : Василий, 05.06.07 11:33

Re: VFP + 1C, первый шаг
PaulWist Сообщений: 14618 Дата регистрации: 01.04.2004	PaulWist 05.06.07 11:56:26 Посмотри для периодического реквизита forum.foxclub.ru ------------------ Есть многое на свете, друг Горацио... Что и не снилось нашим мудрецам. (В.Шекспир Гамлет)

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 05.06.07 11:57:52 Василий Цитата: В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ) совсем не обязательно А как тогда будет работать ссылка? В каком справочнике искать?

Re: VFP + 1C, первый шаг

Сергей_Л

Сообщений: 20257
Откуда: Киров(Вятка)
Дата регистрации: 07.02.2005

Сергей_Л

05.06.07 11:57:52

Василий
Цитата:
В свойствах реквизита табличной части должен быть указан конкретный тип значения справочника, по которому происходит связь. Т.е. не просто "справочник", а например Справочник.Номенклатура (или Справочник.ТМЦ)

совсем не обязательно

А как тогда будет работать ссылка?
В каком справочнике искать?

Re: VFP + 1C, первый шаг
Василий Сообщений: 682 Откуда: Москва Дата регистрации: 19.10.2000	Василий 05.06.07 12:15:57 определить ссылка на какой справочник записана, в том и искать

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 05.06.07 13:51:23 Василий определить ссылка на какой справочник записана, в том и искать А пример привести можно? Очень заинтересовало...

Re: VFP + 1C, первый шаг
Василий Сообщений: 682 Откуда: Москва Дата регистрации: 19.10.2000	Василий 05.06.07 14:25:29 типовая торговля 7.7 справочник контрагенты реквизит ЮрФизЛицо

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 05.06.07 14:41:28 Не поняли меня. Я имел ввиду, кусок кода обработки как в случае у VedmakRiga, когда в свойствах реквизита табличной части документа не указан конкретный тип значения справочника, а просто <<Справочник>>. Цитата: определить ссылка на какой справочник записана, в том и искать Как это сделать? Исправлено 1 раз(а). Последнее : Сергей_Л, 05.06.07 14:48

Re: VFP + 1C, первый шаг

Сергей_Л

Сообщений: 20257
Откуда: Киров(Вятка)
Дата регистрации: 07.02.2005

Сергей_Л

05.06.07 14:41:28

Не поняли меня. Я имел ввиду, кусок кода обработки как в случае у VedmakRiga, когда в свойствах реквизита табличной части документа не указан конкретный тип значения справочника, а просто <<Справочник>>.

Цитата:
определить ссылка на какой справочник записана, в том и искать

Как это сделать?

Исправлено 1 раз(а). Последнее : Сергей_Л, 05.06.07 14:48

Re: VFP + 1C, первый шаг
Василий Сообщений: 682 Откуда: Москва Дата регистрации: 19.10.2000	Василий 05.06.07 15:01:31 реквизит ЮрФизЛицо точно так же, имеет тип СПРАВОЧНИК, если честно нет времени "рыться" в типовой, если очень нужно то там можно найти. Не найдешь, пиши, поищем вместе. определить какой конкретно справочника oDoc.ТМЦ.вид() у VedmakRiga все оказалось просто и смешно, правда ему не до смеха

Re: VFP + 1C, первый шаг

Василий

Сообщений: 682
Откуда: Москва
Дата регистрации: 19.10.2000

Василий

05.06.07 15:01:31

реквизит ЮрФизЛицо точно так же, имеет тип СПРАВОЧНИК, если честно нет времени "рыться" в типовой, если очень нужно то там можно найти.
Не найдешь, пиши, поищем вместе.

определить какой конкретно справочника oDoc.ТМЦ.вид()

у VedmakRiga все оказалось просто и смешно, правда ему не до смеха

Re: VFP + 1C, первый шаг
Сергей_Л Сообщений: 20257 Откуда: Киров(Вятка) Дата регистрации: 07.02.2005	Сергей_Л 05.06.07 16:07:20 Василий Спасибо, разобрался, работает, примерно так: ВидСпр=oDoc.ТМЦ.Вид(); Справ="Справочник."+ВидСпр ; Обкт=СоздатьОбъект(Справ) ; А почему у Саши не будет работать? Цитата: у VedmakRiga все оказалось просто и смешно, правда ему не до смеха

Re: VFP + 1C, первый шаг

Сергей_Л

Сообщений: 20257
Откуда: Киров(Вятка)
Дата регистрации: 07.02.2005

Сергей_Л

05.06.07 16:07:20

Василий
Спасибо, разобрался, работает, примерно так:

ВидСпр=oDoc.ТМЦ.Вид();
Справ="Справочник."+ВидСпр ;
Обкт=СоздатьОбъект(Справ) ;

А почему у Саши не будет работать?

Цитата:
у VedmakRiga все оказалось просто и смешно, правда ему не до смеха

Страницы: 1 2 3 4 5

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 11 (Гостей: 11)