Publicado el 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 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 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()