FiveTech Software tech support forums

Buenas Tardes amigos de foro
Mi problemas es que necesito en una determinada columna mediante una condicion obtener un resultado y cuando no se cumpla ingresar yo valor, no lo he logrado ya que ingreso un valor y me pone cero, el codigo es el siguiente.


bData := { || If( oBrw:aArray[ oBrw:nAt, 6 ] > 0.00 , Obrw:aArray[ oBrw:nAt, 6 ] * (Obrw:aArray[ oBrw:nAt, 7 ]/100) , Obrw:aArray[ oBrw:nAt, 8 ] ) }

Gracias de antemano
Saludos.
Oscar

Si quieres ubicame por MSN,, estoy conectado casi siempre a ver q sacamos en claro... aca no somos muchos los q usamos TSBROWSE:::

SALUDOS

EasySoft

Yo lo utilzo de esta manera, a lo mejor te sirve

Code: Select all  Expand view

ADD COLUMN TO BROWSE oLbx DATA ARRAY ELEMENT 4;
      HEADER "Bruto"+CRLF+"Venta" ;
      PICTURE "@E 99,999,999.9" ;
      EDITABLE;
      POSTEDIT (;
              Articu->( dbSeek( oLbx:aArray[oLbx:nAt,1] )),;
             _cbruto := oLbx:aArray[oLbx:nAt,4],;
             _cdesc  := oLbx:aArray[oLbx:nAt,5],;
             _netprod := round(_cbruto - ((_cbruto * _cdesc)/100),1),;
             ;
             iif( alltrim(oLbx:aArray[oLbx:nAt,1]) <> "TXT" .and.  _netprod < Articu->Ar_P_Med,;
                      MsgInfo( "Precio Unitario esta bajo el precio costo medio"+CRLF+;
                              "medio:"+trans( Articu->Ar_P_Med,"@E 99,999,999" )+CRLF+;
                              "Vta  :"+trans( Articu->(vPrecioArt()),"@E 99,999,999" ), "Revise" ), "" ),;
            oLbx:aArray[oLbx:nAt,6] := _netprod,;
            oLbx:aArray[oLbx:nAt,7] := round(_netprod*oLbx:aArray[oLbx:nAt,3],0),;
            _cbruto := 0,;
            _cdesc := 0,;
            _netprod := 0,;
            Calculo( oLbx, aGet, .t. )   ;
              );
      WHEN Docu_BF->( !found() ) ;
      SIZE 82 PIXELS ;
      3DLOOK TRUE,TRUE,FALSE ;  // cels, header, footer
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER ;   // cells, header, footer
      COLORS CLR_HMAGENTA, RGB( 255, 255, 235)//COLORS CLR_BLACK, CLR_HGRAY


Gracias
A&C y Patricio si tengo alguna pregunta les molesto otra vez


Saludos
Oscar

Hola amigos de foro

Estoy muy preocupado ya que via MSN se me ha dado ha entender que estoy perjudicando de alguna manera a alguien del foro, nada más lejos de mis intenciones jamas lo he intentado siquiera, lo unico que he pedido es la ayuda a todas las maravillosas personas que he visto que sin ningun interes me han colaborado.
Si alguna persona se ha sentido perjidicada pues hagamelo saber a mi correo o directamente en este foro, ya que de haberlo hecho, que no creo, saber que hice y no volver a cometer este error ya que creo que este foro no es solo para pedir y dar ayuda sino que he visto que tambien se pueden hacer amigos.

Una vez más gracias a todos los que me han ayudado en forma personal y en general al foro por todos sus valiosos aportes.

Oscar,

Eres bienvenido a este foro y no estás perjudicando a nadie. No se quien te habrá contado esa tontería, pero no le hagas ni caso

Gracias a Patricio Avalos
me funciono de maravilla utilizando POSTEDIT