tela de venda/orcamento

[paulomuniz]

ja tenho sistema rodando em minigui mais no momento tenho um sistema de estoque em dos clipper que usa vetor na entrada de nota fiscal, mais nao sei como fazer no minigui :'(

[sygecom]

Olá Paulo,
Você postou na sessão Hwgui mas a sua duvida é sobre Minigui ou Hwgui ?
Post o exemplo de como usar no Clipper para alguém tentar lhe postar um exemplo usando LIB Gráfica.

[Imatech]

Acredito que nas interfaces gráficas o uso seja muito parecido...

um exemplo básico seria:


Vetor (CUI):

Código: Selecionar todos

* Load Fields
Tabela->Campo_01 := aDados[  1 ]
Tabela->Campo_02 := aDados[  2 ]
Tabela->Campo_03 := aDados[  3 ]

* Save Fields
aDados[  1 ] := Tabela->Campo_01
aDados[  2 ] := Tabela->Campo_02
aDados[  3 ] := Tabela->Campo_03

TextBox (GUI):

Código: Selecionar todos

* Load Fields
Tabela->Campo_01 := Form.TextBox.TxtBox_01.Value
Tabela->Campo_02 := Form.TextBox.TxtBox_02.Value
Tabela->Campo_03 := Form.TextBox.TxtBox_03.Value


* Save Fields
Form.TextBox.TxtBox_01.Value := Tabela->Campo_01
Form.TextBox.TxtBox_02.Value := Tabela->Campo_02
Form.TextBox.TxtBox_03.Value := Tabela->Campo_03

Dica: é possivel a utilizazão de Arrays/Hash's/Vetores para criação e manipulação de controles visuais... para seu habito será importante estudar essa variante...

QT Sample: QLineEdit - Array of Line Edit
The following example uses many line edits, stored in an array, to insert and view data. (by Giovanni Di Maria)

Código: Selecionar todos

PROCEDURE Main() 
  LOCAL oWnd
  LOCAL oName[16]
  LOCAL k := 0 
  
  oWnd := QMainWindow() 
  oWnd:setWindowTitle( "Finestra di Giovanni" ) 
  oWnd:resize( 400, 250 ) 
  
  for k = 1 TO 8 
    oName[k] := QLineEdit( oWnd ) 
    oName[k]:move( 20, 22 * k ) 
    oName[k]:resize( 150, 20 ) 
  next k 
  
  for k = 9 TO 16 
    oName[k] := QLineEdit( oWnd ) 
    oName[k]:move( 180, 22 * ( k - 8 ) ) 
    oName[k]:resize( 150, 20 ) 
  next k 
  
  oWnd:show() 
  QApplication():exec() 

RETURN

Abç...