Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Lucas Fagundes

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Lucas Fagundes

Gravado em

Chave

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

PCA200MD - Adicionar campos no model e na view

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):
NomeTipoDescriçãoDefaultObrigatórioReferencia
PARAMIXB[1]Caractere

Função def que está chamando o ponto de entrada

"MODEL" - Chamada a partir da montagem do model

"VIEW" - Chamada a partir da montagem da view




PARAMIXB[2]ObjectObejto struct do header

X
PARAMIXB[3]ObjectObjeto struct do componente

X
PARAMIXB[4]ObjectObjeto struct da grid de detalhes

X
PARAMIXB[5]ObjectContador da ordem do campos na estrutura da view


Idiomas:

Todos

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:O ponto de entrada PCA200MD permite ao usuário customizar os objetos view e model da rotina.
Localização:

Funções AltFldMdl e AltFldView do fonte PCP200.prw

Eventos:

Permite adicionar campos na estrutura dos objetos view e model da rotina.

Programa Fonte:PCPA200.prw

Sintaxe:

PCA200MD

Retorno:

Nil

Observações:

O parâmetro PARAMIXB[5] será enviado apenas quando o ponto de entrada for chamado a partir da montagem da view.

Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
User Function PCA200MD()

Local cOpcx     := ParamixB[1] //Model ou View
Local oStrMaster:= ParamixB[2] //Struct Header
Local oStrCmp   := ParamixB[3] //Struct Componente
Local oStrDet   := ParamixB[4] //Struct Detalhe
Local cOrdem    := Iif(cOpcx == "VIEW",ParamixB[5],"0") //Ordem, somente enviado para view

If cOpcx == "MODEL"    
    oStrDet:AddField("Titulo do Campo"          ,;	 // [01]  C   Titulo do campo  
                        "Tootip do Campo"       ,;   // [02]  C   ToolTip do campo 
                        "CNOME"                 ,;   // [03]  C   Id do Field
                        "C"                     ,;   // [04]  C   Tipo do campo
                        10                      ,;   // [05]  N   Tamanho do campo
                        0                       ,;   // [06]  N   Decimal do campo
                        NIL                     ,;   // [07]  B   Code-block de validação do campo
                        NIL                     ,;   // [08]  B   Code-block de validação When do campo
                        NIL                     ,;   // [09]  A   Lista de valores permitido do campo
                        .F.                     ,;   // [10]  L   Indica se o campo tem preenchimento obrigatório
                        NIL                     ,;   // [11]  B   Code-block de inicializacao do campo
                        NIL                     ,;   // [12]  L   Indica se trata-se de um campo chave
                        NIL                     ,;   // [13]  L   Indica se o campo pode receber valor em uma operação de update.
                        .T.)	                     // [14]  L   Indica se o campo é virtual
ElseIf cOpcx == "VIEW"
	cOrdem := Soma1(cOrdem)
	oStrDet:AddField("CNOME"			     	,;	// [01]  C   Nome do Campo
	                    cOrdem					,;	// [02]  C   Ordem
	                    "Titulo do Campo"	    ,;	// [03]  C   Titulo do campo    
	                    "Descricao do Campo"	,;	// [04]  C   Descricao do campo 
	                    NIL						,;	// [05]  A   Array com Help
	                    "C"						,;	// [06]  C   Tipo do campo
	                    "@S30"					,;	// [07]  C   Picture
	                    NIL						,;	// [08]  B   Bloco de Picture Var
	                    NIL						,;	// [09]  C   Consulta F3
	                    .F.						,;	// [10]  L   Indica se o campo é alteravel
	                    NIL						,;	// [11]  C   Pasta do campo
	                    NIL						,;	// [12]  C   Agrupamento do campo
	                    NIL						,;	// [13]  A   Lista de valores permitido do campo (Combo)
	                    NIL						,;	// [14]  N   Tamanho maximo da maior opção do combo
	                    NIL						,;	// [15]  C   Inicializador de Browse
	                    .T.						,;	// [16]  L   Indica se o campo é virtual
	                    NIL						,;	// [17]  C   Picture Variavel
	                    NIL)                       	// [18]  L   Indica pulo de linha após o campo
EndIf

Return Nil