MNTA420U - Ponto de entrada para validar a exclusão de uma Solicitação de Compra

Ponto de entrada para validar a exclusão de uma Solicitação de Compra

#Include "Protheus.ch"

User Function MNTA420U()

Local cFilSC1 := ParamIXB[1]

Local cOrdem := ParamIXB[2]

Local cOP := ParamIXB[3]

Local cCodPSC1 := ParamIXB[4]

Local aArea := SC1->(GetArea())

Local lRet := .F.

dbSelectArea("SC1")
dbSetOrder(4) //C1_FILIAL+C1_OP+C1_NUM+C1_ITEM
If dbSeek(cFilSC1+cOrdem+cOP)

While !Eof() .and. SC1->C1_FILIAL == xFilial("SC1") .And. Alltrim(SC1->C1_OP) == cOrdem+cOP .And. Alltrim(SC1->C1_PRODUTO) == Alltrim(cCodPSC1)

If MsgYesNo("Deseja excluir a solicitação de compra numero "+ Alltrim(SC1->C1_NUM)+ " item " + Alltrim(SC1->C1_ITEM)+ "? ")

lRet := .T.

EndIf

dbSelectArea("SC1")

dbSkip()

End

EndIf

RestArea(aArea)

Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

SC1->C1_FILIAL

SC1->C1_OP

SC1->C1_PRODUTO

Lógico

MNTA420