Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function TMSBASCT()
Local cSerTMSTMALTBAS()
Local nValMer    := ParamIXB[01]
Local nPeso      := ParamIXB[02]
Local nPesoM3    := ParamIXB[03]
Local nPesoCob   := ParamIXB[04]
Local nQtdVol    := ParamIXB[05]
Local nSeguro    := ParamIXB[06]
Local nMetro3    := ParamIXB[07]
Local nQtdUni    := ParamIXB[08]
Local nValDpc    := ParamIXB[09]
Local cCliDev    := ParamIXB[10]
Local cLojDev    := ParamIXB[11]
Local cLotNfc    := ParamIXB[12]
Local cTabFre    := ParamIXB[13]
Local cTipTab    := ParamIXB[14]
Local nKm        := ParamIXB[15]
Local aNfCTRC    := ParamIXB[16]
Local nPesoVge   := ParamIXB[17]
Local nPesoM3Vge := ParamIXB[18]
Local nMetro3Vge := ParamIXB[19]
Local nValMerVge := ParamIXB[20]
Local nQtdVolVge := ParamIXB[21]
Local nDiaArm    := ParamIXB[22]
Local cCdrOri    := ParamIXB[23]
Local cFilDoc    := ParamIXB[124]
Local cTipTra cDoc       := ParamIXB[225]
Local cSerie    cTipVei := ParamIXB[326]
Local cFilOri    := ParamIXB[427]
Local cViagem    := ParamIXB[528]
Local aTipVei    := ParamIXB[29]
Local aRet       := {cSerTMS,cTipTra,cTipVeinValMer,nPeso,nPesoM3,nPesoCob,nQtdVol,nSeguro,nMetro3,nQtdUni,nValDpc,nKm,,,nMetro3Vge,0,0,0,0,0,"",aTipVei}

MsgAlert("Ponto de Entrada para Alterar o Vetor de TipoTipos dode VeículoVeículos","Atenção")

Return aRet