Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 3

changes.mady.by.user Rafael de Castro Almeida

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Marcos Vinicius Ferreira

Gravado em

Chave

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

...

Portuguese

Pagetitle
CN120GTR - Campos Customizados na Inclusão da Medição do Contrato
CN120GTR - Campos Customizados na Inclusão da Medição do Contrato

Ponto-de-Entrada: CN120GTR - Campos Customizados na Inclusão da Medição do Contrato


 

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) , Português (Portugal) , Espanhol , Inglês
 


Descrição:
Este Ponto de Entrada está localizado na inclusão da medição do contrato, com a finalidade de atribuir o conteúdo salvo nos campos customizados do cabeçalho da Planilha (tabela CNA) durante a seleção dos campos da tabela CNA na inclusão da medição do contrato.
Programa Fonte
cnta120.prw
Sintaxe

CN120GTR - Campos Customizados na Inclusão da Medição do Contrato ( [ ExpL1 ] )

Parâmetros:

 

 



Nome
  


Tipo
  


Descrição
 
 


Default
  


Obrigatório
 
 


Referência
  


ExpL1
  


Lógico
  


Verifica se o tipo do contrato é Fixo ou não.
  


.T. - Contrato tipo Fixo; .F. - Contrato tipo Flexível
       
 








Retorno
    ()
Observações

Para atribuição dos campos customizados, deve ser acrescentado oTRBCNA->CNA_<NOME CUSTOMIZADO> := TRB->CNA_<NOME CUSTOMIZADO>

Exemplos
User Function CN120GTR()Local lExpA:= Paramixb[1]If lExpA   TRBCNA->CNA_CUSTOM:= TRB->CNA_CUSTOM EndIf Return
Variáveis

 

 



Nome
 
 


Tipo
 
 


Escopo
  


Pode Alterar
  


descrição
     





Array of Record
  


Global
  


Não
 




Bloco de código
 
language
  
delphi
Bloco de código
themeMidnight
languagefirstlinedelphi1
titleExemplofirstline1
linenumberstrue
User Function CN120GTR()
 
	Local lExpA:= Paramixb[1]
 
	If lExpA   
		TRBCNA->CNA_CUSTOM := TRB->CNA_CUSTOM 
	EndIf 
 
Return