User Function FINA887() Local aParam := PARAMIXB Local oModel := Nil Local oModelFJT := Nil Local oModelSEL := Nil Local cIdPonto := "" Local cIdModel := "" Local nLineas := 0 Local nX := 0 Local lRet := .T. If aParam <> NIL oModel := aParam[1] oModelFJT := oModel:GetModel("FJT_MASTER") //Datos del encabezado oModelSEL := oModel:GetModel("SEL_DETAIL") //Datos correspondientes a los registros de la tabla SEL cIdPonto := aParam[2] cIdModel := aParam[3] If cIdPonto == 'MODELPOS' If Len(AllTrim(oModelFJT:GetValue("FJT_RECIBO"))) < 12 Help(Nil,Nil,'Help',Nil,'Tamaño del número de recibo',1,0,Nil,Nil,Nil,Nil,Nil,{"Debe introducir un numero menor a 12"}) lRet lRet:= .F. EndIf nLineas := oModelSEL:Length() For nX := 1 To nLineas If If Empty(oModelSEL:GetValue("EL_NUMERO",nX)) .AND. lRet lRet := .F. IF lRet == .F. Help(Nil,Nil,'Help',Nil,'Numero no informado',1,0,Nil,Nil,Nil,Nil,Nil,{"Debe introducir un numero"}) ENDIF EndIf Next nX ElseIf cIdPonto == 'MODELCOMMITTTS' //'Llamada después de la grabación total del modelo y dentro de la transacción (MODELCOMMITTTS).' ElseIf cIdPonto == 'MODELCOMMITNTTS' //'Llamada después de la grabación total del modelo y fuera de la transacción (MODELCOMMITNTTS).' ElseIf cIdPonto == 'FORMCOMMITTTSPOS' //'Llamada después de la grabación de la tabla del formulario (FORMCOMMITTTSPOS). EndIf EndIf Return lRet |