SoloCodigo

Estimada UserCode

Antes de entrar de lleno en el tema, te felicito por tu avatar. Mas sugerente imposible.

Bueno, a lo nuestro.

Vamos a partir de cero.

Debe existir una tabla de productos, de la forma:
* Codigo Producto
* Descripcion
* Valor
* Stock Actual
* Stock Minimo

Por otra parte, debe existir una tabla de ventas, de la forma:
* Numero Caja
* Numero Boleta
* Fecha Boleta
* Total Boleta

Y asociada a esta tabla, la tabla de detalle de la venta, de la forma:
* Numero Caja
* Numero Boleta
* Codigo Producto
* Cantidad Producto
* Valor Producto

Entonces, ahora el proceso de venta:

Al iniciar una venta, en la pantalla la grilla de productos se encuentra en cero. Es decir, no existe nada.

A medida que se va pasando la pistola laser, que lee el codigo, se busca en la tabla de productos, y si se encuentra, muestra el codigo en la grilla, la descripcion y el valor del producto.
El cursor se posiciona en la celda, donde se debe ingresar la cantidad del producto, lo que automaticamente genera que en la columna de sub-total, aparezca el valor de multiplicar el precio por la cantidad, y el cursor se queda esperando en la fila siguiente, por otro producto.

Cuando se termina de pasar todos los producto, se presiona el boton grabar, y es en ese momento que se graban los datos en la tabla de ventas y en la de detalle de ventas, y se imprime la boleta.

Este es el procedimiento mas facil.

Si deseas agregarle funcionalidades, puedes hacer que:
- Elimine un producto, que el cliente no desea llevar.
- Digitar el codigo del producto
- Grabar los productos mientras se registran, para protegerse en caso de caida del sistema o apagon de energia. Con lo que seria posible, recuperar lo ya pasado por caja, y no tener que pasar todos los productos de nuevo.

Espero haberte dado una luz un poco mas clara referente a la forma de operar de una caja.

Ahora, si vemos la parte de construccion de la aplicacion, obviamente no puedes hacer referencias directas a tablas, dado que te traera todos los registros de esta.

Es aqui, donde entra a jugar las famosas sentencias SQL.

Dependiendo de la base de datos sobre la cual tengas tus datos, sera posibles realizar llamadas SQL a tus tablas, para traer un registro en particular o un set de registros dada una condicion determinada.

Ahora bien, la gracia esta, en usar el "ingenio" para resolver estos problemas, y conocer todas las propiedades, eventos y funciones que existen en Visual, sus controles y trucos posibles para resolver tu problema.

Por otra parte, antes de ponerte a diseñar tu aplicacion, debes realizar un "modelo" de lo que deseas hacer, lo que derivara en tu esquema de tablas necesarias para registrar tus eventos.

La programacion, dependera de tu nivel de conocimientos y la facilidad de los datos, dependera de tu gestor de base de datos.

Espero que tengas suerte, y animo, que no hay nada que no se pueda resolver con un poco de ingenio...

Lo que debes incorporar a "tu control" es el control commondialog, y en la propiedad de color, activar un evento que te dispare el commondialog con la propiedad ShowColor, y que rescates el color seleccionado.

suma=timevalue(t1) + timevalue(t2) + timevalue(t3)

print Format(promedio, "hh:mm:ss")

Entonces, es asi de simple...

1° Hacemos una definicion logica de los pc involucrados
2° El PC que transfiere será el cliente (PC_C)
3° El PC que recibe, sera el servidor (PC_S)
4° El PC servidor, debe tener una carpeta compartida, con atributos de lectura y escritura.
5° El PC cliente, al ejecutar la orden de transferencia, debe crear una unidad de red, hacia la carpeta compartida del PC servidor.
6° Se realiza una copia del archivo desde el PC cliente hacia el PC servidor.
7° Al realizar la copiar, desconectas la unidad de red.
8° Listo

Para que veas como conectarte a una carpeta compartida (creando una unidad de red, y despues desconectarte, te adjunto un ejemplo super practico)

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    sHora = Text1.Text
    If EsHora(sHora) = True Then
        'CODIGO CUANDO LA HORA ES CORRECTA
    Else
        MsgBox "Hora incorrecta", vbInformation, "Advertencia"
        Text1.Text = ""
        Text1.SetFocus
    End If
End If
End Sub

Public Function EsHora(ByVal LaHora As String) As Boolean
'Verifica que tenga el separador de hora y minutos
EsHora = False
pos = InStr(LaHora, ":")
If pos > 0 Then
    'Obtengo la Hora
    sHora = Mid(LaHora, 1, pos - 1)
    'Obtengo los minutos
    sMinutos = Mid(LaHora, pos + 1, Len(LaHora) - pos + 1)
    'Verifico que sean numericos la Hora y Minutos
    If IsNumeric(sHora) And IsNumeric(sMinutos) Then
        'Valido el rango de las horas
        If CDbl(sHora) >= 0 And CDbl(sHora) <= 23 Then
            'Valido el rango de los minutos
            If CDbl(sMinutos) >= 0 And CDbl(sMinutos) <= 59 Then
                EsHora = True
            End If
        End If
    End If
End If
End Function

Estimado Martin,

Lamento informarte, que lo que estas pidiendo, es que te hagamos la tarea.

Situacion, que veo dificil alguien del foro realice.

La idea del foro, es atender dudas espeficas, o ayudarte en parte de codigo que no te funcione. Pero "hacerte" la pega... no lo creo.

Gracias por tu colaboracion

Voy a probar!!!!

Tengo un cliente y un servidor, que se comunican con winsock.

El servidor funciona de maravilla. Responde a todo y controla toda. Cero problema.

El tema que me complica es lo siguiente:
El cliente, tiene 3 (tres) botones
- cmdConect
- cmdSend
- cmdClose

Si se presionan en forma consecutiva, y en la secuencia anteriormente descrita, todo funciona bien. Se comunica sin problemas con el servidor, y obtengo respuesta.

Pero, si en un solo boton, activo el evento click de cada uno de estos 3 (tres) botones, NO logro la comunicacion con el servidor.

Adjunto el codigo del cliente, para que lo prueben...

Option Explicit

Public Sub cmdClose_Click()
cmdConnect.Enabled = True
cmdSend.Enabled = False
cmdClose.Enabled = False
End Sub

Public Sub cmdConnect_Click()
Winsock1.RemoteHost = "10.0.3.150"
Winsock1.RemotePort = 1007
Winsock1.Connect
txtRespuesta.Text = ""
cmdConnect.Enabled = False
cmdSend.Enabled = True
cmdClose.Enabled = True
txtMensajeEnviar.SetFocus
End Sub

Public Sub cmdSend_Click()
If Winsock1.State = sckConnected Then
    Winsock1.SendData txtMensajeEnviar.Text
    Label3.Caption = "Sending Data"
Else
    Label3.Caption = "No se puede conectar a host"
End If
End Sub

Private Sub cmdStatus_Click()
Label3.Caption = "Estado:" & Winsock1.State
End Sub

Private Sub cmdTodosJuntos_Click()
Call cmdConnect_Click
Call cmdSend_Click
Call cmdClose_Click
End Sub

Private Sub Form_Load()
txtMensajeEnviar.Text = "asdfasdfasdf"
txtRespuesta.Text = ""
Label3.Caption = ""
txtIP.Text = Winsock1.LocalIP
End Sub


Private Sub Winsock1_Connect()
Select Case Winsock1.State
    Case 0: Label3.Caption = "Cerrada"
    Case 1: Label3.Caption = "Abierta"
    Case 2: Label3.Caption = "Escuchando"
    Case 3: Label3.Caption = "Solicitud pendiente"
    Case 4: Label3.Caption = "Resolviendo Conexion"
    Case 5: Label3.Caption = "Resuelta Conexion"
    Case 5: Label3.Caption = "Resuelta Conexion"
    Case 6: Label3.Caption = "Conectandose"
    Case 7: Label3.Caption = "Conectado"
    Case 8: Label3.Caption = "Cerrando"
    Case 9: Label3.Caption = "Error"
End Select
Label3.Caption = Winsock1.State & ":" & Label3.Caption
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sData As String
Winsock1.GetData sData, vbString
txtRespuesta.Text = sData
Label3.Caption = "Received Data"
End Sub

Private Sub Winsock1_SendComplete()
Label3.Caption = "Completed Data Transmission"
End Sub


Si se dan cuenta, al presionar el boton cmdTodosJuntos, NO se activa el evento CONNECT del winsock.


Alguien sabe como resolver este tema?

Estimados,

Genera una libreria DLL desde Visual Basic 6.0

En mi servidor ASP, se registro la libreria sin problemas.
Se realizo una prueba de comunicacion, y la libreria logro responder sin problemas, pero cada vez que llamo a la libreria se detiene el servicio IIS.

La libreria lo que hace es simplemente es tomar dos valores, y devolver las cuatro operaciones (suma, resta, multiplica, divide).

Alguien me puede dar luz, referente del porque se esta deteniendo el servicio IIS?

Si tus registros tienen algun campo que se indice, entonces, si puedes hacerlo, utilizando el primer y ultimo indice obtenido de la primera consulta.
Posteriormente, al presionar "SIGUIENTE", tu consulta comienza desde el indice ULTIMO de la consulta ANTERIOR.

Otra modalidad es, crear una pila de datos que contengan, el primer y ultimo registro, y que el posicionador de la pila, el el contador de botones SIGUIENTE y ANTERIOR.

Hola estimados,

Mi consulta concreta:

Tengo un arbol (treeview) con "x" nodos con la propiedad checkbox en TRUE.

Existe alguna funcion, propiedad, tips o lo que sea, que me permita dejar ENABLED=FALSE un nodo en particular?

Cualquier ayuda es bienvenida.

Gracias por su futura colaboracion

Utiliza el control msscript que permite evaluar expresiones matematicas.
Es facil de usar, y de acuerdo a la modalidad que dices operarar (por medio de un archivo donde tienes los valores y la ecuacion), con este control te sera super facil.

Ahi te va un codigo de ejemplo, para que lo estudies y decidas.

Suerte

http://www.portalvb.com/CursosAp.asp?Ap=0001