Histórico da Página

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 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