Ejemplo de utilización #INCLUDE "PROTHEUS.CH"
User Function M120FGCT() Local lRet := .T. Local aArea := GetArea() Local aAreaSC1 := SC1->(GetArea()) Local cFilSeekC1 := PARAMIXB[1] Local cNumSC := PARAMIXB[2] Local cItemSC := PARAMIXB[3]
//-- Inicio de las validaciones de usuario
If !Empty(cFilSeekC1) .And. !Empty(cNumSC) .And. !Empty(cItemSC) SC1->(DbSetOrder(2)) //-- C1_FILIAL, C1_NUM, C1_ITEM, C1_ITEMGRD lRet := SC1->(MsSeek(cFilSeekC1 + cNumSC + cItemSC)) EndIf If !lRet Help("", 1, "M120FGCT", , "Solicitud de compra no encontrada!") EndIf
//-- Fin de las validaciones de usuario
SC1->(RestArea(aAreaSC1)) RestArea(aArea)
Return lRet |