Розбіжності

Тут показані розбіжності між вибраною ревізією та поточною версією сторінки.

--- faq [2025/02/07 17:04]
admin
+++ faq [2026/05/14 16:44] (поточний)
admin
@@ Рядок 97: / Рядок 97: @@
 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> |
+| Додаємо рахунок в разі відсутності | <code visualfoxpro>loAcc = Acc('РРМ')
+If Empty(loAcc)
+   BProc.Mod._Util.AddAcc('РРМ')
+   loAcc = Acc('РРМ')
+   If Empty(loAcc)
+      Return MessageBox('Перед використанням документу, додайте в план рахунків рахунок "РРМ".',16,The.MD.Descr)<0
+   EndIf
+   BProc.Spr._PS.SETRULE(loAcc)
+   WriteAttrSpr(loAcc,'_SoftSC','0001')
+EndIf
 </code> |

Smartfox