Histórico da Página

User Function EICIP150()


Local  cParamcParamIXB := iif( type("paramixb") == PARAMIXB "A" .and. len(paramixb) > 0 , paramixb[1] , paramixb ) 


Do Case
   Case cParamcParamIXB == "ANTESTELA"      

       lLadrao := .F.

       aAdd(aCamposTRB,{"W6_HAWB","","Processo","@!"})

   Case cParamcParamIXB == "SEMSX3"      

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

   Case cParamcParamIXB == "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