Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Nombre secuencial de ticket y directorio automático (modificable)!

Solox

New member
Registrado
6 Ene 2024
Mensajes
16
Hola a todos como están, es mi primer posteo, quería consultarles sobre un sistema de ventas que encontré para descargar que es realmente excelente por lo que vi usándolo hasta acá, ahora quería...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Solución
Solox y vanenq. Es una broma? o estan jugando en el foro?.

Solox voy a pasarte el codigo para que no abra los archivos generados. Lo otro de opcion configurable no se a que te refieres.

Te sugiero que armes tu consulta con tus dudas especificas de una sola vez. Sino el post se hace largo y continuo.


Reemplaza este codigo en la rutina de "Agregar_venta":

Código:
Sub Agregar_Venta()

Dim fila As Integer, ultimoid As Integer, periodo_pago As String, pagado_text As String, pagado_num As Double
Dim metodo As String, vuelto As Double, total_var As Double, id_producto As Integer, linea As Integer

metodo = venta_form.metodo_pago.Value

If metodo = "Efectivo" Then

'Total en caja
total_var =...
Hola, aca encontre donde crea el pdf y donde tal vez crearia tambien el nombre:
Código:
'Crear PDF

On Error Resume Next

Dim ruta As String, ruta_completa As String
Dim nombre_archivo As String...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Ahh ok perfecto, solo una mas te consulto, debo esperar q ese problema se resuelva o independientemente de eso, hago mi consulta con mi tema aunque sea mismo archivo/sistema o codigo, lo q sea?
 
Hola, hay un error en el nombre q se genera automaticamente, este es el codigo:

Código:
If fila > 2 Then las modific
ultimoid = ThisWorkbook.Worksheets("VENTAS").Range("A" & fila - 1).Value + 1...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Código:
If fila = 1 Then
ultimoid = ThisWorkbook.Worksheets("VENTAS").Range("A" & fila).Value + 1
End If

If fila > 2 Then
ultimoid = ThisWorkbook.Worksheets("VENTAS").Range("A" & fila - 1).Value...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Capaz que rudimentario, pero asi:
Código:
If fila < 1 Then
ultimoid = 1

ElseIf fila = 1 Then


ElseIf fila = 2 Then
ultimoid = ThisWorkbook.Worksheets("VENTAS").Range("A" & fila).Value + 1...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Volver
Arriba