| Питання | Відповідь |
| Реєстр електронних форм податкових документів (перелік сервісних запитів) для юридичних осіб ? | https://tax.gov.ua/data/material/000/006/58768/Forms_deklar.htm |
| Єдина звітність ? | https://mof.gov.ua/storage/files/9_%20%D0%9F%D0%BE%D1%80%D1%8F%D0%B4%D0%BE%D0%BA_24_01_2025.pdf |
| Як отримати ключ активації TNod ? | http://tnoduse2.blogspot.com/ |
| Переключение объекта Grid в ТЧ документа ? | Sys.RDocTP = .T. && Reo
Sys.RDocTP = .F. && Vfp
|
| Швидкий доступ до таблиці в вікні команд ? | Select * from (_The.AS.ControlSource.Alias) && ICursor
Select * from (_The.AS.MD.Alias) && ISpr, IDoc
Select * from (_The.AS.MD.crsTP) && IDocDlg
|
| Як додати пункт “Додатково” в меню “Сервіс” ? | В файл Common.ini додайте рядки [Menu]
Service.ServiceDop=1
|
| Як отримати з файлу *.Xlsx файл *.Dbf ? | В конфігурації для бюджету в вікні команд виконайте обробку BProc.Mod._Util.ConvertXls('C:\Example.Xlsx','C:\Example.Dbf')
|
| Як перетворити DBF файл з формату Windows на формат DOS ? | Відкрийте DBF файл для Windows, викличте вікно команд та виконайте Select (_The.ActiveScreen.ControlSource.Alias)
Copy To C:\Dos.Dbf type FOX2X as 866
|
| Як використовувати регулярні вирази ? | Приклад loReg = CreateObject('VBScript.RegExp')
loReg.MultiLine = .F. && Одностроковий
loReg.Global = .F. && Всі вхождення
loReg.Pattern = "\d{8}.\d{3}.\d{1}" && Шаблон пошуку
If loReg.Test(lcNazn) && Наявність в строке пошуку
loRes = loReg.Execute(lcNazn) && Результат пошуку відповідностей - колекція
For i to loRes.Count-1 && .Value - значеня
? loRes.Item[i].Value && .FirstIndex - індекс першого входження
EndFor && .Length - довжина
EndIf
|
| Як отримати автора документу ? | i = aScan(Sys.aUsers,poDoc.Header.UserID.Value)
pcDocPerson = Iif(i=0,'', Sys.aUsers[i+2])
|
| Як запустити довідник в режимі мультівибору ? | loSprS = CreateObject('tSpr','_Shifr')
loSprS.UseMultiSel = .T.
loSprSI = CreateObject('ISpr',loSprS,'ID=""')
loSprSI.SelAll()
loSprSI.Show(1)
lcCrsSelShifr = loSprSI.SelUnload()
MW.DoTbl(lcCrsSelShifr,1)
|
| Як підібрати файл ? | lcCaption = 'Підтягування UN*.dbf в ІБД'
lcPath = RestoreFromIni(gcUsrIni,'Path','ImpUniXlsx')
lcPath = Iif(lcPath='???' Or !ExistDir(lcPath), lcPath, AddBS(lcPath))
lcFile = MW.GetFile('', 'IM*.dbf|IM*.xlsx|', lcCaption, lcPath, 4)
If empty(lcFile) or !file(lcFile) Or MessageBox('Ви впевнені ?',4+32+256,lcCaption)#6
Return .F.
EndIf
SaveToIni(gcUsrIni,'Path','ImpUniDbf',JustPath(lcFile))
|
| Як відібрати в курсор декілька значень ? | loCrs = CreateObject('TCursor','','Select Descr As ItemText, ID As ItemRet, Iif(_VidZas=,1,0) As ItemSel From _Fin Order By 1')
loDlg = CreateObject('TCommDlg')
loDlg.Caption = lcCaption
loDlg.CaptionOk = 'Обрати'
loDlg.DialogSource = loCrs
loDlg.ControlStyle= 'GRD'
loDlg.Show(1,.T.) && .T. - Вибрати всі позиції / інакше вибрані де ItemSel=1
If !(VarType(loDlg)='O' AND loDlg.Exit='OK') Or RecCount(loDlg.Choice)=0
Return
EndIf
Select * From (loDlg.Choice) Into Cursor crsFileImp ReadWrite
|
| Як працювати з регістром унікальностей ? | && Створення/отримання унікальності
Reg._ScKvNVK._KV = lcKvID
Reg._ScKvNVK._NVK = lcNVKID
The._KvNvk.Value = Reg._ScKvNVK.Gather()
&& Розшифровка унікальності
Reg._ScKvNVK.Scatter(loRec.KvNvk)
lcKvID = Reg._ScKvNVK._Kv
lcNvkID = Reg._ScKvNVK._Nvk
|
| Як підсвітити рядки в документі ? | Do case
Case The.TypeForm=5
lcExp = [IIF(AllTrim(_Descr)==Acc(_Acc),0,RGB(255,0,0))]
&& Змінюємо колір тексту в колонці в залежносі від умови
For Each loCol In The.oTP1.Columns
If PemStatus(loCol,'Fpname',5) And Upper(loCol.Fpname)=='_DESCR'
loCol.DynamicForeColor = lcExp
EndIf
EndFor
&& Змінюємо колір тексту у всьому рядку в залежносі від умови
The.oTP1.SetAll("DynamicForeColor", lcExp, "Column")
EndCase
|
| Як оновити головний екран ? | MW.TaskBar.Status.Refresh() && Оновлення строки статуса головного окна
MW.TaskBar.Status.RefreshWindows() && Оновлення відкритих окон
loPeriod = CreateObject('IPeriod','Новий період',ldDateB,ldDateE,0)
MW.TaskBar.Status.RefreshWindows(loPeriod) && Оновлення відкритих окон зі зміною періоду
|
| Як працювати з головним окном повідомлень ? | MB('Hello, world') && Вивод повідомлення
MW.MBar.Clear() && Очистка повідомлень
MW.Mbar.F1.SaveFile(lcFileProt,.T.) && Зберігання повідомлень в файл протоколу в форматі *.xlsx
MW.DoXls(lcFileProt)
|
| Копіюваня з збереженням регістру літер ? | loFSO = CreateObject("Scripting.FileSystemObject")
loFSO.CopyFile(lcFile, JustPath(lcFile)+'\'+Upper(JustStem(lcFile))+'_'+tran(lnMesKv)+lcFioDov+'.xml')
|