Histórico da Página

...

If aParam <> NIL

oSubFK1 := aParam[1] //Objeto do formulário ou do del formulario o del modelo, conforme o según el caso
cIdPonto := aParam[2] //ID do local de execução do ponto del lugar de ejecución del punto de entrada
cIdModel := aParam[3] //ID do formuláriodel formulario

If cIdPonto == 'FORMPOS'
If cIdPonto == 'FORMPOS'
If cIdModel == 'FK1DETAIL'
oSubFK1:SetValue( "FK1_HISTOR", 'PONTO PUNTO DE ENTRADA EM EN MVC' )
EndIf
If cIdModel == 'FK5DETAIL'
oSubFK1:SetValue( "FK5_HISTOR", 'PONTO PUNTO DE ENTRADA EM EN MVC' )
EndIf
EndIf
EndIf
EndIf

Return lRet

...

User Function FINM010()
Local aParam := PARAMIXB
Local lRet := .T.
Local oModParam := ''
Local oModelBxR := ''
Local cIdPonto := ''
Local cIdModel := ''
Local oFK8 := Nil
Local oFKA := Nil
Local cCamposE5 := ''


If aParam <> NIL

oModParam := aParam[1] //Objeto do formulário ou do del formulario o del modelo, conforme o según el caso 
cIdPonto := aParam[2] //ID do local de execução do ponto del lugar de ejecución del punto de entrada 
cIdModel := aParam[3] //ID do formulário del formulario 

If cIdPonto == 'FORMPOS'
If cIdModel == 'FK5DETAIL'
oModelBxR := oModParam:GetModel()
oFK8 := oModelBxR:GetModel( "FK8DETAIL" )
oFKA := oModelBxR:GetModel( "FKADETAIL" )

cCamposE5 := AllTrim(oModelBxR:GetValue('MASTER', 'E5_CAMPOS'))
If !Empty(cCamposE5)
cCamposE5 := Left( cCamposE5, Len(cCamposE5) -1 )
cCamposE5 += ",{ 'E5_CCD', '000000001'}"
cCamposE5 += ",{ 'E5_CCC', '000000002'}}"
Else
cCamposE5 := "{{ 'E5_CCD', '000000001'}"
cCamposE5 += ",{ 'E5_CCC', '000000002'}}"
EndIf

oModelBxR:SetValue( "MASTER","E5_CAMPOS",cCamposE5 )   // Informando o el atributo "E5_CAMPOS"
oFK8:SetValue( "FK8_CCD", '000000001' )
oFK8:SetValue( "FK8_CCC", '000000002' )
oFK8:SetValue( "FK8_IDMOV", oFKA:GetValue('FKA_IDORIG') )
EndIf
EndIf
EndIf

Return lRet

...

                               oSubModel        := aParam[1] //Objeto do formulário ou do del formulario o del modelo, conforme o según el caso

                               cIdPonto             := aParam[2] //ID do local de execução do ponto del lugar de ejecución del punto de entrada

                               cIdModel            := aParam[3] //ID do formuláriodel formulario

                               If cIdPonto == 'FORMPOS' // Na validação total do formulárioEn la validación total del formulario.

                                               If cIdModel == 'FK1DETAIL' //Validação do formulário Validación del formulario FK1

                                                               If "VL" $  oSubModel:GetValue("FK1_TPDOC") //Condição para alteração de gravaçãoCondición para modificar la grabación

                                                                              oSubModel:SetValue( "FK1_HISTOR", 'P.E. EM MVC,BAIXA FK1' ) // Novos Nuevos valores

                                                               EndIF

                                               ElseIf cIdModel == 'FK6DETAIL' //Validação do formulário Validación del formulario FK6

                                                               If "DC" $  oSubModel:GetValue("FK6_TPDOC")

...

                                               ElseIf cIdModel == 'FK5DETAIL' //Validação do formulário Validación del formulario FK5

                                                               If "VL" $  oSubModel:GetValue("FK5_TPDOC") //Condição para alteração de gravaçãoCondición para modificar la grabación

                                                                              oSubModel:SetValue( "FK5_HISTOR", 'P.E. EM MVC,BAIXA FK5' ) // Novos Nuevos valores

                                                               EndIF   

...