Publicado el Dejar un comentario

PuntoV055, Carga los parámetros iniciales de la malla de datos

Sub Main()
Dim s

Dim adXactReadSerializable
Dim adXactReadUncommitted
Dim adXactReadCommitted
Dim adXactRepeatableRead

adXactReadSerializable = 1048576
adXactReadUncommitted = 256
adXactReadCommitted = 4096
adXactRepeatableRead = 65536

‘ Establecemos el modo de Aislamiento
‘Ambiente.Connection.Execute “SET TRANSACTION ISOLATION LEVEL SERIALIZABLE”
Ambiente.Connection.IsolationLevel = adXactReadSerializable

Me.WindowState = 2

If Ambiente.rstEstacion(“bloquear”) <> 0 Then
Me.bloqueadoDeCaptura = True
Else
Me.bloqueadoDeCaptura = False
End If

If Reload = False Then
fg2.Font.Name = “Arial”
fg2.Font.Size = 8
fg2.Font.Bold = False
End If

If Reload = False Then
Version2008
End if

fg2.ColWidth(6) = 12000
DevolverEfectivo = True

If Reload = False Then
‘ColocaMensajeDeAyuda
End If

If Me.WebServer Is Nothing Then
On Error Resume Next
Me.NewWebServer
txtFields(3) = Me.WebServer.StartServer( 4430, “/”, Ambiente.path & “\web” )
End If

End Sub

Sub Version2008()
Dim n
Dim i
Dim bolGris

WebBrowser1.Height = WebBrowser1.Height – 200
WebBrowser1.Width = 2000
fg2.Left = WebBrowser1.Left + WebBrowser1.Width
fg2.Top = WebBrowser1.Top
fg2.Height = WebBrowser1.Height
fg2.Width = Me.Width – WebBrowser1.Width – 250

txtFields(4).Width = 2500
txtFields(4).BackColor = RGB( 0, 0, 50 )
txtFields(4).Top = txtFields(4).Top – 100
txtFields(4).Font.Name = “Arial”
txtFields(4).Font.Size = 10

Command6.Visible = True
Command6.Top = txtFields(4).Top
Command6.Left = txtFields(4).Left + txtFields(4).Width
Command6.Height = txtFields(4).Height

cmdBuscar.Visible = True
cmdBuscar.Top = txtFields(4).Top
cmdBuscar.Left = txtFields(4).Left + txtFields(4).Width + Command6.Width + 20
cmdBuscar.Height = txtFields(4).Height

txtFields(3).Alignment = 0
txtFields(3).Width = txtFields(4).width + 1100
txtFields(3).Height = txtFields(3).Height – 100
txtFields(3).BorderStyle = 0
txtFields(3).Font.Name = “Verdana”
txtFields(3).Font.Size = 10

fg2.Clear
fg2.Rows = 400
fg2.Cols = 20

fg2.Redraw = False

bolGris = True

For n = 1 To fg2.Rows – 1
fg2.RowHeight(n) = 750

If bolGris Then
For i = 1 To fg2.Cols – 1
fg2.Row = n
fg2.Col = i
fg2.CellBackColor = RGB( 220, 220, 255 )
fg2.CellForeColor = RGB( 0, 0, 100 )
Next

bolGris = False

Else

bolGris = True

End If

Next

fg2.Redraw = True

End Sub

Sub ColocaMensajeDeAyuda()
txtInfoExtra.Left = lblLabel(3).Left + 300
txtInfoExtra.Top = txtFields(3).Top – 100
txtInfoExtra.Width = 2000
txtInfoExtra.Height = 800
txtInfoExtra.Alignment = 0

txtInfoExtra.Font.Name = “Arial”
txtInfoExtra.Font.Size = 7
txtInfoExtra.Enabled = False
txtInfoExtra.Text = “<F2> Opciones” & vbCrLf & “<F5> Cobrar” & vbCrLf & “<Flecha abajo> Búsqueda”
txtInfoExtra.BorderStyle = 0
End Sub

Deja un comentario