EECAT170 - Manutenção - embalagem

Descrição

EECAT170 - Cadastro de embalagem

Observações

Utilizado para a manutenção do cadastro de embalagem

Exemplos

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

	Nome	Tipo	Descrição	Default	Obrigatório	Referência
	VALID_EXCLUSAO	Caractere	Parâmetro para validar a exclusão do cadastro de embalagem

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Nome

Tipo

Escopo

Pode Alterar

Descrição

cCodEmba

Caracatere

Private

Não

Variável saber qual embalagem está sendo alterada

lKey

Lógico

Private

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.

Programa Fonte

EECAT170.PRW