Histórico da Página

...

Descrição:

O ponto de entrada P144ITM permite o usuário manipular os dados que serão carregados na grid de resultados e documentos.

Localização:

Funções AtuResulta e AtuDocs do fonte PCPA144.prw

Eventos:

Permite manipular os dados da grid, inserido em valores em colunas personalizadas.

Programa Fonte:

PCPA144.prw

Sintaxe:

P144ITM( ) → aResults

Retorno:

Deve retornar um array com os valores que serão inseridos na grid.

Observações:

O array que será retornado para exibir no grid deve seguir a estrutura apresentada a seguir:

Grid Resultados (Sem Multi Empresa)

Grid Resultados (Com Multi Empresa)

Grid Documentos (Sem Multi Empresa)

Grid Documentos (Com Multi Empresa)

Posição	Campo
1	Período
2	Estoque
3	Entradas
4	Saídas
5	Saída Estrut.
6	Saldo Final
7	Necessidade
8 → n-1	Campos Personalizados
n	Cor da Linha na Grid

Considerar n o tamanho do array

Posição	Campo
1	Período
2	Estoque
3	Entradas
4	Saídas
5	Saída Estrut.
6	Transf. Entrada
7	Transf. Saída
8	Saldo Final
9	Necessidade
10 → n-1	Campos Personalizados
n	Cor da Linha na Grid

Considerar n o tamanho do array

Posição	Campo
1	Número
2	Necessidade Original
3	Estoque
4	Baixa
5	Empenho
6	Substituição
7	Quantidade
8	Armazém
9	Entrega
10	Início
11	Tipo Pai
12	Documento Pai
13	Produto Pai
14	TRT
15	Revisão
16	Roteiro
17	Operação
18	Tp. Doc. ERP
19	Documento ERP
20	Versão da Produção
21 → n-5	Campos Personalizados
n-4	Chave
n-3	Chave Subst.
n-2	Seq. Quebra
n-1	Cor da Linha na Grid
n	Nil

Considerar n o tamanho do array

Posição	Campo
1	Filial
2	Número
3	Necessidade Original
4	Estoque
5	Baixa
6	Empenho
7	Substituição
8	Transf. Entrada
9	Transf. Saída
10	Quantidade
11	Armazém
12	Entrega
13	Início
14	Tipo Pai
15	Documento Pai
16	Produto Pai
17	TRT
18	Revisão
19	Roteiro
20	Operação
21	Tp. Doc. ERP
22	Documento ERP
23	Versão da Produção
24 → n-5	Campos Personalizados
n-4	Chave
n-3	Chave Subst.
n-2	Seq. Quebra
n-1	Cor da Linha na Grid
n	Nil

Considerar n o tamanho do array

Para acessar a posição do registro sendo manipulado no momento da chamada deve ser utilizado o parâmetro PARAMIXB[5] ou o parâmetro PARAMIXB[6] caso maior que 0.

O parâmetro PARAMIXB[6] será maior que 0 quando houver múltiplos registros para o mesmo período na tabela de resultados.

Para a manipulação de dados em colunas personalizadas, deve primeiro ser adicionada a coluna via ponto de entrada P144COL.

Bloco de código

language	c#
firstline	1
title	Exemplo
linenumbers	true

#INCLUDE "PROTHEUS.CH"  

User Function P144COLP144ITM()
    Local aCabPers := {}
    Local cGridSel:= PARAMIXB[1]
    Local cTicket aHeadSel:= PARAMIXB[2]

    IfLocal cGridSelcProdut == "gridResult"
        aAdd(aCabPers, {"Novo Campo",;            // [1] Título
                            "Z1_QUANT",;          // [2] Campo
                            "@E 99,999,999.999",; // [3] Picture:= PARAMIXB[3]
    Local                        12,;                  // [4] TamanhoaResults:= PARAMIXB[4]
    Local nIndRes                       3,;                   // := PARAMIXB[5] Decimal
    Local nPos                       "",;                  // := PARAMIXB[6] Validação
    Local lME                       "û",;                 // := PARAMIXB[7] Reservado
    Local nIndex  := Iif(nPos >                   "N",;                 // [8] Tipo
                            ""})                  // [9] Reservado0, nPos, nIndRes)
    
    ElseIfIf cGridSel == "gridDocsAtuResulta"
        aAdd(aCabPers, {"Novo Campo",;            // [1] Título
                        	"Z1_QUANT",;          // [2] CampoaResults[nIndex][len(aResults[nIndex])-1] := aResults[nIndex][3] * 2
    ElseIf                        "@E 99,999,999.999",; // [3] PicturecGridSel == "AtuDocs"
                            12,;                  // [4] Tamanho
                            3,;                   // [5] Decimal
                            "",;                  // [6] Validação
                            "û",;                 // [7] Reservado
                            "N",;                 // [8] Tipo
                            ""})                  // [9] ReservadoaResults[nIndex][len(aResults[nIndex])-5] := aResults[nIndex][Iif(lME, 4, 3)] - aResults[nIndex][Iif(lME, 3, 2)]
    EndIf

Return aCabPersaResults

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave