VM011LEG - Efetua alteração na legenda

O ponto de entrada VM011LEG está localizado na rotina de Atendimento de Veículo, para que possa ser efetuada alterações na legenda e nas cores do Browse.

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Funcao    ³ LEGEN011     ³ Autor ³ ANDRE             ³ Data ³ 08/03/06 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descricao ³ Legenda do browse                                          ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/
Function LEGEN011()
Local nTam := len(cCadastro)
Local aRecebe := {}
Local aLegenda := {{'lbok_ocean'     ,STR0217},; //Em Aberto com Veiculo ja Vendido
{'BR_VERDE'       ,STR0216},; //Atendimento em Aberto
{'BR_PRETO'       ,STR0218},; //Atendimento Finalizado
{'BR_AMARELO'     ,STR0220},; //Pendente de Aprovacao
{'BR_LARANJA'     ,STR0221},; //Atendimento Reprovado
{'BR_BRANCO'      ,STR0222},;//Pre-Aprovado
{'BR_AZUL'        ,STR0223},; //Aprovado
{'BR_VERMELHO'    ,STR0224}} //Atendimento Cancelado

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Ponto de entrada para inclusão de nova legenda              ³
//³Rafael Goncalves - 30*03*10 - FNC 6754 - A Realera          ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ( ExistBlock("VM011LEG") )   
 aRecebe := ExecBlock("VM011LEG",.F.,.F.,{aLegenda,"L"})
 If ( ValType(aRecebe) == "A" )
  aLegenda := aClone(aRecebe)
 EndIf
EndIf

If at("[",cCadastro) > 2
 nTam := at("[",cCadastro)-1
EndIf
BrwLegenda(substr(cCadastro,1,nTam),STR0225 ,aLegenda) //Legenda

Return

VEIVM011

VM011LEG - Efetua alteração na legenda ( < aLegenda > , < L> , [ ] ) --> aRetorno

aRetorno(array_of_record)
• Array contendo as informações novas legenda ou cores do browse.

/*ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Funcao    ³ VM011LEG     ³ Autor ³ RAFAEL GONCALVES  ³ Data ³ 30/03/06 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descricao ³ Alteracao da Legenda/Cor do browse                         ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß*/User Function VM011LEG()Local aRetorno := {}if ParamIXB == Nil    MsgInfo("Ponto de entrada VM011LEG, não foi executado corretamente.","Atencao") ReturnElse // Parametros //(dPDataMovto,cPChassi,xOpc,lBrowse,lPTelaDig) aRetorno  := ParamIxb[01]  // Array com valores cMomento    := ParamIxb[02]  // Momento da chamadaEndIf    If cMomento == "C" //MANUTENCAO NAS CORES aRetorno := {{'VV9->VV9_STATUS == "A" .AND. VM011VEIVD()','BR_VERDE'},;  {'VV9->VV9_STATUS == "A"','BR_VERDE'},;  {'VV9->VV9_STATUS == "F"','BR_VERDE'},;  {'VV9->VV9_STATUS == "P"','BR_VERDE'},;  {'VV9->VV9_STATUS == "R"','BR_VERDE'},;  {'VV9->VV9_STATUS == "O"','BR_VERDE'},;  {'VV9->VV9_STATUS == "L"','BR_VERDE'},;  {'VV9->VV9_STATUS == "C"','BR_VERDE'}} Return(aRetorno)ElseIf cMomento == "L" // MANUTENCAO DA LEGENDA  aRetorno :={{'BR_VERDE',"Em Aberto com Veiculo ja Vendido"},;  {'BR_VERDE',"Atendimento em Aberto"},;   {'BR_VERDE',"Atendimento Finalizado"},;  {'BR_VERDE',"Pendente de Aprovacao"},;   {'BR_VERDE',"Atendimento Reprovado"},;   {'BR_VERDE',"Pre-Aprovado"},;  {'BR_VERDE',"Aprovado"},;   {'BR_VERDE',"Atendimento Cancelado"}}  Return(aRetorno)EndIFReturn()