Page 1 of 1
AYUDA CON TSBROWSE
Posted: Wed Nov 21, 2007 8:06 pm
by EASYSOFT
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.
_
Posted: Wed Nov 21, 2007 9:01 pm
by A&C
Si quieres ubicame por MSN,, estoy conectado casi siempre a ver q sacamos en claro... aca no somos muchos los q usamos TSBROWSE:::
SALUDOS
Posted: Wed Nov 21, 2007 9:44 pm
by Patricio Avalos Aguirre
EasySoft
Yo lo utilzo de esta manera, a lo mejor te sirve
Code: Select all
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
Posted: Thu Nov 22, 2007 7:54 pm
by EASYSOFT
Gracias
A&C y Patricio si tengo alguna pregunta les molesto otra vez
Saludos
_
Posted: Mon Nov 26, 2007 10:02 pm
by EASYSOFT
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.
Posted: Mon Nov 26, 2007 10:38 pm
by Antonio Linares
_,
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
Posted: Tue Nov 27, 2007 12:11 am
by EASYSOFT
Gracias a Patricio Avalos
me funciono de maravilla utilizando POSTEDIT