Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

//-----------------------------------------------------------------
/*/{Protheus.doc} TMSPAMCT()

PE permite alterar o array utilizado para montagem do contrato Pamcard 
@author User
@since 07/02/2024
@version 1.0
/*/
//--------------------------------------------------------------------  
User Function TMSPAMCT()
Local aFields := PARAMIXB[1]
Local nPosAux := aScan(aFields,{|x| x[1] == "viagem.parcela1.efetivacao.tipo"})

If nPosAux > 0
    aFields[nPosAux][2] := '1' //-- Efetivação Manual 
EndIf

Return aFields
//-----------------------------------------------------------------