Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas