Á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

...

languagecpp
titleExemplo
linenumberstrue
collapsetrue

...

------

User Function OM200GEC()

...


Local

...

aArrayGera

...

:=

...

PARAMIXB[1]

...

//Array

...

de

...

pedidos

...


Local

...

cVeiculo

...

:=

...

PARAMIXB[2]

...

//Código

...

do

...

veículo

...


Local

...

cTransp

...

:=

...

PARAMIXB[3]

...

//Código

...

da

...

transportadora

...


Local

...

aPedidos

...

:=

...

{}

...


Local

...

aCargas

...

:=

...

{}

...


Local

...

nI

...

:=

...

0

...


Local

...

nQtdPedidos

...

:=

...

0

For nI :=

...

1

...

To

...

Len(aArrayGera)

...

//Percorre

...

o

...

array

...

para

...

realizar

...

as

...

quebras.

aAdd(aPedidos,aArrayGera[nI])

...

//Cria

...

novo

...

array

...

com

...

os

...

pedidos

...

que

...

formarão

...

uma

...

carga
nQtdPedidos++

...

If nQtdPedidos ==

...

3

...

.Or.

...

nI

...

==

...

Len(aArrayGera)

...

//Neste

...

exemplo

...

cada

...

carga

...

poderá

...

conter

...

no

...

máximo

...

3

...

pedidos

Aadd(aCargas,{aPedidos})

...

//Adiciona

...

os

...

pedidos

...

em

...

um

...

subnível

...

do

...

array

nQtdPedidos := 0 //Zera

...

os

...

agrupadores

...

para

...

definir

...

o

...

próximo

...

conjunto

...

de

...

pedidos

...

para

...

a

...

nova

...

carga
aPedidos :=

...

{}

...

EndIf

Next nI

Return aCargas

------


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>