Exemplo do Ponto de Entrada F070OWN.
Exemplo do Ponto de Entrada:
//Bibliotecas
#Include "Protheus.ch"
/*----------------------------------------------------------------------------------------------*
| P.E.: F070OWN |
| Desc: P.E. executado para filtrar as baixas por lote - Contas a Receber |
| Link: http://tdn.totvs.com/display/public/mp/F070OWN+-+Montagem+do+filtro+da+baixa+--+11652 |
*----------------------------------------------------------------------------------------------*/
User Function F070OWN()
Local aArea := GetArea()
Local cFiltro := ""
//Montando o filtro
If IsInCallStack("FA070ChecF")
cFiltro += 'E1_FILIAL+E1_PORTADO+E1_AGEDEP+E1_CONTA=="'+xFilial("SE1")+cBancoLt+cAgenciaLt+cContaLt+'".And.'
cFiltro += 'DTOS(E1_VENCREA)>="'+DTOS(dVencDe) + '".And.'
cFiltro += 'DTOS(E1_VENCREA)<="'+DTOS(dVencAte)+ '".And.'
cFiltro += 'E1_NATUREZ>="' +cNatDe + '".And.'
cFiltro += 'E1_NATUREZ<="' +cNatAte + '".and.'
cFiltro += '!(E1_TIPO$"'+MVPROVIS+"/"+MVRECANT+"/"+MVIRABT+"/"+MVINABT+"/"+MV_CRNEG
//Destarcar Abatimentos
If mv_par06 == 2
cFiltro += "/"+MVABATIM+"/"+MVFUABT +'")' //adicionado MVFUABT pois a variável MVABATIM não está retornando FU-
Else
cFiltro += '")'
Endif
// Verifica integracao com TMS e nao permite baixar titulos que tenham solicitacoes
// de transferencias em aberto.
cFiltro += ' .And. Empty(E1_NUMSOL)'
cFiltro += ' .And. (E1_SALDO>0 .OR. E1_OK="xx")'
//Montando o filtro
ElseIf IsInCallStack("FA070Chec0")
cFiltro += 'E1_FILIAL=="' + xFilial("SE1") + '".And.'
cFiltro += 'DTOS(E1_VENCREA)>="' + DTOS(dVencDe) + '".And.'
cFiltro += 'DTOS(E1_VENCREA)<="' + DTOS(dVencAte) + '".And.'
cFiltro += 'E1_NATUREZ>="' + cNatDe + '".And.'
cFiltro += 'E1_NATUREZ<="' + cNatAte + '".And.'
cFiltro += '(E1_PORTADO="' + cBancolt + '".OR.'
cFiltro += 'E1_PORTADO=="'+ space(Len(E1_PORTADO)) + '").AND.'
cFiltro += '!(E1_TIPO$"'+MVPROVIS+"/"+MVRECANT+"/"+MVIRABT+"/"+MVINABT+"/"+MV_CRNEG
//Destacar Abatimentos
If mv_par06 == 2
cFiltro += "/"+MVABATIM+"/"+MVFUABT +'")'//adicionado MVFUABT pois a variável MVABATIM não está retornando FU-
Else
cFiltro += '")'
Endif
// Verifica integracao com TMS e nao permite baixar titulos que tenham solicitacoes
// de transferencias em aberto.
cFiltro += ' .And. Empty(E1_NUMSOL)'
cFiltro += ' .And. (E1_SALDO>0 .OR. E1_OK="xx")'
EndIf
cFiltro += Iif(!Empty(cFiltro), " .And. ", "")+" E1_X_CAMPO = 'XXX' "
RestArea(aArea)
Return cFiltro
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;