Porner en la factura el cosecutivo de facturas pendientes del mismo cliente
Bueno tengo un formulario que se llama factura donde hago la factura a los clientes que vienen y cuando termino la factura por un código me abre un informe tipo ticket el cual se imprime y tiene los datos del cliente y del servicio o servicios que se le prestan en nuestra lavandería
Hay clientes que tienen ropa pendiente por entregar y es acá mi pregunta haber si me pudieran ayudar
Quisiera que si el cliente viene y solicita otro servicio si el cliente tiene facturas pendientes por entregar la factura que se le hace hay muestre los consecutivos que tiene pendientes en la parte de abajo para que el cliente sepa y los retire
¿Esto es posible?
1 Respuesta
No lo entendí bien ya que tampoco sé como facturas, pero supongo que cuando alguien te lleva unas prendas para que se las laves o planches o lo que sea, le cobras antes( al menos eso creo que hacen en las tintorerías), pero, si tengo el formulario
Donde en el control factura le pone automáticamente ese formato, y en el campo Nprenda del subformulario, le pone un número correlativo dentro de la propia factura, para diferenciar las prendas. Cuando se entregan las piezas se marca, en el subformulario, como entregadas. Vamos a suponer que por lo que sea una de ellas no se ha entregado(señalada con la flecha).
Si algún tiempo después viene ese mismo cliente a traer algo(es lo que he supuesto que preguntabas)
Cuando la elijo
Si le dices sí
Para el formulario Servicio, el código que le dá número a la factura
Private Sub IdCliente_AfterUpdate()
NumFactura = Format([IdServicio], "0000") & "/" & Year(Date)
End Sub
Private Sub IdCliente_BeforeUpdate(Cancel As Integer)
If DCount("*", "consulta1", "IDCLIENTE=" & Me.IdCliente & "") >= 1 Then
Dim respuesta As Byte
respuesta = MsgBox("Ese cliente tiene prendas sin recoger. ¿Quiere verlas?", vbYesNo + vbInformation, "Tu decides")
If respuesta = vbYes Then
DoCmd.OpenForm "Sinentregar", , , , , acDialog
ElseIf respuesta = vbNo Then
Exit Sub
End If
End If
End SubEl código del subformulario es
Private Sub Cantidad_AfterUpdate()
Subtotal = Precio * Cantidad
DoCmd.RunCommand acCmdSaveRecord
Me.Parent!TotalServicio = DSum("subtotal", "detalleservicio", "idservicio=" & Me.IdServicio & "")
End Sub
Private Sub Servicio_AfterUpdate()
Precio = DLookup("precio", "precios", "prenda='" & Me.Prenda & "' and servicio='" & Me.Servicio & "'")
NPrenda = Me.Parent!NumFactura & "-" & Format([IdDetalle], "00000")
Cantidad.SetFocus
End Sub
Private Sub Servicio_GotFocus()
Servicio.RowSource = "select servicio from precios where prenda='" & Me.Prenda & "'"
End SubDe todas formas, si quieres este ejemplo, mándame un mensaje(sólo el mensaje) a [email protected] y te lo mando.
Si lo haces, en el asunto del mensaje pon tu alias Rafael Hernan, ya que si no sé quien me escribe ni los abro.
