Histórico da Página

#INCLUDE "PROTHEUS.CH" 

#INCLUDE "TOTVS.CH" 
User Function W320DFCO() 
Local cEmbarque := paramixb[1] Local cAliasQry := "" Local lRet := .T. cAliasQry := GetNextAlias() BeginSql Alias cAliasQry 
SELECT DCY_QTORIG, DCY_QTCONF FROM %Table:DCY% DCY WHERE DCY.DCY_FILIAL = %xFilial:DCY% AND DCY.DCY_EMBARQ = %Exp:cEmbarque% AND DCY.%NotDel% EndSql If (cAliasQry)->(!Eof()) IF (cAliasQry)->DCY_QTORIG <> (cAliasQry)->DCY_QTCONF lRet := .F. END IF (cAliasQry)->(dbSkip()) EndIf (cAliasQry)->(dbCloseArea()) 
Return lRet