FiveTech Software tech support forums

... := acTemporal //olbx101c:acols[4]:bEditBlock:= { mifuncion('1') } //olbx101c:acols[4]:bBmpAction := { |oCol| mifuncion('2') } //olbx101c:acols[4]:bEditValid :={|| mifuncion('2') } olbx101c:acols[4]:bEditWhen:= { || MsgInfo( ValType( olbx101c:aArrayData[olbx101c:nArrayAt][5] ) ), olbx101c:aArrayData[olbx101c:nArrayAt][5] ...

Francisco:

Muchas gracias por el aporte, lo voy a intentar.

Saludos

Hola Armando. Esto es para DBF, pero creo que la misma logica te servirá traduciendola a MySql: //Agregar 1 registro si el campo fecha de linea anterior no está vacío  WITH OBJECT oBrw   :bPastEof  := { || if( !Empty(oBrw:Fecha:Value)  ,;     ...

Hola César:

Muchas gracias voy a tirar por el INSERT IGNORE.

Saludos

Puedes controlarlo en la funcion Agregar haciendo el control de que no haya ya agregado un registro en blanco ************************************************************** Agregar un familiar a la listaSTATIC FUNCTION Agregar(oBrw)LOCAL lRta, oError, baseIF oApp:oServer:Query("SELE...

... Agregar(oBrw)}            <= Se agrega un registro e blanco y espera lo que teclee el usuario:bEditValid := { | oGet, oCol | Validar(oBrw,oGet:VarGet()) }   En la funcion Validar(), puede devolver (.T.) o (.F.) ...

... oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)} oBrw:aCols[ 7 ]:nEditType := EDIT_GET oBrw:aCols[ 7 ]:bEditValid := {|| if(1=1,(_ArtFor->Total := _ArtFor->Pedir*_ArtFor->Costo,msginfo('jjjj'),refXbrw(_ArtFor->(Recno())),_ArtFor->(Eof()),.t.),.f.) ...

Cambia el bEditValid por bEditValue

... una funcion aparte y no lo consigo. Se Puede realizar? Si alguien me orienta lo agradecere. oBrw:aCols[ 7 ]:nEditType := EDIT_GET oBrw:aCols[ 7 ]:bEditValid := {|| if(1=1,(_ArtFor->Total := _ArtFor->Pedir*_ArtFor->Costo_ArtFor->(Eof()),msginfo('jjjj'),refXbrw(_ArtFor->(Recno()))_ArtFor->(Eof()),.t.),.f.) ...

... := EDIT_GET oCol:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN,aData[oFld:nOption][oBrw[oFld:nOption]:nArrayAt,3]:=xVal,) } oCol:bEditValid := { | oGet, oCol | (CargaPrecio(oGet,oBrw,aData,oFld:nOption)) } oCol:cFooter := 'Total' oCol:nFootStrAlign:= AL_CENTER ElseIf n ==4 oCol:bFooter ...

... automatically decides the width, picture, align and sort order. Unless it is really necessary, it is not necessary to specify these. nEditType, bEditValid, bitmaps are all to be assigned separately as normal.

Rao,
I can do a workaround using bEditValid for Gets but has no solution for checkboxes.

Any idea?

Tried :bEditValid but seems checkbox won't trigger it

... igual mal con EDIT_LISTBOX // :cEditPicture := "@z 9999" :bEditWhen := { || LEN(oBrwPlan:aArrayData)>0.AND.oBrwPlan:aRow[03]==0 } // :bEditValid := { | oGet, oCol | ValidaCodArt( oGet, oCol, oBrwArticulo, oSelf:cPathRs ) } :aEditListTxt := ArrTranspose( aPlanes )[02] :aEditListBound ...

Paste operation ignores both bEditWhen and bEditValid. Paste operation works on multiple cells and multiple rows. bEditValid is programmed to work with a Get and there is no Get in paste operation. Also despite our advices that bEditValid should ...