Остатки по складам при партионном учете
Select messages from
 # through # FAQ
[/[Print]\]
Goto page 1, 2  Next  :| |:
-> Программирование в БЭСТ-4
#1: Остатки по складам при партионном учете Author: Плешивцев Евгений, Location: Плешивцев Евгений PostPosted: 13 Sep 2007 15:42
    —
1. добрый день коллеги, в номенклатурном справочнике товаров есть замечательная кнопка [F10] - остатки товара по складам и в случае партионного учета, по партиям. Примерно так:

но вот, если партий много, то вычислить остаток товара на складе уже затруднение, нужно партии суммировать вручную.

Для облегчения разработана функция пользователя:
Code:
//-------------------------------------------------------
// Расчет и вывод на печать остатков по складам
// из номенклатурного справочника.
// Аналог [F10] в номенклатурном справочнике.
// свернуто по партиям

// вер. 1.0 от 12/09/07
// разработано для Б-4+ 12.01 harbour

// вызывается из номенклатурного справочника

Function user_ostat_nomspr()
Local cGrup:=''
Local cNNum:=''
Local cSclad:=''
Local aStru:={}
Local aBuf:={'',0}
Local cDataBase:=''
Local aMsg:={}
Local cName:=''
Local nSum_Kol:=0

Altd()

dbPush()
cGrup:=mlabel->Grup
cNNum:=mlabel->NNum
cName:=Alltrim(Mlabel->Name)+'; '+alltrim(mlabel->Marka)+'; '+alltrim(mlabel->Razmer)


// таблица UsDataBase для группировки кол-ва по складам
aAdd(aStru,{"Sclad","C",6,0})
aAdd(aStru,{"Kol"  ,"N",9,3})

  cDataBase:=TEMPFILE(GlobalTmpPath,"dbf")
  DBCreate(cDataBase,aStru)
  NetUse("UsDataBase",cDataBase)

// заполним таблицу UsDataBase
dbPush('mkart','mkart','Empty(mkart->partia)=.t.',{'Upper(Grup+NNum)', Upper(cGrup+cNNum)})
  mkart->(dbGoTop())
  if mkart->(!Eof())
    do while mkart->(!Eof())
          aBuf[1]:= mkart->Sclad
          aBuf[2]:= mkart->KolTek
          UsDataBase->(AddRec())
           UsDataBase->(Gather(aBuf))
          UsDataBase->(dbUnLock())
      mkart->(dbSkip())
    enddo
  endif
dbPop()

Sum UsDataBase->Kol to nSum_kol
// вывод на печать
aAdd(aMsg, 'Остатки товара '+cName)
aAdd(aMsg, '----------------------')
aAdd(aMsg, '| Склад  | Количество|')
aAdd(aMsg, '----------------------')
UsDataBase->(dbEval({|| aAdd(aMsg,'| '+UsDataBase->Sclad+' | '+str(UsDataBase->Kol,9,3)+' |')}))
aADD(aMsg, '----------------------')
aAdd(aMsg, '|Итого   | '+str(nSum_Kol,9,3)+' |')

View(aMsg)

UsDataBase->(dbCloseArea())
dbPop()

return nil


а вот результат работы:


а вызов функции я повесил на [Ctrl-F7]:


Last edited by Плешивцев Евгений on 13 Sep 2007 17:10; edited 1 time in total
#2:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 16:35
    —
Женя за текст спасибо но в картотеке для этого есть ALT_I
#3:  Author: Behemoth, Location: Новиков Алексей Юрьевич PostPosted: 13 Sep 2007 16:39
    —
Странно, я всегда считал, что Alt-I - это иерархия.
#4:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 16:43
    —
Виноват CTRL-I
#5:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 16:44
    —
Кстати в номенклатурном справочнике не подписано но CTRL-I тоже
показывает суммарный остаток по номенклату
#6:  Author: Плешивцев Евгений, Location: Плешивцев Евгений PostPosted: 13 Sep 2007 16:47
    —
