Árvore de páginas

Versões comparadas

Chave

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

...

NomeTipoDescrição

cVolume

Caractere

Código do volume

06. VERSÕES

Protheus 11.80.19 ou superiores.

07. OBSERVAÇÃO

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

08. EXEMPLO

...

languagecpp
titleExemplo
linenumberstrue

...

------

#INCLUDE "PROTHEUS.CH"

...

User

...

Function

...

WV080CDV()

...


Local

...

aAreaAnt

...

:=

...

GetArea()

...


Local

...

cCarga

...

:=

...

PARAMIXB[1]

...


Local

...

cPedido

...

:=

...

PARAMIXB[2]

...


Local

...

cVolume

...

:=

...

""

...


Local

...

cQuery

...

:=

...

""

...


Local

...

cAliasQry

...

:=

...

GetNextAlias()

...

cQuery

...

:=

...

"SELECT

...

MAX(DCU_CODVOL)

...

CODVOL"

...


cQuery

...

+=

...

"

...

FROM

...

"

...

+

...

RetSqlName('DCU')

...


cQuery

...

+=

...

"

...

WHERE

...

DCU_FILIAL

...

=

...

'"+xFilial('DCU')+"'"

...


cQuery

...

+=

...

"

...

AND

...

DCU_CARGA

...

=

...

'"+cCarga+"'"

...


cQuery

...

+=

...

"

...

AND

...

DCU_PEDIDO

...

=

...

'"+cPedido+"'"

...


cQuery

...

+=

...

"

...

AND

...

D_E_L_E_T_

...

=

...

'

...

'"

...


cQuery

...

:=

...

ChangeQuery(cQuery)

...


DbUseArea(.T.,'TOPCONN',TcGenQry(,,cQuery),cAliasQry,.F.,.T.)

...

If

...

!Empty((cAliasQry)->CODVOL)

...


         //

...

Remove

...

os

...

espaços

...

em

...

branco

...

e

...

incrementa

...

o

...

valor
        cVolume :=

...

Soma1(AllTrim((cAliasQry)->CODVOL))

...


        WmsMessage("Novo

...

volume

...

criado:

...

"

...

+

...

cVolume)

...


Else
        cVolume :=

...

"01"

...


EndIf

...

RestArea(aAreaAnt)

...

Return

...

cVolume

------


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>