Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Descrição:O ponto de entrada P144COL permite o usuario adicionar campos nas grids de resultados e documentos da rotina de geração de documentos do MRP.
Localização:

Funções gridResult e gridDocs do fonte PCPA144.prw

Eventos:

Permite o usuário adicionar colunas nas grids da rotina.

Programa Fonte:PCPA144.prw

Sintaxe:

P144COL( ) → aCabPers

Retorno:

Deve retornar um array com os campos que serão adicionados na grid.

Observações:

O array com as informações do campo deve estar no seguinte formato:

aCabPers[nPosCampo][1] Título
aCabPers[nPosCampo][2] Campo
aCabPers[nPosCampo][3] Picture
aCabPers[nPosCampo][4] Tamanho
aCabPers[nPosCampo][5] Decimal
aCabPers[nPosCampo][6] Validação
aCabPers[nPosCampo][7] Reservado
aCabPers[nPosCampo][8] Tipo
aCabPers[nPosCampo][9] Reservado

Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
#INCLUDE "PROTHEUS.CH"

User  User Function P144VLGDP144COL()
	Local cTicket     Local aCabPers := {}
    Local cGridSel:= PARAMIXB[1]
	Local lVld    := .F. 

	Help( ,, 'P144VLGD',, "Geração dos documento do ticket " + cTicket + " bloqueada!", 1, 0)	

Return lVld      Local aHeadSel:= PARAMIXB[2]

    If cGridSel == "gridResult"
        aAdd(aCabPers, {"Novo Campo",;            // [1] Título
                            "Z1_QUANT",;          // [2] Campo
                            "@E 99,999,999.999",; // [3] Picture
                            12,;                  // [4] Tamanho
                            3,;                   // [5] Decimal
                            "",;                  // [6] Validação
                            "û",;                 // [7] Reservado
                            "N",;                 // [8] Tipo
                            ""})                  // [9] Reservado
    ElseIf cGridSel == "gridDocs"
        aAdd(aCabPers, {"Novo Campo",;            // [1] Título
                        "Z1_QUANT",;           // [2] Campo
                            "@E 99,999,999.999",; // [3] Picture
                            12,;                  // [4] Tamanho
                            3,;                   // [5] Decimal
                            "",;                  // [6] Validação
                            "û",;                 // [7] Reservado
                            "N",;                 // [8] Tipo
                            ""})                  // [9] Reservado
    EndIf

Return aCabPers