FiveTech Software tech support forums

... := EDIT_GET oBrw:aCols[2]:nEditType := EDIT_GET oBrw:aCols[3]:nEditType := EDIT_LISTBOX oBrw:aCols[4]:nEditType := EDIT_GET oBrw:aCols[3]:aEditListTxt := { "EFECTIVO", "TARJETA", "SEGURO","PENDIENTE" } oBrw:aCols[4]:SetCheck ({"CHECKON","CHECKOFF"} ...

... though oBrw:setPos() was called. iv. pressed Enter again, expecting to get the message box again but instead I got the messsage "oCol:aEditListTxt not defined" which I don't know where it came from. I did a screen cast to show what I mean and you can view it at http://www.screencast.com/t/h6X0rlLo ...

... i dbl click on the column (when not allowed to edit) it is ok nothing happens if i press on the enter key twice i get the following message ocol:aeditlisttxt not defined fivewin class txbrwcolumn any idea ? solution in changing method keydown xbrowse.prg case nKey == VK_RETURN oCol := ::SelectedCol() ...

... := { || oBrw:Quantity:Value * oBrw:Rate:Value * ; ( 1 - oBrw:Discount:Value * 0.01 ) } WITH OBJECT oBrw:Unit :nEditType := EDIT_LISTBOX :aEditListTxt := {"BOX","PCS","KG","LTR"} END WITH OBJECT oBrw:Amount :cEditPicture := '9,99,999.99' :nTotal ...

... "No ")} oCol:bEditValue := { || oProject:prjstart } oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.) oCol:nEditType := EDIT_LISTBOX oCol:aEditListTxt := { "Yes", "No"} oCol:aEditListBound := { TRUE, FALSE } oCol:bOnPostEdit := {|o, v| oProject:prjstart := v ,oProject:save(),oLbx:Refresh() ...

... dicha clase. Al hacerlo también encontré la solución que fue más fácil y no me di cuenta antes :oops: Tan sólo hay que asignar a las propiedades :aEditListTxt y :aEditListBound los nuevos arrays modificados Dentro de mi funcion SelLugar(i,x,obrwObr), luego de modificar los arrays con nuevos datos ...

... 2 ]:bEditBlock := {|| msginfo( "Imagen"+strzero( oBrw:aCols[ 2 ]:nBtnBmp, 2 ) ) } oBrw:aCols[ 3 ]:nEditType( EDIT_GET_LISTBOX ) oBrw:aCols[ 3 ]:aEditListTxt := aList oBrw:aCols[ 3 ]:bOnPostEdit := {|o,x,k| oBrw:aCols[ 2 ]:nBtnBmp := x , ; oBrw:aCols[ 2 ]:ChangeBitMap() } ACTIVATE DIALOG oDlg ...

Nageswararao,

This first line seems wrong:

oBrw:aCols[3]:aEditListBound:= ;
oBrw:aCols[3]:aEditListTxt := { 'AA', 'BB', 'CC', 'DD', 'EE', 'FF', 'GG', 'HH' }

... "Yes", "No ")} oCol:bEditValue := { || _FIELD->Married } oCol:nDataStyle := oCol:DefStyle( AL_RIGHT, .T.) oCol:nEditType := EDIT_LISTBOX oCol:aEditListTxt := { "Yes", "No"} oCol:aEditListBound := { .t., .f. } oCol:bOnPostEdit := {|o, v| _FIELD->Married := v } oBrw:SetRDD() oBrw:CreateFromCode() ...

... line at about line 1251 in XBrowse.prg is wrong: nAt := Ascan( ::aEditListBound, Eval( ::bEditValue ) ) I think it should be : nAt := Ascan( ::aEditListTxt, Eval( ::bEditValue ) ) Without this the drop down does not select the current value in the browse cell.

... := 60 uBrw:aCols[2]:nDataStrAlign := AL_LEFT uBrw:aCols[2]:nHeadStrAlign := AL_LEFT uBrw:aCols[2]:nEditType := EDIT_LISTBOX uBrw:aCols[2]:aEditListTxt := {"Sim", "Não"} uBrw:aCols[2]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 2 ] := x } uBrw:aCols[2]:aEditListBound := {"Sim", "Não"} ...

... := 60 uBrw:aCols[2]:nDataStrAlign := AL_LEFT uBrw:aCols[2]:nHeadStrAlign := AL_LEFT uBrw:aCols[2]:nEditType := EDIT_LISTBOX uBrw:aCols[2]:aEditListTxt := {"Sim", "Não"} uBrw:aCols[2]:bOnPostEdit := {|o,x| bStruc[ uBrw:nArrayAt, 2 ] := x } uBrw:aCols[2]:aEditListBound := {"Sim", "Não"} ...