Histórico da Página

#Include 'Protheus.ch'
#include 'FWMVCDef.ch'

User Function M010B5CP()
Local lRet      := .T.
Local oModel    := Nil
Local nOpcx     := 0 
Local lCopy     := .F.
Local lIsMvc    := ( Type( 'ParamIXB' ) == 'A' )

If lIsMvc
    oModel  := ParamIXB[ 1 ]
    nOpcx   := ParamIXB[ 2 ]
    lCopy   := ParamIXB[ 3 ]
	
	If lCopy .And. nOpcx == MODEL_OPERATION_INSERT 
    	oModel:LoadValue( 'B5_CEME', CriaVar( 'B5_CEME', .F. ) )
    	oModel:LoadValue( 'B5_ENDENT', CriaVar( 'B5_ENDENT', .F. ) )
    	oModel:LoadValue( 'B5_ENDREQ', CriaVar( 'B5_ENDREQ', .F. ) )
    	oModel:LoadValue( 'B5_ENDDEV', CriaVar( 'B5_ENDDEV', .F. ) )
	EndIf
EndIf


Return lRet