Resultados de la búsqueda para: lineas

Publicado el por — Dejar un comentario

Alta de Lineas mediante una Forma externa(Net)

Mediante esta forma creada en visual Net, podremos dar de alta lineas
sin la necesidad de tener instalado mybusinesspos en el equipo,la conexion
puede ser mediante grupo de trabajo o vpn

Grupo Help
Nestor Guzman Bernal
Desarrollador de Soluciones

Publicado el por — Dejar un comentario

EXPORTA CATALOGOS DE LINEAS Y PRODUCTOS ENTRE VERSIONES.

Exporta el Catalogo de Lineas y Productos en un solo click .

Los Archivos Generados deberán de estar Ubicados en Raiz con los nombres lineas.xls y articulos.xls

Proceso a Seguir

  1. Exportar lineas de la Versión origen
  2. Guardar el archivo generado como lineas en raíz del sistema
    • c:\lineas.xls
  3. Importar lineas a la Versión Destino

 

  1. Exportar Productos de la Versión origen
  2. Guardar el archivo generado como articulos en raíz del sistema
    • c:\articulos.xls
  3. Importar articulos a la Versión Destino



Publicado el por — 6 comentarios

Colocar descripcion con varias lineas en ticket

En este ejemplo vamos a colocar la descripcion de un producto en varias lineas.
Para aplicarlo, modificaremos el formato TICKET, el cual esta en Configuracion–Personalizacion–formatos del sistema–Ticket

'------------------------------
'asi quedara el resultado
CANT. DESCRIPCION IMPORTE
1.00 TORNILLO CUERDA 15.00
X, CABEZA PLANA
TIPO CRUZ 3/4 PULG
'-------------------------------

'--------------------------------------------------
'Al inicio del código, identificaremos esta linea de consulta
Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )

'Agregaremos el campo partvta.observ y quedaría así
Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie,partvta.observ FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
'--------------------------------------------------

'identificaremos esta linea, aproximadamente es la numero 142
'strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & cDescrip & cLineaNueva & " " & cImporte
'agregamos esta linea para que la descripcion sea corta y se complemente con los saltos de linea
strSalida = PadL(Formato( nCantidad, "##,##0.00" ),3) & " " & PadL( Mid( rstPartidas("observ"),1,16 ),16) & cImporte & cLineaNueva

'Si se necesita multiples lineas para la descripcion, colocar este bloque de codigo
if Len (rstPartidas("observ")) > 16 Then
strSalida = strSalida & " " & Mid( rstPartidas("observ"),17,16) & cLineaNueva
end if
if Len (rstPartidas("observ")) > 32 Then
strSalida = strSalida & " " & Mid( rstPartidas("observ"),33,16) & cLineaNueva
end if
'esta linea agrega la descripcion y los importes al ticket
cSalida = cSalida & strSalida & cLineaNueva