hola como estas, el video me a gustado me tramo, como lo realizaste y como lo explicas me gustarías que tu me regalaras los códigos , para así trabaja en visual studio 2012.net gracias....
Buen video segui los mismos pasos q tu isistes en el video .., pero lo malo ya al ejecutarlo en donde dise detalle me sale angosto el cuadro no se por que ...
Excelente video me ayudo muchísimo, pero por que al final me dice que me falta un objeto dice: Error '424' en tiempo de ejecución Se requiere un objeto. Y me lleva al modulo y se pone al amarillo en: Factural.CANTIDAD.Text = ""
Buen ejemplo, pero a mi me marca error en el modulo de borrar_texto, lo que hice fue que en el botón Añadir al final puse el siguiente código: CANTIDAD = Empty DETALLE = Empty PRECIO = Empty y con eso ya no se requiere el modulo borrar. También para los que requieren en este ejemplo del amigo aparezcan el signo de pesos en la lista y en los textos de precios e IVA es solo de colocar el código de formatcurrency. y queda si el código completo: Private Sub AÑADIR_Click() LISTADO.Col = 1 LISTADO.Row = FILA LISTADO.Text = CANTIDAD.Text LISTADO.Col = 2 LISTADO.Row = FILA LISTADO.Text = DETALLE.Text LISTADO.Col = 3 LISTADO.Row = FILA LISTADO.Text = FormatCurrency(PRECIO) '.Text V = Val(CANTIDAD) * FormatCurrency(PRECIO) LISTADO.Col = 4 LISTADO.Row = FILA LISTADO.Text = FormatCurrency(V) TOT = TOT + V TOTAL = FormatCurrency(TOT) FILA = FILA + 1 'borrar_texto CANTIDAD = Empty DETALLE = Empty PRECIO = Empty End Sub '________________________________________________________________________________________ Private Sub BORRAR_Click() TOT = TOT - V TOTAL = TOT FILA = FILA - 1 LISTADO.Col = 1 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 2 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 3 LISTADO.Row = FILA LISTADO.Text = "" LISTADO.Col = 4 LISTADO.Row = FILA LISTADO.Text = "" End Sub '___________________________________________________________________________________ Private Sub Form_Load() LISTADO.ColWidth(0) = 10 LISTADO.Col = 1 LISTADO.Row = 0 LISTADO.Text = "CANTIDAD" LISTADO.ColWidth(2) = 5000 LISTADO.ColAlignment(2) = 5 LISTADO.Col = 2 LISTADO.Row = 0 LISTADO.Text = "DETALLE" LISTADO.Col = 3 LISTADO.Row = 0 LISTADO.Text = "PRECIO" LISTADO.Col = 4 LISTADO.Row = 0 LISTADO.Text = "PARCIAL" FILA = 1 End Sub '________________________________________________________________________________ Private Sub PAGAR_Click() IVA = FormatCurrency(TOT * 0.12) PAGO = FormatCurrency(TOT + IVA) End Sub '____________________________________________________________________ Private Sub PRECIO_Change()'este ultimo para que aparezca el signo de pesos en textbox On Error Resume Next PRECIO = FormatCurrency(PRECIO, 2) End Sub
Saludos desde mi país Guatemala. Felicitaciones
Somos de la misma tierra
Algún ser humano que me quiera prestar su factura llevo tres horas intentando hacer la factura y no me sale 😩😩😩😩😩😿😿😿
Que tal DMYSTERY, muy bonito tutorial de elaborar una factura
Muchas gracias
@@dmystery4153 h
@@dmystery4153m b m..9
Cómo pondría ese Flexgrid en visual studio 2019?
Que tal y como pones un limpiador para que se borre todo y espesar de nuevo añadiendo?
Excelente
hola buen video pero donde almaceno esos datos e agradecería su respuesta gracias
Los datos puedes almacenarlos en una conexión con Access si desean luego enseño como enlazar datos y que los registros queden guardados
@@dmystery4153 ya subiste el video?
Gracias por tu aporte.
tengo problemas me sale que error de compilación
Cómo lo puedo descargar para efectos de estudio
Gracias brooo me salvaste de perder una nota super valiosa que me hubiera caido mal a el año lecivo :3
V
hola como estas, el video me a gustado me tramo, como lo realizaste y como lo explicas me gustarías que tu me regalaras los códigos , para así trabaja en visual studio 2012.net
gracias....
Claro que si, por donde te paso las codificaciones?
Yo necesito los códigos me ayudas en eso 🥺
Muy bn video puedes poner el ejemplo para descargar en un link
Hola me pasarías las codificaciones?
Buen video segui los mismos pasos q tu isistes en el video .., pero lo malo ya al ejecutarlo en donde dise detalle me sale angosto el cuadro no se por que ...
quizás te pasaste el paso en donde esta el tamaño, es decir como ejecutar el tamaño para que quede amplio
Broo necesito ayuda con una tareas me ayudarias
Qué significa iva
Impuesto al Valor Agregado
Impuesto Valor agregado
Excelente video me ayudo muchísimo, pero por que al final me dice que me falta un objeto dice:
Error '424' en tiempo de ejecución
Se requiere un objeto.
Y me lleva al modulo y se pone al amarillo en:
Factural.CANTIDAD.Text = ""
.
Si
Responde estooo
Buen ejemplo, pero a mi me marca error en el modulo de borrar_texto, lo que hice fue que en el botón Añadir al final puse el siguiente código:
CANTIDAD = Empty
DETALLE = Empty
PRECIO = Empty
y con eso ya no se requiere el modulo borrar.
También para los que requieren en este ejemplo del amigo aparezcan el signo de pesos en la lista y en los textos de precios e IVA es solo de colocar el código de formatcurrency.
y queda si el código completo:
Private Sub AÑADIR_Click()
LISTADO.Col = 1
LISTADO.Row = FILA
LISTADO.Text = CANTIDAD.Text
LISTADO.Col = 2
LISTADO.Row = FILA
LISTADO.Text = DETALLE.Text
LISTADO.Col = 3
LISTADO.Row = FILA
LISTADO.Text = FormatCurrency(PRECIO) '.Text
V = Val(CANTIDAD) * FormatCurrency(PRECIO)
LISTADO.Col = 4
LISTADO.Row = FILA
LISTADO.Text = FormatCurrency(V)
TOT = TOT + V
TOTAL = FormatCurrency(TOT)
FILA = FILA + 1
'borrar_texto
CANTIDAD = Empty
DETALLE = Empty
PRECIO = Empty
End Sub
'________________________________________________________________________________________
Private Sub BORRAR_Click()
TOT = TOT - V
TOTAL = TOT
FILA = FILA - 1
LISTADO.Col = 1
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 2
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 3
LISTADO.Row = FILA
LISTADO.Text = ""
LISTADO.Col = 4
LISTADO.Row = FILA
LISTADO.Text = ""
End Sub
'___________________________________________________________________________________
Private Sub Form_Load()
LISTADO.ColWidth(0) = 10
LISTADO.Col = 1
LISTADO.Row = 0
LISTADO.Text = "CANTIDAD"
LISTADO.ColWidth(2) = 5000
LISTADO.ColAlignment(2) = 5
LISTADO.Col = 2
LISTADO.Row = 0
LISTADO.Text = "DETALLE"
LISTADO.Col = 3
LISTADO.Row = 0
LISTADO.Text = "PRECIO"
LISTADO.Col = 4
LISTADO.Row = 0
LISTADO.Text = "PARCIAL"
FILA = 1
End Sub
'________________________________________________________________________________
Private Sub PAGAR_Click()
IVA = FormatCurrency(TOT * 0.12)
PAGO = FormatCurrency(TOT + IVA)
End Sub
'____________________________________________________________________
Private Sub PRECIO_Change()'este ultimo para que aparezca el signo de pesos en textbox
On Error Resume Next
PRECIO = FormatCurrency(PRECIO, 2)
End Sub
Excelente muy bueno ..