EICGI400 - Manutenção de L.I.

Descrição

Observações

Utilizado durante a rotina de manutenção de L.I.

Exemplos

User Function EICGI400()

Local cParam:= ""

Local xRet

IF Type("ParamIXB") == "C"

cParam:= PARAMIXB

Else

cParam:= PARAMIXB[1]

Endif

If cParam == "ADD_WORK_TMP"

aAdd(aStru_TMP,{"EIT_TESTE","C",AvSx3("EIT_TESTE",3),0})
aAdd(aHeader,{AvSx3("EIT_TESTE",5),"EIT_TESTE" ,AvSx3("EIT_TESTE",6),AvSx3("EIT_TESTE",3),0,"",Posicione("SX3",2,"EIT_ORGAO","X3_USADO") ,"C","EIT"})
aAdd(aCamposEIT,"EIT_TESTE")

Elseif cParam == "ADD_WORK_EIT"

aAdd(aStru_EIT,{"EIT_TESTE","C",AvSx3("EIT_TESTE",3),0})

Elseif cParam == "CARREGA_WORK_EIT1"

Work_EIT->EIT_TESTE := EIT->EIT_TESTE

Elseif cParam == "CARREGA_WORK_TMP"

Work_TMP->EIT_TESTE := Work_EIT->EIT_TESTE

Elseif cParam == "CARREGA_WORK_EIT2"

Work_EIT->EIT_TESTE := Work_TMP->EIT_TESTE

ElseIf cParam == "FILTRO_MBROWSE"

xRet := "WP_FABR='000002' And WP_FABLOJ='02'"

ElseIf cParam == "MSG_AC"

lMsgAC := .F.

ElseIf cParam == "VARIAVEIS"

//permite definir variáveis para quebra da sequência da LI

//cVar_Quebra:= conteúdo de controle

//cCpo_Quebra:= conteúdo de comparação

ElseIf cParam == "GRAVA_VARIAVEIS"

//permite redefinir variáveis para quebra da sequência da LI

//cVar_Quebra:= conteúdo de controle

//cCpo_Quebra:= conteúdo de comparação

ElseIf cParam == "QUEBRA"

//permite alterar variáveis para quebra da sequência da LI

//cVar_Quebra:= conteúdo de controle

//cCpo_Quebra:= conteúdo de comparação

ElseIf cParam == "QUEBRAESPECIAL"

//permite criar uma regra própria para quebra da sequencia da LI

//lQuebrou:= .T.

ElseIf cParam == "VAL_ITEM"

//validação dos campos do item da PLI

If Upper(MFlag) == "SALDO_Q"

//Validação para o campo quantidade

If TSaldo_Q > 10

MsgInfo("A quantidade não pode ser maior que 10", "VAL_ITEM")

lRet:= .F.

EndIf

ElseIf cParam == "MEMO_ITEM"

//neste momento, a tabela SB1 estará posicionada no código do produto
//exemplo de alteração da descrição apresentada na tela "Descrição p/ PLI"
If AllTrim(SB1->B1_COD) == "COD.PRODUTO"

WORK_DESC->(Reclock("WORK_DESC", .F.))
WORK_DESC->WKDESCR:= "exemplo de alteração da descrição apresentada na tela 'Descrição p/ PLI'"
WORK_DESC->(MsUnlock())

EndIf

ElseIf cParam == "ANTES_DELET"

//Executado antes da efetivar a exclusão da PLI.

ElseIf cParam == "ANTES_TELA_VISUAL"

//Executado antes da tela principal de manutenção de PLI.

ElseIf cParam == "FIM_GI400INCLUI"

//Executado após finalizar a gravação da Inclusão.

ElseIf cParam == "FIM_GI400ALTERA"

//Executado após finalizar a gravação da Alteração.

Endif

Return xRet

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

