1.Как плагине программы Бэст 5 в 3.3 sp 33 вывести для просмотра и печати содержимое текстового файла,который был создан в процессе работы плагина?
В плагине программы Бэст 5 в 3.3 sp 33 функция Str2File() работает.
А вот чем заменить функцию View() ?
2. В бэсте 4+ для получения реквизитов собственного предприятия в плагине
применялся такой код :
dbOpenBases({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
IF !dbseek(LBL_OPER).AND.!dbseek("000001")
dbgotop()
ENDIF
OKATO := If(Empty(ALLTRIM(PARTNER->OKATO)),' ' , ALLTRIM(PARTNER->OKATO))
Tel := If(Empty(ALLTRIM(PARTNER->Telefon2)), ' ',ALLTRIM(PARTNER->Telefon2) )
INN_O := If(Empty(alltrim(LBL_INNKPP)) , ' ', alltrim(LBL_INNKPP))
IFNS_O := If( Empty(substr(alltrim(INN_O),1,4)), '0000', substr(alltrim(INN_O),1,4))
Buh_O := If( Empty(ALLTRIM(LBL_SHEF)), ' ', ALLTRIM(LBL_SHEF))
dbCloseBases({'PARTNER'})
А для Бэста 5 в 3.3 переменные типа LBL_INNKPP уже не работают?
Где- то можно посмотреть решение данной ситуации для Бэста 5 в 3.3?
Заранее спасибо .
Габов Алексей.
В плагине программы Бэст 5 в 3.3 sp 33 функция Str2File() работает.
А вот чем заменить функцию View() ?
2. В бэсте 4+ для получения реквизитов собственного предприятия в плагине
применялся такой код :
dbOpenBases({{'PARTNER',LoadPath()+'PARTNER.DBF'}})
IF !dbseek(LBL_OPER).AND.!dbseek("000001")
dbgotop()
ENDIF
OKATO := If(Empty(ALLTRIM(PARTNER->OKATO)),' ' , ALLTRIM(PARTNER->OKATO))
Tel := If(Empty(ALLTRIM(PARTNER->Telefon2)), ' ',ALLTRIM(PARTNER->Telefon2) )
INN_O := If(Empty(alltrim(LBL_INNKPP)) , ' ', alltrim(LBL_INNKPP))
IFNS_O := If( Empty(substr(alltrim(INN_O),1,4)), '0000', substr(alltrim(INN_O),1,4))
Buh_O := If( Empty(ALLTRIM(LBL_SHEF)), ' ', ALLTRIM(LBL_SHEF))
dbCloseBases({'PARTNER'})
А для Бэста 5 в 3.3 переменные типа LBL_INNKPP уже не работают?
Где- то можно посмотреть решение данной ситуации для Бэста 5 в 3.3?
Заранее спасибо .
Габов Алексей.