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:= .F.
EndIf
nLineas := oModelSEL:Length()
For nX := 1 To nLineas
If Empty(oModelSEL:GetValue("EL_NUMERO",nX))
lRet := .F.
IF lRet == .F. Help Help(Nil,Nil,'Help',Nil,'Numero no informado',1,0,Nil,Nil,Nil,Nil,Nil,{"Debe introducir un numero"}) lRet := .F.
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
|
