Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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


NomeTipoDescriçãoDefaultObrigatórioReferência

VALID_EXCLUSAOCaractereParâmetro para validar a exclusão do cadastro de embalagem


Retorno


Eventos de chamada do Ponto de Entrada


Variáveis


NomeTipoEscopoPode AlterarDescrição

cCodEmbaCaracaterePrivateNãoVariável saber qual embalagem está sendo alterada

lKeyLógicoPrivateSim

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