elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


  Mostrar Mensajes
Páginas: [1] 2 3 4 5 6 7 8 9 10
1  Programación / Programación Visual Basic / imrimir varias hojas con numero de pagina en: 24 Noviembre 2022, 16:16 pm
Hola necesito imprimir varias paginas  con numero de pagina

en la facturacion de venta

el problema esta en cuanto imprimo lo hace todo seguido y hay un formato, cuando llega al final de la hoja y pasa a la siguiente el formato no lo hace
subo el ejemplo


https://workupload.com/file/4XXRNywJuA8

gracias
2  Programación / Programación Visual Basic / apertura y cierre de saldo en: 4 Octubre 2022, 12:50 pm
Hola Serapis

he conseguido arreglar el programa de facturacion o sea ahora puedo hacer compras y ventas, bueno el de compras estaba practicamente eho, he tenido que hacer el de ventas. funciona todo bien

ahora solo faltaria hacer apertura de saldo y cierre para cada dia, un ejemplo una idea con codigo yo ya lo adaptaria.

muchas gracias
3  Programación / Programación Visual Basic / Re: problema con hacer el carrito de almacen en: 25 Julio 2022, 15:07 pm
Solamente queria solucionar este punto de programacion, he solucionado varias cosas.

Sobre todo muchisimas gracias por todo lo demas he aprendido muchas cosas, y seguire aprendiendo muchas mas con el tiempo.

gracias por todo

4  Programación / Programación Visual Basic / problema con hacer el carrito de almacen en: 13 Julio 2022, 13:48 pm
hola serapis
estoy intentando de hacer el carrito de la compra de facturacion, pero lo quiero adaptar para hacer el carrito de articulos de almacen para poder comprar, Editar y eliminar articulos, para control de varios almacenes.

el menu principal seria

archivo = crear almacen, abrir almacen, cerrar almacen

edicion = comprar articulos, editar articulo,  eliminar articulos



en el list1 seria

Codigo  Stock     Articulo                impuesto    Uda.caja      Umbral    Pedido   En Oferta     



seria de mucha utilidad si me pudiese hacer la version del formulario frmalmacen

seria hacer el carrito de la compra de articulos

me hago un lio con las funciones
el programa no para de darme errores

muchas gracias
5  Programación / Programación Visual Basic / Re: leer archivo combo en: 6 Junio 2022, 22:18 pm
Hola Serapis

no se si estoy mal fijado o no

si se abre un archivo de facturacion los articulos que hay en dicha facturacion van al combo del formulario frmcompra para poder ir comprando articulos para la facturacion, si no que sentido hay en hacer crear facturacion y leer facturacion

gracias
6  Programación / Programación Visual Basic / Re: leer archivo combo en: 5 Junio 2022, 21:58 pm
gracias por responder serapis

se supone que el elhacker.net es un foro para hacer preguntas de visual basic 6.0

solo me falta este punto de programacion para solucionar, ya no hare mas preguntas gracias
7  Programación / Programación Visual Basic / leer archivo combo en: 5 Junio 2022, 15:20 pm
tengo un pequeño problema del programa Facturacion
a la hora de crear nueva facturacion va bien
a la hora de leer la informacion parece que lee pero no me lee la informacion en el formulario frmcompra del combo donde tiene que ir los articulos de leer la facturacion.

si yo creo varias facturaciones siempre en combo me lee la misma facturacion

el codigo del combo es el siguiente

Código
  1.  
  2.  
  3. Private Sub CmbArticulo_Click()
  4.    Dim Id As Integer
  5.  
  6.    If (CmbArticulo.ListIndex >= 0) Then
  7.        Id = CmbArticulo.ItemData(CmbArticulo.ListIndex)
  8.        RegArt = FrmAlmacen.ArticuloByCode(Id)
  9.        With RegArt
  10.            TxtUnidades.Text = CStr(.UnidadesPorCaja)
  11.            Call EstablecerValorImpuestos(.PrecioUnitario, .ImpuestoIVA)
  12.  
  13.            If (.IdOferta > 0) Then
  14.                LabOferta.Caption = "¿Está en oferta?:     SI"
  15.                Id = FrmOfertas.BuscarPorCodigo(.IdOferta, RegOfer)
  16.            Else
  17.                LabOferta.Caption = "¿Está en oferta?:     NO"
  18.                TxtDescuento.Text = "- 0.0"
  19.                Call VaciarRegOferta
  20.            End If
  21.        End With
  22.  
  23.        Call Totalizar
  24.    End If
  25. End Sub
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  



como puedo leer si son diferentes facturaciones y que vaya al combo del formulario frmcompra


gracias
8  Programación / Programación Visual Basic / Re: Guardar list2 y leer list1 en: 1 Mayo 2022, 18:07 pm
Hola serapis

he hecho los cambios y ahora me dice error en crearnuevafacturacion

