Histórico da Página
...
Bloco de código | ||||
---|---|---|---|---|
| ||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas