Salve salve....
Ponto de entrada TMCalFre- ( Gestao de Transportes)
TMSXFUNA-TMCalFre-Calculo da Taxa do Dolar nos Componentes
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} TMCalFre
Calculo da Taxa do Dolar nos Componentes
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function TMCalFre()
Local aTmCalFr := {}
Local aRet := ParamIXB[01]
Local nQtdVol := ParamIXB[02]
Local nValMer := ParamIXB[03]
Local nPeso := ParamIXB[04]
Local nPesoM3 := ParamIXB[05]
Local nMetro3 := ParamIXB[06]
Local nSeguro := ParamIXB[07]
Local nQtdDco := ParamIXB[08]
Local nDiaSem := ParamIXB[09]
Local nKm := ParamIXB[10]
Local nPerNoi := ParamIXB[11]
Local nQtdEnt := ParamIXB[12]
Local nQtdUni := ParamIXB[13]
Local nValDpc := ParamIXB[14]
Local nDocSImp := ParamIXB[15]
Local nDocCImp := ParamIXB[16]
Local nDiaFimSem := ParamIXB[17]
Local cCodCli := ParamIXB[18]
Local cLojCli := ParamIXB[19]
Local cOriAux := ParamIXB[20]
Local cDesAux := ParamIXB[21]
Local cCodPro := ParamIXB[22]
Local cServic := ParamIXB[23]
Local cTabFre := ParamIXB[24]
Local cTipTab := ParamIXB[25]
Local cSeqTab := ParamIXB[26]
Local nDiaArm := ParamIXB[27]
Local aNfCTRC := ParamIXB[28]
Local cLotNfc := ParamIXB[29]
Local aInfoAnt4 := ParamIXB[30]
Local aInfoAnt5 := ParamIXB[31]
Local cCodNeg := ParamIXB[32]
Local cFilDoc := ParamIXB[33]
Local cDoc := ParamIXB[34]
Local cSerie := ParamIXB[35]
Local cFilOri := ParamIXB[36]
Local cViagem := ParamIXB[37]
//-- Formato do vetor aFret
//-- aFret[01] = Descricao do componente
//-- aFret[02] = Valor do componente
//-- aFret[03] = Codigo do componente
//-- aFret[04] = Item SD2. Atualizado pelas funcoes que geram o SD2
//-- aFret[05] = Na cotacao eh gravado o valor do imposto do componente
//-- aFret[06] = Total do componente ( valor + imposto )
//-- aFret[07] = Codigo da regiao origem
//-- aFret[08] = Codigo da regiao destino
//-- aFret[09] = Tabela de Frete
//-- aFret[10] = Tipo da Tabela de Frete
//-- aFret[11] = Sequencia da Tabela de Frete
//-- aFret[12] = Forca a linha totalizadora para a ultima linha
//-- aFret[13] = Desconto dado ao valor do componente
//-- aFret[14] = Acrescimo dado ao valor do componente
//-- Formato do vetor aNfCTRC
//-- [01] = Numero da nota fiscal do cliente
//-- [02] = Serie da nota fiscal do cliente
//-- [03] = Cliente remetente
//-- [04] = Loja do cliente remetente
//-- [05] = Volume
//-- [06] = Valor da mercadoria
//-- [07] = Peso real
//-- [08] = Peso cubado
//-- [09] = Metro cubico
//-- [10] = Base de seguro
//-- [11] = Numero do contrato
//-- [12] = Tipo de servico
//-- [13] = Tipo de transporte
//-- [14] = Codigo da regiao de origem
//-- [15] = Codigo da regiao de destino P/ 1o percurso
//-- [16] = Codigo do servico
//-- [17] = Cliente agrupamento
//-- [18] = Loja do cliente agrupamento
//-- [19] = Cliente destinatario
//-- [20] = Loja do cliente destinatario
//-- [21] = Cliente devedor
//-- [22] = Loja do cliente devedor
//-- [23] = Codigo do produto
//-- [24] = Numero da cotacao
//-- [25] = Qtde de notas fiscais por conhecimento P/ 1o percurso
//-- [26] = Peso maximo por conhecimento P/ 1o percurso
//-- [27] = Quantidade de unitizadores
//-- [28] = Valor do frete despachante
//-- [29] = Filial despachante
//-- [30] = CTRC despachante
//-- [31] = Considera ou nao as quebras por numero de notas fiscais por CTRC e peso maximo por CTRC p/ 1o percurso
//-- [32] = Numero da solicitacao de coleta
//-- [33] = Tipo nfc
//-- [34] = Peso Informado (0=Nao; 1=Sim)
//-- [35] = Condicao de Pagamento
//-- [36] = Sequencia de Endereco Destinatario
//-- [37] = Sequencia de Inscricao Devedor
//-- [38] = Peso Liquido
//-- [39] = Moeda
//-- [40] = Desconsidera TDA (1-Coleta, 2-Entrega ou 3-Ambas)
//-- [41] = Devedor Paga TDA
//-- [42] = Rementente Paga TDA
//-- [43] = Destinatario Paga TDA
//-- [44] = Sequencia de Inscricao Destinatario
//-- [45] = Regiao de Calculo
//-- [46] = Taxa por CTRC ?
//-- [47] = Indice do array aLote
Return(aTmCalFr)
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima