Mensajes

Salu2

Tengo un problemita:
Estoy imprimiendo un ticket de venta y no logro alinear los encabezados con el detalle de la venta. Ejemplo de lo que pretendo lograr:

Código (vbnet) [Seleccionar] Expandir




DESCRIPCION---------------------------IMPORTE
Agua Ciel 375 ML                       5.50
Cereal Fitness                        27.90


'Cabe destacar que estoy imprimiendo haciendo uso de PrintDocument.
'Utilizo e.GRaphics.DrawString.

dim LenDetalle as integer
dim espacios as integer=35 'maximos caracteres a imprimir de la descripcion del articulo
LenDetalle =Len(rec("descripcion"))  'sacamos los caracteres de la descripcion
espacios=espacios - LenDetalle  'restamos maximo carateres a  imprimir - caracteres de la descripcion


'Ahora para imprimir pongo lo siguiente:
e.GRaphics.DrawString(rec("detalle") & espacios & rec("importe"))



'Asi me imprime algo similar a esto:

DESCRIPCION---------------------------IMPORTE
Agua Ciel 375 ML                       5.50
Cereal Fitness                     27.90



Al parecer al concatenar los espacios siempre son mas pequeños que un caracter, por eso nunca se alinea.

No diseñe el ticket en crystal reports ya que no lo tengo.

Alguien que me pueda hecha un cable?

Saludos y estamos por aqui tratando.

Salu2 a to2.

Veran estoy creando un sistemita y requiero de un teclado virtual, el cual ya programe, pero el problema es cuando quiero utilizarlo, ejemplo:

En el login form tengo 3 controles:
TextBox -  txtUser
TextBox - txtPass
TextBox - btnValidar

El boton abre el teclado virtual, y ahi en otro TextBox voy escribiendo, ahora quiero pasar eso que escribi al txtPass que es la contraseña del usuario y entrar.
Pasarlo del teclado a un form no es problema, el problema es que son muchos formularios, entonces quiero agilizar eso.

Se me ocurrió que al abrir el teclado busque el formulario predecesor o el formulario que mando ejecutar el Teclado, luego sabiendo el formulario predecesor ya puedo saber a que form y  control pasar el texto.

Alguien sabe cómo sacar el formulario que precede a otro, es decir;  tengo 3 formularios A,B y C, donde C ya esta abierto, cómo puede saber C si fue A o B quien lo mando ejecutar?

Gracias por sus ideas.

Estamos por aqui indagando  .

[TABLA PEDIDOS]

Hola salu2

Estoy haciendo un sistemita para la panaderia de mi  viejo y estoy atorado en una consulta que para mi resulta compleja. Les pongo las tablas que utilizo para generar la consulta:

TABLA PEDIDOS


TABLA INGREDIENTES


TABLA PANADEROS


TABLA PRODUCTOS



Esas son las tablas de donde necesito generar la consulta. Ahora les pongo una imagen con un resultado similar al que estoy tratando de llegar.
[/b]



Hasta ahorita he lo grado lo siguiente:




Alguien que pueda echarme un cable para lograr la consulta.
Gracias y estaremos por aqui intentando..

Desde ayer me di a la tarea de cambiar el 50% mis consultas a procedimientos almacenados, en  el phpmyadmin del hosting modifique las tablas a tipo innoDB y veo un cambio considerable en la velocidad, ahora la respuesta es más rápida.

No estoy seguro pero, ese cambio posiblemente sea correcto, ya que antes usaba un
par de SP, pero no tenia las tablas como innoDB.


Qué opinan?

Que tal salu2

Verán, desarrollé un sistemita de ventas que se va implementar en 6 sucursales. La base de datos esta en mysql.
Ya esta terminado el sistema, el gran problema está en que monté la base de datos en un hosting de pago que tengo, pero el sistema trabaja muuuy lento.

He pensado en configurar la maquina de una de las 6 sucursales como servidor y ahi montar la base de datos, todo con la fnalidad de ganar velocidad y el sistema trabaje más rápido.

Alguien puede echarme un cable para lograrlo o decirme qué otras alternativas existen para lograr mayor velocidad?

Espero sus tips.

Saludos...

Hola salu2

Estoy trartando de generar una funcion que le asigne a todos los formularios de mi aplicacion el mismo icono. La idea es algo como esto:

Código (vbnet) [Seleccionar] Expandir


For Each f In Application.forms
                f.Icon = New System.Drawing.Icon("ruta")
            Next


