Esto hice hoy en la oficina, me merezco una galleta por lo menos!

Una función para excel que rastrea el proceso de customs clearance y cada dia va indicando si estamos al dia o atrasados en alguna tarea. Al final indica si se cumplió o no con el KPI.

Function KPI_TRACKING(Adu As Variant, arrival_date As Date, delivery_broker As Date, payment_request As Date, check_delivery_date As Date, submit_date As Date, warehouse_date As Date)

'despliega alertas para saber como va el proceso de clearance.
'comineza por verificar que se haya ingresado la fecha de llegada:
If arrival_date = 0 Then
    KPI_TRACKING = "Enter arrival date."
    Else
'luego se verifica que se haya ingresado la aduana de destino.
    If Adu = 0 Then
        KPI_TRACKING = "Enter ADU."
        Else
'verifica si se ha entregado o no los documentos al broker
        If delivery_broker = 0 Then
'si no se han entregado documentos hay que validar la aduana de destino .
'si es un tramite maritimo hay que entregar los documentos 12 dias antes de la llegada, de lo contrario estamos atrasados.
            If Adu = "028" Then
                If (arrival_date - Date) < 12 Then
                    KPI_TRACKING = "Delivery to broker is late"
                    Else
                    KPI_TRACKING = "On Schedule."
                End If
'si la carga es aerea, hay que entregar la carga 7 dias antes del arribo, de lo contrario estamos atrasados.
            Else
                If (arrival_date - Date) < 7 Then
                    KPI_TRACKING = "Delivery to broker is late."
                    Else
                    KPI_TRACKING = "On Schedule."
                End If
            End If
'si el tramite ya fue entregado al agente lo primero que hay que hacer es verificar que nos hayan enviado la preliquidacion
        Else
'si no nos han enviado la preliquidacion y faltan menos de 4 dias para el arribo, estamos tarde, de lo contrario estamos ok:
            If payment_request = 0 Then
                If arrival_date - Date < 4 Then
                KPI_TRACKING = "Payment request is late."
                Else
                KPI_TRACKING = "On Schedule."
                End If
'si ya nos enviaron la preliquidacion hay que verificar si ya salio el cheque:
            
'AQUI ME QUEDE--------------------
            Else
'si el cheque no ha salido hay que ver si el cheque sale un dia antes de la fecha de arribo.
                If check_delivery_date = 0 Then
                    If (arrival_date - 1) >= Date Then
                        KPI_TRACKING = "On Schedule."
                    Else
                        KPI_TRACKING = "Check is late."
                    End If
'si el cheque ya salió hay que verificar que si ya se hizo la declaracion de impuestos
                Else
'si la declaracion no se ha hecho, hay que ver que se haga dentro de los 3 primeros dias de arribo
                    If submit_date = 0 Then
                        If (Date - arrival_date) > 3 Then
                        KPI_TRACKING = "Declaration is late."
                        Else
                        KPI_TRACKING = "On Schedule."
                        End If
                    Else
'si la declaracion ya se hizo hay que chequear si ya se entregó a bodega.
'si no se ha entregado a bodega:
                        If warehouse_date = 0 Then
'en caso de los embarques maritimos, CONFIRMAR SI EL KPI PARA MARITIMO ES 7
                            If Adu = "028" Then
                                If (Date - arrival_date) <= 7 Then
                                    KPI_TRACKING = "On Schedule"
                                Else
                                    KPI_TRACKING = "Delivery to Warehouse is late."
                                End If
'en caso de embarques aereos, CONFIRMAR SI EL KPI PARA AEREOS ES 6:
                            Else
                                If (Date - arrival_date) <= 6 Then
                                    KPI_TRACKING = "On Schedule"
                                Else
                                    KPI_TRACKING = "Delivery to Warehouse is late."
                                End If
                            End If
'y si ya se entregó a bodega.
                        Else
'En caso de los embarques maritimos
                            If Adu = "028" Then
                                If (warehouse_date - arrival_date) <= 7 Then
                                KPI_TRACKING = "KPI Succeeded."
                                Else
                                KPI_TRACKING = "KPI FAILED."
                                End If
'en caso de los embarques aereos
                            Else
                                If (warehouse_date - arrival_date) <= 6 Then
                                KPI_TRACKING = "KPI Succeeded."
                                Else
                                KPI_TRACKING = "KPI FAILED."
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If


End Function