Nome	Tipo	Descrição	Default	Obrigatório	Referência
ADD_WORK_TMP	Carácter	Usado para criar o campo na tabela Work_TMP
ADD_WORK_EIT	Carácter	Responsável para adicionar o campo na estrutura da tela
CARREGA_WORK_EIT	Carácter	Responsável para carregar informação na tabela Work_EIT
CARREGA_WORK_TMP	Carácter	Responsável para carregar informação na tabela Work_TMP
CARREGA_WORK_EIT2	Carácter	Responsável para carregar informação na tabela Work_EIT2
FILTRO_MBROWSE	Carácter	Utilizado para filtrar os registros apresentados na mBrowse
MSG_AC	Caracter	Utilizado para bloquear mensagens de apropriação de Ato Concessório.
VARIAVEIS	Caracter	Utilizado para criar e/ou redefinir as variáveis de controle de quebra da LI/ PLI ou redefinir o seu fluxo; executado no início do processamento da função de geração das sequências.
GRAVA_VARIAVEIS	Caracter	Utilizado para definir as variáveis de controle de quebra da LI/ PLI; executado durante o looping dos itens, no decorrer do processamento da função de geração das sequências.
QUEBRA	Caracter	Utilizado para manipular as variáveis de controle de quebra da LI/ PLI ou redefinir o seu fluxo.
QUEBRAESPECIAL	Caracter	Utilizado para criar uma regra específica de quebra da LI/ PLI em substituição a quebra realizada pelo produto padrão.
VAL_ITEM	Caracter	Indica que o ponto de entrada foi executado na alteração dos dados do item, na tela de seleção.
MEMO_ITEM	Caracter	Indica que o ponto de entrada foi executado na abertura da tela de Descrição do Item para a PLI. Neste momento o sistema estará com o registro do cadastro de produtos (SB1) posicionado e estará com a tabela temporária WORK_DESC criada, com o campo WKDESCR que será exibido em tela.
ANTES_DELET	Caracter	Executado antes da efetivar a exclusão da PLI.
ANTES_TELA_VISUAL	Caracter	Executado antes da tela principal de manutenção de PLI.
FIM_GI400INCLUI	Caracter	Executado após finalizar a gravação da Inclusão.
FIM_GI400ALTERA	Caracter	Executado após finalizar a gravação da Alteração.

Retorno

.T. - Retornar sempre true

Eventos de chamada do Ponto de Entrada

Variáveis

Nome	Tipo	Escopo	Pode Alterar	Descrição
aStru_TMP	Array	Private	Sim	Array responsável para adicionar campos a estrutura da Work_TMP
aStru_EIT	Array	Private	Sim	Array responsável para adicionar campos a estrutura da Work_EIT
cFilMbrow	Caracter	Local	Sim	Variável responsável por adicionar um filtro na mBrowse
lMsgAC	Boleano	Private	Sim	Variável que se negada não exibe mensagem de apropriação do Ato Concessório ao item.
cVar_Quebra	Caracter	Private	Sim	Variável para definição de conteúdo de controle para regra de quebra da sequência da LI/ PLI. Disponível no ponto de entrada com os parâmetros VARIAVEIS, GRAVA_VARIAVEIS e QUEBRA.
cCpo_Quebra	Caracter	Private	Sim	Variável para definição de conteúdo de controle e comparação para regra de quebra da sequência da LI/ PLI. Disponível no ponto de entrada com os parâmetros VARIAVEIS, GRAVA_VARIAVEIS e QUEBRA.
lQuebra_Espe	Boleano	Private	Sim	Variável que definirá o desvio para o uso do ponto de entrada com o parâmetro QUEBRAESPECIAL para implementação de quebra customizada. Disponível no ponto de entrada com o parâmetro VARIAVEIS.
lQuebrou	Boleano	Private	Sim	Variável que define se houve a quebra da sequência da LI/ PLI. Disponível no ponto de entrada com o parâmetro QUEBRAESPECIAL.
MFlag	Caracter	Private	Não	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, indica qual campo disparou a validação.
lRet	Lógico	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, possibilita redefinir o retorno da validação.
TSaldo_Q	Numérico	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, corresponde a quantidade informada pelo usuário na tela de seleção do item.
TFobUnit	Numérico	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, corresponde ao valor do item informado pelo usuário.
TDt_Emb	Data	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, corresponde a data do embarque informada pelo usuário na tela de seleção do item.
TDt_Ent	Data	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM, corresponde a data de entrega informada pelo usuário na tela de seleção do item.
TPeso	Numérico	Private	Sim	Variável disponível no ponto de entrada com o parâmetro VAL_ITEM,c orresponde ao peso do item informado pelo usuário.

Programa Fonte

EICGI400.PRW

Árvore de páginas

EICGI400 - Manutenção de L.I.