Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada está localizado na rotina de Pedido Máquinas (VEIVM190) e é utilizado para manipular o conteúdo da tela de legenda da rotina Pedido Máquinas JD (VEIVM190). Este ponto de entrada trabalha em conjunto com os pontos de entrada VM190COR e VM190STA.

Localização:

Atualizações \ Máquinas JD \ Pedido Máquinas JD (VEIVM190)

Eventos:

/*/{Protheus.doc} VVM1900031_LegendaPedidos

Legenda dos Pedidos - VQ0_STATUS

@author Andre Luis Almeida

@since 12/07/2018

/*/

Static Function VVM1900031_LegendaPedidos()

Local aLegenda := {}

Local nCntFor := 0

For nCntFor := 1 to len(aCoresVQ0)

aAdd(aLegenda,{ aCoresVQ0[nCntFor,3] , IIf(aCoresVQ0[nCntFor,1]<>" ",X3CBOXDESC("VQ0_STATUS",aCoresVQ0[nCntFor,1]),"Status não definido") })

Next

If ExistBlock("VM190LEG")

aLegenda := ExecBlock("VM190LEG",.f.,.f.,{ aLegenda })

EndIf

BrwLegenda(STR0042,STR0001,aLegenda) // Legenda / Pedidos de Maquinas

Return

Programa Fonte:

VEIVM190.PRW

Função:

VVM1900031_LegendaPedidos()

Parâmetros:
NomeTipoDescrição
aLegendaVetorVetor contendo as legendas

Retorno:

NomeTipoDescrição
aLegendaVetor

Vetor contendo as legendas

Exemplo:

//////////////////////////////////////////////////////////////////

// Ponto de Entrada na rotina de Pedidos de Maquinas (VEIVM190) //

// utilizado para manipular a legenda da grid dos Pedidos //

//////////////////////////////////////////////////////////////////

User Function VM190LEG()

Local aAuxLeg := ParamIxb[01]

aAdd(aAuxLeg,{ "BR_PINK" , "Data ORSD ( menos de 43 dias )" })

aAdd(aAuxLeg,{ "BR_LARANJA" , "Data ORSD ( de 43 ate 56 dias )" })

aAdd(aAuxLeg,{ "BR_CINZA" , "Data ORSD ( acima de 56 dias )" })

Return aClone(aAuxLeg)