Sample - DbfBuilder bug ?

[david fung]

When I compile & run the captioned sample, I cannot get a duplicate
error from
METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line
59 of FrmDbfBuilder.prg)
When I try to append two field with identical name.
Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
Regards
David

[david fung]

A few other questions about the behaviour of this sample.
1. When I add an entry in the following manner
- Alt "A" (to trigger an Append action)
- FLD1 <enter>
- C <enter>
- 20 <enter>
why the field "Decimals" is skipped and the "Append" button is in
focus. Where is the code that trigger this skipping the last field of th
e array.
2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
column), the "Decimals" column is not skipped.
3. When I change value of "Type" column (say to "N"), the following row
will repeat the previous row (in this case "N") if I just press <Enter>
to take the value which is "C", very misleading. ie the content of the
list box suddenly change by itself. Is will not happen when I use TAB !
4. What is the purpose of :IsMultiple(), ::RequestState() ?
david fung wrote:
> When I compile & run the captioned sample, I cannot get a duplicate
> error from
>
> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line
> 59 of FrmDbfBuilder.prg)
>
> When I try to append two field with identical name.
> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>
> Regards
> David
>

[david fung]

A few other questions about the behaviour of this sample.
1. When I add an entry in the following manner
- Alt "A" (to trigger an Append action)
- FLD1 <enter>
- C <enter>
- 20 <enter>
why the field "Decimals" is skipped and the "Append" button is in
focus. Where is the code that trigger this skipping the last field of th
e array.
2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
column), the "Decimals" column is not skipped.
3. When I change value of "Type" column (say to "N"), the following row
will repeat the previous row (in this case "N") if I just press <Enter>
to take the value which is "C", very misleading. ie the content of the
list box suddenly change by itself. Is will not happen when I use TAB !
4. What is the purpose of :IsMultiple(), ::RequestState() ?
david fung wrote:
> When I compile & run the captioned sample, I cannot get a duplicate
> error from
>
> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line
> 59 of FrmDbfBuilder.prg)
>
> When I try to append two field with identical name.
> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>
> Regards
> David
>

[ignacio]

David,
Just take of the Alltrim() function on this assignment on method
ColNameGridEditOnExit:
Value := Alltrim( oSender:Value )
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:45065f1d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> When I compile & run the captioned sample, I cannot get a duplicate error
> from
>
> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line 59
> of FrmDbfBuilder.prg)
>
> When I try to append two field with identical name.
> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>
> Regards
> David
>

[NoName]

David,
Just take of the Alltrim() function on this assignment on method
ColNameGridEditOnExit:
Value := Alltrim( oSender:Value )
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:45065f1d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> When I compile & run the captioned sample, I cannot get a duplicate error
> from
>
> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line 59
> of FrmDbfBuilder.prg)
>
> When I try to append two field with identical name.
> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>
> Regards
> David
>

[david fung]

Sorry, Q4 should be :IsMultipleEdit() ?
david fung wrote:
> A few other questions about the behaviour of this sample.
>
> 1. When I add an entry in the following manner
> - Alt "A" (to trigger an Append action)
> - FLD1 <enter>
> - C <enter>
> - 20 <enter>
> why the field "Decimals" is skipped and the "Append" button is in
> focus. Where is the code that trigger this skipping the last field of th
> e array.
>
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
>
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter>
> to take the value which is "C", very misleading. ie the content of the
> list box suddenly change by itself. Is will not happen when I use TAB !
>
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
>
>
>
> david fung wrote:
>> When I compile & run the captioned sample, I cannot get a duplicate
>> error from
>>
>> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line
>> 59 of FrmDbfBuilder.prg)
>>
>> When I try to append two field with identical name.
>> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>>
>> Regards
>> David
>>

[david fung]

Sorry, Q4 should be :IsMultipleEdit() ?
david fung wrote:
> A few other questions about the behaviour of this sample.
>
> 1. When I add an entry in the following manner
> - Alt "A" (to trigger an Append action)
> - FLD1 <enter>
> - C <enter>
> - 20 <enter>
> why the field "Decimals" is skipped and the "Append" button is in
> focus. Where is the code that trigger this skipping the last field of th
> e array.
>
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
>
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter>
> to take the value which is "C", very misleading. ie the content of the
> list box suddenly change by itself. Is will not happen when I use TAB !
>
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
>
>
>
> david fung wrote:
>> When I compile & run the captioned sample, I cannot get a duplicate
>> error from
>>
>> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line
>> 59 of FrmDbfBuilder.prg)
>>
>> When I try to append two field with identical name.
>> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>>
>> Regards
>> David
>>

[ignacio]

