Re: weirds problems after upgrade from 7.5.00.18 to 7.5.00.19

    bonjour,


Le mardi 23 novembre 2004, Daniel Dittmar a écrit...


> There is a bug with this kernel version where some some SELECTs don't 
> seem to find anything. This seems to occur only with the Python driver 
> as rows from cursors are read using FETCH RELATIVE and not FETCH NEXT as 
> most of the other interfaces do. It seems to occur only when rows a 
> qualified by a key column. This will be fixed in 7.5.00.21. You can work 
> around this problem by issuing a resultset.first () before the first 
> .next ().

I did not find a place to insert such a .first() method in ireport.py
code. I can live with this...but cannot leave with a bugged (?) dbproc.

Here is the dbproc:


CREATE DBPROC PC_DETAILFACTURE
(
    IN qte FIXED(9,3),
    IN puht FIXED(9,3),
    IN idunite VARCHAR(3),
    IN codeplan VARCHAR(7),
    IN codetva FIXED(2),
    IN idintrant SMALLINT,
    IN idetablissement VARCHAR(8),
    IN idmodeproduction FIXED(2),
    IN dateappro DATE,
    IN emballage VARCHAR(10),
    IN debutemb DATE,
    IN finemb DATE,
    IN debutfte DATE,
    IN finfte DATE,
    IN debutfbl DATE,
    IN finfbl DATE,
    IN debutcert DATE,
    IN fincert DATE,
    IN debutoc DATE,
    IN finoc DATE,
    OUT r SMALLINT
)
AS
VAR
    id FIXED(2);
    nopiece SMALLINT;
    idligne VARCHAR(3);
BEGIN
    SET r = 0;
    TRY
        SET nopiece = JM.FLUXFINANCIER.CURRVAL;
    CATCH
        STOP (9999, 'Impossible de trouver un numéro de pièce');
    SELECT IDLIGNE FROM JM.DETAILFLUXFINANCIER
        WHERE NOPIECE = :nopiece
        ORDER BY IDLIGNE DESC;
    FETCH INTO :idligne;
    IF $RC <> 0 THEN
        SET idligne = '001'
    ELSE
        SET idligne = LFILL(CHR(FIXED(NUM(idligne)+ 1)),'0',3);
    INSERT INTO JM.DETAILFLUXFINANCIER
        VALUES
        (:nopiece,:idligne,:qte,:puht,:idunite,:codeplan,:codetva);
    IF (idintrant > 0 AND idmodeproduction > 0 AND idetablissement <> '' AND 
dateappro IS NOT NULL) THEN
        BEGIN
            TRY
                SELECT M.IDINTRANT FROM JM.MODEPRODUCTIONINTRANT M, 
JM.PRODUCTEURINTRANT P
                    WHERE M.IDINTRANT = P.IDINTRANT
                    AND M.IDINTRANT = :idintrant
                    AND IDMODEPRODUCTION = :idmodeproduction
                    AND IDETABLISSEMENT = :idetablissement;
            CATCH
                IF $RC <> 0
                    THEN STOP (9999, 'Combinaison 
intrant-modeproduction-producteur inconnue');
            BEGIN
                INSERT INTO JM.LIGNEFOURNISSEUR
                    VALUES
                    (
                        :nopiece,
                        :idligne,
                        :idintrant,
                        :idmodeproduction,
                        :idetablissement,
                        :dateappro
                    );
                IF emballage = 'fermé' THEN
                    CALL PC_GARANTIRLIGNEFOURNISSEUR
                    (
                        :nopiece,
                        :idligne,
                        'emballage fermé',
                        :debutemb,
                        :finemb
                    );
                CALL PC_GARANTIRLIGNEFOURNISSEUR
                (
                    :nopiece,
                    :idligne,
                    'fiche technique ou étiquette',
                    :debutfte,
                    :finfte
                );
                CALL PC_GARANTIRLIGNEFOURNISSEUR
                (
                    :nopiece,
                    :idligne,
                    'facture ou bon de livraison',
                    :debutfbl,
                    :finfbl
                );
                CALL PC_GARANTIRLIGNEFOURNISSEUR
                (
                    :nopiece,
                    :idligne,
                    'certificat',
                    :debutcert,
                    :fincert
                );
                CALL PC_GARANTIRLIGNEFOURNISSEUR
                (
                    :nopiece,
                    :idligne,
                    'organisme de contrôle',
                    :debutoc,
                    :finoc
                );
            END;
        END;
    SET r = nopiece;
END;

I'm sure that the dbproc is executed because I can try to insert false
datas and I get SQLError with the correct message:
'Combinaison intrant-modeproduction-producteur inconnue'

but this insert statement, and those of dbproc
PC_GARANTIRLIGNEFOURNISSEUR, are not executed (commited ?)
    INSERT INTO JM.DETAILFLUXFINANCIER
    VALUES
    (:nopiece,:idligne,:qte,:puht,:idunite,:codeplan,:codetva);

I dropped and reloaded the dbproc, in vain. I verified that the dbproc
(with domain.dbprocedures) where the same in TEST and PROD instances.

other idea ?

-- 
jm


-- 
MaxDB Discussion Mailing List
For list archives: http://lists.mysql.com/maxdb
To unsubscribe:    http://lists.mysql.com/maxdb?unsub=gcdm-maxdb@xxxxxxxxxxx