Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Hercilio Henning Neto

Gravado em

comparado com

Nova versão 6

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.

 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 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})