Histórico da Página
Disponibilização dos objetos da tela para inclusão de campos no wizard de Acesso de veículo.
GFEA5222 - DISPONIBILIZAÇÃO DOS OBJETOS DA TELA PARA INCLUSÃO DE CAMPOS NO WIZARD DE ACESSO DE VEÍCULOS
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: | GFEA522 | ||||||||||||||||||||||||||||
Eventos: | GFEA5222 | ||||||||||||||||||||||||||||
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: |
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
|
| |
#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 !
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] |
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 :=
:= 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}) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas