Форум

foxbro.exe "C:\Program Files\BEST\BEST5_34\Server\Data\DBASE\BEST5.DBC"

foxbro.exe "C:\Program Files\BEST\BEST5_34\Server\Data\DBASE\BEST5.DBC" CREATE  1

foxbro.exe "C:\Program Files\BEST\BEST5_34\Server\DATA\Pro\Best5PRO.DBC" CREATE 1

If [LENGTH(DialogForm.DataSet2."Фильтр реестра")>0] Then
Begin
reestr.Params['Фильтр'] := [REPLACE([DialogForm.DataSet2."Фильтр индекса реестра"], '->', '.')];
reestr.Params['Фильтр'] := [REPLACE(reestr.Params['Фильтр'], 'MSCHET', 'Q')];
reestr.Params['Фильтр'] := [REPLACE(reestr.Params['Фильтр'], 'STATUS', 'R.STATUS')];
End;

DBPUSH("MDOCM","RBOOKM",,{MDOCM->DOPCODE,MDOC->DOPCODE})
MDOCM->(f_SetRelation("MKART","UPPER(Grup+NNum+Partia+Sclad)"))

WHILE MDOCM->( !EOF() )
            ADRES->(AddRec())
            ADRES->SCLAD   := MKART->SCLAD
            ADRES->STATUS  := MKART->STATUS
            ADRES->GRUP    := MKART->GRUP
            ADRES->NNUM    := MKART->NNUM
            ADRES->PARTIA  := MKART->PARTIA
            ADRES->NAME    := MKART->NAME
            ADRES->MESTO1  := MKART->MESTO1
            ADRES->MESTO2  := MKART->MESTO2
            ADRES->(F_DBUNLOCK())
  MDOCM->(DBSKIP())
ENDDO

FUNCTION Main()
private kodsclada
aSet:=SAVESET()
aSetKey:=SAVESETKEY()
NETUSE("MKART",LOADPATH()+"\SCLAD\MKART.dbf",,.F.)
NETUSE("MSCLAD",LOADPATH()+"\SCLAD\msclad.dbf",,.F.)
//нам надо только по двум складам - поэтому фильтр
msclad->(dbSetFilter({||(msclad->code='    95').or.(msclad->code='    99')}))
DO WHILE SELECTSCLAD(.T.).AND.ADRES(.T.)
ENDDO
MKART->( DBCLOSEAREA() )
MSCLAD->( DBCLOSEAREA() )
RESTSETKEY(aSetKey)
RESTSET(aSet)
RETURN NIL

FUNCTION SELECTSCLAD()
LOCAL aSet,aSetKey,nTop,nBot,cColHead,aBlockCols,cCurProc,aHeads,nUniMode,bDel,bScrInit,aSortSeek
//задание параметров первой прямоугольной области
msclad->(DBGOTOP())

DISPBOX(2,0,7,79,( CHR( 201 ) + CHR( 205 ) + CHR( 187 ) + CHR( 186 ) + CHR( 188 ) + CHR( 205 ) + CHR( 200 ) + CHR( 186 )+' ' ) ,"W+/B")
//задание параметров второй прямоугольной области
DISPBOX(8,0,23,79,( CHR( 201 ) + CHR( 205 ) + CHR( 187 ) + CHR( 186 ) + CHR( 188 ) + CHR( 205 ) + CHR( 200 ) + CHR( 186 )+' ' ) ,"W+/B")
//01.nTop - верхняя строка 
nTop:=3
//02.nBottom - нижняя строка 
nBot:=6
//03.cColHead -  строка или массив строк - заголовок над полями 
cColHead:={"Код склада     Наименование склада"}
//04.Заголовки колонок реестра
aBlockCols:={ {{||FIELD->code},0},{{||FIELD->SHORTNAME},15} }
//05.cCurProc - сопроцедура для QBrowse() cCurProc:={||0}
cCurProc:={||movecursor1()}
//06._aHeads - Описание полей ввода 
aHeads:={{"код склада...............","code"},;
         {"Наименование склада......","SHORTNAME"}}
