Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Localizado antes da gravação do bloqueio de saldo.

04. PARÂMETROS

NomeTipoDescriçã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

...

languagecpp
titleExemplo
linenumberstrue
collapsetrue

...

------

#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>