tela de venda/orcamento
Enviado: 30 Jun 2012 21:33
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
:'(
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
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
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