David,
> 1. When I add an entry in the following manner
> - Alt "A" (to trigger an Append action)
> - FLD1 <enter>
> - C <enter>
> - 20 <enter>
> why the field "Decimals" is skipped and the "Append" button is in
> focus. Where is the code that trigger this skipping the last field of th e
> array.
METHOD ArrayBrowse1Edit( oSender ) CLASS TForm1
local oEdiLength, oEdiDecim
local cType
With object ::oArrayBrowse1
cType := :GetValue( "Type" )
oEdiLength := :aCols[ 3 ]:oGridEdit
oEdiDecim := :aCols[ 4 ]:oGridEdit
do case
case cType == "C"
oEdiLength:lEnabled := .t.
oEdiDecim:lEnabled :=
..f.>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
case cType == "N"
oEdiLength:lEnabled := .t.
oEdiDecim:lEnabled := .t.
case cType == "D"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
case cType == "L"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
case cType == "M"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
endcase
End with
RETURN Nil
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
That is a bug introduced by us on our last revision I am afraid. The event
OnChange is not triggered on TGridEdit class and for that reason the method
ColTypeGridEditOnChange is never called. Now is fixed. Sorry for any
inconvenience.
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter> to
> take the value which is "C", very misleading. ie the content of the list
> box suddenly change by itself. Is will not happen when I use TAB !
Fixed. Thanks
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
oBrowse:IsMultipleEdit() returns TRUE if you are editing more than one
column at a time. oForm:RequestState() forces a call to OnCheckState() event
on every form control.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=450665ec@news.xailer.com...]450665ec@news.xailer.com...[/email]
>A few other questions about the behaviour of this sample.
>
>
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
>
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter> to
> take the value which is "C", very misleading. ie the content of the list
> box suddenly change by itself. Is will not happen when I use TAB !
>
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
>
>
>
> david fung wrote:
>> When I compile & run the captioned sample, I cannot get a duplicate error
>> from
>>
>> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line 59
>> of FrmDbfBuilder.prg)
>>
>> When I try to append two field with identical name.
>> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>>
>> Regards
>> David
>>

[NoName]

David,
> 1. When I add an entry in the following manner
> - Alt "A" (to trigger an Append action)
> - FLD1 <enter>
> - C <enter>
> - 20 <enter>
> why the field "Decimals" is skipped and the "Append" button is in
> focus. Where is the code that trigger this skipping the last field of th e
> array.
METHOD ArrayBrowse1Edit( oSender ) CLASS TForm1
local oEdiLength, oEdiDecim
local cType
With object ::oArrayBrowse1
cType := :GetValue( "Type" )
oEdiLength := :aCols[ 3 ]:oGridEdit
oEdiDecim := :aCols[ 4 ]:oGridEdit
do case
case cType == "C"
oEdiLength:lEnabled := .t.
oEdiDecim:lEnabled :=
..f.>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
case cType == "N"
oEdiLength:lEnabled := .t.
oEdiDecim:lEnabled := .t.
case cType == "D"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
case cType == "L"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
case cType == "M"
oEdiLength:lEnabled := .f.
oEdiDecim:lEnabled := .f.
endcase
End with
RETURN Nil
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
That is a bug introduced by us on our last revision I am afraid. The event
OnChange is not triggered on TGridEdit class and for that reason the method
ColTypeGridEditOnChange is never called. Now is fixed. Sorry for any
inconvenience.
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter> to
> take the value which is "C", very misleading. ie the content of the list
> box suddenly change by itself. Is will not happen when I use TAB !
Fixed. Thanks
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
oBrowse:IsMultipleEdit() returns TRUE if you are editing more than one
column at a time. oForm:RequestState() forces a call to OnCheckState() event
on every form control.
Regards,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"david fung" <davfung@yahoo.com> escribió en el mensaje
news:[email=450665ec@news.xailer.com...]450665ec@news.xailer.com...[/email]
>A few other questions about the behaviour of this sample.
>
>
> 2. When I use Alt "E" (ie Edit an entry) (I use <enter> to jump to next
> column), the "Decimals" column is not skipped.
>
> 3. When I change value of "Type" column (say to "N"), the following row
> will repeat the previous row (in this case "N") if I just press <Enter> to
> take the value which is "C", very misleading. ie the content of the list
> box suddenly change by itself. Is will not happen when I use TAB !
>
> 4. What is the purpose of :IsMultiple(), ::RequestState() ?
>
>
>
> david fung wrote:
>> When I compile & run the captioned sample, I cannot get a duplicate error
>> from
>>
>> METHOD ColNameGridEditOnExit( oSender, oNextCtl ) CLASS TForm1 (line 59
>> of FrmDbfBuilder.prg)
>>
>> When I try to append two field with identical name.
>> Somehow the Ascan cannot identify a duplicated entry ? Any idea ?
>>
>> Regards
>> David
>>

[david fung]

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Just take of the Alltrim() function on this assignment on method
> ColNameGridEditOnExit:
>
> Value := Alltrim( oSender:Value )
>
> Regards,
>
Thanks for your prompt reply.
David

[david fung]

Ignacio Ortiz de Zúñiga wrote:
> David,
>
> Just take of the Alltrim() function on this assignment on method
> ColNameGridEditOnExit:
>
> Value := Alltrim( oSender:Value )
>
> Regards,
>
Thanks for your prompt reply.
David