
Moveto "\\Sistemas\\Cadastro\\FichaCli"
Moveto [Codigo]
Locate [FaturaC->Codigo]
If RetVal
   Then CREDITO_LIMITE=[\Sistemas\Cadastro\FichaCli->Limite de Credito]
   Else CREDITO_LIMITE=0
EndIf

Moveto "FaturaC"
LimpAguarde()

CREDITO_DISPONIVEL1=CREDITO_LIMITE-(CREDITO_TOTAV+CREDITO_TOTV+CREDITO_TOTCQ+CREDITO_TOTCQAC+CREDITO_TOTCQSF)
CREDITO_DISPONIVEL2=CREDITO_DISPONIVEL1-[FaturaC->Valor Nota Fiscal]

If CREDITO_DISPONIVEL2<0
   Then MSG=    "Total Duplicatas Vencidas :"+Format("W10.2,EIC",CREDITO_TOTV)+"//"
        MSG=MSG+"Total Duplicatas a Receber:"+Format("W10.2,EIC",CREDITO_TOTAV)+"//"
        MSG=MSG+"Total Cheques a Descontar :"+Format("W10.2,EIC",CREDITO_TOTCQ)+"//"
        MSG=MSG+"Total Cheques a Compensar :"+Format("W10.2,EIC",CREDITO_TOTCQAC)+"//"
        MSG=MSG+"Total Cheques Sem Fundo   :"+Format("W10.2,EIC",CREDITO_TOTCQSF)+"//"
        MSG=MSG+"        Limite de Credito :"+Format("W10.2,EIC",CREDITO_LIMITE)+"//"
        MSG=MSG+"          Disponibilidade :"+Format("W10.2,EIC",CREDITO_DISPONIVEL1)+"//"
        MSG=MSG+"Compra Atual: "+Format("W10.2,EIC",[FaturaC->Valor Nota Fiscal])
        MSG=MSG+"  =  Indisponibilidade: "+Format("W10.2,EIC",CREDITO_DISPONIVEL2)
        If PARAM_LIMITE_CREDITO="P"
           Then Libera_Bloqueio(MSG)
                If Ok="S"
                   Then MSG="OF: "+ORDFAT+" Cliente "+[FaturaC->Codigo]
                        MSG=MSG+" Vr="+LTrim(Format("W10.2,EIC",(CREDITO_DISPONIVEL2*-1)))
                        Grava_Logt("#","LibCred",MSG)
                        Return True
                   Else Return False
                EndIf
           Else Mensagem(MSG)
                Return False
        EndIf
   Else Return True
EndIf

