Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PMSAJ7COLS - Manipulação das informações da tabela AJ7
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cItemPCCaracterItem do pedido de compra
cNumSCArray of RecordNumero da solicitação de compra.
cItemSCArray of RecordItem da Solicitação de compra.
nQuantPCArray of RecordQuantidade do item do pedido de compra
nVlrTotalArray of RecordValor total do item do pedido de compra
aCabecalhoArray of RecordArray aHeader contendo as características dos campos a serem apresentados na tabela AJ7
aColunasArray of RecordArray 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
NomeTipoEscopoPode Alterardescrição
Array of RecordGlobalNão