Disponibilização dos objetos da tela para inclusão de campos no wizard de Acesso de veículo.

Características do Requisito

Ponto de Entrada

Exemplo:

#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")
   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.
      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 := {"","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})