====== Часті запитання ======
^  Питання  ^  Відповідь  ^
| Реєстр електронних форм податкових документів (перелік сервісних запитів) для юридичних осіб ? | [[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 в ТЧ документа ? | <code visualfoxpro>Sys.RDocTP = .T.   && Reo
Sys.RDocTP = .F.   && Vfp
</code> |
| Швидкий доступ до таблиці в вікні команд ? | <code visualfoxpro>Select * from (_The.AS.ControlSource.Alias) && ICursor
Select * from (_The.AS.MD.Alias) && ISpr, IDoc
Select * from (_The.AS.MD.crsTP) && IDocDlg</code> |
| Як додати пункт "Додатково" в меню "Сервіс" ? | В файл Common.ini додайте рядки <code visualfoxpro>[Menu]
Service.ServiceDop=1</code> |
| Як отримати з файлу *.Xlsx файл *.Dbf ? | В конфігурації для бюджету в вікні команд виконайте обробку <code visualfoxpro>
BProc.Mod._Util.ConvertXls('C:\Example.Xlsx','C:\Example.Dbf')
</code> |
| Як перетворити DBF файл з формату Windows на формат DOS ? | Відкрийте DBF файл для Windows, викличте вікно команд та виконайте <code visualfoxpro>
Select (_The.ActiveScreen.ControlSource.Alias)
Copy To C:\Dos.Dbf type FOX2X as 866
</code> |
| Як використовувати регулярні вирази ? | Приклад <code visualfoxpro>
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
</code> |
| Як отримати автора документу ? | <code visualfoxpro>i = aScan(Sys.aUsers,poDoc.Header.UserID.Value)
pcDocPerson = Iif(i=0,'', Sys.aUsers[i+2])
</code> |
| Як запустити довідник в режимі мультівибору ? | <code visualfoxpro>loSprS = CreateObject('tSpr','_Shifr')  
loSprS.UseMultiSel = .T.
loSprSI = CreateObject('ISpr',loSprS,'ID=""')
loSprSI.SelAll()
loSprSI.Show(1)
lcCrsSelShifr = loSprSI.SelUnload()
MW.DoTbl(lcCrsSelShifr,1)
</code> |
| Як підібрати файл ? | <code visualfoxpro>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))</code> |
| Як відібрати в курсор декілька значень ? | <code visualfoxpro>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 
</code> |
| Як працювати з регістром унікальностей ? | <code visualfoxpro>&& Створення/отримання унікальності
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
</code> |
| Як підсвітити рядки в документі ? | <code visualfoxpro>
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
</code> |
| Як оновити головний екран ? | <code visualfoxpro>
MW.TaskBar.Status.Refresh()   && Оновлення строки статуса головного окна
MW.TaskBar.Status.RefreshWindows()   && Оновлення відкритих окон
loPeriod = CreateObject('IPeriod','Новий період',ldDateB,ldDateE,0) 
MW.TaskBar.Status.RefreshWindows(loPeriod)   && Оновлення відкритих окон зі зміною періоду
</code> |
| Як працювати з головним окном повідомлень ? | <code visualfoxpro>
MB('Hello, world')   && Вивод повідомлення
MW.MBar.Clear()   && Очистка повідомлень
MW.Mbar.F1.SaveFile(lcFileProt,.T.)   && Зберігання повідомлень в файл протоколу в форматі *.xlsx
MW.DoXls(lcFileProt)  
</code> |
| Копіюваня з збереженням регістру літер ? | <code visualfoxpro>loFSO = CreateObject("Scripting.FileSystemObject")  
loFSO.CopyFile(lcFile, JustPath(lcFile)+'\'+Upper(JustStem(lcFile))+'_'+tran(lnMesKv)+lcFioDov+'.xml')
</code> |