Histórico da Página
...
Localizado antes da gravação do bloqueio de saldo.
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
cIdDCF | Caractere | Código do ID Tabela DCF. |
cMotivo | Caractere | Código do motivo. |
cObserv | Caractere | Descrição do motivo |
05. RETORNO
Um Array contendo duas posições, no qual a primeira é o código do motivo e a segunda é a descrição do motivo.
06. VERSÕES
Protheus 12.1.23 ou superiores.
07. OBSERVAÇÃO
Não se aplica.
08. EXEMPLO
...
language | cpp |
---|---|
title | Exemplo |
linenumbers | true |
collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
#INCLUDE
...
"TOTVS.CH"
...
User
...
Function
...
WMSBLSD()
...
Local
...
cIdDcf
...
:=
...
paramixb[1]
...
Local
...
cMotivo
...
:=
...
paramixb[2]
...
Local
...
cObserv
...
:=
...
paramixb[3]
...
Local
...
cAliasQry
...
:=
...
""
...
Local
...
cAliasSx5
...
:=
...
""
...
Local
...
aRetPe
...
:=
...
{}
...
cAliasQry :=
...
GetNextAlias()
...
BeginSql Alias cAliasQry
SELECT DISTINCT 1
FROM %Table:DCF% DCF
INNER JOIN %Table:DC5% DC5
ON DC5.DC5_FILIAL
...
=
...
%xFilial:DC5%
...
AND DC5.DC5_SERVIC
...
=
...
DCF.DCF_SERVIC
...
AND DC5.DC5_BLQLOT
...
=
...
'1'
...
AND DC5.%NotDel%
WHERE DCF.DCF_FILIAL
...
=
...
%xFilial:DCF%
...
AND DCF.DCF_ID
...
=
...
%Exp:cIdDcf%
...
AND DCF.%NotDel%
...
EndSql
If (cAliasQry)->(!Eof())
...
cAliasSx5 :=
...
GetNextAlias()
...
BeginSql Alias cAliasSx5
SELECT X5_DESCRI
FROM %Table:SX5% SX5
WHERE X5_tabela = 'E1'
AND X5_CHAVE = 'ND'
EndSql
If (cAliasSx5)->(!Eof())
...
Aadd(aRetPe,'ND')
...
Aadd(aRetPe,(cAliasSx5)
...
→X5_DESCRI)
Else
Aadd(aRetPe,cMotivo)
Aadd(aRetPe,cObserv)
EndIf
(cAliasSx5)→(dbCloseArea())
EndIf
(cAliasQry)→(dbCloseArea())
Return aRetPe
------
Templatedocumentos |
---|
HTML |
---|
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } .aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { background: #FF9900; !important } .menu-item.active-tab { border-bottom: none !important; } </style> |