PEST07664 - M310FILIAL: Permite definição de filiais de origem e destino na transferência.

Produto:

Protheus.

Ocorrência:

M310FILIAL: Permite definição de filiais de origem e destino na transferência.

Passo a passo:

Localização: Function A310TreeCM() - Função utilizada para montar os objetos TREE executados pela rotina de  transferência de filiais MATA310.

Em que ponto: Executada no inicio da função A310TreeCM(); Neste momento, o usuário poderá determinar quais a filiais de Origem e quais as filiais de Destino deverão ser exibidas na tela principal de transferência. Neste ponto, será passado como parâmetro o nome do usuário e as filiais; Através do uso deste ponto de entrada, será possível estabelecer quais as filiais o usuário terá acesso. É esperado de retorno neste ponto de entrada, um array contendo duas dimensões, onde a 1º dimensão irá conter as filias origem e a 2º dimensão possuirá as filias  destino.

Programa fonte: MATA310.PRW

Sintaxe: M310FILIAL - Permite definição de filiais de origem e destino na transferência ( < PARAMIXB> ) --> aFilPE

Parâmetro:

Retorno:

aFilPE(vetor)

• Neste pondo de entrada é esperado um Array de retorno com 2 dimensões, com as seguintes definições:
  
  aFilPE[1] // Filias de origem.
  aFilPE[2] // Filias de destino.

Exemplo:

User Function M310FILIAL()Local cUserLog := ParamIxb[1]      // Recebimento do Parametro 'Usuario' do ponto.Local aFilsAtu := ParamIxb[2]      // Recebimento do Parametro 'Filiais' do ponto.Local cFilOri  := ''               // Filias de origem.Local cFilDes  := ''               // Filias de destino.Local aFilPE   := {}               // Array de retorno.If 'JOAO' $ cUserLog     cFilOri := '01'               // Usuário com acesso filial origem  01.     cFilDes := '02,03,04'         // Usuário com acesso as filiais destino 02 03 04.ElseIf 'MARIA' $ cUserLog     cFilOri := '01,02'            // Usuário com acesso as filiais origem 01 02.     cFilDes := '03'               // Usuário com acesso somente a filial destino 03.EndIfAadd(aFilPE,cFilOri)               // Inserindo filias de origem  na 1 dimensão do array.Aadd(aFilPE,cFilDes)               // Inserindo filias de destino na 2 dimensão do array.Return(aFilPE)