FormPedido.frm

  1. VERSION 5.00
  2. Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FormPedido
  3. Caption = "Pedidos"
  4. ClientHeight = 4275
  5. ClientLeft = 45
  6. ClientTop = 435
  7. ClientWidth = 7890
  8. OleObjectBlob = "FormPedido.frx":0000
  9. StartUpPosition = 1 'Centrar en propietario
  10. End
  11. Attribute VB_Name = "FormPedido"
  12. Attribute VB_GlobalNameSpace = False
  13. Attribute VB_Creatable = False
  14. Attribute VB_PredeclaredId = True
  15. Attribute VB_Exposed = False
  16. Option Explicit
  17.  
  18. Private cf As New ClaseFormulario
  19.  
  20. Private Sub botonBorrar_Click()
  21. If cf.Borrar Then
  22. cf.Mensaje = "El registro ha sido borrado"
  23. Else
  24. cf.Mensaje = "ERROR: No se puede borrar"
  25. End If
  26. End Sub
  27.  
  28. Private Sub botonBuscar_Click()
  29. If cf.Buscar(Me.textBuscar.Text, "Order ID") Then
  30. cf.Mostrar
  31. Else
  32. cf.Mensaje = "No encontrado"
  33. End If
  34. End Sub
  35.  
  36. Private Sub botonCerrar_Click()
  37. cf.Cerrar
  38. End Sub
  39.  
  40. Private Sub botonGuardar_Click()
  41. If Validar Then
  42. If cf.Guardar Then
  43. cf.Mensaje = "Ha sido guardado"
  44. Else
  45. cf.Mensaje = "ERROR: No se ha podido guardar"
  46. End If
  47. End If
  48. End Sub
  49.  
  50. Private Sub botonNuevo_Click()
  51. cf.Nuevo
  52. End Sub
  53.  
  54. Private Sub UserForm_Initialize()
  55. Set cf.Formulario = Me
  56. Set cf.Hoja = Worksheets("Pedidos")
  57. cf.Campos = "Order ID,Customer,Employee,Order Date"
  58.  
  59.  
  60. 'Me.campoCliente.RowSource = direccionOrigenFila(Worksheets("Clientes").Range("A:B"))
  61. Me.campoCliente.RowSource = direccionOrigenFila(Range("Clientes!A:B"))
  62. Me.campoEmpleado.RowSource = direccionOrigenFila(Range("Empleados!A:B"))
  63.  
  64. End Sub
  65.  
  66. Public Function Validar() As Boolean
  67.  
  68. Dim Mensaje As String
  69.  
  70. campoCodigo.Text = Trim(campoCodigo.Text)
  71. campoCliente.Text = Trim(campoCliente.Text)
  72. campoEmpleado.Text = Trim(campoEmpleado.Text)
  73. campoFecha.Text = Trim(campoFecha.Text)
  74. Validar = True
  75.  
  76. If Not IsNumeric(campoCodigo) Then
  77. Mensaje = Mensaje & "El código debe ser un número. "
  78. Validar = False
  79. ElseIf cf.EstaDuplicado("Order ID", campoCodigo) Then
  80. Mensaje = "ERROR: Ya existe el código. "
  81. Validar = False
  82. End If
  83. If Len(campoCliente) = 0 Then
  84. Mensaje = Mensaje & "Falta la empresa. "
  85. Validar = False
  86. End If
  87. If Len(campoEmpleado) = 0 Then
  88. Mensaje = Mensaje & "Falta el empleado. "
  89. Validar = False
  90. End If
  91. If Not IsDate(campoFecha) Then
  92. Mensaje = Mensaje & "Fecha incorrecta. "
  93. Validar = False
  94. End If
  95.  
  96. cf.Mensaje = Mensaje
  97.  
  98. End Function
  99.  
  100.  
  101.  

Proinf.net