Michael_K wrote: |
Clipper знаю очень давно, начинал еще с Summer 86
Просьба: пока с Help-ом действительно плоховато - напишите, где что "лежит" и что запускать - "раскиданную" информацию тяжело воспринимать. Порекомендуйте, какие сайты посмотреть (рус, англ, нем - не имеет значения ) |
nordk wrote: |
Сейчас мы работаем над тем как сделать более точным HELP к БЭСТу по программированию, с чего лучше начать уроки программирования для начинающих. В 11-12 версиях HELP можно увидеть в пункте меню "О программе" - "Программирование в БЭСТ-4" Просьба поделиться своими соображениями |
nordk wrote: |
Абсолютно с Вами согласен.
У меня счаз дилема - помогите ее разрешить. Начинать с функции InitList или QINPUT Кто-то просит сразу весь MAKEREFER описать... Хотелось бы сразу начинать с практичных примеров - кототрые интересны всем, вот и пытаюсь спросить - подскажите с чего лучше начать. |
nordk wrote: |
Насчет справочника - я написал выше что у меня решена задача для очень крупного оптово-розничного оператора. Партнеров ищут в момент - хочешь по первым буквам в наименовании, хошь по ИНН. |
nordk wrote: |
Итак по порядку В БЭСТ-4 есть такие индексы TAG_MARKA,TAG_PROFIL,TAG_RAZMER и т.д. по БАЗЕ mlabel, стало быть инструмент для поиска по атрибутам у нас имеется. Далее в БЭСТ-4 есть такая функция INITLIST с помощью которой за 1 день можно быстренько накропать свое представление картотеки и задействовав перечисленные выше индексы по связке осуществлять поиск по атрибутам. При желании добавляется в меню свой пункт или подменяется существующий... |
nordk wrote: |
Еще есть мысль сделать уроки по освоению INITLIST шаг за шагом. |
Quote: |
У меня счаз дилема - помогите ее разрешить.
Начинать с функции InitList или QINPUT Кто-то просит сразу весь MAKEREFER описать... |
Code: |
FUNCTION EXCELPLAN7(xName)
LOCAL oWorkBook,oApp,oAS TRY oApp := CreateObject( "Excel.Application" ) CATCH Alert("Excel не доступен!") RETURN .F. END oApp:Visible := .F. oApp:screenUpdating:=.F. oApp:displayAlerts:=.F. oWorkBook:=oApp:WorkBooks:Add() oAS:=oWorkBook:Worksheets():Add() oAS:Activate() oApp:calculation:=xlCalculationManual oAS:Name:=OemToAnsi("Сверка") oAS:Range("A1:D2"):MergeCells:=.F. oAS:Range("A1:D2"):Merge() oAS:Range("A1"):Value:=OemToAnsi("ООО Невская Компания") oAS:Range("G1"):Value:=OemToAnsi(xName) oAS:Range("D3"):Value:=OemToAnsi("Акт сверки") oAS:Range("C4"):Value:=OemToAnsi("за период") oAS:Range("A6:D6"):Merge() oAS:Range("A6:D6"):HorizontalAlignment:=xlCenter oAS:Range("A6"):Value:=OemToAnsi("Отгрузка ООО Невская Компания") oAS:Range("E6:H6"):Merge() oAS:Range("E6:H6"):HorizontalAlignment:=xlCenter oAS:Range("E6"):Value:=OemToAnsi("Оплата "+xName) oAS:Range("A7"):Value:=OemToAnsi("Дата") oAS:Range("B7"):Value:=OemToAnsi("Наименование") oAS:Range("C7"):Value:=OemToAnsi("Сумма") oAS:Range("D7"):Value:=OemToAnsi("В т.ч. НДС") oAS:Range("E7"):Value:=OemToAnsi("Дата") oAS:Range("F7"):Value:=OemToAnsi("Наименование") oAS:Range("G7"):Value:=OemToAnsi("Сумма") oAS:Range("H7"):Value:=OemToAnsi("В т.ч. НДС") oAS:Range("A10"):Value:=OemToAnsi("Начальное сальдо в пользу") oAS:Range("B11"):Value:=OemToAnsi("В т.ч. по ") oAS:Range("B12"):Value:=OemToAnsi("В т.ч. по ") oAS:Range("A13"):Value:=OemToAnsi("Конечное сальдо в пользу") oAS:Range("B14"):Value:=OemToAnsi("В т.ч. по ") oAS:Range("B15"):Value:=OemToAnsi("В т.ч. по ") oAS:Range("A17"):Value:=OemToAnsi("Главный бухгалтер") oAS:Range("E17"):Value:=OemToAnsi("Главный бухгалтер") oAS:Range("A18"):Value:=OemToAnsi("ООО Невская Компания") oAS:Range("G18"):Value:=OemToAnsi(xName) oAS:Range("A20"):Value:=OemToAnsi("____________________") oAS:Range("G20"):Value:=OemToAnsi("____________________") oAS:Range("A21"):Value:=OemToAnsi("(подпись)") oAS:Range("G21"):Value:=OemToAnsi("(подпись)") oAS:Cells:Font:Name := "Tahoma" oAS:Cells:Font:Size := 8 oAS:Range("D3"):Font:Size:= 14 oAS:Range("A6:H6"):Font:Size:= 7 oAS:Range("D3"):Font:Bold:=.T. oAS:Range("C4"):Font:Size:= 10 oAS:Range("C4"):Font:Bold:=.T. oAs:Range("A1"):Select() oApp:screenUpdating:=.T. oApp:calculation:=xlCalculationAutomatic oApp:displayAlerts:=.T. oApp:Visible := .T. RETURN NIL |
Титов Александр wrote: |
Для некоммерческой версии нужен Boland C++ 5.5 Command line или MS VC++. |
shura_k wrote: |
Здесь главное слово Command line!!!!!
Boland C++ 5.5 Command line - весит очень мало ~ 9m |
output generated using printer-friendly topic mod. All times are GMT + 4 Hours