Á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

...

------

User Function OMSCPL6A()

...


Local

...

cFilPed

...

:=

...

PARAMIXB[1]

...

//Filial

...

do

...

pedido

...


Local

...

cPedido

...

:=

...

PARAMIXB[2]

...

//Número

...

do

...

pedido

...


Local

...

cCarga

...

:=

...

PARAMIXB[3]

...

//Códido

...

da

...

carga

...


Local

...

cViagem

...

:=

...

PARAMIXB[4]

...

//Código

...

da

...

viagem

...


Local

...

cSeqInt

...

:=

...

PARAMIXB[5]

...

//Sequência

...

de

...

Integração

...


Local

...

lViagComp

...

:=

...

PARAMIXB[6]

...

//Indica

...

se

...

a

...

viagem

...

completa

...

será

...

estornada

...


Local

...

cItem

...

:=

...

PARAMIXB[7]

...

//Item

...

do

...

pedido

...

Local

...

cProduto

...

:=

...

PARAMIXB[8]

...

//Código

...

do

...

produto

...


Local

...

lEstPedSel:=

...

PARAMIXB[9]

...

//Indica

...

se

...

é

...

um

...

estorno

...

de

...

"pedidos

...

selecionados"

...


Local

...

aRet

...

:=

...

{}

...


Local

...

lRet

...

:=

...

.T.

...


Local

...

cFalha

...

:=

...

""

...

If

...

lEstPedSel
     lRet :=

...

.F.

...

     

...

 

...


 

...

 

...

 cFalha :=

...

"Forma

...

de

...

desatualização

...

de

...

pedidos

...

bloqueada

...

para

...

uso.

...

Utilize

...

a

...

opção

...

de

...

desatualizar

...

pedido

...

posicionado."

...


EndIf 

If lRet .And.

...

lViagComp

...

.And.

...

!Empty(cCarga)

...

     

...

 

...


 

...

 

...

 lRet :=

...

.F.

...

     

...

 

...


 

...

 

...

 cFalha :=

...

"A

...

sequência

...

de

...

integração

...

possui

...

carga

...

gerada,

...

estorne

...

a

...

carga

...

manualmente."

...

  
EndIf   

aRet := {lRet,cFalha}

...

Return

...

aRet

------


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>