Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (flora.rocha), última alteração por admin em 23 jun, 2012

Ponto-de-Entrada: VA021LEG - Customização da legenda do mBrowse
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Customiza a legenda do mBrowse
Eventos

 

Function VEIXA021()
Private cCadastro := STR0001 // Saida de Veiculos por Venda
Private aRotina   := MenuDef()
Private aCores    :=   { {'VPN->VPN_STATUS == "A"','BR_VERDE' },; // Valida
              {'VPN->VPN_STATUS == "P"','BR_AMARELO' },;// Cancelada
              {'VPN->VPN_STATUS == "F"','BR_PRETO' },;// Devolvida
              {'VPN->VPN_STATUS == "C"','BR_VERMELHO' }}
Private cSitVei := "0" // <-- COMPATIBILIDADE COM O SXB - Cons. V11
Private cBrwCond := 'VPN->VPN_OPEMOV=="0"' // Condicao do Browse, validar ao Incluir/Alterar/Excluir
//
If ( ExistBlock("VA021LEG") )     
 aCoresUsr := ExecBlock("VA021LEG",.F.,.F.,{aCores})
 If ( ValType(aCoresUsr) == "A" )
    aCores := aClone(aCoresUsr)
 EndIf
EndIf
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Endereca a funcao de BROWSE                                  ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("VPN")
dbSetOrder(1)
//
FilBrowse('VPN',{},'VPN->VPN_OPEMOV=="0"')
mBrowse( 6, 1,22,75,"VPN",,,,,,aCores)
dbClearFilter()
//
Return
Programa Fonte 
veixa021
Sintaxe

VA021LEG - Customização da legenda do mBrowse ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não