Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Financeiro |
Função | Transferencia(FINA060) ; Bordero Impostos(FINA061) |
02. DESCRIÇÃO
O Ponto de Entrada FA260QBRW permite manipular a condição WHERE padrão de filtragem dos títulos a serem apresentados no browse da conciliação bancária. F060VLTOT permite alterar o valor que irá limitar a seleção de títulos do bordero, podendo ser alterado via ponto de entrada o valor informando no campo Valor Limite apresentado na tela de informações de filtragem dos títulos.
O valor retornado do ponto de entrada será o novo valor limite para seleção dos títulos que irão compor o borderô.
03. PARÂMETROS
Tipo | Conteúdo |
---|---|
Numérico | Valor informado no campo Limite Valor |
Informações | ||
---|---|---|
| ||
Parâmetros que são passados para o ponto de entrada são acessados utilizado a variável publica PARAMIXB Seu modo PARAMIXB - variável pública do tipo ARRAY, e na posição 1 contém a condição do WHERE padrão gerada na rotina. Modo de uso: PARAMIXB PARAMIXB[1] O retorno esperado pela rotina padrão do PE são as condições a serem tratadas como filtro para a tabela SE2. |
...
04. RETORNO
Nome | Tipo | Descrição |
---|---|---|
nValor | Numérico | Novo valor que será utilizado como limitador da seleção de títulos para o borderô. |
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
user function FA260QBRW as character
Local cWhere := PARAMIXB[ 1 ] as character
Local nTamCodBar := 0 as numeric
Local nTamIdCnab := 0 as numeric
Local dDtIni := CToD( ' / / ' ) as date
Local dDtFin := CToD( ' / / ' ) as date
If cFilAnt == 'D MG 01 '
nTamCodBar := TAMSX3("FIG_CODBAR")[1]
nTamIdCnab := TAMSX3("E2_IDCNAB")[1]
//Verifico se o parametro Vencto de/Ate nao esta vazio
dDtIni := Max(dDtIni,Iif(Empty(mv_par09),dDtIni,mv_par09))
dDtFin := Max(dDtFin,Iif(Empty(mv_par10),dDtFin,mv_par10))
// Acrescento/diminuo das variaveis para abrir periodo
dDtIni := dDtIni - mv_par14
dDtFin := dDtFin + mv_par13
cWhere := "E2_FILIAL IN('D MG 01 ','D MG 02 ','D MG 03 ') AND "
cWhere += "E2_FORNECE >= '"+ mv_par04 + "' AND "
cWhere += "E2_FORNECE <= '"+ mv_par05 + "' AND "
cWhere += "E2_LOJA >= '" + mv_par06 + "' AND "
cWhere += "E2_LOJA <= '" + mv_par07 + "' AND "
//Considera Vencto do titulo
If mv_par08 == 1
cWhere += "E2_VENCTO >= '" + DTOS(dDtIni) + "' AND "
cWhere += "E2_VENCTO <= '" + DTOS(dDtFin) + "' AND "
Else//Considera Vencto real do titulo
cWhere += "E2_VENCREA >= '" + DTOS(dDtIni) + "' AND "
cWhere += "E2_VENCREA <= '" + DTOS(dDtFin) + "' AND "
Endif
cWhere += "E2_SALDO > 0 AND "
cWhere += "E2_TIPO NOT IN " + FORMATIN(MV_CPNEG+MVPAGANT,,3) + " AND "
cWhere += "E2_TIPO NOT IN " + FORMATIN(MVABATIM,'|') + " AND "
cWhere += "E2_TIPO NOT IN " + FORMATIN(MVTXA+"INA",,3) + " AND "
cWhere += "E2_TIPO NOT IN " + FORMATIN(MVTAXA,,3) + " AND "
cWhere += "E2_TIPO NOT IN " + FORMATIN(MVPROVIS,,3) + " AND "
cWhere += "E2_CODBAR = '" + Space(nTamCodbar) + "' AND "
cWhere += "E2_IDCNAB = '" + Space(nTamIdCnab) + "' AND "
cWhere += "D_E_L_E_T_ = ' ' "
EndIf
return cWhere |
04. DEMAIS INFORMAÇÕES
Não há
05. ASSUNTOS RELACIONADOS
...
User Function F060VLTOT()
Local nNewLim := 0
Local lAlter := .F.
Local nValInfor := PARAMIXB[1] //Valor informado no campo Limite Valor
If nValInfor > 0
lAlter:= MSGYESNO( "P.E. F060VLTOT", "Deseja alterar o limite para R$1.000,00 ?")
EndIf
If lAlter
nLim := 1000
Else
nNewLim := nValInfor
EndIF
return nNewLim |
Templatedocumentos |
---|
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |
...