Histórico da Página
M010B5CP - Ponto de
...
entrada para
...
manipulação dos
...
campos de Complementos de Produtos(SB5)
Produto: | Protheus |
Versões: | 12.1.17 (outubro/2017 e) e posteriores |
Rotina: | MATA010 - Cadastro de Produtos |
Ocorrência: | Ponto de Entrada que permite limpar o conteúdo dos campos de complemento de produto(SB5) quando executada a função de cópia de produto para o cadastro de produtos que atualiza o complemento. Cadastro de Produto sem a implementação MVC Cadastro de Produto após implementação MVC
|
Parâmetros: | ParamIXB → Versão com implementação MVC. |
Passo a passo: | O Ponto de Entrada pode ser executado como nas versões anteriores, como também ser realizado através do MVC, conforme exemplos abaixo. |
Observações: | A configuração do parâmetro MV_CADPROD deverá ser observado, de forma a garantir que a rotina automática respeitará a parametrização via Configurador. |
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#Include 'Protheus.ch' User Function M010B5CP() Local lRet := .T. M->B5_CEME := CriaVar( 'B5_CEME', .F. ) M->B5_ENDENT := CriaVar( 'B5_ENDENT', .F. ) M->B5_ENDREQ := CriaVar( 'B5_ENDREQ', .F. ) M->B5_ENDDEV := CriaVar( 'B5_ENDDEV', .F. ) Return lRet |
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 ]
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
Return lRet |
Parâmetros:
Informações | ||
---|---|---|
| ||
O parâmetro abaixo se aplica a versão com implementação MVC. |
...