Árvore de páginas

Versões comparadas

Chave

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

...

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta em Execblock / Customização.

08. EXEMPLO

...

languagecpp
titleExemplo
linenumberstrue
collapsetrue

...

------

#INCLUDE "PROTHEUS.CH"

...

User

...

Function

...

OM215PCA()

...


Local

...

aGera

...

:=

...

PARAMIXB[1]

...

  //Array

...

pedidos

...

para

...

geração

...

carga

...


Local

...

lGeraCar

...

:=

...

.T.

...


Local

...

nI

...

:=

...

0

...

//Posições

...

ARRAY

...

aGera:

...

//1

...

-

...

Sequencia

...


//2

...

-

...

Em

...

Branco

...

(Nâo

...

utilizado)

...


//3

...

-

...

Em

...

Branco

...

(Nâo

...

utilizado)

...


//4

...

-

...

Em

...

Branco

...

(Nâo

...

utilizado)

...


//5

...

-

...

SC9.C9_PEDIDO

...


//6

...

-

...

SC9.C9_ITEM

...


//7

...

-

...

SC9.C9_CLIENTE

...


//8

...

-

...

SC9.C9_LOJA

...


//9

...

-

...

SC9.R_E_C_N_O_

...


//10

...

-

...

SA4.A4_ENDPAD,

...


//11

...

-

...

SC9.C9_FILIAL

...


//12

...

-

...

FILIAL

...


//13

...

-

...

Em

...

Branco

...

(Nâo

...

utilizado)

...


//14

...

-

...

Em

...

Branco

...

(Nâo

...

utilizado)

...


//15

...

-

...

Data

...

Atual

...


//16

...

-

...

Data

...

atual

...


//17

...

-

...

Nulo

...

(não

...

utilizado)

...


//18

...

-

...

Nulo

...

(não

...

utilizado)

...

For nI :=

...

1

...

To

...

Len(aGera)

...

//Percorre

...

o

...

array

...

para

...

validação

If aGera[nI,7]

...

==

...

'000001'

...


          MsgAlert('Montagem

...

de

...

carga

...

bloqueada

...

para

...

cliente

...

000001.')

...


          lGeraCar := .F.
          Exit
EndIf

Next nI

Return lGeraCar

------


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>