App de Pedidos Online

App de Pedidos Online

En estos tiempos de Coronavirus, es necesario mantener las distancias sociales. Esta app para android, ios y web, ayuda a conseguir ese objetivo. Hemos creado para Trassierra 98, un bar de Córdoba una aplicación para realizar comandas sin necesidad de camarero. Está especialmente desarrollada a gusto del cliente, para evitar en lo posible, la necesidad de que el camarero se acerque al cliente. En la aplicación, se muestra la carta, gráficamente y como lista de productos, y el cliente puede elegir y enviar la comanda al bar. Se le envía también a su cuenta de correo. En el bar, la comanda se imprime automáticamente sin intervención de los empleados, y esta puede ser servida. La idea puede ser exportada a diferentes negocios y situaciones.  Podemos adaptar la solución a tu bar o negocio, personalizando la aplicación con tus colores, logotipos, productos…  En fin, a partir de una aplicación podemos desarrollar cualquier variación para adaptarla a tu caso en concreto. Por ejemplo, la aplicación puede mostrar tu carta o catálogo, y el cliente puede realizar el pedido después directamente según las opciones que le propongas.  El pedido lo puedes consultar fácilmente, así como los usuarios que se dan de alta en tu aplicación. Contacta con nosotros y te haremos un presupuesto a medida de tus necesidades...
Seleccionar impresora al imprimir informe en Access

Seleccionar impresora al imprimir informe en Access

Por defecto, para imprimir un informe en Access desde un formulario, se usa la impresora predeterminada, sin posibilidad de elegirla antes de que se imprima dicho informe. Esto se consigue con la instrucción: DoCmd.OpenReport «NombreDelInforme», acNormal Después de buscar una solución en muchos foros, hemos encontrado en www.trucoweb.com, un método sencillo, muy sencillo para elegir la impresora por la que queremos imprimir nuestro informe en access. Solo hay que poner las siguientes instrucciones: DoCmd.OpenReport «NombreDelInforme», acPreview DoCmd.RunCommand acCmdPrint DoCmd.Close acReport, «NombreDelInforme» Con esto lo que hacemos es abrir el informe, mostrar el dialogo para elegir la impresora por la que imprimir y, posteriormente, cerrar el informe. Método sencillo, funcional y comprobado en access...
Ordenar un Datagrid haciendo click en la cabecera

Ordenar un Datagrid haciendo click en la cabecera

En Visual Basic 6, podemos ordenar rápidamente un Datagrid haciendo click en la cabecera con solo incluir esta función: Public Sub OrdenarDataGrid( ByVal ColIndex As Integer, RS As ADODB.Recordset, Datagrid As Datagrid) Dim strColName As String Static bSortAsc As Boolean Static strPrevCol As String strColName = "[" & Datagrid.Columns(ColIndex).DataField & "]" If strColName = strPrevCol Then If bSortAsc Then RS.Sort = strColName & " DESC" bSortAsc = False Else RS.Sort = strColName bSortAsc = True End If Else RS.Sort = strColName bSortAsc = True End If strPrevCol = strColName Exit Sub Posteriormente desde el método HeadClick del DataGrid, podemos llamar a esta función de esta forma: Private Sub DataGrid_HeadClick(ByVal ColIndex As Integer) ' Le envia el ColIndex (columna donde hacemos click), ' el recordset enlazado al Datagrid y el mismo Datagrid Call OrdenarDataGrid(ColIndex, RSenlazado, DataGrid) End Sub Esta función puede ser llamada desde cualquier DataGrid de nuestro proyecto con sólo añadirla a un módulo. Eso sí, hay que tener en cuenta que no funciona para ordenar campos...
Guardar datos en Hoja de Cálculo Excel desde VB6

Guardar datos en Hoja de Cálculo Excel desde VB6

Os publico un ejemplo simple de cómo generar un archivo excel desde Visual Basic 6. A partir de este ejemplo se puede adaptar para cada caso concreto, añadir bucles, tomar los datos de un recordset, etc. 'Creamos el objeto Set objExcel = CreateObject("Excel.Application") 'Ponemos la aplicación excel no visible 'para no ver como se genera la hoja objExcel.Visible = False objExcel.Workbooks.Add 'Hoja activa Set hoja = objExcel.ActiveSheet irow = 1 'Numero de fila 'Rellenamos las celdas segun queramos ' bucles , etc.... 'Lo pasamos a excel hoja.Cells(irow + 1, 1) = valor hoja.Cells(irow + 1, 2) = valor hoja.Cells(irow + 1, 3) = valor hoja.Cells(irow + 1, 4) = valor hoja.Cells(irow + 1, 5) = valor hoja.Cells(irow + 1, 6) = valor 'Opcional : damos formato 'Como ejemplo a la cabecera hoja.Rows(1).Font.Bold = True hoja.Rows(1).Font.Color = vbRed'Autoajustamos hoja.Columns("A:Z").AutoFit 'ponemos visible objExcel.Visible = True 'Guardamos el archivo objExcel.ActiveWorkbook.SaveAs "C:" & NombreExcel & ".xls" Set hoja = Nothing Set xlibro = Nothing Set objExcel =...