Private Sub frm_Informacion_Obra_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub frm_Informacion_Empresa_Activated(sender As Object, e As EventArgs) Handles Me.Activated
Call Cargar_Tabs()
Call Cargar_Costes_Totales()
Call Cargar_Costes_Mat()
Call Cargar_Costes_Operarios()
Call Cargar_Costes_Impuestos()
Call Cargar_Costes_Vehiculos()
Call Cargar_Costes_Bancarios()
Call Cargar_Costes_Inmuebles()
Call Cargar_Costes_Seguros()
Call Cargar_Costes_Otros()
Call Cargar_Facturacion_Total()
Call Cargar_Facturacion1()
Call Cargar_Facturacion2()
Call Cargar_Facturacion3()
Call Cargar_Facturacion4()
Call Cargar_Otros_Ingresos()
Call Cargar_Pagado_Iva_Trimestral()
Call Cargar_Facturado_Iva_Trimestral()
Call Cargar_Resultado_Iva_Trimestral()
Call Cargar_Resultado_Total_Iva()
'call Cargar_Etiquetas()
'Call Cargar_Grafico()
Call Cargar_Mascaras()
End Sub
Private Sub frm_Informacion_Obra_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CargarInformaciones()
End Sub
Private Sub frm_Informacion_Empresa_Activated(sender As Object, e As EventArgs) Handles Me.Activated
'
End Sub
Private Sub CargarInformaciones()
Cargar_Tabs()
Cargar_Costes_Totales()
Cargar_Costes_Mat()
Cargar_Costes_Operarios()
Cargar_Costes_Impuestos()
Cargar_Costes_Vehiculos()
Cargar_Costes_Bancarios()
Cargar_Costes_Inmuebles()
Cargar_Costes_Seguros()
Cargar_Costes_Otros()
Cargar_Facturacion_Total()
Cargar_Facturacion1()
Cargar_Facturacion2()
Cargar_Facturacion3()
Cargar_Facturacion4()
Cargar_Otros_Ingresos()
Cargar_Pagado_Iva_Trimestral()
Cargar_Facturado_Iva_Trimestral()
Cargar_Resultado_Iva_Trimestral()
Cargar_Resultado_Total_Iva()
' Cargar_Etiquetas()
' Cargar_Grafico()
Cargar_Mascaras()
End Sub
Dim WithEvents MiTimer As New Timer
Private Sub frm_Informacion_Obra_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MiTimer.Interval = 2000 ' 2000 millisec, = 2 segundos
MiTimer.Start
End Sub
Private Sub MiTimer_Tick(sender As Object, e As EventArgs) Handles MiTimer.Tick
MiTimer.Stop
CargarInformaciones()
MiTimer.Dispose()
End Sub