Histórico da Página

As ExecAuto de Projetos (PMSA200, PMSA201 e PMSA203) não estão preparadas para execução via MILE, portanto para sua utilização vi MILE é necessário a criação de uma UserFunction, aqual ira receber e tratar os dados do MILE e chamar as devidas ExecAutos do PMS.

Para realizar a importação dos dados de Projetos ou seja, as tabelas AF8, AFC ou AF9 utilizando o MILE, deve ser realizado o processo descrito abaixo.

Exemplo: Importação da Estrutura do Projeto (AFC) através do Canal A

Primeiramente é preciso criar uma UserFunction que irá receber os dados do MILE e fazer a chamada da ExecAuto, este caso da rotina PMSA201.

UserFunctionXXX(Interface, aInfos, aLayOut, aSaidas)

Veja que a UserFunction recebe quatro parâmetros onde:

• Interface - Lógico - .T. se está sendo executado com interface / .F. se está sendo executado sem interface
• aInfos    - Array - Vetor com informações adicionais como linha inicial e final lida, nome do arquivo etc.
• aLayOut   - Array - Informações das definições do layout.
• aSaidas   - Array - Estrutura do vetor sobre dados de saída

Estes dados terão que ser tratados dentro da UserFunction antes da chamada da ExecAuto para que sejam devidamente enviados ao processo automático. Nesta caso seguindo as condições dos parâmetros da rotina PMSA201.

PMSA201(nCallOpcx, aGetCpos, cNivTrf, , xAutoAFC)

Onde:

• nCallOpcx- Numérico - Opção da rotina a ser executada
• aGetCpos- Array - Informações da Estrutura do Projeto (AFC)
• cNivTrf- Caractere - Nível da Estrutura do Projeto (AGA)
• xAutoAFC- Array- Informações da Estrutura do Projeto (AFC)

Neste caso, para enviar o vetor do Canal A Master (AFC) como segundo parâmetro (aGetCpos), vamos precisar manipular o array de canais criado pelo MILE.

Exemplo da função

Neste exemplo o tratamento foi feito para importar a Estrutura do Projeto tabela AFC.

O MILE pode ser adaptado e customizado conforme as necessidades dos clientes. Para maiores detalhes, veja a documentação: MILE - Model Integrator Layout Engine

#INCLUDE "TOTVS.CH"

USER FUNCTION PMS201ML(Interface, aInfos, aLayOut, aSaidas)
/*
Interface - Lógico - .T. se está sendo executado com interface / .F. se está sendo executado sem interface
aInfos    - Array - Vetor com informações adicionais como linha inicial e final lida, nome do arquivo etc.
aLayOut   - Array - Informações das definições do layout.
aSaidas   - Array - Estrutura do vetor sobre dados de saída
*/
    Local aGetCPos	:= {}
    Local nX        := 0
         
        //Posiciona no projeto
        DbSelectArea("AF8")
        dbSetOrder(1)
        DbSeek(xFilial("AF8")+'0000000005' )
        //Separa os dados dos canais para serem enviados para a execauto
        For nX := 1 To Len(aSaidas[1][4][1])
            aAdd(aGetCPos ,{ aSaidas[1][4][1][nX][1], aSaidas[1][4][1][nX][2], .F. })
        Next nX
        //Carregamos os dados para a execauto
        MSExecAuto({|a,b,c,d,e| PMSA201(a,b,c,d,e)},3,aGetCpos,"002",,aGetCpos)     

Return .T.