Firebird Procedure liefert null

[Delix]

Hallo zusammen!

Ich habe eine Procedure mit einem numerischen Rückgabewert erstellt, welche mir einen Lagerwert per Stichtag liefern soll. Dabei habe ich folgendes Problem:

Die Procedure läuft intern korrekt ab, was ich über eine Tabelle protokolliert habe. Wenn ich die Datenmenge, die zu berechnen ist einschränke, Laufzeit ca. 2 Minuten, wird der korrekte Wert geliefert. Schränke ich die Daten nicht ein, Laufzeit ca. 8-10 Minuten, liefert die Procedure Null zurück. Lt. Internem Prtokoll ist aber alles korrekt bis zum Schluss berechnet worden.

Fehlermeldungen gibt es keine, auch nicht in firebird.log

Hat jemand eine Idee?

Schönen Gruß

[jobo]

Was für eine schöne Glaskugelfrage. Gibt es auch Code zu der Procedure? Wenn nicht, Null Code liefert zwangsläufig auch Null Ergebnis und Null Antworten auf Fragen.

Ernst:
Null Rückgaben kommen häufig dadurch zustande, dass ein Join ins Leere läuft. Wenn eine kleine Datenmenge zufällig durch die Einschränkung passende Joins findet, alles ok, wenn im Großen nicht die passenden Join Daten da sind, alles NULL.

Viel mehr kann man dazu glaub ich ohne Code nicht sagen.

[sko1]

Zitat:

Procedure mit einem numerischen Rückgabewert erstellt,

procedure (ohne Rückgabe) oder function (mit Rückgabe)?

Poste das Teil doch bitte mal!

Ciao
Stefan

[ZOD]

eventuell hilft die Verwendung von

Code:

coalesce()

im SQL statement ..

https://firebirdsql.org/refdocs/lang...-coalesce.html

[Jumpy]

Oder in deinen Berechnungen fließt ein Datensatz mit Null-Wert ein, so dass auch das Ergebnis Null wird.

[Delix]

Hallo,

mit den bisherigen Antworten kann ich leider wenig anfangen, da eine meiner Aussagen nicht berücksichtigt wird:

Die Procedure läuft intern absolut korrekt ab. Das habe ich aus der Procedure heraus protokolliert. Die Rückgabe-Variable ist bis zum Schluss absolut korrekt berechnet! Da fallen joins's oder Nullwerte wohl aus.

hier die Procedure:

SQL-Code:

ALTER PROCEDURE P_GETLAGERWERT ( DATUM DATE )
RETURNS ( LGWERT NUMERIC(12,2) )
AS
DECLARE ARTNR VARCHAR(50);
DECLARE BEREINH NUMERIC (10,3);
DECLARE LGNR INTEGER;
DECLARE LE_EK NUMERIC (12,4);
DECLARE ART_EKNETTO NUMERIC (12,4);
DECLARE BESTAND NUMERIC (11,3);
DECLARE BER_BESTAND NUMERIC (11,3);
DECLARE BEST_OHNE_RECHNUNG NUMERIC (11,3);
DECLARE ART_WERT NUMERIC (12,3);

