01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | Financeiro |
Função: | FINA380 - Conciliação Bancária |
02. DESCRIÇÃO
Complemento de filtro do usuário na seleção de registros para conciliação bancária.
03. PARÂMETROS
Este ponto de entrada não recebe nenhum parâmetro.
04. RETORNO
Nome | Tipo | Descrição |
cFiltro | Caracter | Expressão de filtro, em sintaxe SQL, para complementar o filtro padrão da rotina de conciliação bancária. |
05. EXEMPLO DE UTILIZAÇÃO
F090ADFR
#include "Protheus.ch" /* =============================================================================================================================== Programa----------: F380FIL =============================================================================================================================== Descrição---------: Ponto de Entrada com o objetivo de complementar os filtro de registros na conciliação bancaria =============================================================================================================================== Uso---------------: Filtra no momento da montagem da conciliação bancaria =============================================================================================================================== Parâmetros--------: Nenhum =============================================================================================================================== Retorno-----------: cFiltro = instrução do filtro a ser realizado em sintaxe SQL =============================================================================================================================== */ User Function F380FIL() Local aArea := GetArea() Local cCheq1 := space(9) Local cCheq2 := "ZZZZZZZZZ" Local cTipoMov := "" Local nVal1 := 0 Local nVal2 := 999999999.99 Local oDlg1 := NIL Local oGrp1 := NIL Local oTipoMov := NIL cTipoMov := "Ambos" DEFINE MSDIALOG oDlg1 TITLE "Conciliação Bancaria" FROM 112,245 TO 320,770 PIXEL oGrp1 := TGroup():New( 012,012,100,248,"Filtro",oDlg1,CLR_BLACK,CLR_WHITE,.T.,.F. ) @ 028,016 SAY "Do Cheque:" of oGrp1 PIXEL @ 024,052 MSGET cCheq1 size 060,008 of oGrp1 PIXEL @ 028,132 SAY "Ate Cheque:" of oGrp1 PIXEL @ 024,168 MSGET cCheq2 size 060,008 of oGrp1 PIXEL @ 048,016 SAY "Do Valor:" of oGrp1 PIXEL @ 044,052 MSGET nVal1 size 060,008 picture '@E 999,999,999.99' of oGrp1 PIXEL @ 048,132 SAY "Ate Valor:" of oGrp1 PIXEL @ 044,168 MSGET nVal2 size 060,008 picture '@E 999,999,999.99' of oGrp1 PIXEL @ 66, 016 Say "Tipo Movimentação?" Pixel Size 050,006 Of oGrp1 @ 64, 075 MSCOMBOBOX _oTipoMov Var _cTipoMov ITEMS {"Ambos","Receber","Pagar"} Valid (Pertence("Ambos,Receber,Pagar")) Pixel Size 070, 012 Of oGrp1 DEFINE SBUTTON FROM 086,115 TYPE 1 ACTION (oDlg1:End()) ENABLE OF oDlg1 // 085,115 Activate Dialog oDlg1 Center cFiltro := "(E5_NUMCHEQ >= '"+ cCheq1 +"' AND E5_NUMCHEQ <= '"+ cCheq2 +"') AND " +; "(E5_VALOR >= "+ str(nVal1) +" AND E5_VALOR <="+ str(nVal2) +") " If AllTrim(_cTipoMov) == "Receber" cFiltro += " AND E5_RECPAG = 'R' " EndIf If AllTrim(_cTipoMov) == "Pagar" cFiltro += " AND E5_RECPAG = 'P' " EndIf RestArea(aArea) Return cFiltro
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas