Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Flavio Danilo Ricardo

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Tiago Henrique Tudisco Dos Sanrtos

Gravado em

Chave

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

...

  1. Visão Geral
  2. Exemplo de utilização
  3. Parâmetros
  4. Variáveis
  5. Tabelas utilizadas


01. VISÃO GERAL

Este Ponto de Entrada pertence à rotina de Itens Pendentes. Ele deve ser utilizado para customização desta rotina.

Programa Fonte: EICIP150.PRW


02. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagevb
themeEclipse
firstline1
titleExemplo de Utilização
linenumberstrue
User Function EICIP150()

...

Local cParam := PARAMIXB

   IF cParam == "ANTESTELA"

      aadd(aCamposTRB, { "Teste"})

   Endif




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



03. PARÂMETROS


NomeTipoDescrição
ANTESTELACaracterPermite desviar da tela padrão da rotina de Itens Pendentes 
LOOPSICaracterPermite manipular variável para não exibir uma SI no relatório
GRVSICaracterPermite gravar valores para os campos novos na opção "Solicitações Pendentes"
LOOPPOCaracterPermite manipular variável para não exibir um PO no relatório
GRVPOCaracterPermite gravar valores para campos novos na opção "Pedidos Pendentes"
LOOPGICaracterPermite manipular variável para não exibir uma LI no relatório
GRVGICaracterPermite gravar valores para campos novos na opção "Licenciamentos Pendentes"
LOOPDICaracterPermite manipular variável para não exibir um Desembaraço no relatório
GRVDICaracterPermite gravar valores para campos novos na opção "Desembaraços Pendentes"
CAMPOTRBCaracterPermite incluir novos campos na tela a ser apresentada antes da impressão
SEMSX3ArrayPermite incluir novos campos no arquivo de trabalho TRB.

04. VARIÁVEIS


a manipulação dos campos a serem exibidos em tela
ParâmetroNomeTipoPermite alterarDescrição
ANTESTELAlPadraoLógicoSimPermite desviar da tela padrão do sistema.
LOOPSIlLoopLógicoSimPermitem validar para que um registro não seja exibido no relatório
LOOPPOlLoopLógicoSimPermitem validar para que um registro não seja exibido no relatório
LOOPGIlLoopLógicoSimPermitem validar para que um registro não seja exibido no relatório
LOOPDIlLoopLógicoSimPermitem validar para que um registro não seja exibido no relatório
SEMSX3aSemSX3ArraySimPermite alterar o array aSemSX3
CAMPOTRBaCamposTRBArraySimPermite adicionar novos campos no relatório


05. TABELAS UTILIZADAS

  • Nõ Não há.



HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>