Salve salve....
Ponto de entrada PCA200MD- ( Programa de manutenção de estruturas (SG1) )
PCPA200-PCA200MD- Adicionar campos na tela
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} PCA200MD
PE MVC
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} PCA200MD
Adicionar campos na tela
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function PCA200MD()
Local cType := PARAMIXB[01] as character
Local oStrMaster := PARAMIXB[02] as object
Local oStrCmp := PARAMIXB[03] as object
Local oStrDet := PARAMIXB[04] as object
Local cOrdem := '' as character
Begin Sequence
If Len(PARAMIXB) >= 5
cOrdem := PARAMIXB[05]
Endif
// If cType == 'MODEL'
// //Campo para guardar a sequência original do componente (G1_TRT). Utilizado em validações.
// oStrDet:AddField(STR0045 ,; // [01] C Titulo do campo //"Seq. original"
// STR0045 ,; // [02] C ToolTip do campo //"Seq. original"
// "CSEQORIG" ,; // [03] C Id do Field
// "C" ,; // [04] C Tipo do campo
// GetSx3Cache("G1_TRT","X3_TAMANHO") ,; // [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 cType == 'VIEW'
// cOrdem := Soma1(cOrdem)
// oStrCmp:AddField("CREVCOMP" ,; // [01] C Nome do Campo
// cOrdem ,; // [02] C Ordem
// STR0015 ,; // [03] C Titulo do campo //"Revisão"
// STR0015 ,; // [04] C Descricao do campo //"Revisão"
// NIL ,; // [05] A Array com Help
// "C" ,; // [06] C Tipo do campo
// PesqPict('SB1','B1_REVATU') ,; // [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
End Sequence
Return( Nil )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima