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. Ex.: Possibilita limpar os dados de comprimento, largura e altura do produto original, que por padrão seriam carregados na cópia do produto, para que os novos valores sejam informados. Localização: Cadastro de Produto sem a implementação MVC Function A010IncPeC() - Função Responsável pela inclusão do produto juntamente com seu complemento. Cadastro de Produto após implementação MVC Evento MATA010EVPE ( FWModelEvent ), Método Activate().
|
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. |
O exemplo demostra a inclusão, alteração e exclusão de um produto através da utilização da rotina automática.
Documentação também se aplica a Protheus 11 e 12, porém, deve-se atentar que a versão com MVC está disponível a partir da versão 12.1.17 de outubro de 2017 do Protheus.
#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
#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:
Nome | Tipo | Descrição | Default | Obrigatório | Referência |
ParamIXB | Array | Array contendo:
1- Model da tabela SB5; 2- Opção Escolhida; 3- Se a Operação executada é uma Cópia; |
| X |
|