Este Ponto de Entrada pertence à rotina de Itens Pendentes. Ele deve ser utilizado para customização desta rotina.
Programa Fonte: EICIP150.PRW
User Function EICIP150()
Local cParamIXB := iif( type("paramixb") == "A" .and. len(paramixb) > 0 , paramixb[1] , paramixb )
Do Case
Case cParamIXB == "ANTESTELA"
lLadrao := .F.
aAdd(aCamposTRB,{"W6_HAWB","","Processo","@!"})
Case cParamIXB == "SEMSX3"
aAdd(aSemSX3,{"NOME_CAMPO","TIPO",TAMANHO,DECIMAIS})
Case cParamIXB == "CAMPOTRB"
lLadrao := .F.
aAdd(aCamposTRB,{"W6_HAWB","","Processo","@!"})
Case cParamIXB == "LOOPSI"
lLoop := .T.
MsgInfo("Entrou no ponto de entrada 'LOOPSI'.")
Case cParamIXB == "GRVSI"
TRB->B1_DESC := "Minha descrição"
MsgInfo("Entrou no ponto de entrada 'GRVSI'.")
Case cParamIXB == "LOOPPO"
lLoop := .T.
MsgInfo("Entrou no ponto de entrada 'LOOPPO'.")
Case cParamIXB == "GRVPO"
TRB->B1_DESC := "Minha descrição"
MsgInfo("Entrou no ponto de entrada 'GRVPO'.")
Case cParamIXB == "LOOPGI"
lLoop := .T.
MsgInfo("Entrou no ponto de entrada 'LOOPGI'.")
Case cParamIXB == "GRVGI"
TRB->B1_DESC := "Minha descrição"
MsgInfo("Entrou no ponto de entrada 'GRVGI'.")
Case cParamIXB == "LOOPDI"
lLoop := .T.
MsgInfo("Entrou no ponto de entrada 'LOOPDI'.")
Case cParamIXB == "GRVDI"
TRB->B1_DESC := "Minha descrição"
MsgInfo("Entrou no ponto de entrada 'GRVDI'.")
Case cParamIXB == "CAMPOTRB"
TRB->B1_DESC := "Minha descrição"
MsgInfo("Entrou no ponto de entrada 'CAMPOTRB'.")
EndCase
Return
| Nome | Tipo | Descrição |
|---|---|---|
| ANTESTELA | Caracter | Permite desviar da tela padrão da rotina de Itens Pendentes |
| LOOPSI | Caracter | Permite manipular variável para não exibir uma SI no relatório |
| GRVSI | Caracter | Permite gravar valores para os campos novos na opção "Solicitações Pendentes" |
| LOOPPO | Caracter | Permite manipular variável para não exibir um PO no relatório |
| GRVPO | Caracter | Permite gravar valores para campos novos na opção "Pedidos Pendentes" |
| LOOPGI | Caracter | Permite manipular variável para não exibir uma LI no relatório |
| GRVGI | Caracter | Permite gravar valores para campos novos na opção "Licenciamentos Pendentes" |
| LOOPDI | Caracter | Permite manipular variável para não exibir um Desembaraço no relatório |
| GRVDI | Caracter | Permite gravar valores para campos novos na opção "Desembaraços Pendentes" |
| CAMPOTRB | Caracter | Permite incluir novos campos na tela a ser apresentada antes da impressão |
| SEMSX3 | Array | Permite incluir novos campos no arquivo de trabalho TRB. |
| Parâmetro | Nome | Tipo | Permite alterar | Descrição |
|---|---|---|---|---|
| ANTESTELA | lPadrao | Lógico | Sim | Permite desviar da tela padrão do sistema. |
| LOOPSI | lLoop | Lógico | Sim | Permitem validar para que um registro não seja exibido no relatório |
| LOOPPO | lLoop | Lógico | Sim | Permitem validar para que um registro não seja exibido no relatório |
| LOOPGI | lLoop | Lógico | Sim | Permitem validar para que um registro não seja exibido no relatório |
| LOOPDI | lLoop | Lógico | Sim | Permitem validar para que um registro não seja exibido no relatório |
| SEMSX3 | aSemSX3 | Array | Sim | Permite alterar o array aSemSX3 |
| CAMPOTRB | aCamposTRB | Array | Sim | Permite adicionar novos campos no relatório |