DT PE EICAP100 Câmbio de Importação

#INCLUDE "PROTHEUS.CH"  EXIBE_MSG_ADTO User Function EICAP100()
 
   Local nPosMotBx := 0
   Local nPos := 0
   Local cParam := If(Type("ParamIxb") == "A",ParamIxb[1],If(Type("ParamIxb") == "C",ParamIxb,""))
 
   If cParam == "MOVI_LIMITE_FIN"
      MsgInfo("Entrou no ponto de entrada 'MOVI_LIMITE_FIN'.")
      lMoviFin := .F.
   elseif cParam == "VALID_VINCULACAO"
      msginfo("Entrou no ponto de entrada 'VALID_VINCULACAO'")
      lRetvalid := .F.
   elseif cParam == "MANUT_SWA"
      msginfo("Entrou no ponto de entrada 'MANUT_SWA'")
      lSair := .T.
   elseif cParam == "ELIMINAR_SALDO_MOTBX"
      msginfo("Entrou no ponto de entrada 'MOTBX'")
      If ( nPosMotBx := aSCan(aTitBx,{|x|x[1]=="AUTMOTBX"} ) ) > 0
         aTitBx[nPosMotBx][2] := "DEB"
      endif
   elseif cParam == "EXIBE_MSG_ADTO"
        lExibeMsAd := .F.
   elseif cParam == "COND_PAG"
        lCondPa := .F.
   elseif cParam == "TABINV"                                                   
        AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao})
   elseif cParam == "FINAL_EICCALCPAGTO"
        AADD(aPRITabInv,{cInvoice+cFornecedor+cLoja,nValorInvoice,dDataVencimento,'A PRAZO',cNumeroParcela,cNumeroPO,nValorComissao})
   elseif cParam == "GRAVA SWB"
        msginfo("Permite a alteração durante a gravação de cada parcela da tabela SWB")
   elseif cParam == "APOS GRAVAR SWB"
        msginfo("Permite a alteração da tabela SWB após a gravação de todas as parcelas")
   elseif cParam == "ANTES_TELA_SWB"
        M->WB_INVOICE:= "ABCDEF"
   elseif cParam == "VALIDA_HAWB"
  		If M->WA_HAWB=="EMB-613304          "
            MsgInfo("Não é possível confirmar a gravação.","Aviso")
            lValidHawb := .F.
        EndIf
   elseif cParam == "ALTERA_COLUNA"
        //Retirando o botão Liquidar Parcela
        nPos := aScan(aBotoes,{|x| x[1]="LIQCHECK"})
        if nPos > 0
           ADEL(aBotoes,nPos)
           ASIZE(aBotoes,LEN(aBotoes)-1)
        EndIf   
        // Incluindo uma coluna a ser apresentada na tela
        AADD(aCampoSWB,{"WB_SEQLOTE", "", "Seq.Lote" } ) 
   elseif cParam == "BOTAO_LIQUIDA_OK"   
       //Validando a liquidação
       MsgInfo("Liquidação inválida")
       Return .f.
   elseIf cPAram == "INIMEMO"
       M->WB_BANCO  := "BCo01"
EndIf
 
Return nil