Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Req Pecas (OFIOM020) ao ser executado o menu Outras Ações. A mesma permite a inclusão de customização da legenda. Trabalha em conjunto com o Ponto de Entrada OM020COR.

Localização:

Atualizações \ Mov Oficina \ Req Pecas (OFIOM020)

Eventos:

/*

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±

±±³Fun‡…o ³OM020LEG ³ Autor ³ Fabio ³ Data ³ 16/02/06 ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±

±±³Descri‡…o ³ Cria uma janela contendo a legenda da mBrowse ³±±

±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±

±±³ Uso ³ofiom020 ³±±

±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Function OM020LEG(nReg)


Local uRetorno := .t.

Local aLegenda := {{ 'BR_VERDE' , STR0089 },; // Aberta

{ 'BR_AZUL' , STR0090 },; // Liberada

{ 'BR_VERMELHO', STR0091 },; // Fechado

{ 'BR_PRETO' , STR0092 }} // Cancelado


// Pontos de Entrada para incluir tipos para legenda

If (ExistBlock("OM020CLG"))

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

EndIf


If nReg == NIL // Chamada direta da função onde não passa, via menu Recno é passado

uRetorno := {}


AADD(uRetorno, { 'VO1->VO1_STATUS == "A"', aLegenda[1,1], aLegenda[1,2] }) // Aberta

AADD(uRetorno, { 'VO1->VO1_STATUS == "D"', aLegenda[2,1], aLegenda[2,2] }) // Liberada

AADD(uRetorno, { 'VO1->VO1_STATUS == "F"', aLegenda[3,1], aLegenda[3,2] }) // Fechado

AADD(uRetorno, { 'VO1->VO1_STATUS == "C"', aLegenda[4,1], aLegenda[4,2] }) // Cancelado


If (ExistBlock("OM020COR"))

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

EndIf

Else

BrwLegenda(cCadastro, STR0093, aLegenda) //STR0088

EndIf


Return uRetorno

Programa Fonte:

OFIOM020.PRW

Função:

OM020LEG()

Parâmetros:
NomeTipoDescrição

aLeg

Vetor

Vetor que compõe as legendas padrão do browse da rotina.

Retorno:
NomeTipoDescrição

aLeg

Vetor

Vetor que compõe as legendas atualizadas pelo ponto de entrada do browse da rotina.

Exemplo:

Include totvs.ch

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | OM020CLG | Autor | MIL | Data | 10/07/19 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Customização da legenda na rotina Req Pecas (OFIOM020) |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function OM020CLG()

Local aLeg := ParamIxb[01] // Parâmetro 1 - Legendas


aadd(aLeg, {'BR_MARROM', "TESTE DE LEGENDA"})

Return aLeg