Eventos de chamada do Ponto de Entrada | Evento no OFIXI001.PRW
endif
//#########################################################################################
elseif cFaseAtu == "O" // IMPRIME ORDEM DE BUSCA
//#########################################################################################
if ExistBlock("ORDBUSCB")
ExecBlock("ORDBUSCB",.f.,.f.,\{"O"\})
Endif
//#########################################################################################
elseif cFaseAtu == "T" // RESERVA O ITEM
//#########################################################################################
DBSelectArea("VS3")
DBSetOrder(1)
DBSeek(xFilial("VS3")+cNumOrc)
while !eof() .and. xFilial("VS3")+VS1->VS1_NUMORC == VS3->VS3_FILIAL + VS3->VS3_NUMORC
Evento no OFIOM430.PRW
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³OM430IMPORDºAutor ³Thiago º Data ³ 26/09/11 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Impressao da Ordem de Busca º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Function OM430IMPORD()
if ExistBlock("ORDBUSCB")
ExecBlock("ORDBUSCB",.f.,.f.,\{"O"\})
Else
MsgInfo(STR0080)
Endif
Return(.t.)
Evento no OFIOR700.PRW
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao ³ FS_IMPRIMIR ³ Autor ³ THIAGO ³ Data ³ 08/01/07 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Impressao PE -> ORDBUSCB ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Static function FS_IMPRIMIR()
Local nI := 0
Local aVetPec := \{\}
For nI := 1 to Len(aVetReq1)
DBSelectArea("VS3")
DBSetOrder(2)
DbSeek(xFilial("VS3")+aVetReq1[nI,8]+aVetReq1[nI,2]+aVetReq1[nI,3])
While !eof() .and. xFilial("VS3")==VS3->VS3_FILIAL .and. aVetReq1[nI,8]==VS3->VS3_NUMORC .AND. (aVetReq1[nI,2]+aVetReq1[nI,3]) == (VS3->VS3_GRUITE+VS3->VS3_CODITE)
aAdd(aVetPec,\{VS3->VS3_SEQUEN,VS3->VS3_GRUITE,VS3->VS3_CODITE,SB1->B1_DESC,VS3->VS3_QTDITE,VS3->VS3_VALPEC,VS3->VS3_VALTOT\})
DbSkip()
EndDo
Next
If Len(aVetPec) > 0
if ExistBlock("ORDBUSCB")
ExecBlock("ORDBUSCB",.f.,.f.)
Endif
Else
MsgStop(STR0033,STR0020) // Nao ha Pecas requsitadas nas requisicoes selecionadas. / Atencao
Endif
oDlg2:End()
Return(.t.)
Evento no OFIXX001.PRW
If ReadVar() == "M->VS1_RESERV"
// ########################################################################
if lOrcJaRes .and. M->VS1_RESERV == "1"
return .t.
endif
//
if lOrcJaRes
MsgStop(STR0276)
return .f.
endif
if M->VS1_RESERV == "0"
return .t.
endif
// SE CHEGAR AQUI EH PQ NAO ESTAVA RESERVADO E O USUARIO QUER A RESERVA
if INCLUI
if OX001GRV(3,,,.t.) == .f.
return .f.
else
//
if ExistBlock("ORDBUSCB")
ExecBlock("ORDBUSCB",.f.,.f.,\{"OR"\})
Endif
//
endif
else
if OX001GRV(4,,,.t.) == .f.
return .f.
else
//
if ExistBlock("ORDBUSCB")
ExecBlock("ORDBUSCB",.f.,.f.,\{"OR"\})
Endif
//
endif
endif
oGetPecas:oBrowse:refresh()
lOrcJaRes := .t.
endif |
|---|
