Árvore de páginas

Versões comparadas

Chave

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

...

Não se aplica.

08. EXEMPLO

...

titleExemplo
linenumberstrue
collapsetrue

...

------

#INCLUDE "PROTHEUS.CH"

...


#INCLUDE

...

"TOTVS.CH"

...

User

...

Function

...

WMSACEXN()

...


Local

...

cIdDcf

...

:=

...

paramixb[1]

...


Local

...

cRetPe

...

:=

...

SuperGetMv("MV_WMSACEX",.F.,"0")

...


Local

...

cAliasQry

...

:=

...

""

...

cAliasQry :=

...

GetNextAlias()

...


BeginSql Alias cAliasQry
       SELECT DCF.DCF_CLIFOR,

...


 

...

 

...

 

...

 DCF.dcf_docto

...


 

...

 

...

 

...

 FROM %Table:DCF%

...

DCF

...


 

...

 

...

 

...

 WHERE DCF.DCF_FILIAL

...

=

...

%xFilial:DCF%

...


 

...

 

...

 

...

 AND DCF.DCF_ID

...

=

...

%Exp:cIdDcf%

...


 

...

 

...

 

...

 AND DCF.%NotDel%

...


EndSql

If (cAliasQry)->(!Eof())

...

.AND.

...

(cAliasQry)->DCF_CLIFOR

...

=

...

'000001' 
 

...

 

...

 

...

 

...

cRetPe

...

:=

...

'1'

...

//permite

...

aglutinar

...


Else
        cRetPe := '0'

...

//não

...

permite

...

aglutinar
Endif
(cAliasQry)

...

(dbCloseArea())

...

Return

...

cRetPe

------


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>