TMSUBPER - Substitui Perfil de Cliente mesmo já em cache de memória.

01. DADOS GERAIS

02. DESCRIÇÃO

Este Ponto de Entrada, localizado no fonte TMSXFUNB.PRW na Função TMSPerfil que busca o perfil do cliente. Este PE permite substituir as informações do Perfil do Cliente após busca da mesma em memória.

Retorno vetor com as informações do perfil. Na data da publicação deste PE as informações são as seguintes:

//-- Formato do vetor aRet
//--[01] = Cliente agrupamento
//--[02] = Loja do cliente agrupamento
//--[03] = Condição de frete
//--[04] = FOB Dirigido
//--[05] = Cubagem
//--[06] = Base faturamento
//--[07] = Tipo de faturamento
//--[08] = Comprovante de entrega
//--[09] = Responsável comprovante
//--[10] = Valor máximo da fatura
//--[11] = Qtde. CTRC por fatura
//--[12] = Separa grupos de produto
//--[13] = Separa estados
//--[14] = Separa tipo de transporte
//--[15] = Separa CIF / FOB
//--[16] = Taxa por CTRC
//--[17] = Separa tipo de documento
//--[18] = Qtde. NFs por CTRC
//--[19] = Ajuste Obrigatório
//--[20] = Peso Máximo CTRC
//--[21] = Separa FOB + Cliente Remetente
//--[22] = Determina se a geração de documentos ira ou não, considerar as quebras pr numero de notas fiscais por CTRC e peso máximo por CTRC
//--[23] = Separa CTRC Entregue / CTRC Nao Entregue              
//--[24] = Determina se recalcula o valor do frete caso as informações da nota fiscal seja diferente da cotação de frete
//--[25] = Paga Reentrega
//--[26] = % Relativo a 1a Reentrega
//--[27] = % Relativo a 2a Reentrega
//--[28] = % Relativo a 3a Reentrega
//--[29] = % Relativo as demais Reentregas
//--[30] = Valor Máximo de Cobrança
//--[31] = Valor Fixo por Reentrega
//--[32] = Primeira Tentativa de Cobrança de Reentrega
//--[33] = Valor Mínimo do Documento Original
//--[34] = Paga Refaturamento
//--[35] = % Refaturamento
//--[36] = Valor Mínimo do Documento Original para Refaturamento
//--[37] = Tipo de dias '1'=Dias uteis;'2'=Dias corridos
//--[38] = Paga Armazenagem
//--[39] = Mínimo de Dias para Armazenagem
//--[40] = Máximo de Dias para Armazenagem
//--[41] = Valor Mínimo de Armazenagem
//--[42] = Valor Máximo de Armazenagem
//--[43] = Valor Mínimo do Documento Original para Armazenagem
//--[44] = Cliente
//--[45] = Loja Cliente
//--[46] = Utiliza produto para calculo do frete 
//--[47] = Documentos para tratamento diferenciado no faturamento a partir do DT6 (MV_TMSMFAT)
//--[48] = Valor Mínimo de Cobrança
//--[49] = Paga TDA (1-Coleta, 2-Entrega, 3-Ambas, 4- Coleta ou Entrega)
//--[50] = EDI Automático
//--[51] = Lote de EDI Automático
//--[52] = Frete de EDI Automático
//--[53] = Base Reentrega (1-Com Imposto, 2-Sem Imposto)
//--[54] = Tipo de Cálculo da Reentrega (1-Por Percentual, 2-Por Trecho)
//--[55] = Gera Agendamento Automático a partir do EDI de Agendamento? (POSICAO UTILIZADA PELA FUNCAO "TMSAgAUT" EXISTENTE NO TMSXFUNc
//--[56] = Gera Solicitação De Coleta Automaticamente a partir do EDI de Agendamento? (POSICAO UTILIZADA PELA FUNCAO "TMSAgAUT" EXISTENTE NO TMSXFUNc
//--[57] = Estorno Frete Agrupado
//--[58] = Separa Serviço TMS
//--[59] = Separa Código de Negociação
//--[60] = Permite multi faturamento do cliente na rotina fatura por documento
//--[61] = Pré-Fatura - array
//-- [61][1] Emite Fatura apenas com Pré-Fatura
//-- [61][2] Gera Fatura após a importação da Pré-Fatura
//-- [61][3] Valor faturado pela pré-fatura ou calculo TMS
//-- [61][4] Tolerância Percentual, Valor ou "não-utiliza"
//-- [61][5] Valor Tolerância
//-- [61][6] Permite "quebrar" uma pré-fatura em "n" faturas
//-- [61][7] Cond.Pagto Cliente ou Dt.Pré-Fatura
//-- [61][8] Envio automático do EDI financeiro (DOCCOB) após gerar fatura via pré-fatura
//--[62] = Viagem Edi Auto: 0-Não Utiliza;1-Gera Viagem
//--[63] = Frete XML: 1-Sim;2-Não
//--[64] = Componente Frete XML
//--[65] = TDA por Região
//--[66] = Base Calc. (1-Com Imposto, 2-Sem Imposto)

03. EXEMPLO DE UTILIZAÇÃO

/* Temos a situação que precisamos alterar a quantidade de conhecimentos máximo por fatura. 
   Mas não alteraremos o seu cadastro no perfil de cliente, e sim usaremos o ponto de entrada TMSubPer. */

User Function TMSubPer() 

Local aPerfil := aClone(ParamIxb)
  
    aPerfil[11] := 100

Return aPerfil

04. DEMAIS INFORMAÇÕES

15439482 DLOGTMS02-21858 DT Novo ponto de entrada para alterar dados do Perfil de Cliente.

05. ASSUNTOS RELACIONADOS

Não há.