Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PMSAJ7COLS - Manipulação das informações da tabela AJ7

Ponto-de-Entrada: PMSAJ7COLS - Manipulação das informações da tabela AJ7
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Espanhol
Descrição: 
Este ponto de entrada possibilita a manipulação dos campos da tabela AJ7 (Amarração Pedido de Compra x Projeto/Tarefa) ao clicar no botão de integração com SIGAPMS no cadastro de pedido de compra.
Programa Fonte 
PMSXFUNB.PRW
Sintaxe

PMSAJ7COLS - Manipulação das informações da tabela AJ7 ( [ cItemPC ], [ cNumSC ], [ cItemSC ], [ nQuantPC ], [ nVlrTotal ], [ aCabecalho ], [ aColunas ] ) --> aColunas

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cItemPC Caracter Item do pedido de compra
cNumSC Array of Record Numero da solicitação de compra.
cItemSC Array of Record Item da Solicitação de compra.
nQuantPC Array of Record Quantidade do item do pedido de compra
nVlrTotal Array of Record Valor total do item do pedido de compra
aCabecalho Array of Record Array aHeader contendo as características dos campos a serem apresentados na tabela AJ7
aColunas Array of Record Array aCols que contém os itens e valores da tela referente a tabela AJ7.
Retorno
    aColunas(array_of_record)
  • Array contendo os valores a serem mostrados na tela de amarração do pedido de compra com Projetos/tarefas (Tabela AJ7).
Exemplos 
USER FUNCTION PMSAJ7COLS()Local cItemPC		:=	PARAMIXB[1]Local cNumSC		:=	PARAMIXB[2]Local cItemSC		:=	PARAMIXB[3]Local nQuantPC		:=	PARAMIXB[4]Local nVlrTotal	:=	PARAMIXB[5]Local aCabecalho	:=	PARAMIXB[6]Local aColunas		:=	PARAMIXB[7]Local nPosProj		:=	aScan(aCabecalho,{|x| Alltrim(x[2]) == "AJ7_PROJET"})Local nPosVersao	:=	aScan(aCabecalho,{|x| Alltrim(x[2]) == "AJ7_REVISA"})Local nPosTaref	:=	aScan(aCabecalho,{|x| Alltrim(x[2]) == "AJ7_TAREFA"})Local nPosQuant	:=	aScan(aCabecalho,{|x| Alltrim(x[2]) == "AJ7_QUANT"})Local ny				:= 0If Len(aColunas)<> 2	aColunas[1][nPosProj] := '1'	aColunas[1][nPosVersao] := '0002'	aColunas[1][nPosTaref] := '01'	aColunas[1][nPosQuant] := nQuantPC/2		aADD(aColunas,Array(Len(aCabecalho)+1))		For ny := 1 to Len(aCabecalho)		If Trim(aCabecalho[ny][2]) == "AJ7_ITEM"			aColunas[2][ny] 	:= "02"		Else			aColunas[2][ny] := CriaVar(aCabecalho[ny][2])		EndIf		aColunas[2][Len(aCabecalho)+1] := .F.	Next ny		aColunas[2][nPosProj] := '2'	aColunas[2][nPosVersao] := '0002'	aColunas[2][nPosTaref] := '01'	aColunas[2][nPosQuant] := nQuantPC/2	aColunas[2][Len(aCabecalho)+1] := .F.EndifRETURN aColunas
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não