//11._nUniMode - режим проверки на уникальность
nUniMode:=2
//12.Запрещение удаления в таблице
bDel:={||.F.}
//13.запрет ввода новой записи и корректировки старой
bScrInit:={||If((nApp=2.OR.nApp=1),0,1)}

SHADOWBOX("ENTER:Выбор склада"+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+"ESC:Выход",7,23,7,62,"B/G")

MSCLAD->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,;
aHeads,,,,,;
nUniMode,bDel,bScrInit))

RETURN LASTKEY()!=27


FUNCTION ADRES()
LOCAL aSet,aSetKey,nTop,nBot,cColHead,aBlockCols,cCurproc,aHeads,bDel,aWhen,aPic,nUniMode,bScrInit,aSortSeek,cFindMacro
mkart->(ORDSETFOCUS("mkart_sn"))
scopeexpr:=" "+kodsclada
mkart->(SetScope("UPPER(Status+Sclad)",scopeexpr))
mkart->(DBGOTOP())
//удаление будет запрещено
bDel:={||.F.}
//Описание полей ввода
aHeads:={{"Место1...:","mesto1"},;
         {"Место2...:","mesto2"}}
//11._nUniMode - режим проверки на уникальность
nUniMode:=2
//13.запрет ввода новой записи по F4 - И - запрет корр-ки без номера или без партии или закрытых карточек
bScrInit:={||If(nApp=2.OR.(nApp=1.AND.(EMPTY(MKART->NNUM).OR.EMPTY(MKART->PARTIA).OR.!EMPTY(MKART->STATUS))),0,1)} 

aSortSeek:={;
{"- по группам,н/номерам ТМЦ  ",{"Группа.....","Н/номер....","Партия....."},{"right(grup,4)","nnum","partia"},"UPPER(scopeexpr+' '+aIn[1]+aIn[2]+aIn[3])",,,,"mkart_sn"},;
{"- по местам хранения        ",{"Место1.....","Место2....."},{"mesto1","mesto2"},"UPPER(scopeexpr+aIn[1]+aIn[2])",,,,"mkart_adr"}}

nTop:=9
nBot:=22
cColHead:={"СкладГруппа  Номер    Партия   НАИМЕНОВАНИЕ      Кол   Место1     Место2     С"}
cCurProc:={||movecursor2()}

aBlockCols:={{{||RIGHT(FIELD->sclad,2)},0},{{||FIELD->grup},2},{{||FIELD->nnum},8},{{||FIELD->partia},22},{{||LEFT(FIELD->NAME,20)},28},{{||STR(FIELD->koltek,5)},49},{{||FIELD->mesto1},55},{{||FIELD->mesto2},66},{{||FIELD->status},77}}

//SHADOWBOX("ENTER:Изменить адрес"+CHR(205)+CHR(205)+CHR(205)+"F3:Сортировка"+CHR(205)+CHR(205)+CHR(205)+"F6:Фильтр"+CHR(205)+CHR(205)+CHR(205)+"F7:поиск",23,10,23,60,"B/G")
SHADOWBOX("ENTER:Изменить адрес"+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+CHR(205)+"F6:Фильтр"+CHR(205)+CHR(205)+CHR(205)+"F7:поиск",23,10,23,60,"B/G")

mkart->( INITLIST(nTop,nBot,cColHead,aBlockCols,cCurProc,;
aHeads,,aPic,aWhen,,;
nUniMode,bDel,bScrInit,aSortSeek,,;
,,))
RETURN LASTKEY()!=9

//Функция N1 перемещения из перечня складов по ENTER
FUNCTION movecursor1()
LOCAL m1end
IF LASTKEY()=13
    SETLASTKEY(0)
    m1End:=0
    kodsclada:=msclad->code
ELSE
    m1End:=2
ENDIF
RETURN m1end

//Функция N2 возврат к перечню складов
FUNCTION movecursor2()
LOCAL m2end
IF LASTKEY()=9
    SETLASTKEY(0)
    m2End:=0
ELSE
    m2End:=2
ENDIF
RETURN m2end

