implementacion archivos - José Félix ♞

Publicado el 18 mayo, 2021 por Nestor Guzman — 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 17 mayo, 2021 por Nestor Guzman — 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 14 mayo, 2021 por Nestor Guzman — 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()