TMSCONTRAT - Alteração nos contratos dos clientes

O objetivo do ponto de entrada TMSCONTRAT é permitir ao usuário alterar informações dos contratos dos clientes.

TMSA011.PRW

TMSCONTRAT - Alteração nos contratos dos clientes ( < aRet> ) --> aRet

aRet(vetor)
• //-- [01] = Numero do Contrato
  //-- [02] = Fator de Cubagem
  //-- [03] = Tabela de Frete
  //-- [04] = Tipo da Tabela de Frete
  //-- [05] = Tabela de Seguro
  //-- [06] = Cliente Agrupamento
  //-- [07] = Loja do Cliente Agrupamento
  //-- [08] = Qtde. NFs por CTRC
  //-- [09] = Condicao de Pagamento para geracao do Pedido de Venda
  //-- [10] = 1o Desconto na cotacao de frete
  //-- [11] = 2o Desconto
  //-- [12] = 3o Desconto
  //-- [13] = 4o Desconto
  //-- [14] = Tipo da Tabela de Seguro
  //-- [15] = Tabela Alternativa
  //-- [16] = Tipo da Tabela Alternativa
  //-- [17] = Contrato do Cliente Generico
  //-- [18] = Ajuste Obrigatorio
  //-- [19] = Condicao de Frete SX5(M4)
  //-- [20] = Peso Maximo por CTRC
  //-- [21] = Selecao de Servicos (1=Digitado / 2=Automatica)
  //-- [22] = Determina se a geracao de documentos ira ou nao, considerar as quebras por numero de notas fiscais por CTRC e peso maximo por CTRC
  //-- [23] = Taxa por CTRC ?
  //-- [24] = Considera Produto para cálculo ?
  //-- [25] = Codigo do Cliente
  //-- [26] = Loja do Cliente
  //-- [27] = Codigo do Servico
  //-- [28] = Devedor Paga TDA ? (1=Coleta; 2=Entrega; 3=Coleta e Entrega; 4=Coleta ou Entrega)
  //-- [29] = Valor Fixo/Variavel na cobrança de veiculo dedicado
  //-- [30] = Tipo do Frete (1-CIF / 2-FOB / 3-CIF & FOB)
  //-- [31] = Cliente Remetente
  //-- [32] = Loja do Remetente
  //-- [33] = Cliente Destinatario (Apenas Informativo)
  //-- [34] = Loja do Destinatario
  //-- [35] = Cliente Devedor
  //-- [36] = Loja do Devedor
  //-- [37] = Tipo da Nota Fiscal
  

Importante:

Existem três situações em que o sistema irá ignorar as informações retornadas pelo ponto entrada.

1)      Quando o array passado pelo ponto de entrada para o sistema estiver diferente no tipo de informação. Por exemplo, se a posição do array de número 11 for numérica e se o retorno do ponto de entrada nesta posição for um conteúdo caracter, toda a informação passada pelo ponto de entrada no array será ignorada.

2)      Caso o array que o ponto de entrada retorna para o sistema, não tiver o mesmo tamanho do array passado que o sistema enviou para o ponto, toda a informação passada pelo ponto de entrada no array será ignorada.

3)      Na posição 6 e 7 do array se encontram o cliente de agrupamento, caso o ponto de entrada retorne um cliente que não exista na base, todo o array será ignorado.

 Alterada a opção de quebra de nota fiscal de cliente por ctrc, não permitindo que o sistema coloque mais que uma nota fiscal por ctrc.  User Function TmsContrat() //-- Formato do vetor aRetorno//-- [01] = AAM->AAM_CONTRT                Numero do Contrato//-- [02] = DUX->DUX_FATCUB                Fator de Cubagem//-- [03] = DUX->DUX_TABFRE                Tabela de Frete//-- [04] = DUX->DUX_TIPTAB                Tipo da Tabela de Frete//-- [05] = DC5->DC5_TABSEG                Tabela de Seguro//-- [06] = aPerfil[1]                     Cliente Agrupamento//-- [07] = aPerfil[2]                     Loja do Cliente Agrupamento//-- [08] = aPerfil[18]                    Qtde. NFs por CTRC //-- [09] = AAM->AAM_CPAGPV               Condicao de Pagamento para geracao do Pedido de Venda//-- [10] = DC5->DC5_DESC1                 1o Desconto na cotacao de frete//-- [11] = DC5->DC5_DESC2                 2o Desconto//-- [12] = DC5->DC5_DESC3                 3o Desconto//-- [13] = DC5->DC5_DESC4                 4o Desconto//-- [14] = DC5->DC5_TPTSEG                Tipo da Tabela de Seguro//-- [15] = DUX->DUX_TABALT                Tabela Alternativa//-- [16] = DUX->DUX_TIPALT                Tipo da Tabela Alternativa//-- [17] = lCliGen                        .T. Contrato do Cliente Generico//-- [18] = aPerfil[19]                    Ajuste Obrigatorio//-- [19] = aPerfil[3]                     Condicao de Frete SX5(M4)//-- [20] = aPerfil[20]                    Peso Maximo por CTRC//-- [21] = AAM->AAM_SELSER                Selecao de Servicos (1=Digitado / 2=Automatica)//-- [22] = aPerfil[22]                    Determina se a geracao de documentos ira ou nao, considerar as quebras por numero de notas fiscais por CTRC e peso maximo por CTRC//-- [23] = aPerfil[16]                    Taxa por CTRC ?//-- [24] = DUX->DUX_PRCPROD               Considera Produto para cálculo//-- [25] = AAM->AAM_CODCLI	           Codigo do Cliente//-- [26] = AAM->AAM_LOJA		   Loja do Cliente//-- [27] = DUX->DUX_SERVIC	           Codigo do Servico//-- [28] = aPerfil[80]			   Devedor Paga TDA (1=Coleta; 2=Entrega; 3=Coleta e Entrega;       4=Coleta ou Entrega)//-- [29] = cFixVar                        Valor Fixo/Variavel na cobrança de veiculo dedicado//-- [30] = Tipo do Frete (1-CIF / 2-FOB / 3-CIF & FOB)//-- [31] = Cliente Remetente//-- [32] = Loja do Remetente//-- [33] = Cliente Destinatario //-- [34] = Loja do Destinatario//-- [35] = Cliente Devedor	//-- [36] = Loja do Devedor	 Local aContrat := aClone(ParamIxb)aContrat[1,22]:= '2' If FunName() == 'TMSA200'            MsgStop('chamada do ponto de entrada TmsContrat no calculo do frete')ElseIf FunName() == 'TMSA050'            MsgStop('chamada do ponto de entrada TmsContrat na digitacao de notas')ElseIf FunName() == 'TMSA040'            MsgStop('chamada do ponto de entrada TmsContrat na cotacao de frete')EndIfReturn aContrat