TMCALFRE – Calcula Componentes de Frete com valores específicos

Sabemos que não dá pra resolver tudo...a culpa não é sua!
Converse com a gente ali na caixa ao lado 👉

E aí, tudo certo?

Imagine que você precise calcular o frete de uma forma tão específica que os cadastros de configurações e tabelas de frete não comportem. Isso já aconteceu comigo.
O contador da empresa chegou com sua planilha, é claro, e tive que aplicar a sua fórmula ao TMS Protheus.

Então utilizei o ponto de entrada TMCALFRE que fica localizado no fonte TMSXFUNB.PRW

Vamos à um exemplo:

User Function TMCALFRE() 
//Recupera o array contendo os campos passado através do Ponto de Entrada
Local aParam := PARAMIXB
//Array utilizado para passar os components a serem calculados e seus respectivos valores
Local aRet := {}

//-- Parametros passados para o ponto de entrada PARAMIXB
//-- [01] = Vetor com a composicao do frete
//-- [02 ate 17] = Base de calculo
//-- [18] = Codigo do cliente devedor (pode estar em branco quando calculado pelo generico ou sem ajuste)
//-- [19] = Loja do cliente devedor (pode estar em branco quando calculado pelo generico ou sem ajuste)
//-- [20] = Codigo da regiao de origem
//-- [21] = Codigo da regiao de destino
//-- [22] = Codigo do produto
//-- [23] = Codigo do servico de negociacao
//-- [24] = Tabela de Frete
//-- [25] = Tipo da Tabela de Frete
//-- [26] = Sequencia da Tabela de Frete
//-- [27] = Dias de Armazenagem
//-- [28] = Notas Fiscais (aNfCTRC)
//-- [29] = Numero do Lote
//-- [30] = Codigo do cliente devedor original
//-- [31] = Loja do cliente devedor original


If aParam[1][1] == "01" //se componente for o 01 (tabela DT3)
nNewComp := CalcComp()
aAdd(aRet, {"01",nNewComp})
EndIf

/*
Você pode inserir a lógica que quiser, pegando valores de outras tabelas do sistema.
Você pode zerar um componente específico caso não queira que ele seja calculado em condições específicas
*/

Return aRet

User Function TMCALFRE()

//Recupera o array contendo os campos passado através do Ponto de Entrada

Local aParam := PARAMIXB

//Array utilizado para passar os components a serem calculados e seus respectivos valores

Local aRet := {}

//-- Parametros passados para o ponto de entrada PARAMIXB

//-- [01] = Vetor com a composicao do frete

//-- [02 ate 17] = Base de calculo

//-- [18] = Codigo do cliente devedor (pode estar em branco quando calculado pelo generico ou sem ajuste)

//-- [19] = Loja do cliente devedor (pode estar em branco quando calculado pelo generico ou sem ajuste)

//-- [20] = Codigo da regiao de origem

//-- [21] = Codigo da regiao de destino

//-- [22] = Codigo do produto

//-- [23] = Codigo do servico de negociacao

//-- [24] = Tabela de Frete

//-- [25] = Tipo da Tabela de Frete

//-- [26] = Sequencia da Tabela de Frete

//-- [27] = Dias de Armazenagem

//-- [28] = Notas Fiscais (aNfCTRC)

//-- [29] = Numero do Lote

//-- [30] = Codigo do cliente devedor original

//-- [31] = Loja do cliente devedor original

If aParam[1][1] == "01" //se componente for o 01 (tabela DT3)

nNewComp := CalcComp()

aAdd(aRet, {"01",nNewComp})

EndIf

Você pode inserir a lógica que quiser, pegando valores de outras tabelas do sistema.

Você pode zerar um componente específico caso não queira que ele seja calculado em condições específicas

Return aRet

Referência: http://tdn.totvs.com/display/public/PROT/TMCALFRE+-+Calcula+Componentes+de+Frete

Espero que este exemplo te ajude nas implantações!

Abs.

Leave a Reply Cancelar resposta