BEGIN

  LGWERT = 0;
 
  DELETE FROM DBPROC WHERE PROCNAME = 'P_GETLAGERWERT';
 
  for Select AL.Artnr, AL.LgNr, AR.BEREINH, AR.EKNETTO from Artl al
    LEFT JOIN ARTIKEL ar ON al.ARTNR = ar.ARTNR                     
    LEFT JOIN LAG ON LAG.LGNR = AL.LGNR
      Where (cast( al.LgNr as Integer) >0 ) and ( ar.artgrp <= 59 )                                          
       AND ar.Aktiv='J'
       AND ar.Bestfrg ='J'
       AND LAG.BESTSUM = 'J'
       AND AL.BEST>0
    Group by al.Artnr, al.LgNr, Ar.BEREINH, AR.EKNETTO
    ORDER BY AL.LGNR, AL.ARTNR  
    INTO :ARTNR, :LGNR, BEREINH, ART_EKNETTO
    DO
    BEGIN
      BESTAND = (SELECT BESTAND from P_GETBEST_ATDATE(:ArtNr, :LGNR, '*', '*', :DATUM));
      BEST_OHNE_RECHNUNG = (Select MENGE from P_ELPO_OHNE_RECHNG (:ARTNR, :LGNR, :DATUM));

      IF ( BESTAND is NULL ) THEN
        BESTAND = 0;
       
      IF (BEST_OHNE_RECHNUNG IS NULL) THEN
          BEST_OHNE_RECHNUNG = 0;

      LE_EK = (SELECT LE_EK FROM P_GET_LEEK_STICHTAG(:ARTNR, :LGNR, :DATUM));
      IF (LE_EK <= 0 ) THEN
        LE_EK = ART_EKNETTO; 
       
      IF ((BEREINH IS NULL) OR (BEREINH = 0)) THEN 
        BEREINH = 1;
   
      IF (BESTAND IS NULL) THEN 
        BESTAND=0;
   
      BER_BESTAND = BESTAND - BEST_OHNE_RECHNUNG; 
      IF ( BER_BESTAND < 0 ) THEN
        BER_BESTAND = 0;
         
      ART_WERT = ( BER_BESTAND * LE_EK / BEREINH);
       
      LGWERT = LGWERT + ART_WERT;

      /* Protokoll */
      INSERT INTO DBPROC(PROCNAME, ZEIT, WERT) VALUES ('P_GETLAGERWERT','NOW',
        :LGNR||';'||:ARTNR||';'||:BESTAND||';'||:BEST_OHNE_RECHNUNG||';'||:LE_EK||';'||:ART_WERT||';'||:LGWERT);
   
    END
 SUSPEND;                                                       
  
END

Wenn ich im Select die Datenmenge weiter beschränke, wird ein Wert zurückgegeben, so wie der Select jetzt steht ergibt er null. Im Protokoll ist in allen Fällen alles richtig und vollständig.

Schönen Gruß

[kretabiker]

Ist ne Ewigkeit her, dass ich mich mit SPs unter Firebird befasst habe, aber was mir auffällt, sind die fehlenden ':' im INTO-Teil der ersten SQL-Abfrage: INTO :ARTNR, :LGNR, BEREINH, ART_EKNETTO - fehlen die nicht vor BEREINH und ART_EKNETTO?

[Blup]

Die ":" fehlen bei den Variablen im Select.

Du prüfst zwei mal "BESTAND IS NULL" aber "LE_EK" wird nicht auf "NULL" geprüft.

[bnreimer42]

Ich würde mal sagen, die Proc gibt nur NULL zurück, wenn
LE_EK = (SELECT LE_EK FROM P_GET_LEEK_STICHTAG(:ARTNR, :LGNR, ATUM));
NULL ergibt.

Kann es sein, dass die Werte der Proc vom Client nicht abgerufen werden?
Wie wird die Proc im Programm aufgerufen.

[jobo]

Zitat von Delix:

Hallo,

mit den bisherigen Antworten kann ich leider wenig anfangen, da eine meiner Aussagen nicht berücksichtigt wird:

Die Procedure läuft intern absolut korrekt ab.

Ja, das mag so sein, dass Du es protokolliert hast, aber nur für einen Fall (meinetwegen auch mehr) und Du hast bereits mehrere Antworten, wie es zu der Null kommen kann.
Am ehesten würde ich mal auf die Antwort von Jumpy tippen.
In SQL ist es idR so:
1+2+NULL=NULL

NULL steht für undefiniert, definierte Werte verrechnet oder verglichen mit undefinierten Werten ergibt immer undefiniert.
Woher kommt die NULL? Entweder eines der Felder enthält Null oder wie ich beschrieben habe führt ein Join ins Leere und "produziert" NULL Werte, die in der Berechnung alles mitreißen.