Árvore de páginas

Versões comparadas

Chave

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

...

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

ArrayContêm informações dos Pedidos selecionados para geração da Carga
aHeadersArrayContém o cabeçalho dos campos a serem apresentados no browse de Pedidos
bLineBloco de Código

Armazena a regra de preenchimento dos campos do browse de Pedidos

oLiberadoObjeto ImagemObjeto imagem usado quando status da carga igual a 1.
oCalendObjeto ImagemObjeto imagem usado quando status da carga igual a 2.
oHorarioObjeto Imagem

Objeto imagem usado quando status da carga igual a 3.

oVeiculoObjeto Imagem

Objeto imagem usado quando status da carga igual a 4.

oPedMan

Objeto de dadosObjeto contendo os dados da tela de sequenciamento dos pedidos

...

NomeTipoDescrição
aRetCargaArray

Array de três posições, contendo:

  • aRetCarga[1] - aArrayCarga
  • aRetCarga[2] - aHeaders
  • aRetCarga[3] - bLine

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

...

languagecpp
titleExemplo
linenumberstrue
collapsetrue

...

------

#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