Eventos de chamada do Ponto de Entrada | // #######################################
// # Gravacao do VS4 #
// #######################################
nVS4Seq := 1
DBSelectArea("VS4")
for nCntFor := 1 to Len(oGetServ:aCols)
if !oGetServ:aCols[nCntFor,len(oGetServ:aCols[nCntFor])] .and. !Empty(oGetServ:aCols[nCntFor,FG_POSVAR("VS4_CODSER","aHeaderS")])
reclock("VS4",.t.)
VS4_FILIAL := xFilial("VS4")
VS4_NUMORC := VS1->VS1_NUMORC
//VS4_SEQUEN := STRZERO(nVS4Seq,TamSX3("VS4_SEQUEN")[1])
for nCntFor2 := 1 to Len(aHeaderS)
if aHeaderS[nCntFor2,10] <> "V"
&(aHeaderS[nCntFor2,2]) := oGetServ:aCols[nCntFor,nCntFor2]
endif
next
MSMM(VS4->VS4_OBSMEM,TamSx3("VS4_OBSERV")[1],,oGetServ:aCols[nCntFor,FG_POSVAR("VS4_OBSERV","aHeaderS")],1,,,"VS4","VS4_OBSMEM")
msunlock()
nVS4Seq++
endif
next
// #######################################
// # Gravacao do VDD #
// #######################################
for nCntFor := 1 to Len (aPedTransf)
DBSelectArea("VDD")
DBSetOrder(4)
if !DBSeek(xFilial("VDD")+xFilial("VS1")+VS1->VS1_NUMORC + aPedTransf[nCntFor,1] + aPedTransf[nCntFor,2] + aPedTransf[nCntFor,5])
cCodVDD := GetSxENum("VDD","VDD_CODIGO")
ConfirmSX8()
reclock("VDD",.t.)
VDD_FILIAL := xFilial("VDD")
VDD_CODIGO := cCodVDD
VDD_FILORC := xFilial("VS1")
VDD_NUMORC := VS1->VS1_NUMORC
VDD_FILPED := aPedTransf[nCntFor,5]
VDD_GRUPO := aPedTransf[nCntFor,1]
VDD_CODITE := aPedTransf[nCntFor,2]
VDD_STATUS := "S"
VDD_QUANT := aPedTransf[nCntFor,4]
msunlock()
endif
next
if INCLUI
ConfirmSX8()
If !lPediVenda
INCLUI := .f.
ALTERA := .t.
Endif
endif
endif
// ------------------------------------------------------------------------------------------------------------
END TRANSACTION // --------F-I-N-A-L---D-A---T-R-A-N-S-A-C-A-O-------------------------------------------------
// ------------------------------------------------------------------------------------------------------------
if !lOX001Auto .and. !lFaturaPVP .and. !lCancelPVP .and. !lPediVenda
MsgInfo(STR0063+Alltrim(M->VS1_NUMORC),STR0025)
endif
//
//
If ExistBlock("OX001DGR")
ExecBlock("OX001DGR",.f.,.f.)
EndIf
return .t. |
|---|