...
Linha Línea de Produtoproducto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | FinanceiroFinanciero |
FunçãoFunción: | FILMOTBX - Realiza o el filtro na en la lista de Motivos motivos de Baixabaja |
...
O ponto El puento de entrada FILMOTBX tem tiene como finalidade finalidad permitir o el filtro da de la lista de Motivos de BaixaBaja, carregados cargados durante os processos que os utilizamlos procesos que los utilizan.
Aviso |
---|
A função que carrega a La función que carga la lista de Motivos de Baixa é utilizada internamente em diversos pontos do Baja se utiliza internamente en diversos puntos del sistema, tanto do Financeiro del financiero como de outros otros módulos. PortantoPor lo tanto, é es importante fazer o hacer el uso corretocorrecto, aplicando o filtro especificamente à rotina/processo que deseja contemplar, conforme sua regra de negócio; caso contrário, o filtro aplicado poderá deixar de carregar Motivos de Baixa reservados para outros processos do el filtro específicamente a la rutina/proceso que desea considerar, según su regla de negocio. En caso contrario, el filtro aplicado podrá dejar de cargar los Motivos de Baja reservados para otros procesos del ERP. |
...
NomeNombre | Tipo | DescriçãoDescripción |
aMotRead | Array | Array contendo o Motivos de Baixa cadastrados na tabela que contiene los Motivos de Baja registrados en la tabla F7G |
...
NomeNombre | Tipo | DescriçãoDescripción |
aNewMotR | Array | Array com o con el filtro aplicado aos a los Motivos de BaixaBaja |
...
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function FILMOTBX() Local nX As Numeric Local aArea As Array Local aMotBx As Array Local aNewMotR As Array aMotBx := aClone(ParamIXB)//Motivos listados dade la F7G aArea := GetArea() aNewMotR := {} //SóSolo apresentapresenta lista de Motivos de BaixaBaja comcon movimentaçãomovimiento bancária, na rotinabancario, en la rutina de bajas de baixasla dacartera carteirapor Recebercobrar If FwIsInCallStack('FINA070') dbSelectArea('F7G') dbSetOrder(1) For nX:=1 to Len(aMotBx) //PesquisaBúsqueda por pelala Sigla dodel Motivo de BaixaBaja dbSeek( FWxFilial('F7G') + Substr(aMotBx[nX],1,3) ) If F7G_MOVBCO == 'S' AADD( aNewMotR, aMotBx[nX] ) EndIF Next nX Else //RetornaDevuelve lista completa aNewMotR := aClone(aMotBx) EndIf RestArea(aArea) FwFreeArray(aMotBx) FwFreeArray(aArea) Return aNewMotR |
...