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.ExecuteSET 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

Publicado el Dejar un comentario

Error por comilla

Se esperaba un final de Instrucción 1025
1025:Se esperaba un final de instrucción en línea 32

Este error es por comilla simple o comilla doble que tal vez no está cerrando correctamente. Generalmente, el texto que va entre comillas se colorea de morado.

 

Publicado el Dejar un comentario

Error en Proveedor de TCP

Existe un error al Intentar hacer la conexión -2147467259 Proveedor de TCP: Se produjo un error durante el intento de conexión ya que Ia parte conectada no respondió adecuadamente tras un periodo de tiempo, o bien se produjo un error en Ia conexión establecida ya que el host conectado no ha podido responder.

 

código duro: 5

.