Árvore de páginas

Versões comparadas

Chave

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

...

02. EXEMPLO DE UTILIZAÇÃO


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

...

Local cParam := PARAMIXB

...




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","@!"})

...

   Endif

...



   Case cParamIXB == "SEMSX3

...

     

      aAdd(aSemSX3,{"NOME_CAMPO","TIPO",TAMANHO,DECIMAIS})

...

   Endif



   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.

...

ParâmetroNomeTipoPermite alterarDescrição
ANTESTELAaCamposTRBlPadraoArrayLógicoSimPermite a manipulação dos campos a serem exibidos em teladesviar 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ão há.



...