Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:SIGAEST - Estoque/Custos
Função:MATA330 - Recálculo do Custo Médio
Ticket:9713466
Issue:DMANMAT01-29007
Descrição:

O Ponto de Entrada MA330SFI permite determinar de forma automática quais filiais serão consideradas no processamento da rotina Recálculo do Custo Médio (MATA330) quando selecionado o pergunte "Calculo de custos por ? = Selec. Filiais", sem a necessidade de seleção manual.

Eventos:

A chamada do Ponto de Entrada MA330SFI ocorre ao confirmar o processamento da rotina.

Programa Fonte:

MATA330.PRX

Função:MATA330 - MA330FCalc
Parâmetros:

Parâmetro

Tipo

Descrição

Obrigatório

PARAMIXB[1]ArrayArray contendo todas as filiais disponíveis para processamento.Não
PARAMIXB[2]ArrayVariável lógica que determina se a tela de seleção das filiais será apresentada após a confirmação de execução da rotina. Quando .T., a tela será apresentada.  Não
Retorno:Deverá ser retornado um array de duas posições, onde a primeira deve ser um array com as filiais de processamento (mantendo a estrutura do PARAMIXB[1]), e a segunda uma variável lógica determinando se a tela de seleção das filiais deverá ser apresentada antes do início do processamento.
Exemplo:

#Include "Protheus.ch"

User function MA330SFI

Local aFilsCalc:= PARAMIXB[1]
Local lMostraTela:= PARAMIXB[2]
Local aMA330SFI:= Array(2)
Local nX

//Alterar o conteúdo da primeira posição do array de cada filial que deseja fazer a seleção para .T.
For nX := 1 to Len(aFilsCalc)
   If AllTrim(aFilsCalc[nX][2]) $ "D MG 01|D RJ 02"
      aFilsCalc[nX][1]:= .T.
   EndIf
Next

//Adicionar o array aFilsCalc na primeira posição do array aMA330SFI
aMA330SFI[1]:= aFilsCalc

//Processar a rotina apresentando a tela de seleção das filiais
aMA330SFI[2]:= .T.

Return aMA330SFI