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 cOPSC1 cOrdem := ParamIXB[2]
Local cNumSC1 cOP     := ParamIXB[3]
Local lRet := .F.

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

While !eofEof() .and. sc1SC1->c1>C1_filial FILIAL == xfilialxFilial("SC1") .And. Alltrim(SC1->C1_OP) == cOPSC1 .And. SC1->C1_NUM == cNumSC1cOrdem+cOP 

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

Return lRet

Português(Brasil)

Versões_Anteriores

Todos

Todas

SC1->C1_FILIAL

SC1->C1_OPSC1->C1_NUM

Lógico

MNTA420