LC035TEL Ponto de entrada para criação dos campos na tela da medição.

01. DADOS GERAIS

Produto:	TOTVS Prestadores de Serviços Terceirização Rental by IT Up
Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	TOTVS Backoffice (Linha Protheus) - Rental by IT UP Business TOTVS Prestadores de Serviços Terceirização
Função:
País:	Brasil
Ticket:	N/A
Requisito/Story/Issue (informe o requisito relacionado) :	N/A

02. DESCRIÇÃO

Ponto de entrada na rotina de medição, para facultar a inclusão de um novo campo na tabela de medições o retorno da função é um array com o nome do campo e o seu conteúdo para gravação.

Existe uma limitação de até 20 campos novos.

Ponto de Entrada - LC13PRV

Descrição:	Ponto de entrada para criação dos campos na tela da medição.
Localização:	Manipulação dos dados das informações antes da apresentação da tela de medição, depois de carregado os dados em variáveis de memória.
Programa Fonte:	LOCA048
Parâmetros:	Parâmetros de entrada: Nil
Retorno:	Retorno: Nil
Observações:

03. DEMAIS INFORMAÇÕES

EXEMPLO LOCM001A

#Include "protheus.ch"

// Ponto de entrada na rotina de medição, para facultar a inclusão de um novo campo na tabela de medições
// o retorno da função é um array com o nome do campo e o seu conteúdo para gravação.
// Existe uma limitação de até 20 campos novos.

user function LC035TEL
Local _aGravaNew 
Local _nOpc
Local _oPanel3

    _oPanel3    := ParamIxb[1]
    _nOpc       := ParamIxb[2]
    _aGravaNew  := ParamIxb[3]

    // Para cada novo campo informar o inicializador dele no array

    If _nOpc == 3
        &(_aGravaNew[1,3]) := space(20)
    else
        &(_aGravaNew[1,3]) := FPN->FPN_XTESTE // Campo exemplo
    EndIF

    // se houver outro campo criar: _aGravaNew[2,3] := 0
    // se houver outro campo criar: _aGravaNew[3,3] := ctod("")
    // se houver outro campo criar: _aGravaNew[4,3] := .T.
    // limite de 20 campos novos           ...[20,3] 

    @ 073 ,195 say "Campo 1" size 050,8 of _oPanel3 pixel
	@ 070 ,240 MsGet _aGravaNew[1,1] Var &(_aGravaNew[1,3]) picture("@!") size 050,8 of _oPanel3 pixel //When If(_nOpc==3, .T., .F.)

    // Se houver outro campo criar:
    // @ 070 ,240 MsGet _aGravaNew[2,1] Var _aGravaNew[2,3] picture("@!") size 050,8 of _oPanel3 pixel When If(_nOpc==3, .T., .F.)
    // @ 070 ,240 MsGet _aGravaNew[3,1] Var _aGravaNew[3,3] picture("@!") size 050,8 of _oPanel3 pixel When If(_nOpc==3, .T., .F.)
    // limite de 20 campos novos ...[20,3] 

    _aGravaNew[1,2] := 1
    // Se houver outro campo criar:
    // _aGravaNew[2,2]  := 1 (um é fixo)
    // _aGravaNew[3,2]  := 1 (um é fixo)
    //     ...   [20,2] := 1 (limite de 20 campos novos)   

Return _aGravaNew

04. ASSUNTOS RELACIONADOS

Árvore de páginas