[SAGE 100 SQL] Job SQL Agent de MAJ Lignes de devis

Job SQL Agent de MAJ Lignes de devis [SAGE 100 SQL] - SQL/NoSQL - Programmation

Marsh Posté le 13-11-2009 à 12:16:31    

Bonjour à tous, je me tourne vers ce forum car dans le cadre d'un projet sur une ligne 100 V15.5 SQL  je dois effectuer des modifications sur la table F_DOCLIGNE sur des devis flagués .
 
J'ai essayé beaucoup beaucoup de choses mais je suis hélas en panne d'idée pour résoudre mon problème. Voici mon soucis :
 
Je dois modifier les lignes dans la table F_DOCLIGNE de certains devis dont l'entête est stockée dans la table F_DOCENTETE et flaguée grace a un champ crmsync qui est à 'LinesNotOk' quand le devis est à traiter et à LinesOk quand il est traité.
 
Suite à divers tests en trigger exécutés quand je flag l'entête se révélant infructueux j'ai décidé de faire passer un job SQL avec le SQL agent toutes les deux minutes pour aller traiter mes devis flaggés.
 
J'ai donc commencé par des update simples avec jointure entre les deux tables mais j'ai eu des gros soucis mon traitement se bloquant complètement et rendant la gescom inutilisable à priori a cause des verrous posés sur les devis en cours d'utilisation.
 
J'ai donc réécris mon Job pour traiter un par un les devis et pouvoir tester s'ils sont en cours d'utilisation : mais mon job est extrêmement long à s'exécuter et bloque complètement la ges com et là je ne maîtrise plus du tout la raison. C'est pourquoi j'en appelle à vous pour éclairer ma lanterne si vous pouvez jeter un oeil à mon script et détecter une erreur SQL ? Ou s'il y a des connaisseurs de la ligne 100 qui identifient une mauvaise façon de procéder ? Je vous remercie grandement d'avance. Je suis a votre disposition pour toute question.
 
Bonne journée à tous !
 
Voici mon job :
 

Code :
  1. SET NOCOUNT ON
  2. DECLARE @DO_PIECE varchar(9)
  3. DECLARE @DO_TYPE smallint
  4. DECLARE @DO_DOMAINE smallint
  5. DECLARE @DO_cbMarq int
  6. DECLARE @DO_Dure_Contrat numeric
  7. DECLARE @DO_majorachat numeric
  8. DECLARE @lock int
  10. DECLARE MyCursor CURSOR FOR
  11. SELECT DO_PIECE,DO_TYPE,DO_DOMAINE,cbMarq,Dure_Contrat,majorachat FROM F_DOCENTETE
  12. WHERE crmsync='linesnotok' and DO_Ref = 'QT-298/4'
  13. ORDER BY cbMarq
  15. OPEN MyCursor -- j'initialise mon curseur
  17. -- je le rempli avec la première ligne retournée par la requête
  18. FETCH NEXT FROM MyCursor INTO @DO_PIECE, @DO_TYPE, @DO_DOMAINE, @DO_cbMarq,@DO_Dure_Contrat,@DO_majorachat
  20. -- Tant que je n'ai pas traité tous les enregistrements de le requête
  21. WHILE @@FETCH_STATUS  = 0
  22. BEGIN
  23.     exec CB_IsRecordLock 'F_DOCENTETE', @DO_cbMarq, @lock OUTPUT --Test si l'enregistrement est locké
  24.     IF @lock > 0
  25.       RAISERROR('Enregistrement Verrouillé',10,1)     
  26.     ELSE
  27.     BEGIN
  28.      
  29.       if((@DO_majorachat<>0) AND (@DO_majorachat is not null))
  30.       BEGIN
  31.         --  1- Majoration des Lignes de Rachat
  32.         UPDATE F_DOCLIGNE
  33.         SET F_DOCLIGNE.DL_QteBC = DL_Qte*1.1,
  34.         F_DOCLIGNE.DL_QteBL = DL_Qte*1.1,
  35.         F_DOCLIGNE.EU_Qte = DL_Qte*1.1,
  36.         F_DOCLIGNE.DL_MontantHT = DL_Qte*1.1,
  37.         F_DOCLIGNE.DL_MontantTTC = ROUND(DL_Qte*1.1*(1+(DL_Taxe1/100)),2),
  38.         F_DOCLIGNE.DL_Qte = DL_Qte*1.1
  39.         WHERE F_DOCLIGNE.DO_PIECE = @DO_PIECE AND F_DOCLIGNE.DO_TYPE = @DO_TYPE AND F_DOCLIGNE.DO_DOMAINE = @DO_DOMAINE
  40.         AND F_DOCLIGNE.AR_Ref = 'RACHVIDCST'
  41.      
  42.         --  2- Majoration Remise
  43.         UPDATE F_DOCLIGNE
  44.         SET F_DOCLIGNE.DL_MontantHT = F_DOCLIGNE.DL_MontantHT-@DO_majorachat,
  45.         F_DOCLIGNE.DL_MontantTTC = F_DOCLIGNE.DL_MontantTTC-ROUND(@DO_majorachat*(1+(DL_Taxe1/100)),2)
  46.         WHERE F_DOCLIGNE.DO_PIECE = @DO_PIECE AND F_DOCLIGNE.DO_TYPE = @DO_TYPE AND F_DOCLIGNE.DO_DOMAINE = @DO_DOMAINE
  47.         AND F_DOCLIGNE.AR_Ref = 'REM_VI'
  48.       END
  50.       --  3- Valorisation Loyer
  51.       UPDATE F_DOCLIGNE
  52.       SET F_DOCLIGNE.DL_PoidsBrut = ROUND(((F_DOCLIGNE.DL_MontantHT/(@DO_Dure_Contrat/1.2))*1000),2)
  53.       WHERE F_DOCLIGNE.DO_PIECE = @DO_PIECE AND F_DOCLIGNE.DO_TYPE = @DO_TYPE AND F_DOCLIGNE.DO_DOMAINE = @DO_DOMAINE
  54.      
  55.       -- 4 ReFlag de l'entête
  56.       UPDATE F_DOCENTETE
  57.       SET crmsync='linesok', majorachat = 0
  58.       WHERE F_DOCENTETE.DO_PIECE = @DO_PIECE AND F_DOCENTETE.DO_TYPE = @DO_TYPE AND F_DOCENTETE.DO_DOMAINE = @DO_DOMAINE
  59.    
  60.     END
  61.     FETCH NEXT FROM MyCursor INTO @DO_PIECE, @DO_TYPE, @DO_DOMAINE, @DO_cbMarq,@DO_Dure_Contrat,@DO_majorachat
  62. END
  64. CLOSE myCursor -- je ferme mon curseur
  65. DEALLOCATE myCursor -- je libère la mémoire allouée à ce curseur

Reply

Marsh Posté le 13-11-2009 à 12:16:31   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed