Histórico da Página

Este Ponto de Entrada está localizado na função TMSCalFret() e é responsável por Calcular o total do frete baseado na tabela de frete e permite alterar a base de cálculo de cada componente.

cTabFre - Tabela de Frete.
cTipTab - Tipo da tabela de frete.
cSeqTab - Sequência da tabela de frete.
cCdrOri - Código de região de origem.
cCdrDes - Código de região de destino.
cCodCli - Código do cliente.
cLojCli - Loja do cliente.
cCodPro - Código do produto.
cServic - Código do Serviço.
cSerTms - Tipo do serviço.
cTipTra - Tipo de transporte.
cNContr - Número do contrato.
nBaseCal - Base de cálculo original.
nBaseSobre - Base de cálculo sobre sub-faixa.
aNfCTRC - Vetor com as notas fiscais por conhecimento .
aRet - Vetor contendo os componentes calculados.

#Include 'Protheus.ch' 

User Function TMBASCAL()

Local cTabFre           := ParamIXB[1]

Local cTipTab           := ParamIXB[2]

Local cSeqTab          := ParamIXB[3]

Local cCdrOri            := ParamIXB[4]

Local cCdrDes           := ParamIXB[5]

Local cCodCli            := ParamIXB[6]

Local cLojCli              := ParamIXB[7]

Local cCodPro           := ParamIXB[8]

Local cServic             := ParamIXB[9]

Local cSerTms          := ParamIXB[10]

Local cTipTra            := ParamIXB[11]

Local cNContr           := ParamIXB[12]

Local nBaseCal         := ParamIXB[13]

Local nBaseSobre     := ParamIXB[14]

Local aNfCTRC          := ParamIXB[15]

Local aRet                  := ParamIXB[16]

Local aNovaBase      := {}

MsgAlert( "Numero de parametros: "+Str(Len(PARAMIXB)),"TMBASCAL" )

/*Validações de usuário. Exemplo:aNovaBase[1] := nBaseCal * 2*/

/*Validações de usuário. Exemplo:nNovaBase[2] := nBaseSobre * 2*/

Return aNovaBase

Português(Brasil)

Versões_Anteriores

Todos

Todas

Numérico ou Array

O retorno do PE poderá ser feito de 2 maneiras: Retorno Array ou variável numérica.

1. Retorno variável numérica

 nBasesobre - Onde o valor retornado será assumido para ambas as bases (base de cálculo e subfaixa)

  2. Retorno variável tipo array

aBase - onde são esperados fixamente duas posições sendo elas: posição 1 – base de cálculo e posição 2 – base de subfaixa.

TMSXFUNB.PRW