Exemplo do Ponto de Entrada F070OWN.
Exemplo do Ponto de Entrada:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | //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;