Histórico da Página

#INCLUDE "TOTVS.CH"

//-------------------------------------------------------------------
/*/{Protheus.doc} F420BLKBOR
P.E. Executado na rotina FINA420 para atualizar a variável lBorBlock
/*/
//-------------------------------------------------------------------

User Function F420BLKBOR()

Local aArea := GetArea()
Local lBorBlock := .F.
Local lBorAprov := .T.
Local cVersao := FA590UltVer(cFilBor,SE2->E2_NUMBOR,"P" )
Local cNumBorAnt := ""
Local lAutLibBor := .F.
Local lF420LBDA := ExistBlock("F420LBDA")

DEFAULT cFilBor := cFilAnt



    While SEA->EA_NUMBOR == SE2->E2_NUMBOR .AND. SEA->EA_VERSAO == cVersao

        If SEA->EA_CART == "P"

            cNumBorAnt := SE2->E2_NUMBOR

            lBorBlock := .F.

            lBorAprov := .T.

            

            lAutLibBor := If(lF420LBDA, ExecBlock("F420LBDA",.f.,.f.,{}),.F.)

            

            /* Verifica se a aprovacao de bordero esta ativada. Em caso afirmativo, verifica o status do bordero e nao gera

            arquivo para os nao aprovados */

            If lProcApr

                If FRY->(DbSeek(xFilial("FRY",cFilBor) + SEA->EA_NUMBOR + "P" + cVersao))

                    If !lAutLibBor .and. !(FRY->FRY_STATUS == "4")

                        lBorAprov := .F.

                        lBorBlock := .T.

                        Help(" ",1,"NOLIBBORD",,STR0021 + ": " + AllTrim(SEA->EA_NUMBOR),4,1)       //"Borderô não aprovado"

                    Endif

                Endif

            Endif

            If lBorAprov

                If cBanco+cAgencia+cConta != SEA->(EA_PORTADO+EA_AGEDEP+EA_NUMCON)

                    //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

                    //³ Bordero pertence a outro Bco/Age/Cta ³

                    //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

                    Help(" ",1,"NOBCOBORD",,cNumBorAnt,4,1)

                    lBorBlock := .T.

                Endif

                If !F515VerLib(3)//passo como título para posicionamento da FRY

                    Help(" ",1,"NOLIBBORD",,OemToAnsi(STR0020) +" " + cNumBorAnt,4,1)

                    lBorBlock := .T.

                EndIf

            Endif

            Exit

        Else

            //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

            //³ Bordero pertence a outra Carteira (Receber) ³

            //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

            lBorBlock := .T.

            SEA->(dbSkip())

            Loop

        Endif

    Enddo



    RestArea(aArea)



Return lBorBlock