January 8, 2009 03:41pm pst

There are currently no qualifying experts in Interbase / Firebird

1. NickUpson 363,306
2. kacor 51,844
3. BAlexand... 39,502
4. hobbit72 27,954
5. Stummel 15,838
6. Limbeck 13,475
7. idt 12,791
8. Trekker72 9,840
9. phuocnh 7,650
10. Delphian 7,089
11. vowca 6,618
12. ziolko 6,500
13. Deesy 6,310
14. MicheleM... 6,293
15. tkalchev 6,201
16. imfallible 6,000
17. YodaMage 5,982
18. ezraa 5,922
19. thegroup 5,672
20. angelIII 5,600
21. Ustin19 4,500
22. chart11... 4,148
23. JDSkinner 4,114
24. TheLearn... 4,100
25. ee_rlee 4,000

08.31.2008 at 09:31AM PDT, ID: 23692260

	[x] Attachment Details

SQL Server Error: invalid request blr...

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Zones:

Interbase / Firebird Database, Delphi Programming

Tags:

Borland, Firebird, Delphi 7, Firebird 2

Hi i get this error (SQL Server Error: Invalid request BLR at offset 1015 column OBJID is not defined in table RDB$PAGES) when trying to execute query in delphi using TSQLQuery. Have anyone experienced this? But the error is gone if i remove "EXECUTE PROCEDURE UPDATE_ITEMREGSV".

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:

           
           
             CREATE TABLE MM_ITRGSV (
    OBJID       D_OBJID,
    HEADER_ID   INTEGER NOT NULL,
    TR_CODE     D_CHAR15 NOT NULL,
    DOC_ID      INTEGER NOT NULL,
    ITEM_ID     INTEGER NOT NULL,
    QTY         D_FLOAT NOT NULL,
    INPRICE   D_FLOAT_NODEF,
    EXPRICE   D_FLOAT_NODEF,
    USERFIELD1  D_CHAR30,
    USERFIELD2  D_CHAR30,
    USERFIELD3  D_CHAR30,
    USERFIELD4  D_CHAR30,
    USERFIELD5  D_CHAR30
);
 
 
 
 
CREATE PROCEDURE UPDATE_ITEMREGSV 
AS
DECLARE VARIABLE VAR_TRCODE VARCHAR(15) CHARACTER SET NONE;
DECLARE VARIABLE VAR_HDID INTEGER;
DECLARE VARIABLE VAR_DOCID INTEGER;
DECLARE VARIABLE VAR_DOCCODE VARCHAR(30) CHARACTER SET NONE;
DECLARE VARIABLE VAR_POSTDATE TIMESTAMP;
DECLARE VARIABLE VAR_BRANCH_ID INTEGER;
DECLARE VARIABLE VAR_PERSON_ID INTEGER;
DECLARE VARIABLE VAR_ITEM_ID INTEGER;
DECLARE VARIABLE VAR_QTY DOUBLE PRECISION;
DECLARE VARIABLE VAR_PRICE DOUBLE PRECISION;
DECLARE VARIABLE VAR_DISCPERC INTEGER;
DECLARE VARIABLE VAR_DISCTOTAL DOUBLE PRECISION;
DECLARE VARIABLE VAR_USERFIELD1 VARCHAR(30) CHARACTER SET NONE;
DECLARE VARIABLE VAR_USERFIELD2 VARCHAR(30) CHARACTER SET NONE;
DECLARE VARIABLE VAR_USERFIELD3 VARCHAR(30);
DECLARE VARIABLE VAR_USERFIELD4 VARCHAR(30);
DECLARE VARIABLE VAR_USERFIELD5 VARCHAR(30);
DECLARE VARIABLE VAR_XPRICE DOUBLE PRECISION;
BEGIN
  DELETE FROM MM_ITRGSV;
 
  VAR_TRCODE = 'SLI';
  
  FOR SELECT B.OBJID, B.CODE, B.POSTDATE, B.BRANCH_ID, B.CUSTOMER_ID,
  A.ITEM_ID, A.QTY, A.PRICE, A.DISCOUNTPERC, B.DISCOUNTPERC DISCTOTAL,
  A.USERFIELD1, A.USERFIELD2, A.USERFIELD3, A.USERFIELD4, A.USERFIELD5
  FROM SD_INVODT A
  INNER JOIN SD_INVOHD B ON A.HEADER_ID=B.OBJID
  INNER JOIN MM_ITEMMD C ON A.ITEM_ID=C.OBJID
  WHERE (C.INVENTORIED_OK <> 1) AND (B.STATUS IN (1,2)) AND (A.QTY <> 0)
  ORDER BY B.OBJID, A.OBJID
  INTO VAR_DOCID, VAR_DOCCODE, VAR_POSTDATE, VAR_BRANCH_ID, VAR_PERSON_ID,
  VAR_ITEM_ID, VAR_QTY, VAR_PRICE, VAR_DISCPERC, VAR_DISCTOTAL, VAR_USERFIELD1, VAR_USERFIELD2, VAR_USERFIELD3, VAR_USERFIELD4, VAR_USERFIELD5
  DO
  BEGIN
    VAR_HDID = -1;
    SELECT OBJID FROM MM_ITRGHD WHERE TR_CODE=:VAR_TRCODE AND DOC_ID=:VAR_DOCID INTO VAR_HDID;
    IF ((VAR_HDID IS NULL) OR (VAR_HDID <= 0)) THEN
    BEGIN
      INSERT INTO MM_ITRGHD(TR_CODE, DOC_ID, DOC_CODE, POSTDATE, BRANCH_ID, PERSON_ID) VALUES (:VAR_TRCODE, :VAR_DOCID, :VAR_DOCCODE, :VAR_POSTDATE, :VAR_BRANCH_ID, :VAR_PERSON_ID);
      SELECT OBJID FROM MM_ITRGHD WHERE TR_CODE=:VAR_TRCODE AND DOC_ID=:VAR_DOCID INTO VAR_HDID;
    END
    
    VAR_QTY = VAR_QTY * -1;
    VAR_PRICE = (VAR_PRICE - (VAR_PRICE * (VAR_DISCPERC/100)));
    VAR_PRICE = (VAR_PRICE - (VAR_PRICE * (VAR_DISCTOTAL/100)));
    
    INSERT INTO MM_ITRGSV (OBJID, HEADER_ID, TR_CODE, DOC_ID, ITEM_ID, QTY, INPRICE, EXPRICE, USERFIELD1, USERFIELD2, USERFIELD3, USERFIELD4, USERFIELD5)
    VALUES (-1, :VAR_HDID, :VAR_TRCODE, :VAR_DOCID, :VAR_ITEM_ID, :VAR_QTY, :VAR_PRICE, NULL, :VAR_USERFIELD1, :VAR_USERFIELD2, :VAR_USERFIELD3, :VAR_USERFIELD4, :VAR_USERFIELD5);
  END
END
 
 
 
 
 
EXECUTE PROCEDURE UPDATE_ITEMREGSV

           
         

#	Title
1	Reporting Services export to PDF: Inv…
2	ALTER COLUMN WITH COMPRESSION …
3	Delphi, adding column to Excel table at…
4	Offsets....
5	I need helping fixing 573 invalid obje…
6	OLE DB provider 'STREAM' for linke…