Histórico da Página

User function EICDI500_RDM()

Local cParam := if(Type("ParamIxb") = "A", ParamIxb[1], if(Type("ParamIxb") = "C", ParamIxb, ""))

Do Case   

Case PARAMIXB == "ANT_VALID_SW6"         

      If cNomeCampo =   'TFOBUNIT'

      MsgInfo("Entrou no ponto de entrada para validação dos campos no item do embarque.")       

      EndIf

Case PARAMIXB == "MANUT_SW9"

       lSair: = .T.

Case PARAMIXB == "ANTES_TELA"         

        MsgInfo("Entrou no ponto de entrada para manipulação de campos customizados.")

Case PARAMIXB == "BROWSE_SELECIONA"

       AAdd(aBotaoItem, {"" ,{|| MsgInfo("Teste")}, "Botão de teste"})

       AAdd(aCamposItem, {"WKCAMPO" , , "Titulo" , "substituir por picture"})

Case cParam == "TELA_DESP"

      If AScan(aBotoesDesp, {|x| x[1] == "TESTE1"}) == 0

          AAdd(aBotoesDesp, {"TESTE1", {|| MsgInfo("Teste")}, "Teste aBotoesDesp", "Teste aBotoesDesp"})

     EndIf

Case cParam == "BROWSE_WORK_SW9"               

      AAdd(aBotoes, {"TESTE aBotoes", {|| MsgInfo("Teste aBotoes")}, "Teste aBotoes", "Teste aBotoes"})

      AAdd(aTB_CposSW9, {"TESTE aTB_CposSW9", {|| MsgInfo("Teste aBotoes")}, "Teste aTB_CposSW9", "Teste aTB_CposSW9"})

Case cParam == "RATEIO_ACRESCIMOS"

       cCodRatPeso := "10/13"

Case cParam == "DESVIA_REL"

       lDesvio := .T.

Case cParam == "ANTES_INFO_COMPL"

       nLin2 := 20

Case cParam == "IMP_COMPLE"

      cMemo := "Teste"

Case cParam == "FINAL_IMPR_ADI"

      nLin2 := 20

Case cParam == "MANUT_W9_INC"

MsgInfo("Ponto de entrada com o parâmetro MANUT_W9_INC")

//M->W9_FRETEIN:= 145.00

Case cParam == "ANTES_INICIA_SW6_SW9"

//MsgInfo("Ponto de entrada com o parâmetro ANTES_INICIA_SW6_SW9")

cCpoNaoInicia += "W2_AAAA; W2_BBBB"

Case cParam == "INICIA_SW6_SW9"

MsgInfo("Ponto de entrada com o parâmetro INICIA_SW6_SW9")

//M->W9_ABCD:= SW2→W2_ABCD

Case cParam == "AROTINA"

      Aadd(aRotina, {"Nova Rotina", "DI500Rotina", 0, 2})

Case cParam == "ALTERA_WHEN"     

      lWhenDesp := .F.    //Desabilita o campo Despesa

      lWhenAdian := .F.   //Adianta/o

      lWhenPgPor := .F.  //Pago Por

      lWhenGrFin := .F.  //Gera Financ.   

EndCase    

Return