Histórico da Página

#Include "PROTHEUS.ch"

User Function OS460BLQ()
    Local lRet          := .T.
    Local cDakCod       := AllTrim(PARAMIXB[1])
    Local cDakSeqCar    := AllTrim(PARAMIXB[2])
    Local cAliasDAK     := ''

	cAliasDAK := GetNextAlias()
	BeginSql Alias cAliasDAK
    	SELECT DAK.DAK_FEZNF
		FROM %Table:DAK% DAK 
		WHERE DAK.DAK_FILIAL = %xFilial:DAK%
		AND DAK.DAK_COD = %Exp:cDakCod%
        AND DAK.DAK_SEQCAR = %Exp:cDakSeqCar%
        AND DAK.DAK_FEZNF = "2"
	    AND DAK.%NotDel%
    EndSql    
    If (cAliasDAK)->(!Eof())
        lRet := .T.
    Else
        lRet := .F.            
    EndIf
    (cAliasDAK)->(DbCloseArea())

 Return lRet