FUNCTION ImportZ()
IF !_REC_YES
SayError('Импорт запрещен')
RETURN NIL
ENDIF
Import({||bImportZ()},,,2,,'EXPORTZ.LST')
RETURN NIL
STATIC FUNCTION Import(block,lWithoutOpen0,nWithCompDat,nProvGuid,aIsklFile,cType)
//nWithCompDat = 1,2 - вызывать закр.периода если на центр.складе закрыт
LOCAL cHelp_Code:=HELP_CODE,lRes
PRIVATE pDate:=Date()
HELP_CODE:=N_HELP_3
lRes = All_Restore(block,,lWithoutOpen0,nWithCompDat,,nProvGuid,aIsklFile, cType)
HELP_CODE:=cHelp_Code
RETURN lRes
STATIC FUNCTION bImportZ()
LOCAL nAdd,i,cGrup,cNNum,cName, cStatus1,prUScl
LOCAL aNumNoProt := {}
PRIVATE cPATH_TMP:=B6_DBF_PATH+'TMP\'
PRIVATE lUdSclad:=.T.
IF !FILE(cPATH_TMP+'_RBookM.DBF')
SayError("Нет данных!")
RETURN(NIL)
ENDIF
//Busy(.T.,'Прием заказов')
Open0()
OpenBase(;
{'RBook','RBookM','MGrup','MLabel','MKart','MDocM',;
cPATH_TMP+'_RBook',cPATH_TMP+'_RBookM',cPATH_TMP+'_Grup',cPATH_TMP+'_Label',cPATH_TMP+'_Kart',cPATH_TMP+'_Spr_par'},;
{'RBook','RBookM','MGrup','MLabel','MKart','MDocM',;
'_RBook','_RBookM','_Grup','_Label','_Kart','_Spr_par'})
SELECT _RBookM
INDEX ON UPPER(DopCode)+NNOPER_ TO (cPATH_TMP+'_RBookM') //titov-NoUniDopCode
CLOSE
NetUse('_RBookM',B6_DBF_PATH+'TMP\_RBookM',B6_DBF_PATH+'TMP\_RBookM')
IF SELECT('_RBook')>0
SELECT _RBook
WHILE !EOF()
PrintMes(' Заказ '+DopCode+' от '+DTOC(Date)+', '+AgentName)
_RBookM->(DBSEEK(UPPER(_RBook->DopCode)+_RBook->NNOPER)) //titov-NoUniDopCode
IF !RBook->(DBSEEK(UPPER(_RBook->DopCode)+_RBook->NNOPER)) //titov-NoUniDopCode
prUScl=0
ELSE
prUScl=1
ENDIF
DO WHILE prUScl=0.AND.UPPER(_RBookM->DopCode)+_RBOOKM->NNOPER_==UPPER(_RBook->DopCode)+_RBook->NNOPER.AND.!_RBookM->(EOF())//titov-NoUniDopCode
If ASCAN(aSclad,{|x|UPPER(SUBSTR(x,2,6)) = UPPER(_RBookM->Sclad)}) > 0
prUScl =1
EndIF
_RBookM->(DBSKIP())
ENDDO
If prUScl = 0
AADD(aNumNoProt,_RBook->(RecNo()))
_RBook->(dbSkip())
LOOP
EndIF
IF !RBook->(DBSEEK(UPPER(_RBook->DopCode)+_RBook->NNOPER))//titov-NoUniDopCode
RBook->(AddRec())
ELSE
RBook->(RecLock())
SELECT RBookM
DBSEEK(UPPER(RBook->DopCode))
xDBEVAL({||DelZakToKart(), dbDelete() },{|| RBookM->NNOper_ = RBook->NNOPer },{|| UPPER(RBookM->DopCode) = UPPER(RBook->DopCode) },.T.) //titov-NoUniDopCode
ENDIF
RBook->(GatherS(_RBook->(ScatterS())))
_RBookM->(DBSEEK(UPPER(RBook->DopCode)+RBook->NNOper)) //titov-NoUniDopCode
WHILE UPPER(_RBookM->DopCode)==UPPER(RBook->DopCode).AND.!_RBookM->(EOF()) //titov-NoUniDopCode
IF _RBookM->NNOper_== RBook->NNOper //titov-NoUniDopCode
RBookM->(AddRec())
RBookM->(GatherS(_RBookM->(ScatterS())))
RBookM->(dbUnLock())
NewZakToKart()
ENDIF
_RBookM->(DBSKIP())
ENDDO
SELECT _RBook
RaschStat1()
SKIP
ENDDO
ENDIF
IF SELECT('_Grup')>0
SELECT _Grup
GO TOP
WHILE !EOF()
IF !MGrup->(DBSEEK(UPPER(_Grup->Code)))
MGrup->(AddRec())
MGrup->(GatherS(_Grup->(ScatterS())))
MGrup->(dbUnLock())
ENDIF
SKIP
ENDDO
ENDIF
IF SELECT('_Label')>0
SELECT _Label
GO TOP
WHILE !EOF()
IF !MLabel->(DBSEEK(UPPER(_Label->(Grup+NNum))))
MLabel->(AddRec())
MLabel->(GatherS(_Label->(ScatterS())))
MLabel->(dbUnLock())
ENDIF
SKIP
ENDDO
ENDIF
IF SELECT('_Kart')>0
SELECT _Kart
GO TOP
WHILE !EOF()
IF !MKart->(DBSEEK(UPPER(_Kart->(Grup+NNum+Partia+Sclad))))
MKart->(AddRec())
MKart->(GatherS(_Kart->(ScatterS())))
MKart->(dbUNLock())
ENDIF
SKIP
ENDDO
ENDIF
IF GlobalTask $ "SRZR" .AND. SELECT('_Spr_Par')>0
SELECT _Spr_Par
GO TOP
WHILE !EOF()
IF !(SPR_PART->(DBSEEK(UPPER(_Spr_Par->(Grup+NNum+Code))))).AND. SPR_PART->(AddRec()) //VIKTOR ПартУч-Прием 04.06.97
SPR_PART->(GatherS(_SPR_PAR->(ScatterS())))
SPR_PART->(dbUnLock())
elseif empty(Spr_Part->Ag_Code) .AND. Spr_Part->(RecLock())
Spr_part->Ag_code = _spr_par->Ag_code
Spr_part->Ag_schet = _spr_par->Ag_schet
Spr_part->Ag_name = _spr_par->Ag_name
Spr_part->Agent_code = _spr_par->Agent_code
Spr_part->(dbUnLock())
ENDIF
SKIP
ENDDO
ENDIF
UNLOCK ALL
SELECT _RBook
ProtokolZ('Import',aNumNoProt)
CLOSE ALL
Erases(cPATH_TMP)
//Open0()
if .f.
nAdd := nAdd
i := i
cGrup := cGrup
cNnum := cNnum
cName := cName
cStatus1 := cStatus1
endif
// Busy(.F.)
RETURN(NIL)
|