Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Usuário desconhecido (pedro.scandolara)

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Usuário desconhecido (pedro.scandolara)

Gravado em

Chave

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

GFEA5222 - DISPONIBILIZAÇÃO DOS OBJETOS DA TELA PARA INCLUSÃO DE CAMPOS NO WIZARD DE ACESSO DE VEÍCULO

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada

Descrição:

Permite editar o conjunto de objetos de cada uma das etapas no wizard.

Localização:

Após a criação dos componentes das etapas do Wizard

Programa Fonte:

GFEA522

Retorno:

Nome

Tipo

Descrição

Obrigatório

aObjs1

A

Array contendo o objeto responsável pela montagem da primeira wizard

Sim

aObjs2

A

Array contendo o objeto responsável pela montagem da segunda wizard

Sim

aObjs3

A

Array contendo o objeto responsável pela montagem da terceira wizard

Sim
aObjs4AArray contendo o objeto responsável pela montagem da quarta wizardSim
aObjs5AArray contendo o objeto responsável pela montagem da quinta wizardSim
aObjs6AArray contendo o objeto responsável pela montagem da sexta wizardSim
Bloco de código
languagedelphi
firstline1
titleExemplo GFEA5222
#include 'protheus.ch'
#include 'parmtype.ch'

User Function GFEA5222()
Local aObjs1 := PARAMIXB[1]
Local aObjs2 := PARAMIXB[2]
Local aObjs3 := PARAMIXB[3]
Local aObjs4 := PARAMIXB[4]
Local aObjs4Tmp := aObjs4[2]
Local aObjs5 := PARAMIXB[5]
Local aObjs6 := PARAMIXB[6]
Local aTitulos := {}

//Exemplo de manipulação da quarta wizard. Onde adicionamos campos na grid.

If ! IsInCallStack("E4_LstRefresh")
   aObjs4[2] := Nil
   aTitulos := {"","Agendamento","Data","Hora","Operação","Emitente","Placa","Motorista"}
   aObjs4[2] := TWBrowse():New( 20, 15, 275, 115,, aTitulos ,{10,45,35,18,30,22,50,15,45},oWizard:oMPanel[4] ,,,,,,,,,,,,,,.T.)
EndIf
If(Len(aEtapa4) > 0)
   If(Empty(aEtapa4[1][2]))
      aEtapa4[1] := {.T.,"","","","","","","","",""}/*Quantidade de posições que terá o Array aEtapas*/
   EndIf
EndIF
aObjs4[2]:SetArray(aEtapa4)
aObjs4[2]:bLine := {|| If(Len(aEtapa4) == 0, {.T.,"","","","","","",""}, { If(aEtapa4[aObjs4[2]:nAt,1],oOK,oNO),aEtapa4[aObjs4[2]:nAt,2],aEtapa4[aObjs4[2]:nAt,3],aEtapa4[aObjs4[2]:nAt,4],aEtapa4[aObjs4[2]:nAt,5],aEtapa4[aObjs4[2]:nAt,6],aEtapa4[aObjs4[2]:nAt,9],aEtapa4[aObjs4[2]:nAt,10]}) }

Return ({aObjs1, aObjs2, aObjs3, aObjs4, aObjs5, aObjs6})