Histórico da Página
Descrição | Ponto de entrada para validar a exclusão de uma Solicitação de Compra |
---|---|
Observações | |
Exemplos | #Include "Protheus.ch" Local cFilSC1 := ParamIXB[1] Local cOPSC1 cOrdem := ParamIXB[2] Local cNumSC1 cOP := ParamIXB[3] Local cCodPSC1 := ParamIXB[4] Local aArea := SC1->(GetArea()) Local lRet := .F.
dbSelectArea("SC1") cOrdem+ cNumSC1cOP) While ! eofEof() .and. sc1SC1- >c1>C1_ filialFILIAL == xfilialxFilial("SC1") .And. Alltrim(SC1->C1_OP) == cOPSC1cOrdem+cOP .And. Alltrim(SC1->C1_ NUMPRODUTO) == cNumSC1Alltrim(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 |
Preview | |
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_NUMPRODUTO |
Retorno | Lógico |
Eventos de chamada do Ponto de Entrada | |
Variáveis | |
Programa Fonte | MNTA420 |