Тут показані розбіжності між вибраною ревізією та поточною версією сторінки.
| Both sides previous revision Попередня ревізія | |||
|
faq [2026/05/14 16:43] admin |
faq [2026/05/14 16:44] (поточний) admin |
||
|---|---|---|---|
| Рядок 101: | Рядок 101: | ||
| 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> | | ||
| - | |||
| | Додаємо рахунок в разі відсутності | <code visualfoxpro>loAcc = Acc('РРМ') | | Додаємо рахунок в разі відсутності | <code visualfoxpro>loAcc = Acc('РРМ') | ||
| If Empty(loAcc) | If Empty(loAcc) | ||
| Рядок 114: | Рядок 113: | ||
| </code> | | </code> | | ||
| - | |||
| - | |||
| - | |||
| - | *---Додаємо рахунок в разі відсутності | ||
| - | 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 | ||