Hola,
He solucionado el problema corrigiendo mi código.
Mi manera de programar hace que al agregar un campo, el xBrowse lo muestre al final de la lista como puede verse en imagen que sigue.
A esto sólo puedo implementarlo así:
- Code: Select all Expand view
redefine buttonbmp oBtnAgregar ;
id 4004 OF oDlg ;
action (nOrden:=indexord(),;
oDbf:SetOrder(0,".\DB\SERVICE.CDX"), oDbf:append() , ;
oBrw:setfocus() , oBrw:gobottom(),;
oRichService:settext("") , oRichService:refresh(),;
oBrw:setfocus(), oBrw:refresh(), oBrw:GoLeftMost(), __keyboard(chr(13)),;
oDbf:SetOrder(nOrden,".\DB\SERVICE.CDX") );
update ;
bitmap "AGREGANDO"
oBtnAgregar:cTooltip:="Agregar Repuesto"
oBtnAgregar:oCursor:=oCur1
Como Dije, cambié mi código y ahora funciona como esperaba. Gracias.
Rolando
Translated by Google:Hello,
I solved the problem by editing my code.
My way of programming makes adding a field, the xBrowse show it to the bottom of the list as shown in image below.
To this I can only implement it like this:
- Code: Select all Expand view
redefine buttonbmp oBtnAgregar ;
id 4004 OF oDlg ;
action (nOrden:=indexord(),;
oDbf:SetOrder(0,".\DB\SERVICE.CDX"), oDbf:append() , ;
oBrw:setfocus() , oBrw:gobottom(),;
oRichService:settext("") , oRichService:refresh(),;
oBrw:setfocus(), oBrw:refresh(), oBrw:GoLeftMost(), __keyboard(chr(13)),;
oDbf:SetOrder(nOrden,".\DB\SERVICE.CDX") );
update ;
bitmap "AGREGANDO"
oBtnAgregar:cTooltip:="Agregar Repuesto"
oBtnAgregar:oCursor:=oCur1
As I said, I changed my code and now works as expected. Thank you.
Rolando