Тут показані розбіжності між вибраною ревізією та поточною версією сторінки.
| Both sides previous revision Попередня ревізія Наступна ревізія | Попередня ревізія | ||
|
faq [2025/02/12 05:31] admin |
faq [2026/05/14 16:44] (поточний) admin |
||
|---|---|---|---|
| Рядок 100: | Рядок 100: | ||
| | Копіюваня з збереженням регістру літер ? | <code visualfoxpro>loFSO = CreateObject("Scripting.FileSystemObject") | | Копіюваня з збереженням регістру літер ? | <code visualfoxpro>loFSO = CreateObject("Scripting.FileSystemObject") | ||
| loFSO.CopyFile(lcFile, JustPath(lcFile)+'\'+Upper(JustStem(lcFile))+'_'+tran(lnMesKv)+lcFioDov+'.xml') | 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> | | </code> | | ||
| + | |||