--
-- Mise à jour de la table MITBAL pour paramétrage du DRP
--

-- MàJ de la méthode de prévision pour tous les articles FP/TR/TO
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET MITBAL.MBPRCD='M1'
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND 
(MITMAS.MMITTY='1FP' OR MITMAS.MMITTY='1TR' OR MITMAS.MMITTY='1TO')

-- MàJ de la logique de prévision pour tous les articles FP
-- FIXME qui ne sont pas en logique CBN Brut (02) sur Le Havre ?
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET MITBAL.MBFCCM='L3'
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND 
(MITMAS.MMITTY='1FP' OR MITMAS.MMITTY='1TR' OR MITMAS.MMITTY='1TO')

-- MàJ de la période de planif à "dépôt déporté" (découpage std)
-- de l'horizon à 1 an
-- du délai de sécurité à 0
-- de la borne de planif de la demande à 2
-- de la borne de planif à 30
-- de la déclaration au Programme Directeur
-- de l'approvisionnement multiple
-- de l'usage CBN
-- pour les articles 1FP, 1TR et 1TO
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
  MITBAL.MBDPID='10',
  MITBAL.MBPLHZ=365,
  MITBAL.MBSATD=0,
  MITBAL.MBDMFN=2,
  MITBAL.MBPFTM=30,
  MITBAL.MBMSCH=1, 
  MITBAL.MBSVEI=2  
  MITBAL.MBOPLC=1
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND 
  (MITMAS.MMITTY='1FP' OR MITMAS.MMITTY='1TO' OR MITMAS.MMITTY='1TR')

-- de l'agent de planning à Guillaume pour Le Havre pour les FP
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
 MITBAL.MBRESP='GBONIFAC'
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND MITBAL.MBWHLO='HAV' AND 
 MITMAS.MMITTY='1FP'

-- de l'agent de planning à David pour les autres dépôts et les TR TO sur le havre
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
 MITBAL.MBRESP='DLEPREVO'
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND MITBAL.MBWHLO='HAV' AND 
 (MITMAS.MMITTY='1TO' OR MITMAS.MMITTY='1TR')

-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
 MITBAL.MBRESP='DLEPREVO'
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND MITBAL.MBWHLO!='HAV' AND 
  (MITMAS.MMITTY='1FP' OR MITMAS.MMITTY='1TO' OR MITMAS.MMITTY='1TR')

-- Les 1FP, 1TR et 1TO se terminant par X ou D ne sont pas au MRP
UPDATE MITBAL, MITMAS SET
 MITBAL.MBOPLC=0
WHERE 
 MITBAL.MBITNO=MITMAS.MMITNO AND  
 (MITMAS.MMITTY='1FP' OR MITMAS.MMITTY='1TO' OR MITMAS.MMITTY='1TR') AND
 (MITBAL.MBITNO LIKE '%X' OR MITBAL.MBITNO LIKE '%D')

-- Suppression d'articles
-- méthode de planification manuelle
-- Passer au statut 50 doit provoquer le passage en 80 si stock vide
-- FIXME: vérifier que le trigger fonctionne avec l'UPDATE et 
-- que l'update à 80 est ok, sinon écrire une requête dans ce but.

-- Ces articles ne sont plus utilisés pour le déclassement
-- verif MS Query ok
UPDATE MITBAL SET 
 MITBAL.MBSTAT=50,
 MITBAL.MBOPLC=0
WHERE 
   MITBAL.MBITNO IN ('CGPR5167   PALX',
'CGPR5559   PALX',
'CGPR6381   PALX',
'CGPR6810   PALX',
'CGPR6811   PALX',
'CGPR6951   PALX',
'CGPR7271   PALX',
'CGPR7397   PALX',
'CGPR7397   PCLX',
'CGPR7678   PALX',
'PLER6584   PALX',
'PLER6791   PALX',
'PLER6798   PALX',
'PLER6947   PALX',
'PLER7675   PALX',
'PLER7794   PALX',
'PLER7795   PALX',
'PLSR4423   MDLX',
'PLSR7350   MDLX',
'PLWR7084   PALX',
'PLWR7201   PALX',
'PLEECOTRO  JBA ',
'PLSSAVB    MDL ',
'CGPP86F    BCL ' ,
'SNPP95  PCL    ',
'CGPX062    CAI ',
'CGPX062    CAI ',
'WSLL FLAKE PAI ')
OR MITBAL.MBITNO LIKE '%ULTRAG10%'
OR MITBAL.MBITNO LIKE '%ULT100C%'
OR MITBAL.MBITNO LIKE '%7290F%'
OR MITBAL.MBITNO LIKE 'WSLL 1000%'
OR MITBAL.MBITNO LIKE '%GSL%'
OR MITBAL.MBITNO LIKE '%BSL%'
OR MITBAL.MBITNO LIKE '%P89%'

-- %GSI, %BSI en statut 50-80 si dépôt différent de GCA
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
 MITBAL.MBSTAT=50,
 MITBAL.MBOPLC=0
WHERE MITBAL.MBWHLO!='GCA'
AND (MITBAL.MBITNO LIKE '%GSI%'
  OR MITBAL.MBITNO LIKE '%BSI%')
AND MITBAL.MBITNO=MITMAS.MMITNO 
AND MITMAS.MMITTY='1TO'

-- Ces articles ne sont plus gérés, sur les Art-Dépôt concernés
-- verif MS Query ok
UPDATE MITBAL, MITMAS SET 
 MITBAL.MBSTAT=50,
 MITBAL.MBOPLC=0
