Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Logística
Módulo:SIGATMS - Gestão de Transportes 


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

NomeTipoDescriçãoDefaultObrigatórioReferê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

RetornoTipoDescriçãoObrigató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. 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. 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

05. ASSUNTOS RELACIONADOS

  • Não há.