Histórico da Página
...
| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FILMOTBX - Realiza o filtro no Motivo cadastro de Motivos de Baixa |
02. DESCRIÇÃO
O ponto de entrada FILMOTBX tem como finalidade permitir o filtro no cadastro de Motivo Motivos de Baixa.
03. PARÂMETROS
Nome | Tipo | Descrição |
| aMotRead | Array | Array contendo o Motivo Motivos de Baixa |
04. RETORNO
Nome | Tipo | Descrição |
aNewMotR | Array | Array com o filtro aplicado ao Motivo aos Motivos de Baixa |
05. EXEMPLO DE UTILIZAÇÃO
...
| 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 da F7G aArea := GetArea() aNewMotR := {} //Só apresenta lista de Motivos de Baixa com movimentação bancária, na rotina de baixas da carteira Receber If FwIsInCallStack('FINA070') AADD( aNewMotR, ParamIXB[ 05 ] ) // DEBITO CC dbSelectArea('F7G') dbSetOrder(1) For nX:=1 to Len(aMotBx) //Pesquisa pela Sigla do Motivo de Baixa dbSeek( FWxFilial('F7G') + Substr(aMotBx[nX],1,3) ) If F7G_MOVBCO == 'S' AADD( aNewMotR, ParamIXB[ 09 ] ) // NORMAL Alert("PONTO DE ENTRADA u_FILMOTBX") Return aNewMotR aMotBx[nX] ) EndIF Next nX Else //Retorna lista completa aNewMotR := aClone(aMotBx) EndIf RestArea(aArea) FwFreeArray(aMotBx) FwFreeArray(aArea) Return aNewMotR |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas