Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Bruno Coelho Da Silva

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Hercilio Henning Neto

Gravado em

Chave

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

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

GFEA5222

Descrição:

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

Localização:

GFEA522

Eventos:

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

Programa Fonte:

User Function GFEA5222()

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

GFEA522

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aObjs1aObjs1

A

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

Sim

 aObjs2aObjs2

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 


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 ! 


If ! IsInCallStack("E4_LstRefresh")

   aTitulos := {"","Agendamento","Data","Hora","Operação","Emitente"/*Aqui você adiciona no aHeader*//*}
   aObjs4[2] := TWBrowse():New( 20, 15, 275, 115,, aTitulos ,{10,45,35,18,30,22/*Aqui você adiciona o tamanho da coluna*//*},oWizard:oMPanel[4] ,,,,,,,,,,,,,,.T.)
EndIf

If(Len(aEtapa4) > 0) //Caso o array chegue vazio
   If(Empty(aEtapa4[1][2]))//Se chegar vazio, significa que vamos preencher com o tamanho desejado. Se não, é que as informações já estão corretas.
      //Por padrão, o array tem 8 posições. Acrescentar mais um para cada campo adicionado.

     //Os campos são adicionados neste array no ponto de entrada GFEA5226.
      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]/*Aqui você adiciona a posição em qua ele está no aEtapa4*//*,aEtapa4[aObjs4[2]:nAt,9]}) }
aObjs4[2]:bRClicked := {|| aEval(aEtapa4,{|x|x[1]:=!x[1]}),aObjs4:Refresh(.F.) }
aObjs4[2]:bLDblClick := {|| E4_VerifOper() }
*/

If ! IsInCallStack("E4_LstRefresh")
   aObjs4[2] := Nil
   aTitulos := 

   aObjs4[2] := Nil
   aTitulos := {"","Agendamento","Data","Hora","Operação","Emitente","Placa","Motorista"}

   aObjs4

   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

   If(Empty(aEtapa4[1][2]))

      

      aEtapa4[1] := {.T.,"","","","","","","","",""}/*Quantidade de posições que terá o Array aEtapas*/

   EndIf
EndIF

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