bb.donnay-software.com

Donnay Software Web Forums
It is currently Wed Aug 12, 2020 1:37 am

All times are UTC - 7 hours




Post new topic Reply to topic  [ 7 posts ] 
Author Message
PostPosted: Tue Jan 28, 2020 1:23 pm 
Offline
User avatar

Joined: Thu Feb 11, 2010 1:39 pm
Posts: 490
Dear Roger/All

DCBROWSE ... EDIT DOES NOT WORK WITH SQLEXPRESS.

See below.

Attachment:
DCBROWSE-EDIT-ERROR.png
DCBROWSE-EDIT-ERROR.png [ 55.87 KiB | Viewed 3079 times ]


Top
 Profile  
 
PostPosted: Tue Jan 28, 2020 4:34 pm 
Offline
Site Admin
User avatar

Joined: Wed Jan 27, 2010 6:58 pm
Posts: 4149
Location: Boise, Idaho USA
Cell editing was never tested with SQLEXPRESS.

Try putting a code block in the DEFAULT clause.

What build of eXpress++ are you using?

_________________
The eXpress train is coming - and it has more cars.


Top
 Profile  
 
PostPosted: Tue Jan 28, 2020 9:15 pm 
Offline
User avatar

Joined: Thu Feb 11, 2010 1:39 pm
Posts: 490
Version build 261


Top
 Profile  
 
PostPosted: Tue Feb 11, 2020 2:26 am 
Offline
User avatar

Joined: Thu Feb 11, 2010 1:39 pm
Posts: 490
Anybody with the idea to make DCBROWSE ... EDIT WORK WITH SQLEXPRESS

Joe


Top
 Profile  
 
PostPosted: Thu Feb 20, 2020 10:36 pm 
Offline
User avatar

Joined: Thu Feb 11, 2010 1:39 pm
Posts: 490
Now I got it working perfectly

Thanks ALL

Joe


Top
 Profile  
 
PostPosted: Sat Feb 22, 2020 7:41 am 
Offline
Site Admin
User avatar

Joined: Wed Jan 27, 2010 6:58 pm
Posts: 4149
Location: Boise, Idaho USA
We share our solutions with you.

How about sharing your solution with us?

_________________
The eXpress train is coming - and it has more cars.


Top
 Profile  
 
PostPosted: Sat Feb 22, 2020 8:22 pm 
Offline
User avatar

Joined: Thu Feb 11, 2010 1:39 pm
Posts: 490
OK.

1. I use SQLdataset instead of SQLSelect

2. I have

FUNCTION SQLGetSetBlock( oCursor, nField , lCommit)
Local bPutData := {|o,x,lSave|o:fieldPut(nField,IF(ValType(x)=="C",Trim(x),x) ), IF(lSave,o:Commit(),Nil)}
Local oCol, nLen, nDec, xRet
DEFAULT lCommit := .t.
oCol := oCursor:getSQLColumn(nField)
nLen := oCol:length
IF oCol:ValType == "C"
xRet := {|x|if(x==NIL,PadR(oCursor:fieldGet(nField),nLen), Eval(bPutData,oCursor,x,lCommit))}
ELSE
xRet := {|x|if(x==NIL,oCursor:fieldGet(nField), Eval(bPutData,oCursor,x,lCommit))}
ENDIF
RETURN xRet

One More Problem: I discover that DCBROWSECOL ... EDITOR is not saving to table e.g.

DCBROWSECOL DATA SQLGetSetBlock(oCursor, "SellingPrice") HEADER "Selling Price" WIDTH 17 EVAL {|o|o:ColorBlock := bColor} EDITOR "SELLING_PRICE" PICTURE AMT_PIC EDITPROTECT {||!oCursor:FieldGet("AllowPost")}

@ Nil,Nil DCGET xNIL PICTURE AMT_PIC POPUP {|n| DC_PopCalc(n)} GETFONT "8.Courier.Bold.Italic" GETID "SELLING_PRICE"


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 7 posts ] 

All times are UTC - 7 hours


Who is online

Users browsing this forum: No registered users and 0 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group