FiveTech Support Forums

            WITH OBJECT :Cantidad
               :cEditPicture  := "@ZK 99,999"
            END

            WITH OBJECT :Unitario
               :cEditPicture  := "@Z 999,999.99"
            END

            WITH OBJECT :Importe
               :nFooterType   := AGGR_SUM
            END

            :MakeTotals()

WITH OBJECT :Importe
   :cDataType    := "N"
   :cEditPicture := PIC_NUEVECIFED     // picture "@E 999,999.99"
   :nHeadStrAlign:= :nFootStrAlign:= AL_RIGHT
   :nFooterType  := AGGR_SUM
   :nEditType    := EDIT_GET

   :bOnPostEdit  := {|o, nVal, nK| if( nK != VK_ESCAPE, ( o:Value:= nVal, Eval( bCalculaIVA ), ;
                                                        if( ::aMateriales[aO[_oBrwDeta]:nArrayAt][_IDMat] == 0, ;
                                                            ( aO[_oBrwDeta]:nColSel:= _Detalle ), nil ) ), ) }   
END

/* Referencia
   nVal es el valor introducido
   Importe esta contenido en un multiarray
   bCalculaIVA es un bloque de codigo donde hago variados calculos que afectan a resultado final de Importe
   Alli incluyo :MakeTotals(), :RefreshFooters() y :Refresh del browse para luego posicionar en la 2da
   columna, de las siguiente linea, para agregar buscar otro registro 
*/

  WITH OBJECT oBrw:Codigo 
      :bEditValid     := { |oGet| oGet:VarGet() > 0 }
      :bOnChange      := { |oCol| oBrw:Descrip:Value := "Codigo " + Str(oBrw:Codigo:Value,4) }
   END

WITH OBJECT oBrw:Cantidad
      :bEditWhen      := { || ! Empty( oBrw:Codigo:Value ) }
      :bOnChange      := { || oBrw:MakeTotals(), oBrw:RefreshFooters() }
      :bEditValid     := { |oGet| oGet:VarGet() > 0 }
   END

   WITH OBJECT oBrw:Unitario 
      :bEditWhen      := { || ! Empty( oBrw:Codigo:Value ) .and. ! Empty( oBrw:Cantidad:Value ) }
      :bOnChange      := { || oBrw:MakeTotals(), oBrw:RefreshFooters() } 
      :bEditValid     := { |oGet| oGet:VarGet() > 0 }
   END

   WITH OBJECT oBrw:Importe
      :bEditValue     := { || oBrw:Cantidad:Value * oBrw:Unitario:Value }
      :cEditPicture   := "999,999,999.99"
      :nFooterType    := AGGR_SUM
   END

WITH OBJECT :Material
     :cOrder          := "A"
     :cEditPicture  := "@!K"
     :AddResource("Bus16")
     :bEditBlock    := { | | BrwMat(oDlg)  }
     :bEditValid    := { | oGet | ValMat(oGet:VarGet()) }
END

        REDEFINE XBROWSE oBry ID 401 OF oDlg;
            DATASOURCE oRsWMat;
            COLUMNS "MDE_MAT","MDE_DES","MDE_CTD","MDE_PUN","MDE_IMP";
            HEADERS "Material","Descripción del material","Cantidad","Unitario","Importe";
            COLSIZES 90,250,50,70,80;
            PICTURES Nil,Nil,"@Z 99999","@Z 9,999.99","@Z 999,999.99";
            JUSTIFY {AL_LEFT,AL_LEFT,AL_RIGHT,AL_RIGHT};
            FOOTERS AUTOSORT BACKGROUND oApp:cBrush FASTEDIT

WITH OBJECT :Material
//     :cOrder          := "A" // XBROWSE uses this internally
     :cEditPicture  := "@!"   // "@!K" "K" is not required in FWH
//     :AddResource("Bus16")
     :nBtnBmp     := "Bus16"  // Insert here
     :bEditBlock    := { | | BrwMat(oDlg)  }
     :bEditValid    := { | oGet | ValMat(oGet:VarGet()) }
END

oCol:nBtnWidth := n