FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Ayuda en If Then Else
Hola estimados Compañeros bien les planteo el Siguiente Problema tengo una Consulta lanzada a la Bd de la Tabla de Pagos Bien lo siguiente es cuando hago la comparacion de Resultados:
Bien el problema es que que el Resultado idTipPag viene siendo cualquiera de los 5 a la misma vez y eso me manda por default al Ultimo resultado en dado caso que exista mas de un tipo de pago del Cliente. Mi pregunta es Puedo hacer un And de resultado (sdQuery.Value = 1 and sqQuery = 2 ad..........) Se puede o alguna recomendacion de como Hacerlo Gracias.. Última edición por marcoszorrilla fecha: 18-11-2009 a las 15:01:54. |
#2
|
|||
|
|||
Hola, una variable no puede tomar dos valores al mismo tiempo
ejemplo: Código:
... var indice: integer; begin if (indice = 1) and (indice = 2) then // ---- imposible de evaluar showmessage('indice vale 1 y tambièn vale 2'); end...
__________________
La conquista mas grande de un hombre es la conquista de el mismo.
Última edición por calogero fecha: 18-11-2009 a las 07:48:58. |
#3
|
|||
|
|||
hola,
pienso como Calogero, si te hemos entendido bien, por que si nom ¿ Te refieres a la evaluación de los IF o te refieres a la asignación de valores ? Ya que el tema de AND u OR es para comparaciones, es decir, en tu caso:
Un saludo |
#4
|
|||
|
|||
Seria más elegante y más claro:
Código:
var i: integer; begin i := qryPagosIdTipPag2.Value ; case i of 1: qrPro0.memReportePagos.Value := StrToFloat(lo_s); 2: qrPro0.memReportePagos2.Value := StrToFloat(lo_s) 3: qrPro0.memReportePagos3.Value := StrToFloat(lo_s) 4: qrPro0.memReportePagos4.Value := StrToFloat(lo_s) 5: qrPro0.memReporteServFac.Value := StrToFloat(lo_s); end; //case qrPro0.memReporte.Post;qrPro0.memReporte.Post; Código:
var i: integer; begin i := qryPagosIdTipPag2.Value ; case i of 1,2: qrPro0.memReportePagos.Value := StrToFloat(lo_s); 3: qrPro0.memReportePagos3.Value := StrToFloat(lo_s) 4: qrPro0.memReportePagos4.Value := StrToFloat(lo_s) 5: qrPro0.memReporteServFac.Value := StrToFloat(lo_s); end; //case qrPro0.memReporte.Post;qrPro0.memReporte.Post; Saludos, Gerard. Última edición por gerardus fecha: 18-11-2009 a las 10:20:38. |
#5
|
||||
|
||||
A ver si lo he entendido:
Lo que pretendes es que "qryPagosIdTipPag2.Value" sea capaz de contener más de un valor al mismo tiempo, ¿no? Pues si es sí, entonces entonces tienes que usar SET OF o bien campos de bit. Elegir una u otra opción depende de dónde obtienes el contenido de "qryPagosIdTipPag2.Value", aunque por el nombre supondré que es de una consulta SQL. Si es el caso te recomiendo el uso de campos de bit. Los campos de bit, como el nombre indica, son estructuras en los que cada campo ocupa un sólo bit, por lo que permite almacenar valores binarios. Por ejemplo:
Si no lo entiendes, busca información sobre matemáticas binarias. |
#6
|
|||
|
|||
If Then Else
Hola Primero que nada Agradezco de antemano las respuestas de todos y espero haber comprendido correctamente cada una de sus respuestas bn aqui voy a explicarme un poco mas tellado:
Codigo Bien de este codigo apartir de una sentencia Sql parto en Busqueda de un resultado en el reglon donde apunto <-------Primero verifico que la caden obtenida de mi query sea un solo resultado y en la segunda verifico si lo_s tiene mas de un resultado me lo envie, bn comprendido como Mencionan antes he sacado por medio de resultados Todos correctos siempre y cuando el resultado arroje que siempre tien 1 solo tipo de pago cliente 80 importe paga 200 forma pago 1 cliente 90 importe paga 80 forma pago 3 . . .Cosecutivamente habiendo 1 sola exibicion genial !! Bien el problema persiste cuando el cliente tiene mas de dos pagos es decir lo_s := lo_s+FloatToStr(qryPagosImporte.Value); En esta parte digamos que el Cliente 120 Importe 100 y 200 tipopago 1 y 3 En esta parte al hacer las validaciones de la forma de pago me tira el resultado en el Ultimo. qryTipoPago.Value = 3 Then resutaldo = lo_s; a lo que lo_s. arroja 100200, cuando deberian ir separados He ahi mi gran Problema.. Espero haberme dado a entender al 100% Última edición por marcoszorrilla fecha: 18-11-2009 a las 15:03:07. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Instalar Ayuda (.HLP) en la Ayuda de Delphi? | MasterXP | Varios | 6 | 12-04-2006 06:57:49 |
Ayuda para crear ayuda... | Gabriel2 | Varios | 2 | 10-06-2005 00:15:18 |
Leer la ayuda... Ayuda! | MaJeSTiC | Varios | 0 | 04-08-2004 21:24:42 |
ayuda con strtofloat, ayuda punto flotante | TURING | Varios | 5 | 30-04-2004 08:03:59 |
Ayuda Con Instalacion De Archivos De Ayuda | Legolas | Varios | 1 | 01-12-2003 14:48:03 |
|