Welcome
Benvenuto sul forum livecode italia

Stai vedendo il forum come ospite, che limita il tuo utilizzo del forum. Se ti registri sul forum, avrai la possibilità di pubblicare post e risposte, comunicare privatamente con gli altri membri, e altre funzioni. In aggiunta, i membri registrati vedono meno pubblicità. Registrarsi è veloce, semplice, e assolutamente gratuito (oltre che a liberarci da molto spam), quindi vai su ucp.php?mode=register e unisciti alla nostra comunità.

calcolare scadenza di un prodotto

Qui si trattano argomenti che hanno a che fare su Livecode

calcolare scadenza di un prodotto

Messaggioby francof » gio feb 23, 2017 9:58 pm

ciao a tutti,
rieccomi a chiedere aiuto.

come da titolo vorrei ottenere la data di scadenza, relativamente a mese e anno, di un prodotto avendo come dati iniziali la data di produzione, anche questa mese e anno, ed i mesi di durata. per fare un esempio:
data produzione: 02/2017
mesi di vita del prodotto: 31
in questo caso la scadenza è al 09/2019

io avrei pensato a cicli "repeat until" finchè l'indice non sia uguale ai mesi di vita, per incrementare di 1 il mese di produzione finc ad arrivare a 12,
incrementare l'anno di produzione di 1,
impostare il mese di produzione a 01,

macchinoso?
eventuali altre strade?

grazie
franco
francof
 
Posts: 75
Joined: lun lug 14, 2014 6:33 pm
Has thanked: 6 time
Have thanks: 1 time

Re: calcolare scadenza di un prodotto

Messaggioby sdeng » gio feb 23, 2017 11:45 pm

Meglio utlizzare le risorse del dateitems
qui sotto esempio :

on calcola_scadenza
ask "data";put it into richiesta
# se nessun valore inserisce data odierna
if richiesta is empty then put the system date into richiesta
ask "mesi di scadenza";put it into scadenza
put calcola(richiesta,scadenza)
end calcola_scadenza



function calcola richiesta,scadenza
set itemdel to "/"
# se hai immesso solo mese e anno immetto automatico il giorno 1 per la correttezza del formato
if number of items of richiesta < 3 then;put "01/" before richiesta;end if
convert richiesta from system date to dateitems
set itemdel to ","
add scadenza to item 2 of richiesta
convert richiesta from dateitems to system date
return richiesta
end calcola

Spero di essere stato utile

Ciao
sdeng
 
Posts: 9
Joined: lun ago 25, 2014 10:07 pm
Has thanked: 0 time
Have thanks: 2 time

Re: calcolare scadenza di un prodotto

Messaggioby francof » ven feb 24, 2017 11:10 pm

ciao sdeng,
mi studio e proverò il tuo suggerimento. ti farò sapere come procede.

grazie
franco
francof
 
Posts: 75
Joined: lun lug 14, 2014 6:33 pm
Has thanked: 6 time
Have thanks: 1 time

Re: calcolare scadenza di un prodotto

Messaggioby sdeng » sab feb 25, 2017 4:34 pm

Ciao Francof
ho dimenticato di scrivere l'altra volta che se desideri aggiungere giorni anziche' i mesi sostituisci il 2 con il 3 nella riga di add scadenza
pui aggiungere un valore qualunque, anche molto elevato

Sdeng
sdeng
 
Posts: 9
Joined: lun ago 25, 2014 10:07 pm
Has thanked: 0 time
Have thanks: 2 time

Re: calcolare scadenza di un prodotto

Messaggioby francof » mar feb 28, 2017 8:05 pm

ciao Sdeng,
scusa se rispondo solo ora ma non mi è arrivata la notifica del tuo nuovo msg.

ok, prndo nota anche di questo e spero di poter provare il codica al più presto.

franco
francof
 
Posts: 75
Joined: lun lug 14, 2014 6:33 pm
Has thanked: 6 time
Have thanks: 1 time

Re: calcolare scadenza di un prodotto

Messaggioby francof » mar apr 04, 2017 9:00 pm

ciao Sdeng,
ho utilizzato il codice da te suggerito adattandolo alle mie esigenze.
in ambiente windows funziona senza problemi, mentre in android credo ci sia un problema sul formato di data. devofare qualche prova per verificare. spero di risolvere.

franco
francof
 
Posts: 75
Joined: lun lug 14, 2014 6:33 pm
Has thanked: 6 time
Have thanks: 1 time

Re: calcolare scadenza di un prodotto

Messaggioby francof » mer apr 05, 2017 11:00 pm

sono riuscito a far funzionare il codice sia su win che in android, modificandolo così:
Codice: Seleziona tutto
on mouseUp
   local tDataProd
   
   set itemdel to "/"
   put fld "lblMeseProd" & "/" & "01/" & fld "lblAnnoProd" into tDataProd
   
   convert tDataProd to dateitems
   
   set itemdel to ","
   add fld "fldMesiScad" to item 2 of tDataProd
   
   convert tDataProd to date
   
   set itemdel to "/"
   
   if the number of chars OF item 1 of tDataProd = 1 then
      put 0 BEFORE item 1 of tDataProd
   end if
   
   put item 1 of tDataProd into fld "lblMeseScad"
   put item 3 of tDataProd into fld "lblAnnoScad"
     
   set the visible of grp grpDataScad to true
end mouseUp



ciao
franco
francof
 
Posts: 75
Joined: lun lug 14, 2014 6:33 pm
Has thanked: 6 time
Have thanks: 1 time


Return to Generale

Who is online

Visitano il forum: Nessuno e 1 ospite

cron
suspicion-preferred