Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Descrição
  2. Parâmetros
  3. Programa Fonte
    1. Exemplo
  4. Exemplo da chamada

01. Descrição

Ponto de Entrada para alterar o array de campos alteráveis da tela de Quilometragem do Veículo. 

Este ponto de entrada é executado na função TMSA350Km durante a gravação das operações de transporte.

02. Parâmetros


NomeTipoDescriçãoDefaultObrigatórioReferência
PARAMIXB[1]ArrayArray simples contendo o nome dos campos que poderão ser alteradosExemplo: { "DUV_ODOSAI", "DUV_ODOSR1", "DUV_ODOSR2" }x
PARAMIXB[2]LógicoVariável lógica indicando se está ocorrendo a Saída do Veículo.T.x

03. Programa Fonte

TM350KMA.PRW

Exemplo:


TM350KMA
#INCLUDE "PROTHEUS.CH"


//--------------------------------------------------
/*/{Protheus.doc} TM350KMA()

Modifica o array de campos alteráveis da tela Quilometragem do Veículo.

@since  02/05/2023
@version 1.0
/*/
//---------------------------------------------------

User Function TM350KMA()

Local aAlter	:= PARAMIXB[1]
Local lSaida	:= PARAMIXB[2]

If lSaida//Validações Específicas do Usuário
	AAdd( aAlter, "DUV_XCMPUS" )
EndIf

Return aAlter


04. Exemplo da chamada

... 

aRet := ExecBlock( 'TM350KMA', .F., .F., { aClone(aAlter), lSaida } )

...