Histórico da Página
...
Este Ponto de Entrada permite incluir campos na tela Sequência de Entrega, da rotina de Montagem de Carga (OMSA200).
...
Localizado antes da abertura da tela Sequência de Entrega, acessível pela rotina de Montagem de Carga, opção Seq. Ent.
04. PARÂMETROS
Nome | Tipo | Descrição |
---|---|---|
aArrayCarga | Array | Contêm informações dos Pedidos selecionados para geração da Carga |
aHeaders | Array | Contém o cabeçalho dos campos a serem apresentados no browse de Pedidos |
bLine | Bloco de Código | Armazena a regra de preenchimento dos campos do browse de Pedidos |
oLiberado | Objeto Imagem | Objeto imagem usado quando status da carga igual a 1. |
oCalend | Objeto Imagem | Objeto imagem usado quando status da carga igual a 2. |
oHorario | Objeto Imagem | Objeto imagem usado quando status da carga igual a 3. |
oVeiculo | Objeto Imagem | Objeto imagem usado quando status da carga igual a 4. |
oPedMan | Objeto de dados | Objeto contendo os dados da tela de sequenciamento dos pedidos |
...
Nome | Tipo | Descrição |
---|---|---|
aRetCarga | Array | Array de três posições, contendo:
Estes três elementos devem estar no mesmo formato em que foram recebidos por parâmetro, contendo inclusive os campos adicionados pelo Ponto de Entrada e que serão apresentados na tela Sequência de Entrega. |
06. VERSÕES
Protheus 12.1.17 ou superiores.
07. OBSERVAÇÃO
Não se aplica.
08. EXEMPLO
...
language | cpp |
---|---|
title | Exemplo |
linenumbers | true |
collapse | true |
...
------
#INCLUDE "PROTHEUS.CH"
...
User
...
Function
...
OM200AdC()
...
Local aRet := {}
Local aArray := PARAMIXB[1]
...
//--
...
Conteúdo
...
do
...
campo.
...
Local
...
aHeaders
...
:=
...
PARAMIXB[2]
...
//--
...
Cabeçalho
...
do
...
campo.
...
Local bLine :=
...
PARAMIXB[3]
...
//--
...
Condição
...
para
...
inserir
...
conteúdo
...
no
...
campo
...
.
//--
...
Objetos
...
de
...
Status.
...
Local
...
oLiberado
...
:=
...
PARAMIXB[4]
...
Local oCalend :=
...
PARAMIXB[5]
...
Local oHorario :=
...
PARAMIXB[6]
...
Local oVeiculo :=
...
PARAMIXB[7]
...
Local oPedMan :=
...
PARAMIXB[8]
...
Local oDown :=
...
LoadBitmap(
...
GetResources(),
...
"TRIDOWN"
...
)
...
Local oUp := LoadBitmap( GetResources(),
...
"TRIUP"
...
)
Local aAreaPE := GetArea()
...
Local
...
nX
...
:=
...
0
...
For
...
nX
...
:=
...
1
...
To
...
Len(aArray)
...
SA1->(DbSetOrder(1))
...
If SA1->(DbSeek(xFilial("SA1")+aArray[nX][6]+aArray[nX][7]))
...
AAdd(aArray[nX],Alltrim(
...
SA1→A1_INSCR))
...
AAdd(aArray[nX],Alltrim(
...
SA1→A1_CEP))
...
EndIF
Next nX
AAdd(aHeaders,
...
RetTitle("A1_INSCR"))
...
AAdd(aHeaders,
...
RetTitle("A1_CEP"))
...
bLine:={||{Iif(oPedMan:aArray[oPedMan:nAT,18]==1,oLiberado,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==2,oVeiculo,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==3,oHorario,;
...
Iif(oPedMan:aArray[oPedMan:nAT,18]==4,oCalend,oLiberado)))),;
...
oDown, oUp,;
oPedMan:aArray[oPedMan:nAT,1
...
],;
...
oPedMan:aArray[oPedMan:nAT,2
...
],;
...
oPedMan:aArray[oPedMan:nAT,5
...
],;
...
oPedMan:aArray[oPedMan:nAT,19],;
...
oPedMan:aArray[oPedMan:nAT,16],;
...
oPedMan:aArray[oPedMan:nAT,17],;
...
oPedMan:aArray[oPedMan:nAT,20],;
...
oPedMan:aArray[oPedMan:nAT,6
...
],;
...
oPedMan:aArray[oPedMan:nAT,7
...
],;
...
oPedMan:aArray[oPedMan:nAT,8
...
],;
...
oPedMan:aArray[oPedMan:nAT,9
...
],;
...
oPedMan:aArray[oPedMan:nAT,10],;
...
oPedMan:aArray[oPedMan:nAT,11],;
...
oPedMan:aArray[oPedMan:nAT,30],;
...
//
...
Referência para
...
exibição
...
da
...
Inscrição
...
Estadual.
...
Deve
...
se
...
iniciar
...
a
...
partir
...
do
...
30,
...
pois
...
o
...
array
...
padrão
...
possui
...
29
...
posições.
oPedMan:aArray[oPedMan:nAT,31]}}
...
//
...
Referência para
...
exibição
...
do
...
CEP
...
.
AAdd(aRet,
...
aArray)
...
AAdd(aRet,
...
aHeaders)
...
AAdd(aRet,
...
bLine)
...
RestArea(aAreaPE)
...
Return(aRet)
------
Templatedocumentos |
---|
HTML |
---|