#INCLUDE "PROTHEUS.CH"
User Function F850ADLE()
Local aLeg := {}
/*
Punto de entrada para descripción de leyenda y agregar el botón en el browse
*/
Aadd(aLeg,{"BR_PINK", "Aprobadas" }) // "Aprobadas"
Aadd(aLeg,{"BR_VERDE", "Titulo con saldo 0" }) // "Efectivadas"
Aadd(aLeg,{"BR_PRETO", "Titulo con baja parcial" }) // "Efectivadas"
Aadd(aLeg,{"BR_AZUL", "Adicional" }) // "Adicional"
Aadd(aLeg,{"BR_VERMELHO", "Modificado" }) // "Modificado"
Aadd(aLeg,{"BR_CINZA", "Extra" }) // "Extra"
Return aLeg
/*
Punto de entrada para reglas de leyenda
*/
User Function F850URET()
Local aRet := {}
aAdd(aRet, { 'LOTE == "S"' , "BR_AMARELO" } ) //Titulo en Lote
aAdd(aRet, { 'APROVADO == "S"' , "BR_PINK" } ) //Baja Aprobada
aAdd(aRet, { 'APROVADO == "N"' , "BR_BRANCO" }) //Baja Bloqueada
Return aRet | 