Histórico da Página

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.

PMSXFUNB.PRW

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

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).

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