Árvore de páginas

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)