Solo que Application.forms no exixte, solo OpenForms.
Alguien sabe cómo recorrer los formularios y setear el mismo icon?

Gracias...

[Space]

Salu2

Verán desarrollé un sistemita de ventas, el cual ya trabaja un 90% estable.
Lo único que me falta es el ticket, el cual aún no logro organizar y centrar los contenidos en el papel.

La forma con al que imprimo es usando un ejemplo como el siguiente:

Código (vb) [Seleccionar] Expandir


Dim rc As New Recordset
           Set rc = Conexion.Execute("consulta sql")
               
               If rc.EOF = False Then
               Printer.Print Space(7) & "NOMBRE DE LA TIENDA"
               Printer.Print "Direccion Tienda"
               Printer.Print "Telefono Tienda"
               Printer.Print "----------------------------------------------"
               Printer.Print "Detalles de la compra"
               Printer.Print ""
               
               Printer.Print "TOTALES...."
                   Printer.Print Space(30) & "     Total:" & Space(2) & Me.txtTotal.Text '  rc!total
                   Printer.Print Space(30) & " Efectivo:" & Space(2) & Format(Me.txtEfectivo.Text, "$##0.00")
                   Printer.Print Space(30) & "   Cambio:" & Space(2) & Me.txtCambio.Text
                   Printer.Print Space(30) & "Artículos:" & Space(2) & Me.txtArticulos.Text
                   
           Printer.Print "PIE DEL TICKET"
           
           printer.EndDoc
           End If
           Set rc = Nothing






Como pueden ver utilizo Space para dar algunos espacios, pero no sirve para centrar cuando un codigo o texto es de longitud muy grande.
En lo que he investigado sugieren el uso de CurrentY y CurrentX,  pero no encuentro ejemplos claros.

Alguien ha diseñado un ticket de venta que pueda echarme un cable?
Gracias y estamos por aqui investigando..

Hasta ahorita he logrado un avance con 2 timers, un par de arreglos para guardar la info de la consulta:

Código (vb) [Seleccionar] Expandir


Public Sub consulta_promos()
   
Dim recset As New Recordset
    Set recset = Conexion.Execute("SELECT descripcion,img from promos where fecha_termina >= #" & Date & "#")
       
            If recset.EOF = False Then
                   
                    Do While Not recset.EOF
                           
                            mtextos(posT) = recset!descripcion
                            mImages(posI) = recset!img
                           
                            posT = posT + 1
                            posI = posI + 1
                            recset.MoveNext
                    Loop
            End If
           
            Set recset = Nothing
End Sub


Código (vb) [Seleccionar] Expandir


Private Sub tmrPromociones_Timer()
 

If tope > posT Then
tope = 1
lblMsjsPromos.Caption = mtextos(tope)
    Me.picPromos.LoadImage_FromFile (App.Path & "/img_promos/" & mImages(tope))
    Me.picPromos.AutoSize = True
tope = tope + 1
Else
    lblMsjsPromos.Caption = mtextos(tope)
    Me.picPromos.LoadImage_FromFile (App.Path & "/img_promos/" & mImages(tope))
    Me.picPromos.AutoSize = True
tope = tope + 1
End If

    tmrPromociones.Enabled = False
    Me.tmrReiniciaPromos.Enabled = True
End Sub


Estoy provocando varios escenarios / casos para ver si esta forma es la adecuada

Salu2

Tengo una tabla con promociones:
ID -  DESCRIPCION -   INICIA -     TERMINA
1      3 x 2 Cereales   19/04/2011   25/04/2011
2      4 X 3 Pastas       20/04/2011  30/04/2011

Código (vb) [Seleccionar] Expandir


Dim recset As New Recordset
    Set recset = Conexion.Execute("SELECT descripcion from promos where termina >='" & Date & "'")
       
            If recset.EOF = False Then
                   
                    While Not recset.EOF
                            'mostrar promocion #1
                            'esperar 1 minuto
                            'mostrar promocion # 2
                            'esperar 1 minuto
                            '...
                            recset.MoveNext
                    Loop
            End If
           
    Set recset = Nothing


La idea es mostrar la promoción #1, esperar un tiempo razonable mientras se lee la descripción, luego mostrar la siguiente promoción, esperar y asi sucesivamente.

He pensado tal vez se pueda hacer con

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


O  posiblemente exista una forma mas eficiente.

Espero puedan ayudarme  con algunos tips.

Gracias, seguiremos por aqui intentando.

Gracias raul338 voy a intentar algo de eso y les cuento a ver qué sale!

Gracias..