Questo sito usa i cookie per fornirti un'esperienza migliore. Cliccando su "Accetta" saranno attivate tutte le categorie di cookie. Per decidere quali accettare, cliccare invece su "Personalizza". Per maggiori informazioni è possibile consultare la pagina Cookie policy.

PersonalizzaAccetta
CHIUDI
Autore Messaggio
maridp 07/01/2008 20:52 maridp

Problema sul calcolo dei margini

Ci capita una cosa strana
da oggi abbiamo impostato la colonna sul calcolo dei margini sia nei ddt che nelle fatture, per verificarli in automatico.
Alcuni articoli ci danno margine 100 % anche se nell' articolo abbiamo impostato il costo del prodotto.
L'unica cosa che abbiamo notato è che questi articoli " non so se tutti " erano stati caricati a inventario l'anno scorso quando abbiamo acquistato il programma, quindi non hanno nessun ordine a fornitore, ddt di carico o fattura di carico.
Credo comunque che il programma dovrebbe darci lo stesso il margine visto il prezzo di acquisto inserito nell' articolo.
pc hack  Ah ah ah
Supporto 08/01/2008 09:04 Campo libero: Supporto

Citazione:
L'unica cosa che abbiamo notato è che questi articoli " non so se tutti " erano stati caricati a inventario l'anno scorso quando abbiamo acquistato il programma, quindi non hanno nessun ordine a fornitore, ddt di carico o fattura di carico.
Hai intuito bene. Viene considerato il prezzo inserito nei documenti che caricano il magazzino e che utilizzano una causale di tipo ACQUISTO

Citazione:
Credo comunque che il programma dovrebbe darci lo stesso il margine visto il prezzo di acquisto inserito nell' articolo.
Non credo che sia una operazione corretta. Magari nel tuo caso può sembrare immediata la sostituzione del prezzo di carico con quello inserito nel tab Fornitori ma ti posso assicurare che esistono innumerevoli casi in cui questa operazione risulterebbe sbagliata.
maridp 08/01/2008 13:05 maridp

a questo punto mi rimane il problema su quei codici dove non sono ancora stati effettuati nuovi acquisti. Come posso fare per calcolarmi il margine in maniera automatica?
Vorremmo evitare di doverlo fare a mano.
Supporto 12/01/2008 18:34 Campo libero: Supporto

Prova ad aggiungere questo script:

ImportoTotaleVendita = Rdy.toDouble(RowItem.CustomField(49))
if ImportoTotaleVendita=0 then
  ' se riga senza importo niente margine
  Rdy.ResponseWrite("")
else
  IdArticolo=Rdy.toLong(RowItem.CustomField(10))
  if IdArticolo>0 then
    PrezzoMedio=Rdy.toDouble(Rdy.Product(IdArticolo).CustomField(570))
    if PrezzoMedio>0 then
      ' se esiste un prezzo medio per l'articolo uso il margine
      margine=Rdy.toDouble(RowItem.CustomField(421))
    else
      PrezzoAcquistoFornitore=Rdy.toDouble(Rdy.Product(IdArticolo).CustomField(60))
      margine=(ImportoTotaleVendita - PrezzoAcquistoFornitore) * 100 / ImportoTotaleVendita
    end if
  else
    ' per le linee senza codice articolo il margine e' sempre 100
    margine=100
  end if
  Rdy.ResponseWrite(Rdy.FormatCurrency(margine, "0.0") & "%")
end if

Il risultato è Margine calcolato partendo dal prezzo medio a magazzino. Se non esiste un prezzo di carico considera il prezzo inserito nel tab Fornitori.
G.Luca 28/01/2009 08:28 G.Luca

Ciao,

si potrebbe avere un aiutino in questo senso?

In questo script, se io volessi utilizzare sempre e solo il prezzo inserito nel tab fornitori, ignorando sempre il prezzo medio a magazzino, come dovrei modificarlo?

Thx
Luca
Fabio 28/01/2009 08:34 Campo libero: Fabio

Direi

ImportoTotaleVendita = Rdy.toDouble(RowItem.CustomField(49))
if ImportoTotaleVendita=0 then
  ' se riga senza importo niente margine
  Rdy.ResponseWrite("")
else
  IdArticolo=Rdy.toLong(RowItem.CustomField(10))
  if IdArticolo>0 then
      PrezzoAcquistoFornitore = Rdy.toDouble(Rdy.Product(IdArticolo).CustomField(60))
      margine=(ImportoTotaleVendita - PrezzoAcquistoFornitore) * 100 / ImportoTotaleVendita
    end if
  else
    ' per le linee senza codice articolo il margine e' sempre 100
    margine=100
  end if
  Rdy.ResponseWrite(Rdy.FormatCurrency(margine, "0.0") & "%")
end if
G.Luca 28/01/2009 08:45 G.Luca

Ciao Fabio, che velocità!

Funziona, grazie.
Ho solo rimosso il primo dei tre "end if" altrimenti ottenevo un errore di sintassi, come segue.


ImportoTotaleVendita = Rdy.toDouble(RowItem.CustomField(49))
if ImportoTotaleVendita=0 then
  ' se riga senza importo niente margine
  Rdy.ResponseWrite("")
else
  IdArticolo=Rdy.toLong(RowItem.CustomField(10))
  if IdArticolo>0 then
      PrezzoAcquistoFornitore = Rdy.toDouble(Rdy.Product(IdArticolo).CustomField(60))
      margine=(ImportoTotaleVendita - PrezzoAcquistoFornitore) * 100 / ImportoTotaleVendita
  else
    ' per le linee senza codice articolo il margine e' sempre 100
    margine=100
  end if
  Rdy.ResponseWrite(Rdy.FormatCurrency(margine, "0.0") & "%")
end if


Grazie
Luca