últimos mensajes de: luison

Mostrar Mensajes
Páginas: 1 2 [3] 4 5 6 7 8 9

Programación / .NET (C#, VB.NET, ASP) / Ayuda con impresion alineada.

en: 22 Junio 2011, 00:06 am

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

 
 
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.

22	Programación / .NET (C#, VB.NET, ASP) / Cómo saber qué formulario abrio a otro?	en: 21 Junio 2011, 00:16 am
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 .

23	Programación / Bases de Datos / Ayuda con una consulta compleja	en: 17 Mayo 2011, 17:29 pm
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..

24	Programación / Bases de Datos / Re: Convertir mi servidor MySQL local a servidor Público?	en: 6 Mayo 2011, 18:18 pm
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?

25	Programación / Bases de Datos / Convertir mi servidor MySQL local a servidor Público?	en: 5 Mayo 2011, 23:50 pm
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...

26	Programación / .NET (C#, VB.NET, ASP) / Problema al cargar icono a todos los forms	en: 28 Abril 2011, 17:45 pm
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 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...

27	Programación / Programación Visual Basic / Cómo organizar / formatear los contenidos de un ticket de venta?	en: 26 Abril 2011, 19:07 pm
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 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..

Programación / Programación Visual Basic / Re: Como rotar estas promociones...?

en: 19 Abril 2011, 19:37 pm

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

Código

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

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

29	Programación / Programación Visual Basic / Como rotar estas promociones...?	en: 19 Abril 2011, 18:13 pm
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 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 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.

30	Programación / .NET (C#, VB.NET, ASP) / Re: Cómo ejecuto mi aplicacion una vez al dia?	en: 13 Abril 2011, 18:18 pm
Gracias raul338 voy a intentar algo de eso y les cuento a ver qué sale! Gracias..

Páginas: 1 2 [3] 4 5 6 7 8 9