Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Logística TMS

Linha de Produto:

Linha Protheus

Segmento:

Logística

Módulo:

TOTVS TMS - Linha Protheus - Gestão de Transportes (SIGATMS)

Função:TMSA040 
País:Brasil
Ticket:#19770782 
Requisito/Story/Issue (informe o requisito relacionado) :DLOGTMS02-25724


02. DESCRIÇÃO

Ponto de Entrada utilizado para alterar o cliente, no contrato de prestação de serviços, no TMS Protheus (SIGATMS).


Importante

O ponto de entrada altera somente os dados do cliente e loja.



SINTAXE

TMALTCLI( ) ---> aRet


PARÂMETROS

Nome

Tipo

Descrição

Default

Obrigatório

Referência

aParamIXBVetorVetor com os dados para montagem do filtro de pesquisa, sendo:
[ 1 ]  - cCliente - Código do cliente - Tipo: String
[ 2 ]  - cLoja- Loja do cliente  - Tipo: String
[ 3 ]  - cServic - Código do serviço - Tipo: String
[ 4 ]  - cTipFre - Tipo do frete - Tipo String
[ 5 ]  - cCodNeg - Código da negociação - Tipo String




RETORNO

Retorno

Tipo

Descrição

Obrigatório

aRetArrayRetorna um Array com o código e loja do cliente novo, do contrato de prestação de serviços, do TMS Protheus (SIGATMS).


03. DEMAIS INFORMAÇÕES

A execução do ponto de entrada TMALTCLI, é realizada somente em momento de processamento do cálculo.

O exemplo foi criado com base na rotina TMSA040 - Cotação de frete. Entretanto, esse ponto de entrada também é chamado em outras rotinas.

As rotinas são:

  • TMSA011
  • TMSA040
  • TMSA050
  • TMSA180
  • TMSA200
  • TMSA360
  • TMSA460
  • TMSA491
  • TMSA500
  • TMSA670
  • TMSA853
  • TMSA980
  • TMSAE80
  • TMSAF05
  • TMSAI70

Exemplo de utilização:

TMALTCLI
#Include "Protheus.ch"
User Function TMALTCLI()
    Local aRet      := {}
    Local cCliente  := AllTrim(PARAMIXB[1])
    Local cCliNovo  := ''
    Local cLoja     := AllTrim(PARAMIXB[2])
    Local cLojaNova := ''

    cCliNovo    := 'SP0001'
    cLojaNova   := '01'

    MsgInfo('Vou trocar o cliente: ' + cCliente + ' e loja:  ' + cLoja,  +' pelo cliente novo: '+ cCliNovo + ' e loja nova: ' + cLojaNova)

    AAdd(aRet, cCliNovo)
    AAdd(aRet, cLojaNova)

Return aRet


04. ASSUNTOS RELACIONADOS

  • Não há.