#include "dbcv09.h"
// ******************************************
// ******************************************
int location2metod(long location) 
{
  switch (location)
  {
    case 0: return 0;
    case 1530: return 1;
    case   59: return 2;
    case 2008: return 3;
    case   63: return 4;
    case 872: return 5;
    case 66: return 6;
    case 1700: return 7;
    case 115: return 8;
    case 935: return 9;
    case 911: return 10;
    case 1812: return 11;
    case 230: return 12;
    case 433: return 13;
    case 272: return 14;
    case 1382: return 15;
    case 467: return 16;
    case 1352: return 17;
    case 233: return 18;
    case 498: return 19;
    case 651: return 20;
    case 511: return 21;
    case 519: return 22;
    case 2017: return 23;
    case 798: return 24;
    case 582: return 25;
    case 618: return 26;
    case 1190: return 27;
    case 1360: return 28;
    case 1727: return 29;
    case 2081: return 30;
    case 1330: return 31;
    case 565: return 32;
    case 2079: return 33;
    case 2194: return 34;
    case 229: return 35;
    case 2280: return 36;
    case 60: return 37;
    case 50037: return 38;
    case 1154: return 39;
    case 2153: return 40;
    case -1: return 41;  // M&M srl
    case 1569: return 42;
    case 2237: return 43;
    case -2: return 44; // rotolito
    case -3: return 45; // sconfezionamento
  }
  return 99; // terzista generico
}

const char * descr_method(int method) 
{
  switch (method)
  {
    case 1: return ("Areosol lab. Italia");
    case 2: return ("Areosol serivce Italia");
    case 3: return ("Bertoncini");
    case 4: return ("Bregaglio");
    case 5: return ("CABL service");
    case 6: return ("CIP4");
    case 7: return ("Stabilimenti Cover di PD/PR");
    case 8: return ("Deskin");
    case 9: return ("Farmol Safca");
    case 10: return ("FATAI Nyl");
    case 11: return ("Hydra Farm.");
    case 12: return ("IMAPACK");
    case 13: return ("Interchem Italia");
    case 14: return ("Ivers Lee Italia");
    case 15: return ("Liquichim");
    case 16: return ("Manilab");
    case 17: return ("MP");
    case 18: return ("Niada");
    case 19: return ("Noviplast");
    case 20: return ("OCE");
    case 21: return ("Pantapack");
    case 22: return ("PimepackDue");
    case 23: return ("Pernici Cereira");
    case 24: return ("Re.Le.Vi.");
    case 25: return ("Synthesis");
    case 26: return ("Treccificio BS");
    case 27: return ("Tosvar Areosol");
    case 28: return ("Unifill");
    case 29: return ("Unispray");
    case 30: return ("Artical");
    case 31: return ("La cosmografica");
    case 32: return ("Chizzoni");
    case 33: return ("E.Bonetto Lito");
    case 34: return ("CT Service srl");
    case 35: return ("M&M sas");
    case 36: return ("Brelil");
    case 37: return ("Akronimex");
    case 38: return ("Globol UK");
    case 39: return ("LIto Sestese");
    case 40: return ("Serialfa");
    case 41: return ("M&M");  // M&M srl
    case 42: return ("M&M srl");
    case 43: return ("ERREDI ser. srl");
    case 44: return ("Rotolito"); // rotolito
  }
  return "-- Unknown --";
}


void num_mag2main_imp(int magno, TString & codimp)
{
  switch (magno)
  {
    case 91:
    case 93:
    case 26:
      codimp="SE";
      break;
    case 92:
    case 28:
      codimp="TS";
      break;
    default:
      codimp="XX";
  }
}

