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.).
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
Nome | Tipo | Descrição |
---|---|---|
VALID_EXCLUSAO | Caracter | Parâmetro para validar a exclusão do cadastro de embalagem |
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. |
<!-- 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> |