Histórico da Página
...
| Nome | Tipo | Descrição | Obrigatório |
|---|---|---|---|
| aRetorno | Array | Array contendo na primeira posição uma informação lógica que indica se deve ou não ser gerada a carga e na segunda posição a mensagem de inconsistência para quando o retorno for Falso. | Sim |
06. VERSÕES
Protheus 12.1.23 ou superiores.
07. OBSERVAÇÃO
...
A emissão de mensagens será efetuada pelo Ponto de Entrada. Caso este retorne Falso, não será necessário efetuar emissão de mensagens na
funcionalidade de integração com o TOTVS Logística Cockpit.
08. EXEMPLO
...
| language | cpp |
|---|---|
| title | Validação Padrão |
| linenumbers | true |
| collapse | true |
...
------
#include 'protheus.ch'
...
#
include 'parmtype.ch'
...
#DEFINE
...
ENTER
...
Chr(10)+Chr(13)
...
user
...
function
...
OMSCPL7D()
...
Local
...
aAreaDK0
...
:=
...
getArea()
...
Local
...
cCodViag
...
:=
...
PARAMIXB[1]
...
//DK0_VIAGID
...
Local
...
cCodTras
...
:=
...
PARAMIXB[2]
...
//DK0_TRANSP
...
Local
...
cCodPlac
...
:=
...
PARAMIXB[3]
...
//DK0_PLACA
...
Local
...
cCodRegi
...
:=
...
PARAMIXB[4]
...
//DK0_REGID
...
Local
...
lRet
...
:=
...
.T.
...
Local
...
cMsgPedi
...
:=
...
""
...
Local
...
cErro
...
:=
...
""
...
dbSelectArea("DK1")
...
DK1→ (dbSetOrder(1))
...
If
...
DK1
...
→ (dbSeek(xFilial("DK1")+
...
cCodRegi+cCodViag))
...
While DK1→ (!Eof())
...
.AND.
...
xFilial("DK1")
...
<>
...
DK1→ DK1
...
_FILIAL
...
.AND.
...
DK1→ DK1
...
_REGID
...
==
...
cCodRegi
...
.AND.
...
DK1→ DK1
...
_VIAGID
...
==
...
cCodViag
IF DK1→ DK1_FILPED == cFilAnt
cMsgPedi += "→ Filial Atual: "+cFilAnt+"
...
→ Filial Pedido:
...
"+DK1->DK1_FILPED+"
...
→ Nr.
...
Pedido:
...
"+
...
DK1→DK1_PEDIDO+ENTER
...
EndIF
DK1→ (DbSkip())
...
EndDo
EndIF
IF !Empty(cMsgPedi)
...
.AND.
...
!IsBlind()
...
If APMSGYESNO("Existe(m)
...
pedido(s)
...
com
...
divergência
...
de
...
Filial.
...
Deseja
...
continuar
...
gerando
...
a
...
carga("+Alltrim(cCodViag)+")?"+ENTER+cMsgPedi)
...
lRet := .T.
Else
cErro += "PE OMSCPL7D: Problema na geração da carga."
lRet := .F.
EndIF
EndIF RestArea(aAreaDK0)
return {lRet, cErro}
------
| 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>
|
Import HTML Content
Visão Geral
Conteúdo das Ferramentas