void complete_gmc(TString & gmc,const char *iclas)
{
  TString  des;
  TString16 subgmc(iclas);
  char type;
  if (subgmc=="AM") {
    type = 'H';
    des="Ambipur";
  } else if (subgmc=="IN")  {
    type = 'H';
    des="Ambipur";
  }  else if (subgmc=="KM")  {
    type = 'H';
    des="Kiwi Mobili";
  }  else if (subgmc=="KS")  {
    type = 'H';
    des="Kiwi Shoecare";
  }  else if (subgmc=="OS")  {
    type = 'H';
    des="Shoe care generico";
  }  else if (subgmc=="PV")  {
    type = 'H';
    des="Pulizia vetri";
  }  else if (subgmc=="HA")  {
    type = 'H';
    des="House care generico";
  }  else if (subgmc=="OC")  {
    type = 'O';
    des="Oral care generico";
  }  else if (subgmc=="SB")  {
    type = 'O';
    des="Oral care Smithcline Beecham";
  }  else if (subgmc=="AV")  {                           
    type = 'P';
    des="Acqua Velva";
  }   else if (subgmc=="BA")  {                           
    type = 'P';
    des="Badedas";
  }   else if (subgmc=="BR")  {                           
    type = 'P';
    des="Brylcreem";
  }   else if (subgmc=="DE")  {                           
    type = 'P';
    des="Depilzero ";
  }   else if (subgmc=="FB")  {                           
    type = 'P';
    des="Fissan Baby";
  }   else if (subgmc=="FO")  {                           
    type = 'P';
    des="Fissan body generico";
  }    else if (subgmc=="GL")  {                           
    type = 'P';
    des="Glysolid";
  }  else if (subgmc=="GP")  {                           
    type = 'P';
    des="General purpose personal case";
  }  else if (subgmc=="OB")  {                           
    type = 'P';
    des="Personal care generico";
  }  else if (subgmc=="QU")  {                           
    type = 'P';
    des="Quickies";
  }  else if (subgmc=="SA")  {                           
    type = 'P';
    des="Savane";
  } else if (subgmc=="SO")  {                           
    type = 'P';
    des="Super soap";
  }  else if (subgmc=="SX")  {                           
    type = 'P';
    des="Sanex";
  }  else if (subgmc=="WI")  {                           
    type = 'P';
    des="Williams";
  } else 
    return;
  gmc << type << 'C';
  if (cache().get("GMC",gmc).empty())
  {
    cache().discard("GMC",gmc);
    TTable ttt("GMC");
    ttt.put("CODTAB",gmc);
    ttt.put("S0",type=='H' ? "House care" : (type=='P' ? "Personal care" :"Oral care"));
    ttt.write();
  }
  gmc << subgmc;
  if (cache().get("GMC",gmc).empty())
  {
    cache().discard("GMC",gmc);
    TTable ttt("GMC");
    ttt.put("CODTAB",gmc);
    ttt.put("S0",des);
    ttt.write();
  }
}

const char * check_clasdog(long stdo)
{
  static TString cld;
  if (stdo)
  {
    cld.format("%010ld",stdo);
    if (cache().get("%CLD",cld).empty())
    {
      cache().discard("%CLD",cld);
      TTable ttt("%CLD");
      ttt.put("CODTAB",cld);
      ttt.put("S0","???");
      ttt.write();
    }
  } 
  else 
    cld.cut(0);
  return cld;
}

void codimp2codmagdep(TString &codimp,int terzista, TString &codmag)
{
  if (terzista>0)
  {
    codimp << format("3%02d",terzista);
    codmag = codimp;
  } else {
    codmag = codimp;
    codmag << 1;
  }    
}

void num_mag2cod_imp(int magno, TString & codimp)
{
  switch (magno)
  {
    case 91:
    case 93:
      codimp="SE3";
      break;
    case 26:
      codimp="SE";
      break;
    case 92:
      codimp="TS3";
      break;
    case 28:
      codimp="TS";
      break;
    default:
      codimp="XX";
  }
}

