Etiqueta: implementacion

Publicado el por — Dejar un comentario

Modulo Esteticas/Barberias

Mediante este pequeño modulo se controlara los servicios asi como las citas del rubro de Esteticas o Barberias,
cuenta con una agenda de prospecto de cliente y posterior dar de alta como cliente, asi como una forma para
agendar citas,y en la forma de clientes poder asignar los servicios realizados al mismo con la cuantificacion
del monto del mismo

Grupo Help
Nestor Guzman Bernal
Desarrollador de Soluciones

nestorguzmandesarrollo@gmail.com
glsoportempos@outlook.com

Publicado el por — Dejar un comentario

Arqueo de caja e impresion de Cortez (Directo a impresora)

Mediante esta pequeña modificacion,se realizara el arqueo de caja e impresion de la misma asi como la impresion del cortez sin visualizar en el browser del punto de venta.

Publicado el por — Dejar un comentario

Total de Caracteres de la descripcion de producto

Mediante esta modificación podemos cuantificar los caracteres que forman , la descripción de nuestro producto, y mostrarlo en la barra de titulo de nuestra forma de inventario de producto así como en el objeto peso.

Publicado el por — Dejar un comentario

Cambio de color forma (Productos)

Procedimiento prods01

Agregar estas Lineas

txtFields(0).backcolor = vbRed
txtFields(1).backcolor = vbBlack
txtFields(2).backcolor = vbWhite
txtFields(3).backcolor = vbYellow
txtFields(4).backcolor = vbGreen
txtFields(5).backcolor = vbRed
txtFields(6).backcolor = vbBlue
txtFields(7).backcolor = vbCyan
txtFields(8).backcolor = vbMagenta

Publicado el por — Dejar un comentario

Compartiendo Codigo (Crear Reporte)

Mediante estas lineas se creara un reporte de articulos.
Tabla Prods
articulos
descrip
precio1
existencia
lineas

1.-Business Manager
2.-Reportes
3.-Nuevo

pegar estas lineas

          IniciaDocumento()

' El reporte lo queremos horizontal

rem articulo,descrip,existencia,precio1,unidad,linea
rem son los registros de la tabla prods

      strSQL = "" 
      strSQL = strSQL & "SELECT "
      strSQL = strSQL & "prods.articulo, " 
      strSQL = strSQL & "prods.descrip, "
      strSQL = strSQL & "prods.existencia, "
      strSQL = strSQL & "prods.precio1, "
      strSQL = strSQL & "prods.unidad, "
      strSQL = strSQL & "prods.linea " 
    ' la tabla es prods
      strSQL = strSQL & "FROM prods "
      strSQL = strSQL & "WHERE prods.articulo <> 'SYS' "
      strSQL = strSQL & cCondicion
      strSQL = strSQL & "ORDER BY prods.articulo "
      Reporte.SQL = strSQL 
      Reporte.RetrieveColumns   

'   Coloca el titulo del registro
      Reporte.Columns("articulo").Titulo = "ARTICULO"  
      Reporte.Columns("Descrip").Titulo = "DESCRIPCION"

'Coloca el formato de salida del registro existencia
      Reporte.Columns("existencia").Formato = "##0.0"



      Reporte.ImprimeReporte
FinDocumento()