Костя, наверное [Ctrl-I] остаток по суммарной карточке, кстати работает и из номенклатурного справочника. Однако показывает остатки одного склада.
Тут же задача такая - сеть розничных магазинов, т.е. склад 1, 2,3,4,5,6... Пришел ходовой товар на центральный склад - нужно быстро посмотреть у кого сколько на остатке, сравнить. Т.е. нужна общая картина. А [Ctrl-I] работает так:
#7:  Author: Плешивцев Евгений, Location: Плешивцев Евгений PostPosted: 13 Sep 2007 16:49
    —
блин, ну и долго же я пишу ответы, даже смешно
... я не тормоз....
#8:  Author: Behemoth, Location: Новиков Алексей Юрьевич PostPosted: 13 Sep 2007 16:55
    —
nordk wrote:
Кстати в номенклатурном справочнике не подписано но CTRL-I тоже показывает суммарный остаток по номенклатуре

Если, конечно, удастся заставить его работать. У меня не получилось.
Получается диалог, из которого можно выйти только по ESC.
#9:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 17:05
    —
Ну тогда отчет по номенклатуре по остатка и не указывать код скла
#10:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 17:09
    —
Вообще я что-то подобное делал для крупной розничной сети, тока остатки по фирме (т.е. по всем базам данных)
А вообще в розничной сети раскидывать так остатки это наверно
начало автоматизации. Надо учитывать местоположение магаина,
скорость продажи в каждом магазине (коэффициент обораичваемости
своя норма запаса), наличие аналогов, необходимость перебрасывать остаток с одного магазина на другой.
У меня для этого огромная система написана....
А хозяин мелкой розничной сети просил такую информацию, согласен
программка может кому-то пригодить
#11:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 17:12
    —
Женя не сочти вредным - сделай расчет по MDOCM.
Рассчитает быстро и точно. По картотеке бывает остаток "плывет".
Опасно доверять текущим остаткам картотеки.
По F10 в картотеке он имеет свойство пересчитывать
#12:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 17:14
    —
И еще рекомендации.
Пользуйся SETSCOPE()
Это рекомендация Сан Саныча.
В любой момент могут перестать поддерживать скоб в DBPUSH()
Т.е. поддерживать эту возможность никто не обещал и не
документировал
#13:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Sep 2007 17:16
    —
Behemoth wrote:
nordk wrote:
Кстати в номенклатурном справочнике не подписано но CTRL-I тоже показывает суммарный остаток по номенклатуре

Если, конечно, удастся заставить его работать. У меня не получилось.
Получается диалог, из которого можно выйти только по ESC.


У меня работает. SP 36
#14:  Author: Плешивцев Евгений, Location: Плешивцев Евгений PostPosted: 13 Sep 2007 17:19
    —
Quote:
В любой момент могут перестать поддерживать скоб в DBPUSH()


этот день я обведу чОрным фламастером в календаре, придется переделывать дофига работающих утилит. По моему мнению конструкция
Quote:
dbPush()
dbPop()

довольно удобна и очень наглядна в исходном коде.

Более того, фрагмент моей программы (в самом конце):
Quote:
UsDataBase->(dbCloseArea())


наотрез не работает если не поставить эти операторные скобки.
#15:  Author: Титов Александр, Location: Титов Александр Александрович PostPosted: 13 Sep 2007 17:35
    —
Плешивцев Евгений wrote:
Quote:
В любой момент могут перестать поддерживать скоб в DBPUSH()


этот день я обведу чОрным фламастером в календаре, придется переделывать дофига работающих утилит. По моему мнению конструкция
Quote:
dbPush()
dbPop()

довольно удобна и очень наглядна в исходном коде.

Эту проблему мы решили, поддержим Scope в DbPush.
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page 1, 2  Next  :| |:
Page 1 of 2

Powered by phpBB © 2001, 2005 phpBB Group