User Function EXECSBZ()
Local aCab := {}
Local aItens := {}
Local aItem := {}
Local aAreaSM0 := {}
Local nOpc := 3
Private lMsErroAuto := .F.
If !MyOpenSm0Ex()
__Quit()
EndIf
DbSelectArea('SM0')
aAreaSM0 := SM0->(GetArea())
SM0->(dbSetOrder(1))
SM0->(dbGoTop())
If SM0->(!EOF())
cEmpStart := AllTrim(SM0->M0_CODIGO)
cFilStart := AllTrim(SM0->M0_CODFIL)
Endif
RestArea(aAreaSM0)
PREPARE ENVIRONMENT EMPRESA cEmpStart FILIAL cFilStart
If nOpc == 3 .Or. nOpc == 5
DbSelectArea("SB1")
SB1->(DbSetOrder(1))
While SB1->(!EOF())
aCab := {}
lMsErroAuto := .F.
aAdd(aCab,{'BZ_COD',SB1->B1_COD,Nil})
aAdd(aCab,{'BZ_LOCPAD',SB1->B1_LOCPAD,Nil})
aAdd(aCab,{'BZ_TE',"001",Nil})
MSExecAuto({|v,x| MATA018(v,x)},aCab,nOpc)
If !lMsErroAuto
Conout('Inserido/Alterado/Excluido com sucesso')
Else
Conout('Erro na Inclusão/Alteração/Exclusão')
MostraErro()
Endif
SB1->(DbSkip())
Enddo
Elseif nOpc == 4
aAdd(aCab,{'BZ_COD',"001",Nil})
aAdd(aCab,{'BZ_LOCPAD',"01",Nil})
aAdd(aCab,{'BZ_TE',"001",Nil})
MSExecAuto({|v,x| MATA018(v,x)},aCab,nOpc)
If !lMsErroAuto
Conout('Inserido/Alterado/Excluido com sucesso')
Else
Conout('Erro na Inclusão/Alteração/Exclusão')
MostraErro()
Endif
Endif
RESET ENVIRONMENT
Return |