Ponto de Entrada
Descrição: | Ponto de Entrada para Manutenção das Legendas do Orçamento por Fases. Trabalha em conjunto com o Ponto de Entrada OA011COR |
Localização: | Atualizações / Mov Oficina / Orc por Fases |
Eventos: | Local aLegenda := {; {'',STR0066},; // "Orçamento Balcão" {'BR_VERDE',STR0008},; // "Orcamento Digitado" {'BR_PINK',STR0009},; // "Margem Pendente" {'BR_BRANCO',STR0010},; // "Avaliacao de Credito" {'BR_AZUL',STR0011},; // "Aguardando Separacao" {'BR_MARROM',STR0012},; // "Aguardando Lib.Diverg." {'BR_AMARELO',STR0013},; // "Liberado p/ Faturamento" {'BR_PRETO',STR0015},; // "Faturado" {'BR_VERMELHO',STR0014},; // "Cancelado" {'BR_CINZA',STR0035},; // "Aguardando Reserva" {'',"----------------------------------------------"},; {'',STR0067},; // "Orçamento Oficina" {'f10_verd',STR0062},; // "Orçamento Digitado" {'f12_azul',STR0063},; // "Pendente Liberação" {'f5_amar' ,STR0064},; // "Liberado para Exportação" {'f14_cinz',STR0065},; // "Exportado para OS" {'f7_verm' ,STR0014}} // "Cancelado"
If ( ExistBlock("OA011LEG") ) aLegenda := ExecBlock("OA011LEG",.f.,.f.,{aLegenda}) EndIf
|
Programa Fonte: | OFIXA011.PRW |
Função: | OXA011LEG |
Retorno: | aLeg - Vetor contendo todas as Legendas do Orcamento por Fases |
Exemplo:
//////////////////////////////////////////////////////////////////////////
// Ponto de Entrada para Manutencao das Legendas do Orcamento por Fases //
//////////////////////////////////////////////////////////////////////////
User Function OA011LEG()
Local aLeg := ParamIxb[01] // Parametro 1 - Legendas do Orcamento
aadd(aLeg,{'BR_XXX',"TESTE DE LEGENDA"})
Return(aLeg)