WHERE MITBAL.MBITNO=MITMAS.MMITNO AND MITMAS.MMITTY='1FP'
 AND (MITBAL.MBWHLO='DAH' OR MITBAL.MBWHLO='VIM' OR MITBAL.MBWHLO='ABX')

-- On doit avoir en code acquisition 2 les articles qui 
-- terminent par N et A selon les dépôts concernés
-- verif MS Query ok
UPDATE MITBAL SET MITBAL.MBPUIT=3 WHERE
WHERE MITBAL.MBITNO LIKE '%N ' 
AND MITBAL.MBITNO NOT IN ('PROD ENTRETIEN', 'PUB EXPOSITION', 'PUB IMPRESSION')
AND MITBAL.MBWHLO!='NIN'
-- verif MS Query ok
UPDATE MITBAL SET MITBAL.MBPUIT=3 WHERE
WHERE MITBAL.MBITNO LIKE '%A ' 
AND MITBAL.MBITNO NOT LIKE 'IPX7400A'
AND MITBAL.MBWHLO!='AKR'

-- PF avec E/S en flux
-- PF avec sortie en flux sur etablissement
-- Peut-on, doit-on faire des BKL/FXL en flux ? (sauf si ordre explosé)
UPDATE MITFAC SET MITFAC.M9DIDY=1, MITFAC.M9DLEF=365, MITFAC.M9DIDF=100 WHERE
MITFAC.M9ITNO IN (
'CGBN8      PAL ',
'CGL248     MCL ',
'CGL248     PDL ',
'CGL550     MCL ',
'CGL550     PDL ',
'CGLR6387   MCL ',
'CGLR6387   PDL ',
'CGPP35     GSL ',
'CGPP35     PCL ',
'CGPP615D   PAL ',
'CGPP615DS  PAL ',
'CGPP7290F  PCL ',
'CGPP7D     GSL ',
'CGPP7D     PAL ',
'CGPP7D     PUL ',
'CGPP83     BSL ',
'CGPP83     GSL ',
'CGPP83     PAL ',
'CGPP83     PAL ',
'CGPP83     PCL ',
'CGPP83     PUL ',
'CGPP83J    PAL ',
'CGPP86F    BCL ',
'CGPP86F    PAL ',
'CGPP86F    PAL ',
'CGPP86F    PUL ',
'CGPP89     BSL ',
'CGPP89     PAL ',
'CGPP8BA    PAL ',
'CGPP8BA    PCL ',
'CGPP8D     GSL ',
'CGPP8D     PAL ',
'CGPP8D     PUL ',
'CGPP90     PAL ',
'CGPR7400   PAL ',
'CGPR7400   PCL ',
'CGPR7400   PUL ',
'CGPR7400A  BSL ',
'CGPR7400A  GSL ',
'CGPR7400A  PAL ',
'CGPR7400A  PCL ',
'CGPR7400A  PUL ',
'CGPR7546   PAL ',
'CGPR7562   PCL ',
'CGPR7565   PCL ',
'CGPR7747   PCL ',
'CGPR7747SELPCL ',
'CGPR7749   PCL ',
'CGPX062    PCL ',
'CGPX489    PAL ',
'MSCRESIN48 PAL ',
'PLEAC3H    BBL ',
'PLEAC3H    PAL ',
'PLEAC4     PAL ',
'PLEAC5     SPL ',
'PLEAC5G    PAL ',
'PLEAC80    BBL ',
'PLEAC80    PAL ',
'PLEAC80H   PAL ',
'PLES5E     PAL ',
'PLETR6953  PAL ',
'PLEULT100C PAL ',
'PLEULTRA100PAL ',
'PLEULTRAG10PAL ',
'PLEVTAC    PAL ',
'PLEVTACH   PAL ',
'PLEVTACL   PAL ',
'PLSSAVB    MDL ',
'PLWEC1     BBL ',
'PLWEC1     PAL ',
'PLWECH     PAL ',
'PLWECL     PAL ',
'PLWECT     BBL ',
'PLWECT     PAL ',
'PLWR7676   SNL ',
'PLWULTRA200PAL ',
'PLWULTRAG20PAL ',
'PSRR9052   PAL ',
'PSRS6H     BBL ',
'PSRS6H     PAL ',
'SNPP95     GSL ',
'SNPP95     PCL ',
'SNPP95     PUL ',
'SNPR7395   BSL ',
'SNPR7395   GSL ',
'SNPR7395   PAL ',
'SNPR7395   PCL ',
'SNPR7395   PUL ',
'VPL106     FXL ',
'VPL106     MCL ',
'VPL106     PDL ',
'VPL106     SDL ',
'VPL106S    FXL ',
'VPL106S    MCL ',
'VPL106S    PDL ',
'VPL106W    PDL ',
'VPL107S    MCL ',
'VPL107S    PDL ',
'VPLFENDICS FXL ',
'VPLFENDICS MCL ',
'VPLFENDICS PDL ',
'WSLL 1000  PAL ',
'WSLL 500   BBL ',
'WSLL 500   PAL ',
'WSLL 500LC PAL ',
'WSLL FLAKE BBL ',
'WSLR5156   PAL ',
'WSO29      MOL ',
'WSOADDITIN MOL ',
'WSOR7785   MOL ',
'WSORHENOFITMOL ',
'WSTF93     MOL ',
'WSTF99     MOL ',
'WSTNEVILLE MOL ',
'WSTS       MOL ',
'WSTSAINAX  MOL ',
'WSTT       MOL '
)

-- Les TR et TO sont en achat sur qq dépôts et distribués sur les
-- autres dépôts
-- UPDATE MITBAL SET MITBAL.MBPUIT=3 WHERE
-- les VIT 
-- demander à Vanessa pour le MSCLPF2108 FXI