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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas