Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

Financiero (SIGAFIN)

Función:

Liberación para baja (FINA580)

País:

Brasil

02. VISIÓN GENERAL

Punto de entrada que permite el manejo de las leyendas e la rutina de liberación para baja (FINA580).

03. PARÁMETROS

No existen.

04. DEVOLUCIÓN

TipoDescripción

Vector

Vector con las leyendas que se incluirán.

05. EJEMPLO


Ejemplo de ejecución
#include 'Protheus.ch'
	
USER FUNCTION F580LEGEN
	Local aLegenda := {;
	{"BR_VERDE" , "Título liberado para pago."},;
	{"BR_AZUL" , "Título esperando liberación."},;
	{"BR_VERMELHO" , "Título totalmente dado de baja."},;
	{"BR_VIOLETA" , "Título suspendido."},;
	{"BR_LARANJA" , "Título anulado."},;
	{"BR_PRETO" , "Prueba Leyenda 1."},;
	{"BR_CINZA" , "Prueba Leyenda 2."};
	}
	Local aRetorno := {}

	Aadd(aRetorno , { ' SE2->E2_VALOR >= 100 .And. SE2->E2_VALOR < 150', aLegenda[6][1] })
	Aadd(aRetorno , { ' SE2->E2_VALOR >= 150 .And. SE2->E2_VALOR < 200', aLegenda[7][1] })
	Aadd(aRetorno , { ' E2_SALDO <= 0', aLegenda[3][1] } )
	Aadd(aRetorno , { '!EMPTY(E2_DATASUS) .AND. !EMPTY(E2_USUASUS)' , aLegenda[4][1] })
	Aadd(aRetorno , { '!EMPTY(E2_DATACAN) .AND. !EMPTY(E2_USUACAN)' , aLegenda[5][1] })
	Aadd(aRetorno , { '!EMPTY(E2_DATALIB) .OR. (SE2->E2_SALDO+SE2->E2_SDACRES-SE2->E2_SDDECRE) <= '+ALLTRIM(STR(GetMv('MV_VLMINPG'),17,2)), aLegenda[1][1] })
	Aadd(aRetorno , { '(SE2->E2_SALDO+SE2->E2_SDACRES-SE2->E2_SDDECRE) > '+ALLTRIM(STR(GetMv('MV_VLMINPG'),17,2)), aLegenda[2][1] })
RETURN aRetorno