PMSEXEEV - Resultado do Planejamento da Execução do Projeto

Este ponto de entrada permite visualizar o resultado do plano de execução de projetos (SC's, Empenhos, OP's e Contrato de Parceria).

É chamado após a atualização dos arquivos de SC's, OP's, Empenhos e Contrato de Parceria na rotina de gravação do Planejamento da Execução de Projeto.

O primeiro vetor de cada array contém os títulos dos campos referente ao array.

Exemplo:

#INCLUDE "PROTHEUS.CH"
/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma PMSEXEEV ºAutor ³Microsiga º Data ³ 26/02/15 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ P.E apos a atualizacao dos arquivos de SC's,OP's,CP's e empenhos º±±
±±º ³ chamado no final da rotina de execucao do Planejamento de Execucao do Projeto º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ AP º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

User Function PMSEXEEV()
Local cCodUsr := PARAMIXB[1]
Local cProjeto := PARAMIXB[2]
Local aProjOP := aClone(PARAMIXB[3]) //Projeto x Ordem de Produção
Local aProjSC := aClone(PARAMIXB[4]) //Projeto x Solicitação de Compras
Local aEmpenhos := aClone(PARAMIXB[5]) //Empenhos do Projeto
Local aProjCP := aClone(PARAMIXB[6]) //Projeto x Contrato de Parceria
Local nI := 0 // contador

// Variaveis comum a todos os array's
Local cTarefa := ""
Local cProduto := ""
Local cQuant := ""

//Variaveis array Projeto x Ordem de Produção
Local cNumOP := ""
Local cItemOP := ""
Local cSeqOP := ""

//Variaveis array Projeto x Solicitação de Compras
Local cNumSC := ""
Local cItemSC := ""

//Variaveis array Empenhos do Projeto
Local cLocal := ""
Local cQtdEmp := ""
Local cQtdEmp2 := ""

//Variaveis array Projeto x Contrato de Parceria
Local cNumCP := ""
Local cItemCP := ""

// Visualiza as OP's geradas pelo Planejamento de Execução do Projeto
For nI:=1 To Len(aProjOP)
If nI:=1
// Títulos dos campos do array
Else
// OP's geradas
cNumOP := aProjOP[nI ][1]
cItemOP := aProjOP[nI ][2]
cSeqOP := aProjOP[nI ][3]
cTarefa := aProjOP[nI ][4]
cProduto := aProjOP[nI ][5]
cQuant := aProjOP[nI ][6]

//Complementar o código

Endif
Next

// Visualiza as SC's geradas pelo Planejamento de Execução do Projeto
For nI:=1 To Len(aProjSC)
If nI:=1
// Títulos dos campos do array
Else
// SC's geradas
cNumSC := aProjSC[nI ][1]
cItemSC := aProjSC[nI ][2]
cTarefa := aProjSC[nI ][3]
cQuant := aProjSC[nI ][4]

//Complementar o código

Endif
Next

// Visualiza os Empenhos gerados pelo Planejamento de Execução do Projeto
For nI:=1 To Len(aEmpenhos)
If nI:=1
// Títulos dos campos do array
Else
// Quantidades empenhas por produto
cProduto := aEmpenhos[nI ][1]
cLocal := aEmpenhos[nI ][2]
cTarefa := aEmpenhos[nI ][3]
cQtdEmp := aEmpenhos[nI ][4]
cQtdEmp2 := aEmpenhos[nI ][5]

//Complementar o código

Endif
Next

// Visualiza os CP's(Contrato de Parceria) gerados pelo Planejamento de Execução do Projeto
For nI:=1 To Len(aProjCP)
If nI:=1
// Títulos dos campos do array
Else
// CP's gerados
cProduto := aProjCP[nI ][1]
cNumCP := aProjCP[nI ][1]
cItemCP := aProjCP[nI ][2]
cQuant := aProjCP[nI ][4]

//Complementar o código
Endif
Next

Return

Português (Brasil)

Microsiga_Protheus11

Todos

Todas

PARAMIXB[1] - Código do usuário (login Protheus)
PARAMIXB[2] - Código do projeto
PARAMIXB[3] - Array OP's geradas
PARAMIXB[4] - Array SC's geradas
PARAMIXB[5] - Array quantidades empenhadas por produto
PARAMIXB[6] - Array Contrato de Parceria

Estrutura dos array's

PARAMIXB[3] >> Projeto x Ordem de Produção
PARAMIXB[3][1][1] - Número da OP
PARAMIXB[3][1][2] - Item da OP
PARAMIXB[3][1][3] - Sequência da OP
PARAMIXB[3][1][4] - Tarefa
PARAMIXB[3][1][5] - Código do produto + Descrição do produto
PARAMIXB[3][1][6] - Quantidade

PARAMIXB[4] >> Projeto x Solicitação de Compras
PARAMIXB[4][1][1] - Número da SC
PARAMIXB[4][1][2] - Item da SC
PARAMIXB[4][1][3] - Tarefa
PARAMIXB[4][1][4] - Quantidade

PARAMIXB[5] >> Empenhos do Projeto
PARAMIXB[5][1][1] - Código do produto + Descrição do produto
PARAMIXB[5][1][2] - Local
PARAMIXB[5][1][3] - Tarefa
PARAMIXB[5][1][4] - Quantidade empenhada
PARAMIXB[5][1][5] - Quantidade empenhada 2a unid. medida

PARAMIXB[6] >> Projeto x Contrato de Parceria
PARAMIXB[6][1][1] - Código do produto + Descrição do produto
PARAMIXB[6][1][2] - Número do contrato de parceria
PARAMIXB[6][1][3] - Item do contrato de parceria
PARAMIXB[6][1][4] - Quantidade

PMSA220.PRW