Linha Microsiga Protheus

Page tree

Descrição

EICGI400 - Manutenção de L.I.

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.

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


NomeTipoDescriçãoDefaultObrigatórioReferência

ADD_WORK_TMPCarácter

Usado para criar o campo na tabela Work_TMP





ADD_WORK_EITCarácterResponsável para adicionar o campo na estrutura da tela



CARREGA_WORK_EITCarácterResponsável para carregar informação na tabela Work_EIT



CARREGA_WORK_TMPCarácterResponsável para carregar informação na tabela Work_TMP



CARREGA_WORK_EIT2CarácterResponsável para carregar informação na tabela Work_EIT2



FILTRO_MBROWSECarácterUtilizado para filtrar os registros apresentados na mBrowse



MSG_ACCaracterUtilizado para bloquear mensagens de apropriação de Ato Concessório.


Retorno

.T. - Retornar sempre true

Eventos de chamada do Ponto de Entrada


Variáveis


NomeTipoEscopoPode AlterarDescrição

aStru_TMPArrayPrivateSimArray responsável para adicionar campos a estrutura da Work_TMP

aStru_EITArrayPrivateSimArray responsável para adicionar campos a estrutura da Work_EIT

cFilMbrowCaracterLocalSimVariável responsável por adicionar um filtro na mBrowse

lMsgACBoleanaPrivateSimVariável que se negada não exibe mensagem de apropriação do Ato Concessório ao item.

Programa Fonte

EICGI400.PRW