Histórico da Página
...
- Visão Geral
- Exemplo de utilização
- Parâmetros
- Variáveis
- Tabelas utilizadas
01. VISÃO GERAL
Este Ponto de Entrada pertence à rotina de Manutenção de Embalagem (EECAT170). Ele deve ser utilizado para customizar a rotina de Manutenção de Embalagem.
Programa Fonte: EECAT170.PRW
Retorno: Verdadeiro (.T.) ou Falso (.F.).
02. EXEMPLO DE UTILIZAÇÃO
03. TELA XXXXX
Outras Ações / Ações relacionadas
...
04. TELA XXXXX
Principais Campos e Parâmetros
User Function EECAT170()
Local cParam
If ValType(ParamIXB) == "A"
cParam:= ParamIXB[1]
Else
cParam:= ParamIXB
EndIf
Do Case
Case cParam == "VALID_EXCLUSAO"
if AllTrim(cCodEmba) == "EMB2"
MsgInfo("Não pode excluir a embalagem solicitada")
lBreak := .T.
EndIf
EndCase
Return
03. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
VALID_EXCLUSAO | Caracter | Parâmetro para validar a exclusão do cadastro de embalagem |
04. VARIÁVEIS
Parâmetro | Nome | Tipo | Permite alterar | Descrição |
---|---|---|---|---|
VALID_EXCLUSAO | cCodEmba | Caracter | Não | Variável saber qual embalagem está sendo alterada |
VALID_EXCLUSAO | lKey | Lógico | Sim | Quando retornar .T. o sistema não permitirá a exclusão do registro e se retornar .F. o registro será excluído mesmo que esteja sendo usado no cadastro de outra embalagem ou no cadastro de produto. |
...
05. TABELAS UTILIZADAS
- Não há.
HTML |
---|
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |
EECAT170 - Manutenção - embalagem
...
Descrição
...
EECAT170 - Cadastro de embalagem
...
Observações
...
Utilizado para a manutenção do cadastro de embalagem
...
Exemplos
#Include 'Protheus.ch'
User Function EECAT170()
Local cParam
If ValType(ParamIXB) == "A"
cParam:= ParamIXB[1]
Else
cParam:= ParamIXB
EndIf
Do Case
Case cParam == "VALID_EXCLUSAO"
if AllTrim(cCodEmba) == "EMB2"
MsgInfo("Não pode excluir a embalagem solicitada")
lBreak := .T.
EndIf
EndCase
Return
...
Preview
...
Veja também
...
Idioma
...
Português(Brasil)
...
Versões
...
Microsiga_Protheus11 e 12
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Updates
...
Parâmetros
...
Retorno
...
Eventos de chamada do Ponto de Entrada
...
Variáveis
...
Quando retornar .T. o sistema não permitirá a exclusão do registro e se retornar .F. o registro será
excluído mesmo que esteja sendo usado no cadastro de outra embalagem ou no cadastro de produto.
...
Programa Fonte
...