Linha Microsiga Protheus

Árvore de páginas

MA410COR Alterar cores do cadastro do status do pedido

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Serviços

Módulo:

Faturamento

Ponto de Entrada

Descrição:

Este ponto de entrada pertence à rotina de Pedidos de Venda, MATA410(). Usado, em conjunto com o ponto MA410LEG, para alterar cores do “browse” do cadastro, que representam o “status” do pedido.

Sintaxe:

MA410COR - Alterar cores do cadastro do status do pedido ( < aCores> ) --> aNovCor

Retorno:

aNovCor

    (vetor)
  • Array com as cores para o "browse"
 

Programa Fonte:

.prw

Parâmetros

Nome

Tipo

Descrição

Obrigatório

 aCores

Vetor

Array com as cores atuais.

X

Dados Esperados:Formato do item do array de cores {“condição”, “cor”, “Descrição”}.
Exemplos:

1)  Alterando Cores

User Function MA410COR(aCores)

Default aCores := {}

aCores := { {"Empty(C5_LIBEROK).And.Empty(C5_NOTA)" ,"BR_MARROM","Pedido em Aberto"    },;  //Pedido em Aberto           

                     {"!Empty(C5_NOTA).Or.C5_LIBEROK=='E'"   ,"BR_VERDE" ,"Pedido Encerrado"  },;  //Pedido Encerrado          

                     {"!Empty(C5_LIBEROK).And.Empty(C5_NOTA)","BR_AZUL", "Pedido Liberado"} }  //Pedido Liberado

Return ( aCores )

 

2) Incluíndo Novas Cores

User Function MA410COR(aCores)

Default aCores := {}

aAdd( aCores, {"Empty(C5_LIBEROK) .And.Empty(C5_NOTA)  .And. !Empty(C5_XNOTA1)"  ,"BR_PRETO"  ,                   "Pedido Customizado 1 em Aberto"         } )

aAdd( aCores, {"!Empty(C5_NOTA) .Or. C5_LIBEROK=='E' .And. !Empty(C5_XNOTA1)"           ,"BR_MARROM" ,              "Pedido Customizado 1 Encerrado"         } )

aAdd( aCores, {"!Empty(C5_LIBEROK) .And. Empty(C5_NOTA) .And. !Empty(C5_XNOTA1)" ,"BR_VIOLETA",                   "Pedido Customizado 1 Liberado"             } )

Return ( aCores )