Á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 está localizado na rotina de Pedido Máquinas JD (VEIVM190) e possibilita manipular as Cores/Status referente a legendas personalizadas dos registros de Pedidos de Maquinas (VQ0_STATUS). Este ponto de entrada trabalha em conjunto com os pontos de entrada VM190COR e VM190LEG.

Localização:

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

Eventos:

If lVQ0_STATUS

// Ponto de Entrada utilizado para manipular as cores do Status do Pedido ( VQ0_STATUS )

If ExistBlock("VM190STA")

aCoresVQ0 := ExecBlock("VM190STA",.f.,.f.)

Else // Cores Padrao - VQ0_STATUS

aAdd(aCoresVQ0,{ "1" , LoadBitmap( GetResources() , "BR_VERDE" ) , "BR_VERDE" }) // Confirmado

aAdd(aCoresVQ0,{ "2" , LoadBitmap( GetResources() , "BR_AZUL" ) , "BR_AZUL" }) // Faturado

aAdd(aCoresVQ0,{ "3" , LoadBitmap( GetResources() , "BR_VERMELHO" ) , "BR_VERMELHO" }) // Cancelado

EndIf

EndIf

aAdd(aCoresVQ0,{ " " , LoadBitmap( GetResources() , "BR_BRANCO" ) , "BR_BRANCO" }) // Status não definido

Programa Fonte:

VEIVM190.PRW

Função:

VEIVM190()

Retorno:

NomeTipoDescrição
aCorCustVetorvetor com a definição das Cores/Status customizados

{ VQ0_STATUS , ObjetoCor , NomeCor }

Exemplo:

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

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

// utilizado para manipular as Cores/Status dos Pedidos //

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

User Function VM190STA()

Local aCorCust := {}

// { VQ0_STATUS , ObjetoCor , NomeCor }

aAdd(aCorCust,{ "1" , LoadBitmap( GetResources() , "BR_AMARELO" ) , "BR_AMARELO" }) // Confirmado

aAdd(aCorCust,{ "2" , LoadBitmap( GetResources() , "BR_PRETO" ) , "BR_PRETO" }) // Faturado

aAdd(aCorCust,{ "3" , LoadBitmap( GetResources() , "BR_LARANJA" ) , "BR_LARANJA" }) // Cancelado

Return aClone(aCorCust)