Histórico da Página
...
Não se aplica.
08. EXEMPLO
...
| title | EXEMPLO |
|---|---|
| linenumbers | true |
| collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
User
...
Function
...
WMSXFEXS()
...
Local
...
aLibDCF
...
:=
...
PARAMIXB[1]
...
//ID
...
CDF
...
Local
...
nX
...
:=0
...
Local cAliasQry
...
:=
...
Nil
...
For
...
nX
...
:=
...
1
...
To
...
Len(aLibDCF)
...
...
cAliasQry
...
:=
...
GetNextAlias()
...
...
BeginSql
...
Alias
...
cAliasQry
SELECT DCF.R_E_C_N_O_
...
RECNODCF,
...
DCF.DCF_ORIGEM
...
FROM %Table:DCF%
...
DCF
WHERE DCF.DCF_FILIAL
...
=
...
%xFilial:DCF%
...
AND DCF.DCF_ID
...
=
...
%Exp:aLibDCF[nX]%
...
AND DCF.DCF_ORIGEM
...
=
...
'SC9'
...
AND DCF.%NotDel%
...
EndSql
...
If
...
(cAliasQry)->(!Eof())
...
...
...
DCF→ (dbGoTo((cAliasQry)->RECNODCF))
...
...
...
RecLock("DCF",.F.)
...
...
...
DCF→ DCF
...
_CODFUN
...
:=
...
'XXXXXX'
...
DCF→ (MsUnLock())
...
EndIf
...
(cAliasQry)
...
→(dbCloseArea())
...
Next
...
Return
------
09. ASSUNTOS RELACIONADOS
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas