...
| Linha Línea de Produtoproducto: | Microsiga Protheus® |
|---|---|
Segmento: | Backoffice |
Módulo: | Financeiro Financiero |
| Função Función: | FINA040 - Contas a ReceberCuentas por cobrar |
...
O ponto El punto de entrada FINALEG permite alterar as legendas modificar las leyendas de diversas rotinas do financeirorutinas del financiero, como FINA040, FNA050, FINA740, FINA750 entre outrasetc.
ObservaçõesObservaciones:
Nombre | Tipo | Descripción | Nome | Tipo | Descrição |
|---|---|---|---|---|---|
PARAMIXB[1] | Numérico | Com Con valor: Abrir a telala pantalla de legendasleyendas; SemSin valor: Retornar as regrasDevolver las reglas. | |||
PARAMIXB[2] | Caracter Carácter | SE1 ouo SE2, dependendo da rotinadependiendo de la rutina utilizada. | |||
PARAMIXB[3] | Array | Regras do padrão Reglas del estándar. | |||
PARAMIXB[4] | Array | Legendas do padrão Leyendas del estándar. |
...
Tipo | Descrição Descripción |
|---|---|
Array | Se Si PARAMIXB[1] fuera igual a nil:
Si Se PARAMIXB[1] fuera igual a numérico:
|
...
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE "TOTVS.CH" User Function FINALeg() as array Local nReg := PARAMIXB[1] as numeric // ComCon valor: Abrir ala pantalla telinhapequeña de legendasleyendas ### SemSin valor: RetornarDevolver aslas regrasreglas Local cAlias := PARAMIXB[2] as character // SE1 ouo SE2 Local aRegras := PARAMIXB[3] as array// RegrasReglas dode padrãoestándar Local aLegendas := PARAMIXB[4] as array// LegendasLeyendas dodel padrãoestándar Local aRet := {} as array Local nI := 0 as numeric /* SemSin Recno --> RetornarDevolver array comcon aslas regrasreglas para oque el Browse colocarcoloque los ascolores coresen naslas colunascolumnas. ComCon Recno --> Activada Chamadaal quandoactivar acionadola botãoopción LegendasLeyendas dodel browse -> Abrir pantalla telinhapequeña de LegendasLeyendas (BrwLegenda) */ If nReg = Nil /* aRegras passadotransferido contémcontiene aslas regrasreglas dodel padrãoestándar OEl array retornadodevuelto deverádebe contercontener todas aslas regrasreglas, dodel padrãoestándar ey customizadaspersonalizadas. DicasImportante: LembrandoRecordando que aslas regrasreglas de legendaleyenda se sãoconsideran consideradasen nael ordemorden dodel array retornadodevuelto. ALa PrimeiraPrimera regraregla atendida definirá ael corcolor que seráse atribuídaatribuirá. AtençãoAtención paracon comel aorden ordemde daslas regrasreglas ey comcon regrasreglas conflitantesconflictivas. ALa Última regraregla dodel padrãoestándar, casosi nãono atendaatendiera aninguna nenhuma condiçãocondición anterior ées a .T. -> BR_VERDE -> Título em abertopendiente */ If cAlias = "SE1" /* ExemploEjemplo: adicionarincluir umauna regraregla de legendaleyenda "maismás prioritáriaprioritaria" que aslas dodel padrãoestándar */ aAdd(aRet,{"!Empty(E1_PORTADO) .AND. Empty(E1_NUMBOR)","BR_LARANJA"}) /* RegrasReglas dodel padrãoestándar para retornodevolución */ For nI := 1 To Len(aRegras) aAdd(aRet,{aRegras[nI][1],aRegras[nI][2]}) Next nI Else // SE2 /* ExemploEjemplo para retornardevolver aslas mesmasmismas regrasreglas dodel padrãoestándar semsin alteraçãomodificación */ aRet := aRegras Endif Else // Abrir telinhapantalla pequeña de Legendasleyendas (BrwLegenda) If cAlias = "SE1" aAdd(aLegendas,{"BR_LARANJA","Título emen el Portador"}) Else // SE2 /* AdicionarIncluir ael corcolor ey descriçãodescripción de legendasleyendas paraa SE2 aquiaquí. ExemploEjemplo: Aadd(aLegendas, {"BR_AMARELO", "Titulo aguardando liberacao"}) //TituloTítulo aguardandoesperando liberacaoliberación */ Endif BrwLegenda(cCadastro, "LegendaLeyenda", aLegendas) Endif Return aRet |