Histórico da Página

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

Este P.E é 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 :

Image Added

#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

// 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
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
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
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
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