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

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

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

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

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

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

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

 
 
Private Sub CmbArticulo_Click()
    Dim Id As Integer
 
    If (CmbArticulo.ListIndex >= 0) Then
        Id = CmbArticulo.ItemData(CmbArticulo.ListIndex)
        RegArt = FrmAlmacen.ArticuloByCode(Id)
        With RegArt
            TxtUnidades.Text = CStr(.UnidadesPorCaja)
            Call EstablecerValorImpuestos(.PrecioUnitario, .ImpuestoIVA)
 
            If (.IdOferta > 0) Then
                LabOferta.Caption = "¿Está en oferta?:     SI"
                Id = FrmOfertas.BuscarPorCodigo(.IdOferta, RegOfer)
            Else
                LabOferta.Caption = "¿Está en oferta?:     NO"
                TxtDescuento.Text = "- 0.0"
                Call VaciarRegOferta
            End If
        End With
 
        Call Totalizar
    End If
End Sub
 
 
 
 
 
 

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


gracias

Hola serapis

he hecho los cambios y ahora me dice error en crearnuevafacturacion

 
Private Sub mnualmacen_Click(Index As Integer)
'Crear Nuevo Almacen
 Dim File As String
 
    Select Case Index
        Case 0  ' Nueva facturación
             File = InputBox("Elija el nombre del fichero para una nueva facturacón (no debe existir).", "Nueva Facturacion", "Nueva facturacion.dat")
            If (Len(File) > 0) Then
                File = AsegurarExtension(File, FILE_EXTENSION_FACTURA)
 
                If (CrearNuevaFacturacion(File) = True) Then
                    Call Activar(True)
 
                Else
                    Call Activar(False)
                End If
            Else
                Call MsgBox("Proceso de creación de nueva facturación abortado. No se proporcionó un nombre", vbInformation, "Nueva facturación")
            End If
        Case 1  ' Leer fichero de facturación
            Frmfile1.Show 1
            If (Len(Frmfile1.File) > 0) Then
                If (LeerFacturacion(App.Path & "\" & Frmfile1.File) = True) Then
                    Call Activar(True)
                Else
                    Call Activar(False)
                End If
            End If
 
    End Select
End Sub
 
 
 
 

If (CrearNuevaFacturacion(File) = True) Then


error argument not opcional en CrearNuevaFacturacion(file)


gracias

Ahora crea el nuevo almacen, pero no logro que me lea el almacen

 
Private Sub mnualmacen_Click(Index As Integer)
'Crear Nuevo Almacen
 Dim File As String
 
    Select Case Index
        Case 0  ' Nuevo Almacen
             File = InputBox("Elija el nombre del fichero para una nuevo Almacen (no debe existir).", "Nuevo Almacen", "Nuevo Almacen.dat")
            If (Len(File) > 0) Then
                File = AsegurarExtension(File, FILE_EXTENSION_FACTURA)
 
                If (CrearNuevaFacturacion(File) = True) Then
                    Call Activar(True)
 
                Else
                    Call Activar(False)
                End If
            Else
                Call MsgBox("Proceso de creación de nuevo Almacen abortado. No se proporcionó un nombre", vbInformation, "Nuevo Almacen")
            End If
        Case 1  ' Leer Nuevo Almacen
            Frmfile1.Show 1
            If (Len(Frmfile1.File) > 0) Then
                If (LeerFacturacion(App.Path & "\" & Frmfile1.File) = True) Then
                    Call Activar(True)
                Else
                    Call Activar(False)
                End If
            End If
 
    End Select
End Sub
 
 
 
Private Function CrearNuevaFacturacion(ByRef NombreFile As String) As Boolean
 Dim Ruta As String
 
    If (Abierto = True) Then Call Cerrar(Canal)
 
    Ruta = (App.Path & "\" & NombreFile)
    If (Abrir(Ruta, Canal, True) = True) Then
        Call UpdateHeader(0, 0)
        CrearNuevaFacturacion = True
    Else
        MsgBox "Parece que el fichero que intenta abrir ya existe, elija otro nombre (o bien ocurrió un error)..."
    End If
End Function
 
 
Private Function LeerFacturacion(ByRef Ruta As String) As Boolean
   Dim k As Integer
 
    If (Abierto = True) Then Call Cerrar(Canal)
 
    If (Abrir(Ruta, Canal) = True) Then
        Get #Canal, 1, NumRegistros
        Get #Canal, , AutoIncLote
        Get #Canal, , AutoIncProducto
 
        If (NumRegistros > 0) Then
            With List1
                .Clear
                For k = 1 To NumRegistros
                    Get #Canal, , RegX
                    Call .AddItem(RegCompraToString(RegX, CHAR_SEP))
                Next
 
                ' Ahora si se quiere puede leerse de nuevo el primer registro para transferirlo a los textbox...
                .ListIndex = 0 ' para ello delegamos en el código que pondremos al listbox...
            End With
        End If
 
        LeerFacturacion = True
    End If
End Function
 
 
 
 
 
 
 

el problema esta en esta linea


Call .AddItem(RegCompraToString(RegX, CHAR_SEP))



error byref argument type mismatch en RegX

gracias

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