Calculations are not performed (was: Help)
Posted: Thu Sep 19, 2024 5:45 pm
Hi All
Continue to develop an app and getting problems after probem. So far I have this code which doesn't work.
Can someone tell me why? The calculations at the end doesn't get done.
Continue to develop an app and getting problems after probem. So far I have this code which doesn't work.
Can someone tell me why? The calculations at the end doesn't get done.
Code: Select all
Enumeration FormWindow
#ArtigosWin
EndEnumeration
Enumeration FormGadget
#Txt_Codigo_Item
#Txt_Descricao_Item
#Txt_Custo_Item
#Txt_Margem_Item
#Txt_Desconto_Item
#Opt_Unidade_Item
#Opt_IVA_Item
#Txt_PVP_Item
#But_Guardar_Artigo
#But_Cancelar_Artigo
#But_Limpar_Artigo
#Lbl_Codigo_Item
#Lbl_Descricao_Item
#Lbl_Unidade_Item
#Lbl_Custo_Item
#Lbl_Margem_Item
#Lbl_IVA_Item
#Lbl_PVP_Item
#Lbl_Desconto_Item
#Lbl_IVA_Item_Copy1
EndEnumeration
OpenWindow(#ArtigosWin, 0, 0, 654, 235, "", #PB_Window_SystemMenu)
StringGadget(#Txt_Codigo_Item, 27, 40, 100, 30, "")
StringGadget(#Txt_Descricao_Item, 147, 40, 353, 30, "")
StringGadget(#Txt_Custo_Item, 28, 103, 100, 30, "")
StringGadget(#Txt_Margem_Item, 147, 100, 100, 30, "")
StringGadget(#Txt_PVP_Item, 528, 100, 100, 30, "")
StringGadget(#Txt_Desconto_Item, 274, 100, 100, 30, "")
ComboBoxGadget(#Opt_Unidade_Item, 527, 40, 100, 30)
AddGadgetItem(#Opt_Unidade_Item, -1, "Unidade")
AddGadgetItem(#Opt_Unidade_Item, -1, "Metro")
AddGadgetItem(#Opt_Unidade_Item, -1, "Hora")
ComboBoxGadget(#Opt_IVA_Item, 401, 100, 100, 30)
AddGadgetItem(#Opt_IVA_Item, -1, "14")
AddGadgetItem(#Opt_IVA_Item, -1, "Isento")
SetGadgetState(#Opt_IVA_Item, 0)
SetGadgetState(#Opt_Unidade_Item, 0)
ButtonGadget(#But_Guardar_Artigo, 527, 167, 100, 30, "Guardar")
ButtonGadget(#But_Cancelar_Artigo, 400, 167, 100, 30, "Cancelar")
ButtonGadget(#But_Limpar_Artigo, 273, 167, 100, 30, "Limpar Form")
TextGadget(#Lbl_Codigo_Item, 27, 20, 100, 17, "Codigo")
TextGadget(#Lbl_Descricao_Item, 147, 20, 100, 17, "Descrição")
TextGadget(#Lbl_Unidade_Item, 527, 20, 100, 17, "Unidade")
TextGadget(#Lbl_Custo_Item, 27, 80, 100, 17, "Preço de Custo")
TextGadget(#Lbl_Margem_Item, 147, 80, 100, 17, "Margem")
TextGadget(#Lbl_PVP_Item, 528, 80, 100, 17, "PVP")
TextGadget(#Lbl_Desconto_Item, 274, 80, 100, 17, "Desconto %")
TextGadget(#Lbl_IVA_Item_Copy1, 401, 80, 100, 17, "Taxa de IVA %")
Procedure GuardarArtigo()
Custo.i = Val(GetGadgetText(#Txt_Custo_Item))
Margem.i = Val(GetGadgetText(#Txt_Margem_Item))
Desconto.i = Val(GetGadgetText(#Txt_desconto_Item))
IVA.i = Val(GetGadgetText(#Opt_IVA_Item))
PVP.i = Custo * Margem / 100
SetGadgetText(#Txt_PVP_Item, Str(PVP.i))
; UseSQLiteDatabase()
;
; If OpenDatabase(0, "Facturacao.sqlite", "", "")
; Debug "Connected to PureBasic.sqlite"
; EndIf
CodigoArtigo.s = GetGadgetText(#Txt_Codigo_Item)
Descricao.s = GetGadgetText(#Txt_Descricao_Item)
unidade.s = GetGadgetText(#Opt_Unidade_Item)
EndProcedure
Select WindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #But_Guardar_Artigo
GuardarArtigo()
EndSelect
EndSelect
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow