Sub Globals
'Declare the global variables here.
rAm = 0 'Record ID
dataFile1 = "RECEITAS.csv"
changes = false 'Used for the "save changes before exit" question.
End Sub
Sub App_Start
ESTAMPARIA.Show
table1.LoadCSV("RECEITAS.csv",",",true,true)
TABLE12.AddCol(cString,"PADRAO",90)
TABLE12.AddCol(cString,"CLIENTE",120)
End Sub
Sub ENTRECEITASEST_Click
MENURECEITAS.Show
End Sub
Sub RECconsulta_Click
RECEITACONSULTA.Show
End Sub
Sub PORCLIENTE_Click
TABLE12.Visible=TRUE
PORCLIENTE.Visible=FALSE
For I = 0 To TABLE1.RowCount -1
TABLE12.AddRow (TABLE1.Cell ("PADRAO",RAM),TABLE1.Cell ("CLIENTE",RAM))
RAM=RAM+1
Next I
TABLE12.TableSort("CLIENTE ASC")
End Sub
Sub RECEITACONSULTA_Close
If TABLE12.Visible=TRUE Then
TABLE12.Visible=FALSE
TABLE12.Clear
PORCLIENTE.Visible=TRUE
End If
RAM=0
End Sub