VISUAL BASIC FACTURA
Cerrado
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
-
5 ene 2014 a las 21:49
Estefyy nena Mensajes enviados 10 Fecha de inscripción domingo, 5 de enero de 2014 Estatus Miembro Última intervención domingo, 5 de enero de 2014 - 5 ene 2014 a las 21:53
Estefyy nena Mensajes enviados 10 Fecha de inscripción domingo, 5 de enero de 2014 Estatus Miembro Última intervención domingo, 5 de enero de 2014 - 5 ene 2014 a las 21:53
Consulta también:
- VISUAL BASIC FACTURA
- Error del sistema &h8000ffff visual basic - Guide
- Visual foxpro - Guide
- Mecanet basic - Programas - Educación
- Cheats pokemon rojo fuego visual boy advance - Guide
- Como sacar el subtotal de una factura - Foro Excel
1 respuesta
Estefyy nena
Mensajes enviados
10
Fecha de inscripción
domingo, 5 de enero de 2014
Estatus
Miembro
Última intervención
domingo, 5 de enero de 2014
5 ene 2014 a las 21:53
5 ene 2014 a las 21:53
CALCULAR
Private Sub Button_CALCULAR_PRODUCTOS_Click()
TEXT_PRECIOTOTAL11 = Val(TEXT_CANT11) * Val(TEXT_PRECIOUNIT11)
TEXT_PRECIOTOTAL12 = Val(TEXT_CANT12) * Val(TEXT_PRECIOUNIT12)
TEXT_PRECIOTOTAL13 = Val(TEXT_CANT13) * Val(TEXT_PRECIOUNIT13)
End Sub
IMPRIMIR
Private Sub Button_IMPRIMIR_Click()
FACT_VASQUEZ.PrintForm
End Sub
CALCULAR TOTAL
Private Sub Button_Calcular_Click()
'subtotal
TEXT_SUBTOTAL = (Val(TEXT_PRECIOTOTAL11) + Val(TEXT_PRECIOTOTAL12) + Val(TEXT_PRECIOTOTAL13))
'descuento
If TEXT_SUBTOTAL >= 100 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.1
Else
If TEXT_SUBTOTAL >= 500 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.15
Else
If TEXT_SUBTOTAL >= 700 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.18
Else
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0
End If
End If
End If
'RECARGO
If TEXT_FORMADEPAGO = "VISA" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.12
Else
If TEXT_FORMADEPAGO = "DINNERS" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.1
Else
If TEXT_FORMADEPAGO = "MASTERCARD" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.13
Else
If TEXT_FORMADEPAGO = "EFECTIVO" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0
Else
If TEXT_FORMADEPAGO = "" Then
MsgBox "TARJETA NO VALIDO"
Else
End If
End If
End If
End If
End If
'IVA
TEXT_IVA = CDbl(TEXT_SUBTOTAL) * 0.12
'TOTAL A PAGAR
TEXT_TOTAL = CDbl(TEXT_SUBTOTAL) - CDbl(TEXT_DESCUENTO) + CDbl(TEXT_RECARGO) + CDbl(TEXT_IVA)
End Sub
Private Sub Button_CALCULAR_PRODUCTOS_Click()
TEXT_PRECIOTOTAL11 = Val(TEXT_CANT11) * Val(TEXT_PRECIOUNIT11)
TEXT_PRECIOTOTAL12 = Val(TEXT_CANT12) * Val(TEXT_PRECIOUNIT12)
TEXT_PRECIOTOTAL13 = Val(TEXT_CANT13) * Val(TEXT_PRECIOUNIT13)
End Sub
IMPRIMIR
Private Sub Button_IMPRIMIR_Click()
FACT_VASQUEZ.PrintForm
End Sub
CALCULAR TOTAL
Private Sub Button_Calcular_Click()
'subtotal
TEXT_SUBTOTAL = (Val(TEXT_PRECIOTOTAL11) + Val(TEXT_PRECIOTOTAL12) + Val(TEXT_PRECIOTOTAL13))
'descuento
If TEXT_SUBTOTAL >= 100 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.1
Else
If TEXT_SUBTOTAL >= 500 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.15
Else
If TEXT_SUBTOTAL >= 700 Then
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0.18
Else
TEXT_DESCUENTO = Val(TEXT_SUBTOTAL) * 0
End If
End If
End If
'RECARGO
If TEXT_FORMADEPAGO = "VISA" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.12
Else
If TEXT_FORMADEPAGO = "DINNERS" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.1
Else
If TEXT_FORMADEPAGO = "MASTERCARD" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0.13
Else
If TEXT_FORMADEPAGO = "EFECTIVO" Then
TEXT_RECARGO = Val(TEXT_SUBTOTAL) - Val(TEXT_DESCUENTO) * 0
Else
If TEXT_FORMADEPAGO = "" Then
MsgBox "TARJETA NO VALIDO"
Else
End If
End If
End If
End If
End If
'IVA
TEXT_IVA = CDbl(TEXT_SUBTOTAL) * 0.12
'TOTAL A PAGAR
TEXT_TOTAL = CDbl(TEXT_SUBTOTAL) - CDbl(TEXT_DESCUENTO) + CDbl(TEXT_RECARGO) + CDbl(TEXT_IVA)
End Sub
