TMALTBAS - Manipulação das Bases do Frete a Pagar e Receber.

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Logística
Módulo:	SIGATMS - Gestão de Transportes

02. DESCRIÇÃO

O Ponto de entrada localizado na função TMSCalFret do fonte TMSXFUNB.
Através deste ponto é possível realizar a manipulação das bases de cálculo, no momento do cálculo do frete a pagar e a receber.

Parâmetros:

Nome	Tipo	Descrição
nValMer	Number	Valor da Mercadoria
nPeso	Number	Peso Real
nPesoM3	Number	Peso Cubado
nPesoCob	Number	Peso Cobrado
nQtdVol	Number	Quantidade Volumes
nSeguro	Number	Seguro RR
nMetro3	Number	Metragem Cúbica
nQtdUni	Number	Quantidade Unitizadores
nValDpc	Number	Valor CTe Despachante
cCliDev	Character	Codigo Devedor
cLojDev	Character	Loja Devedor
cLotNFc	Character	Lote de Notas Fiscais
cTabFre	Character	Tabela de Frete
cTipTab	Character	Tipo da Tabela
nKm	Number	Km da Nota Fiscal
aNfCtrc	Array of Record	Notas do Cálculo
nPesoVge	Number	Peso Real da Viagem
nPesoM3Vge	Number	Peso Cubado da Viagem
nMetro3Vge	Number	Metragem Cúbida da Viagem
nValMerVge	Number	Valor Mercadoria da Viagem
nQtdVolVge	Number	Quantidade Volumes da Viagem
nDiaArm	Number	Dias de Armazenagem
cCdrOri	Character	Região de Origem
cFilDoc	Character	Filial Origem do Documento
cDoc	Character	Número do Documento
cSerie	Character	Série do Documento
cFilOri	Character	Filial Origem da Viagem
cViagem	Character	Número da Viagem
aTipVei	Array of Record	Tipos dos Veículos da Viagem

Retorno:

Array of Record {nValMer,nPeso,nPesoM3,nPesoCob,nQtdVol,nSeguro,nMetro3,nQtdUni,nValDpc,nKm,cBsComp,cCdrDes,nMetro3Vge,nValMerVge,nQtdVolVge,nDiaArm,nPesoVge,nPeso3Vge,cCdrOri,aTipVei}

03. EXEMPLO DE UTILIZAÇÃO

TMALTBAS

#INCLUDE "PROTHEUS.CH"

User Function TMALTBAS()
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[24]
Local cDoc       := ParamIXB[25]
Local cSerie     := ParamIXB[26]
Local cFilOri    := ParamIXB[27]
Local cViagem    := ParamIXB[28]
Local aTipVei    := ParamIXB[29]
Local aRet       := {nValMer,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 Tipos de Veículos","Atenção")

Return aRet

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS