genracion de formulas
Publicado por Mauricio (2 intervenciones) el 26/10/2006 17:47:27
Saludos estoy haciendo una aplicacion que al introducir en combo box una variable con un valor ya establecido y un signo en otro combo box(+, - , * , /) ,cargue en un grid el resultado de la operacion.
trato de cargar los valores de signo y valor en un sdt que al recorerlo opere todos los valores de los indices y depliegue el resultado en la variable resultado, la variable resultado siempre me despliega 0 y no c por que
alguien me puede ayudar? o decirme otra forma de hacer esto? gracias por su ayuda
por ejemplo asi es la pantalla
*********************************************************************************
&indicador: (A,b ,d ,d)en combo box boton agregar
&signo(+ - * /) en combo box
GRID DE VALORES
Ind2 Descripcion Ind2 VAlor For2 Signo
Compras 7 +
Empleados 24 *
Compras 7 +
&resultado= (7+24) *7= 217 botoncalcular
*********************************************************************************************
CODIGO:
Event 'Signo'
PaddSigno.Call(For2Codigo,&Ind2Codigo,&For2Signo)//procedimiento qeu agrega en las lineas del gris simbolo y signo
&Elemento.For2LinCod = For2LinCod
&Elemento.For2Signo = &For2Signo
&Elemento.Ind2Codigo = &Ind2Codigo
&Elemento.Ind2Descripcion = &Ind2Descripcion
&Elemento.Ind2VAlor = Ind2VAlor
&Elementos.Add(&Elemento)
&Elemento = new Sdtformula.SdtformulaItem()
EndEvent // 'Signo'
Event 'Calcular'
For &Elemento in &Elementos
msg('entro:' + &Elemento.For2Signo )
If not null(&Elemento.Ind2Codigo)
Do Case
Case &Elemento.For2Signo = '+'
&resultado = &resultado+&Elemento.Ind2VAlor
Case &Elemento.For2Signo = '-'
&resultado = &resultado - &Elemento.Ind2VAlor
Case &Elemento.For2Signo = '*'
&resultado= &resultado * &Elemento.Ind2VAlor
Case &Elemento.For2Signo= '/'
&resultado =&resultado/&Elemento.Ind2VAlor
EndCase
EndIf
msg(str(&resultado))
endfor
EndEvent // 'Calcular'
trato de cargar los valores de signo y valor en un sdt que al recorerlo opere todos los valores de los indices y depliegue el resultado en la variable resultado, la variable resultado siempre me despliega 0 y no c por que
alguien me puede ayudar? o decirme otra forma de hacer esto? gracias por su ayuda
por ejemplo asi es la pantalla
*********************************************************************************
&indicador: (A,b ,d ,d)en combo box boton agregar
&signo(+ - * /) en combo box
GRID DE VALORES
Ind2 Descripcion Ind2 VAlor For2 Signo
Compras 7 +
Empleados 24 *
Compras 7 +
&resultado= (7+24) *7= 217 botoncalcular
*********************************************************************************************
CODIGO:
Event 'Signo'
PaddSigno.Call(For2Codigo,&Ind2Codigo,&For2Signo)//procedimiento qeu agrega en las lineas del gris simbolo y signo
&Elemento.For2LinCod = For2LinCod
&Elemento.For2Signo = &For2Signo
&Elemento.Ind2Codigo = &Ind2Codigo
&Elemento.Ind2Descripcion = &Ind2Descripcion
&Elemento.Ind2VAlor = Ind2VAlor
&Elementos.Add(&Elemento)
&Elemento = new Sdtformula.SdtformulaItem()
EndEvent // 'Signo'
Event 'Calcular'
For &Elemento in &Elementos
msg('entro:' + &Elemento.For2Signo )
If not null(&Elemento.Ind2Codigo)
Do Case
Case &Elemento.For2Signo = '+'
&resultado = &resultado+&Elemento.Ind2VAlor
Case &Elemento.For2Signo = '-'
&resultado = &resultado - &Elemento.Ind2VAlor
Case &Elemento.For2Signo = '*'
&resultado= &resultado * &Elemento.Ind2VAlor
Case &Elemento.For2Signo= '/'
&resultado =&resultado/&Elemento.Ind2VAlor
EndCase
EndIf
msg(str(&resultado))
endfor
EndEvent // 'Calcular'
Valora esta pregunta


0