Quando viene inserito l’ordine cliente può essere utile calcolare la possibile data di consegna per i codici ordinati. La procedura per effettuare questo calcolo è di tipo ricorsivo che esplode la distinta del codice ordinato.
Possiamo descrivere la procedura in questo modo:
If Giacenza_del_codice >= QT_ordinata Then Data_consegna = oggi + GG_trasporto Else esplodi distinta al primo livello moltiplica la QT_ordinata-Giacenza_del_codice x il coefficiente d'impiego Do Until elenco_codici_figli.EOF If Giacenza_del_codice_figlio >= QT_differenza Then data_ricezione = oggi Else data_ricezione = oggi + LT_Codice_figlio End If Loop Data_consegna = data_ricezione.elnco_codici_figli.massimo + GG_trasporto End If |
If Giacenza_del_codice >= QT_ordinata Then Data_consegna = oggi + GG_trasporto Else esplodi distinta al primo livello moltiplica la QT_ordinata-Giacenza_del_codice x il coefficiente d'impiego Do Until elenco_codici_figli.EOF If Giacenza_del_codice_figlio >= QT_differenza Then data_ricezione = oggi Else data_ricezione = oggi + LT_Codice_figlio End If Loop Data_consegna = data_ricezione.elnco_codici_figli.massimo + GG_trasporto End If
Ad ogni livello che esplodiamo calcoliamo la differenza tra la QT richiesta e la giacenza del codice e se questa non è sufficiente la data di consegna sarà uguale al massimo dei lead time dei codici figlio che non sono presenti a magazzino.