Código
  1.  
  2. Private Sub mnualmacen_Click(Index As Integer)
  3. 'Crear Nuevo Almacen
  4. Dim File As String
  5.  
  6.    Select Case Index
  7.        Case 0  ' Nueva facturación
  8.             File = InputBox("Elija el nombre del fichero para una nueva facturacón (no debe existir).", "Nueva Facturacion", "Nueva facturacion.dat")
  9.            If (Len(File) > 0) Then
  10.                File = AsegurarExtension(File, FILE_EXTENSION_FACTURA)
  11.  
  12.                If (CrearNuevaFacturacion(File) = True) Then
  13.                    Call Activar(True)
  14.  
  15.                Else
  16.                    Call Activar(False)
  17.                End If
  18.            Else
  19.                Call MsgBox("Proceso de creación de nueva facturación abortado. No se proporcionó un nombre", vbInformation, "Nueva facturación")
  20.            End If
  21.        Case 1  ' Leer fichero de facturación
  22.            Frmfile1.Show 1
  23.            If (Len(Frmfile1.File) > 0) Then
  24.                If (LeerFacturacion(App.Path & "\" & Frmfile1.File) = True) Then
  25.                    Call Activar(True)
  26.                Else
  27.                    Call Activar(False)
  28.                End If
  29.            End If
  30.  
  31.    End Select
  32. End Sub
  33.  
  34.  
  35.  
  36.  

If (CrearNuevaFacturacion(File) = True) Then


error argument not opcional en CrearNuevaFacturacion(file)


gracias


9  Programación / Programación Visual Basic / Re: Guardar list2 y leer list1 en: 1 Mayo 2022, 14:18 pm
Ahora crea el nuevo almacen, pero no logro que me lea el almacen


Código
  1.  
  2. Private Sub mnualmacen_Click(Index As Integer)
  3. 'Crear Nuevo Almacen
  4. Dim File As String
  5.  
  6.    Select Case Index
  7.        Case 0  ' Nuevo Almacen
  8.             File = InputBox("Elija el nombre del fichero para una nuevo Almacen (no debe existir).", "Nuevo Almacen", "Nuevo Almacen.dat")
  9.            If (Len(File) > 0) Then
  10.                File = AsegurarExtension(File, FILE_EXTENSION_FACTURA)
  11.  
  12.                If (CrearNuevaFacturacion(File) = True) Then
  13.                    Call Activar(True)
  14.  
  15.                Else
  16.                    Call Activar(False)
  17.                End If
  18.            Else
  19.                Call MsgBox("Proceso de creación de nuevo Almacen abortado. No se proporcionó un nombre", vbInformation, "Nuevo Almacen")
  20.            End If
  21.        Case 1  ' Leer Nuevo Almacen
  22.            Frmfile1.Show 1
  23.            If (Len(Frmfile1.File) > 0) Then
  24.                If (LeerFacturacion(App.Path & "\" & Frmfile1.File) = True) Then
  25.                    Call Activar(True)
  26.                Else
  27.                    Call Activar(False)
  28.                End If
  29.            End If
  30.  
  31.    End Select
  32. End Sub
  33.  
  34.  
  35.  
  36. Private Function CrearNuevaFacturacion(ByRef NombreFile As String) As Boolean
  37. Dim Ruta As String
  38.  
  39.    If (Abierto = True) Then Call Cerrar(Canal)
  40.  
  41.    Ruta = (App.Path & "\" & NombreFile)
  42.    If (Abrir(Ruta, Canal, True) = True) Then
  43.        Call UpdateHeader(0, 0)
  44.        CrearNuevaFacturacion = True
  45.    Else
  46.        MsgBox "Parece que el fichero que intenta abrir ya existe, elija otro nombre (o bien ocurrió un error)..."
  47.    End If
  48. End Function
  49.  
  50.  
  51. Private Function LeerFacturacion(ByRef Ruta As String) As Boolean
  52.   Dim k As Integer
  53.  
  54.    If (Abierto = True) Then Call Cerrar(Canal)
  55.  
  56.    If (Abrir(Ruta, Canal) = True) Then
  57.        Get #Canal, 1, NumRegistros
  58.        Get #Canal, , AutoIncLote
  59.        Get #Canal, , AutoIncProducto
  60.  
  61.        If (NumRegistros > 0) Then
  62.            With List1
  63.                .Clear
  64.                For k = 1 To NumRegistros
  65.                    Get #Canal, , RegX
  66.                    Call .AddItem(RegCompraToString(RegX, CHAR_SEP))
  67.                Next
  68.  
  69.                ' Ahora si se quiere puede leerse de nuevo el primer registro para transferirlo a los textbox...
  70.                .ListIndex = 0 ' para ello delegamos en el código que pondremos al listbox...
  71.            End With
  72.        End If
  73.  
  74.        LeerFacturacion = True
  75.    End If
  76. End Function
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  




el problema esta en esta linea


Call .AddItem(RegCompraToString(RegX, CHAR_SEP))



error byref argument type mismatch en RegX

gracias




10  Programación / Programación Visual Basic / Re: Guardar list2 y leer list1 en: 22 Abril 2022, 19:05 pm
Hola Serapis

Estoy intentando de hacer crear almacen nuevo y leer almacen del menu principal  lo he probado de hacerlo con el formulario frmfile pero no me lo hace

si no es asin no se como hacerlo

gracias
Páginas: [1] 2 3 4 5 6 7 8 9 10
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines