Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada MA131KEY

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

Gera Cotações

MATA131

Cadastros Iniciais:

Solicitação de Compra

Parâmetro(s):

PARAMIBX (array)

Ponto de Entrada:

MA131KEY

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SC8

Sistema(s) operacional(is):

Windows/Linux

Versões/Release:

12.1.5

Ponto de Entrada

Descrição:

O Ponto de Entrada MA131KEY ordena os arquivos antes de gerar a cotação. Deve ser utilizado sempre em conjunto com o Ponto de Entrada MA131QSC

Localização:

 Rotina de processamento da solicitações de compras que devem gerar cotação.

Eventos:

Ordena as Solicitações de Compras antes de gerar a Cotação.

Programa Fonte:

MATA131

Função:

A131Proces

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

 PARAMIXB

Array of recordes

Vetor contendo dados a serem ordenados.

X

 Retorno:
NomeTipoDescriçãoObrigatório
cRetCaracter String contendo a nova chave de ordenação. X

 

Exemplo:

#Include

 'Protheus.ch'

User Function MA131KEY()

Local cRet  :=  ''

Local cKey  :=  ParamIXB[1]

If 'C1_OK'  $  Upper(  cKey  )

    cRet  :=  'C1_FILIAL+C1_OK+C1_GRADE+C1_FORNECE+C1_LOJA+C1_PRODUTO+C1_DESCRI+C1_CC+C1_CONTA+C1_ITEMCTA+C1_CLVL+C1_FILENT'

Else

   cRet  :=  'C1_FILIAL+C1_GRADE+C1_FORNECE+C1_LOJA+C1_PRODUTO+C1_DESCRI+C1_CC+C1_CONTA+C1_ITEMCTA+C1_CLVL+C1_FILENT'

EndIf

 Return cRet