void add_stdlabors(const char * item, long wrkc, int bomm) 
{
  int type=int (wrkc/100);
  if ( type == 1010 || (bomm != 0 && bomm != 99)) // non e' una linea di confezionamento di Segrate o terzista
  {
    TLocalisamfile rdist(LF_RDIST);
    TString stdlav;
    rdist.put("CODDIST",item);
    rdist.read(_isgteq);
    int nrig=0;
    while (!rdist.eof() && rdist.get("CODDIST")==item)
    {
      if (rdist.get("TIPO")=="L") break;
      rdist.next();
      nrig++;
    }
    if (rdist.eof() || rdist.get("CODDIST")!=item)
    {
      // nessuna lavorazione precedentemente inserita
      int lineno;
      if (type == 1010 )
        lineno=int (wrkc - type*100);
      else 
        lineno= 100;
      int pzxca;
      switch (lineno)
      {
        case 1:
          stdlav="L_ALCOL1"; 
          pzxca=12;
          break;
        case 2:
          stdlav="L_DOCCIA"; 
          pzxca=12;                 
          break;
        case 4:
          stdlav="L_GLYSOL"; 
          pzxca=12;
          break;
        case 5:
          stdlav="L_BRYLCR"; 
          pzxca=12;
          break;
        case 6:
          stdlav="L_BAGNOS"; 
          pzxca=12;
          break;
        case 7:
          stdlav="L_SAPONE"; 
          pzxca=12;
          break;
        case 8:
          stdlav="L_SAPRIC"; 
          pzxca=12;       
          break;
        case 9:
          stdlav="L_DENTIF"; 
          pzxca=12;
          break;
        case 10:
          stdlav="L_PENTO"; 
          pzxca=12;
          break;
        case 14:
          stdlav="L_ALCOL2"; 
          pzxca=12;
          break;
        // lavorazioni terzisti
        case 100:
          stdlav="L_RICONF"; 
          pzxca=12;
          break;
        default:
          error_box("Linea sconosciuta per l'articolo %s:%d",item,lineno);
          lineno=0;
      }
      TString16 um=cache().get(LF_DIST,item).get("UM");
      if (lineno && !um.empty())
      {
        TToken_string key(item);
        key.add("1",1);
        if (cache().get(LF_UMART,key).get("UM")=="CA")
          stdlav<< "_CA" << pzxca;
        else
          stdlav<< "_SL";
        real fc;
        if (cache().get(LF_UMART,key).get("UM")==um)
        {
          fc=cache().get(LF_UMART,key).get_real("FC");
        } else  {
          key.add("2",1);
          fc=cache().get(LF_UMART,key).get_real("FC");
        }
        if (!cache().get("LAV",stdlav).empty())
        {
          rdist.put("CODDIST",item);
          rdist.put("NRIG",nrig+1);
          rdist.put("TIPO","L");
          rdist.put("CODCOMP",stdlav);
          rdist.put("UM",um);
          rdist.put("EXPR",fc.string());
          rdist.write();
        } else {
          error_box("Impossibile trovare la lavorazione %s per l'articolo %s. Inserimento automatico", (const char *)stdlav, item);
          cache().discard("LAV",stdlav);
          TTable ttt("LAV");
          ttt.put("CODTAB",stdlav);
          ttt.put("S0","???");
          ttt.write();
        }
      }
    }
  } 
}

void round_date(TDate& date, bool up) 
{
  // Dimensione del bucke in giorni
  const int bucket_size = 7;

  // Riporta la data al primo lunedi prima dell'inizio
  const int wday = date.wday();
  if (wday > 1) date -= wday-1;

  if (up) // Arrotonda alla fine del bucket
    date += (bucket_size - 1);
  else    // Arrotonda all'inizio del bucket  
    date = date ;
}



void crea_mag3()
{
  TString codmag;TString desc;
  TTable mag("MAG");
  mag.put("CODTAB","SE3");
  mag.put("B0","X");
  mag.put("S0","Terzisti di Segrate (ex mag. 91-93)");
  mag.write();

  mag.put("CODTAB","TS3");
  mag.put("B0","X");
  mag.put("S0","Terzisti di Trieste (ex mag. 92)");
  mag.write();
  for (int t=1 ; t<45;t++)
  {
    desc=descr_method(t);

    codmag.format("SE3%02d",t);
    mag.put("CODTAB",codmag);
    mag.put("S0",desc);
    mag.write();

    codmag.format("TS3%02d",t);
    mag.put("CODTAB",codmag);
    mag.put("S0",desc);
    mag.write();
  }
}