SELECT
rbookm.sclad as код_склада,
rbookm.dopcode as ном_док,
rbookm.grup as группа,
rbookm.nnum as номер,
rbookm.partia as код_партии,
mkart.mesto1 as место1,
mkart.mesto2 as место2
FROM real\rbookm as rbookm
LEFT JOIN sclad\mkart as mkart on (rbookm.sclad=mkart.sclad and rbookm.grup=mkart.grup and rbookm.nnum=mkart.nnum and rbookm.partia=mkart.partia)
Where rbookm.dopcode=:номер_заказа
Order by группа,номер,код_партии

private aStruOP,cFileOP,cNameOP,aStruADRES,cFileADRES,cNameADRES
PRIVATE aSetKey 
aSetKey:=SaveSetKey()
DBPUSH("MDOCM","RBOOKM",,{MDOCM->DOPCODE,MDOC->DOPCODE})
MDOCM->(f_SetRelation("MKART","UPPER(Grup+NNum+Partia+Sclad)"))
aStruOP := {}
  aAdd(aStruOP,{"VarName","C",20,0})
  aAdd(aStruOP,{"VarC","C",20,0})
  aAdd(aStruOP,{"FieldName","C",10,0})
cFileOP := "adres_op.dbf"
cNameOP := GlobalTmpPath+cFileOP
DBCreate(cNameOP,aStruOP)
aStruADRES := {}
  aAdd(aStruADRES,{"Sclad","C",6,0})
  aAdd(aStruADRES,{"Status","C",1,0})
  aAdd(aStruADRES,{"Grup","C",5,0})
  aAdd(aStruADRES,{"Nnum","C",13,0})
  aAdd(aStruADRES,{"Partia","C",5,0})
  aAdd(aStruADRES,{"Name","C",60,0})
  aAdd(aStruADRES,{"Mesto1","C",10,0})
  aAdd(aStruADRES,{"Mesto2","C",10,0})
cNameADRES :=LOADPATH()+"\real\adres.dbf"
DBCreate(cNameADRES,aStruADRES)
NetUse("ADRES_op",cNameOP)
ADDREC()
ADRES_op->VarName :="Заголовок"
ADRES_op->VarC :="Движение ТМЦ"
DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Склад"
  ADRES_op->FieldName :="SCLAD"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Статус"
  ADRES_op->FieldName :="STATUS"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Группа"
  ADRES_op->FieldName :="GRUP"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Номер"
  ADRES_op->FieldName :="NNUM"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Партия"
  ADRES_op->FieldName :="PARTIA"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="НаименованиеТМЦ"
  ADRES_op->FieldName :="NAME"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Место1"
  ADRES_op->FieldName :="MESTO1"
  DbUnlock()
  ADDREC()
  ADRES_op->VarName :="Место2"
  ADRES_op->FieldName :="MESTO2"
  DbUnlock()
ADRES_op->(dbClosearea()) 
NetUse("ADRES",cNameADRES)
WHILE MDOCM->( !EOF() )
            ADRES->(AddRec())
            ADRES->SCLAD   := MKART->SCLAD
            ADRES->STATUS  := MKART->STATUS
            ADRES->GRUP    := MKART->GRUP
            ADRES->NNUM    := MKART->NNUM
            ADRES->PARTIA  := MKART->PARTIA
            ADRES->NAME    := MKART->NAME
            ADRES->MESTO1  := MKART->MESTO1
            ADRES->MESTO2  := MKART->MESTO2
            ADRES->(F_DBUNLOCK())
  MDOCM->(DBSKIP())
ENDDO
ADRES->(dbClosearea())
DbPop()
RestSetKey(aSetkey)

SELECT
adres.sclad as код_склада,
adres.status as статус,
adres.grup as группа,
adres.nnum as номер,
adres.partia as код_партии,
adres.name as наименование_ТМЦ,
adres.mesto1 as место1,
adres.mesto2 as место2
FROM c:\\temp\\adres as adres

aSortSeek:={;
{"- группа/номер  ",{"Группа", "Н/номер","Партия"},{"grup","nnum","partia"},"UPPER(aIn[1]+aIn[2]+aIn[3])",,,"mkart_p1"}}

aSortSeek:={;
{"- группа/номер  ","Введите ГруппуНомер","grup+left(nnum,3)","UPPER(aIn[1])",,,"mkart_sn"}}