Árvore de páginas

Versões comparadas

Chave

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

...

Localizado antes da solicitação do código do volume a ser montado pelo Operador.

04. PARÂMETROS

NomeTipoDescrição

cCarga

Caractere

Carga para a qual se está montando os volumes

cPedido

Caractere

Pedido para o qual se está montando os volumes

05. RETORNO

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>