Histórico da Página

Preview
Descrição	Ponto de entrada para validar a exclusão de uma Solicitação de Compra
Observações
Exemplos	#Include "Protheus.ch" User Function MNTA420U() Local cFilSC1 := ParamIXB[1] Local cOPSC1 cOrdem := ParamIXB[2] Local cNumSC1 cOP := ParamIXB[3] Local cItemSC1 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+ cvORDEM cOrdem+ cvITEM cOP) While ! eof Eof() .and. sc1 SC1- >c1 >C1_ filial FILIAL == xfilial xFilial("SC1") .And. sc1->c1_op == cOPSC1 Alltrim(SC1->C1_OP) == cOrdem+cOP .And. Alltrim(SC1->C1_PRODUTO) == Alltrim(cCodPSC1) If MsgYesNo( “Deseja "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
Veja também
Idioma	Português(Brasil)
Versões	Versões_Anteriores
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Updates
Parâmetros	SC1->C1_FILIAL SC1->C1_OP SC1->C1_NUMSC1->C1_ITEMPRODUTO
Retorno	Lógico
Eventos de chamada do Ponto de Entrada
Variáveis
Programa Fonte	MNTA420

Árvore de páginas