|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - UserCode
1
« en: Jueves 12 de Junio de 2008, 21:36 »
Buenas, saludos Tengo el problema de que en un DataGrid tengo dos columnas en el que su contenido es Link. El problema aqui es que no se sabe a que columna se esta haciendo el evento Click ya que precisamente se necesita saber si el link clickeado es de la columna 1 o de la columna 2. En esa imagen tengo el DataGrid con dos columnas "Ctas. por Cobrar" y "Bs Cobrado" Los montos son Links que llevan a un detalle, y se necesita saber que link de cual columna se selecciono. saludos y gracias por alguna ayuda posible.
2
« en: Jueves 15 de Mayo de 2008, 22:11 »
Saludos a todos Yo no soy exactamente un desarrollador de ASP.NET pero tengo a mi cargo el matenimiento de una web y tengo un problema con las Tablas Tengo un DataGrid que tiene unos Links los cuales funcionan bien, pero cuando meto el DataGrid en una Tabla, los Links no funcionan, como si estuviesen bloqueados o algo asi, al darles click, no hacen nada, no cargan. A que se debe y como podria hacerse para poder tener un DataGrid en una tabla y que este tipo de problema no pase. Muchas gracias por favor a quien pueda indicarme la explicacion ante este percance. saludos
3
« en: Domingo 20 de Abril de 2008, 16:16 »
hola! Sé que la funcion DateDiff() permite validar la cuestion de dar la diferencia entre dos fechas, pero yo he indicado con esta funcion lo siguiente: DateDiff ("h",{REGISTRO_RECLAMO.fecha_creacion},{REGISTRO_RECLAMO.fecha_resolucion}) Y solo me da un valor 0 Cambie "h" por "s" o por lo que sea siempre me arroja como valor un 0 Como podria valiar la diferencia de horas o dias entre dos fechas en Crysta.
4
« en: Miércoles 9 de Abril de 2008, 02:28 »
Muy buenas a la presente, saludos
Acudo a la practica más profesional o de mayor conocimiento de SQLs de los presentes para saber si me podria ayudar sobre una SQL que estoy haciendo y de la cual tengo una duda.
Tengo esta SQL: SELECT tmp_clientes.nombres, tmp_clientes.apellidos, tmp_clientes.nombres, tmp_clientes.apellidos, zonas.descripcion, clientes.nombres, clientes.apellidos, clientes.direccion1, clientes.telefonos, pedidos.id_pedido, pedidos.situacion FROM tmp_clientes, clientes, zonas, pedidos WHERE tmp_clientes.cedula=pedidos.id_consultor AND clientes.cedula=pedidos.id_cliente AND id_zona='0261' AND id_zona='0264' AND id_zona='0265' AND pedidos.fechacreacion BETWEEN '01/01/2006' AND '10/04/2008' AND pedidos.situacion=2
Le falta un poquito en el filtrado, otras cosas, pero ya asi como esta, tengo un problema...
Como se ve, tengo repetido tmp_clientes.nombres y tmp_clientes.apellidos Eso es porque de una misma tabla debo tomar a dos tipos de personas
Persona 1: Consultor Empresario Persona 2: Consultor Standar
El problema en esto es que como hago para que al correr el query, pueda tener en la consulta, en una columna al ConsultorEmpresario, y en otra columna al ConsultorStandar, ya que en el filtrado, el campo para validar a ambos, es el mismo.
5
« en: Viernes 21 de Marzo de 2008, 20:56 »
Saludos a todos por este, el foro de Crystal
Me gustaria conocer, en caso de ya habersele presentado este problema a alguien, sobre determinar cuales son los archivos DLL que se necesitan para que un Reporte hecho en Crystal Report (en mi caso Crystal 8.5) se cargue.
Tengo unos reportes de Crystal, conectado a una BD SQL Server2000 que no cargan. El problema, supongo, debe ser de DLL porque en mi PC donde se hizo el programa en Visual Basic 6.0 y los Reportes en Crystal 8.5 conectado a una BD SQL Server 2000, si cargan. Pero al hacer el instalador, creo que me faltan algunas DLL porque exectuando mi PC, en otros los reportes no cargan.
Podria entonces, por favor, indicarme alguien, cuales serian estas DLLs que Crystal necesitaria para cargar el reporte con los datos de una BD SQL Server?
Muchas gracias a quien pueda ayudarme en esto. saludos.
6
« en: Martes 11 de Marzo de 2008, 19:24 »
Saludos buenas por este foro SQL Server. No he encontrado un caso asi como este en alguna busqueda, en mi caso, esto trata sobre un Reporte hecho en Crystal Report el cual está conectado o trabaja con una BD SQL Server 2000. En la BD tengo una tabla llamada REPORTE en ella tengo los campos fecha1, fecha2. La mayoria de los datos del reporte provienen de una tabla llamada RECLAMOS la cual tiene un campo fecha_creacion Entonces en Formula de Crystal (Formula por la que se rige el reporte) tengo esto: {RECLAMOS.fecha_creacion}>={REPORTE.fecha1} AND {RECLAMOS.fecha_creacion}<={REPORTE.fecha2} Tengo en la tabla RECLAMOS 7 registros con estas fechas: 1. 09/03/2008 2. 09/03/2008 3. 09/03/2008 4. 11/03/2008 5. 11/03/2008 6. 15/03/2008 7. 15/03/2008 Lo raro aqui es que si consulto por rango de fechas del 01/03/2008 al 11/03/2008 solo salen en el reporte los registros con fecha 09/03/2008, ni siquiera salen los del 11/03/2008. Si indico como rango de fechas por ejemplo del 12/03/2008 al 20/03/2008 deberian salir en el reporte los registros con fecha 11/03/2008 y 15/03/2008 (no deben salir los de 09/03/2008 ni 11/03/2008). Pero no sale nada, se carga el reporte vacio. Alguna persona presente sabria si entre Crystal Report 8.5 y SQL Server 2000 habria algun problema de compatibilidad o al menos en los campos tipo fecha (datatime) ???
7
« en: Jueves 6 de Marzo de 2008, 18:16 »
Hola gente como estan, uno pasando por algo en lo que uno lleva rato dandole y no funciona por algo que uno no ha visto que pueda ser. Una pregunta, ¿las bases de datos SQL Server? (SQL 2000) permite IIF en las sentencias SQL? porque si me ha servido en Access pero en SQL no me deja. Esta SQL no me funciona en VB6, la probe en el Manager Adm, del SQL directo en la tabla, y en el Analizador de Consultas de las utilidades del SQL Server, es decir, las IIF en SQL son algo sencillo, no sé porque SQL considera que es error de sintaxis, con colocar IIF(campo=valor,'Algo','Nada') deberia de funcionar. strSQL = "Select R.id_reclamo AS 'ID', " 'strSQL = strSQL & "IIF(R.tipo_cliente=1,'CONSULTOR','CLIENTE') AS 'Tipo Cliente', " strSQL = strSQL & "C.nombres AS 'Nombre', C.apellidos AS 'Apellido', " strSQL = strSQL & "R.fecha_creacion AS 'Fecha', R.resuelto AS 'Resuelto', " strSQL = strSQL & "R.status AS 'Status', R.nivel_prioridad AS 'Nivel' " strSQL = strSQL & "From REGISTRO_RECLAMO AS R, clientes AS C " strSQL = strSQL & "Where R.cedula=C.cedula " strSQL = strSQL & "Order by R.fecha_creacion" Set rsDatos = New Recordset rsDatos.Open strSQL, cnnConex, adOpenStatic, adLockOptimistic Realmente no sé porque una validacion IIF de SQL no la acepta SQL Server, alguien sabe, o le ha pasaod algo como esto? Saludos
8
« en: Domingo 17 de Febrero de 2008, 02:44 »
Hola, saludos a todos No sé si esto es un caso unico, pero tengo algo en lo que debo cambiar el dia de la fecha, de varios registros, por ejemplo de 29/mm/yyyy a 30/mm/yyyy Entonces probando pues el codigo me lo cambia pero me ha costado y me da problemas cuando se llega a Febrero 29/mm/yyyy ya que obviamente da error cuando intenta pasarlo a 30. No he podido validar bien como hacer para que se lo salte, que cambie todos los dias de 29 a 30 de cada fecha exectuando la de febrero. Tambien no he visto bien el validar que verifique que si el dia ya es 30/ que no lo incremente +1 ya que lo pasara a 31/ '............................................................... 'Cambio de dia de las Fechas: '............................................................... strSQL = "Select * From AMORTIZACION Where id_pedido=" & txtPedido & "" Set rsDatos = New Recordset rsDatos.Open strSQL, strConex, adOpenStatic, adLockOptimistic If rsDatos.RecordCount > 0 Then rsDatos.MoveFirst While Not rsDatos.EOF If txtPedido = rsDatos("id_pedido") Then If Month(rsDatos("fecha2")) <> "02" Then rsDatos("fecha2") = CDate(rsDatos("fecha2")) + 1 rsDatos.Update End If End If rsDatos.MoveNext Wend MsgBox "Se Termino de Hacer los Cambios", vbInformation, "Terminado" MSHF.Clear CargarDatos End If '...............................................................
Agregue entre lineas el If Month(rsDatos("fecha2")) <> "02" Then tratando de que no entre al codigo de: rsDatos("fecha2") = CDate(rsDatos("fecha2")) + 1 rsDatos.Update Pero no consigo que se valide bien, el CDate() + 1 es el que me incrementa el dia de la fecha. No sé si alguien ha hecho algo así o le ha tocado algo parecido pero por favor quien pueda ofrecerme su opinión sobre ello, me ayudaria a ver como podria completar lo faltante. Saludos y buen fin de semana, pasenla bien.
9
« en: Lunes 22 de Octubre de 2007, 22:52 »
Saludos Tengo un codigo con el objeto o control Crystal que manda a imprimir un reporte Pero este Reporte tiene 2 hojas y solo deseo mandar a imprimor una (la primera) CrystalReport2.DataFiles(0) = App.Path + "\bd\BaseDatos.mdb" CrystalReport2.ReportFileName = App.Path + "\rep\repGestionRUTA.rpt" CrystalReport2.WindowTitle = "CONTROL DE ENTREGAS Y EXCECIONES - SERVICIOS MASIVOS [SUCURSAL: " & RsReporte("IDSucursal") & "]" CrystalReport2.WindowState = crptMaximized CrystalReport2.PrintReport Estuve viendo algunas funciones del control CrystalReport2 tales como PageCount, PageFirst, etc... es decir, alguna que tal vez me pudiese o permitiese imprimir solo la primera hoja del reporte y omitir el resto (la segunda en este caso). Esto es debido porque tengo un reporte Crystal que deberia ser una una sola pagina, pero esta saliendo de 2 paginas, en donde la 2da pagina es nuevamente la 1era pagina. Para ver con más detalle este problema, tambien lo expuse en el foro de Crystal con detalle, ya sea resolverse por Crystal o por VB esta mas que bien. Problema en el Foro Crystal ReportMuchas gracias de antemano por opinar quien haya presentado un problema como este y pueda conocer una forma de resolverlo.
10
« en: Lunes 22 de Octubre de 2007, 22:20 »
Saludos Tengo un caso que desconozco de cual podria ser el problema o mejor dicho donde se encontraria este problema. Tengo un reporte de Crystal Report el cual se compone principalmente de varias sentencias SQL. Para explicar mejor esto la imagen del reporte en cuestion: Recuadro Verde: Campos de una Tabla Recuadros Morados: Formulas de Crystal @Formulas Recuadros Azul Oscuro: Campos de sentencias SQL Sentencias SQL: Esta es una de 6 sentencias SQL, las demas son practicamente como esta con la diferencia de E.Dia='Lu' es E.Dia='Ma', E.Dia='Mi', E.Dia='Ju' y E.Dia'Vi' SELECT DISTINCT(E.ID), E.Dia, E.Asignados, E.Entregados, E.NoEntregados, E.CantExcepAsignados, E.CantExcepEntregados, E.CantExcepNoEntregados FROM ENTREGAS_EXCEPCIONES AS E, TB_REPORTE AS R, RUTA AS RT WHERE E.Dia='Lu' AND E.ID=R.IDRuta AND E.Servicio=R.TipoServicio AND E.IDSucursal=R.IDSucursal AND E.Promotor=R.Promotor AND E.Fecha Between R.Fecha1 And R.Fecha2; He quitado del reporte los campos de la tabla y he vuelto a cargar el reporte, he quitado los campos de las SQL y dejado solo los de la tabla, sin importar lo que haga el reporte muestra 2 paginas. En la parte superir derecha de la imagen, se indica 1 of 2 el problema aqui es que la pagina 2 es igual que la pagina 1, lo correcto aqui es que el reporte es de una sola pagina, no deberia tener dos hojas, esto me ocasiona un grabe problema ya que al mandar a imprimir el reporte, se imprime dos veces. Esta es la relacion de tablas del Crystal la cual no hay (relaciones), las azules son las SQL, y la verde es la Tabla (la unica que tiene el reporte). No tengo idea de porque Crystal me saca una 2da pagina del reporte en donde dicha pagina es practicamente una copia de la primera hoja. Las SQL generan una sola fila, un solo registro generado por la consulta, no sé porque Crystal saca esa raresa de dos paginas: Tenia todas esas SQL en una sola pero me daba problemas, asi que las dividi.
11
« en: Lunes 10 de Septiembre de 2007, 15:42 »
hola! bueno haber por donde empiezo sin enredarlo... tengo en una tabla de una BD Access la informacion de empleados, en donde está la hora de entrada, la hora de salida, y la cantidad de horas que hay entre esas dos horas, con respecto a la jornada de trabajo del empleado. Los campos de la tabla son de tipo Texto, porque el resultado de horas solo guardo, por ejmplo: 05:00 o 04:30, es decir, entre la hora1 y hora2 (entrada/salida) el empleado trabajó 5 Hrs o 4Hrs y 1/2, no le guardo ningun am o pm. Solo para las horas de Ent/Sal guardo am y pm, pero para indicar la cantidad de horas trabajas solo tomo esa porcion que menciono. Entonces en la tabla yo tengo estos campos guardados de la siguiente manera: HrEnt: 7:00 am HrSal: 12:00 pm Hrs: 05:00 --> 5 Hrs laboradas HrEnt: 7:00 pm HrSal: 10:30 pm Hrs: 03:30 --> 3 Hrs y media laboradas Estos campos no son de tipo hora, sino de tipo Texto, pero luego de esto necesito hacer una SQL donde se indica sumar todas las Hrs de X Empleado, no puedo usar la funcion Sum() de SQL ya que no son datos de tipo numerico, y si fuese hora creo que tampoco, son de tipo texto por lo que tampoco. ¿Cómo podriá hacerse para hacer una sumatoria de este campo, si el dato no es numerico? ¿existiria alguna funcion SQL que convierta el dato de Texto a Numerico? sé que está el CONVERT() me parece, pero yo pregunto ¿como pasaria un dato 03:30 a algo numerico? porque me ha dado error las pruebas o intentos que he hecho para tratar de hacer esto. Comienzo a pensar que esto es imposible
12
« en: Miércoles 5 de Septiembre de 2007, 21:25 »
Hola, nuevamente gente querida de solocodigo, hay que ver lo que hace no tener internet y 5 semanas sin monitor, hasta recuperarse de eso Me he encontrado con una verdadera inconcordancia de validación de datos en unas sentencias IF que tengo. Las sentencias IF evaluar unas Horas que estan en unas variables. Las variables no estan como Date, sino Variant y se les trabaja con formato de hora/Fecha por Format. Dim HE1 As Variant Dim HS1 As Variant Dim HE2 As Variant Dim HS2 As Variant '1er Turno: Dim HEA1 As Variant 'Hora Entrada "Asignada" del Empleado (1er Turno) Dim HSA1 As Variant 'Hora Salida "Asignada" del Empleado (1er Turno) '2do Turno: Dim HEA2 As Variant 'Hora Entrada "Asignada" del Empleado (2do Turno) Dim HSA2 As Variant 'Hora Salida "Asignada" del Empleado (2do Turno) Dim HrLOTD1 As Variant Dim HrLOTD2 As Variant Dim HrLOTN1 As Variant Dim HrLOTN2 As Variant 'LOT: Ley Organica del Trabajo (Jornada Laboral Diurna) HrLOTD1 = "5:00:00 AM" & " " & dtpHED1.Value HrLOTD2 = "7:00:00 PM" & " " & dtpHSD1.Value 'LOT: Ley Organica del Trabajo (Jornada Laboral Nocturna) HrLOTN1 = "7:00:00 PM" & " " & dtpHEN1.Value HrLOTN2 = "5:00:00 AM" & " " & CDate(Date) + 1 'La Fecha de hoy más 1 dia más, (siguiente dia) 'LAS SENTENCIAS IF: If Format(CDate(HS1), "dd-mmmm-yyyy hh:mm:ss AM/PM") >= Format(CDate(HrLOTN1), "dd-mmmm-yyyy hh:mm:ss AM/PM") _ And _ Format(CDate(HSA1), "dd-mmmm-yyyy hh:mm:ss AM/PM") <= Format(CDate(HrLOTN2), "dd-mmmm-yyyy hh:mm:ss AM/PM") Then HrsExtraN1 = HrsExtSal1 LbTotalHrsExtN.Caption = HrsExtraN1 Else HrsExtraN1 = 0 LbTotalHrsExtN.Caption = HrsExtraN1 End If
En el codigo IF haciendo una corrida en frio tengo lo siguiente: IF (8:30 AM >= 7:00 PM) AND (7:00 AM <= 5:00 AM) THEN HrsExtraN1 = HrsExtSal1 = 1,5 ELSE HrsExtraN1 = 0 END IF Claro, la validación es (05/09/2007 8:30 AM) etc... pero lo puse sin las fechas, ya que son horas del mismo dia, para verse más claro y sencillo. Lo raro aqui es que la sentencia IF si se cumple cuando no deberia, deberia de pasarse al ELSE, pero por alguna extraña razón que desconozco, la sentencia si se cumple. Incluso las decisiones están por AND y no por OR, si se cumple una y otra no, igual no entra, pero ninguna se cumple y entra Esto es lo que uno indicaria estar, totalmente desconcertado, perplejo, en shock PD: Los AM y PM si son los que se indican, lo he revisado una y otra vez para ver si es verdad lo que mis ojos ven, pero si, tengo una sentencia IF que no se cumple, pero que igual entra en ella, si se cumple lo cual no deberia de ser. Los datos vienen de unos Combobox (indiferente si fuesen de unos Textbox) y los dtp son DTPicker, de esos controles de Fecha. Esos datos los meto en las variables que aqui aparecen y procedo con lo de los IF.
13
« en: Lunes 23 de Julio de 2007, 00:08 »
hola! Se me presento algo y me acorde de un programita guardado que tenia pero es para cambiar el dia de una Fecha, y asi como existe CDate() no encontre ningun CMonth() Si por ejemplo hoy fuese 20/07/2007 con esto: CDate(Fecha)+1 Saldria asi 21/07/2007 Bueno yo tengo algo que usa CDate(Fecha)-1 porque se trabaja con la informacion del dia anterior, pero en este caso lo que si necesitaria saber es como hacer que no sea el dia sino el Mes. Es decir, guardando un registro donde la fecha es 22/07/2007 Y al consultar ese registro, en otro campo de Fecha salir la misma fecha pero con el siguiente Mes: 22/08/2007 buen fin de semana, o lo que queda de él.
14
« en: Domingo 22 de Julio de 2007, 19:31 »
hola gente! Yo programo en lo que puedo en otro lenguaje muy distinto a java y pues estoy incursionandome en java, ojala hubiese una subsección del foro llamada "principiantes en java" o algo asi, esto puede ser algo muy tonto para muchos que ya tienen cancha o ya han recorrido sus kilometrajes en java a diferencia mía. Ando trabajando (o intentando) hacer una practica/ejercicio y no entiendo algo de lo que he hecho (y eso que es solo el comienzo) Yo tengo esto: System.out.println("******** MENU ********"); System.out.println("1. Ingreso de Docente"); System.out.println("2. Ingreso de Alumno"); String op1=IngresoDatos.entrada("Opcion Nº:");
Pero al correrlo en NetBeans (que es el editor IDE que tengo y uso) solo me salen: 1. Ingreso de Docente 2. Ingreso de Alumno Pero no sale la tercera: Opcion N: Este código no da ningun error, la Clase IngresoDatos trabaja bien, no sé a qué se debe el que este ultimo item no salga.
15
« en: Martes 17 de Julio de 2007, 20:21 »
Hola! Por casualidad alguien por aqui sabe a qué es debido este aviso Hago un reporte nuevo con una o dos tablas de una Bd MySQL en Crystal Report y me saca ese aviso al terminar el reporte y al intentar Actualizar sus datos y no sé a qué se debe, no tengo ningun tipo de Formula en el Reporte como para que saque algo asi, alguien sabe de qué puede ser esta info?
16
« en: Lunes 16 de Julio de 2007, 17:05 »
Hola!
Podría por favor confirmarme alguien si existe una especie de incompatibilidad entre MySQL3.5 y Crystal Report? lo digo porque da error y hasta se descarga de memoria el Crystal Report, me atrevo a casi asegurar que existe una incompatibilidad entre MySQL3.5 y Crystal Report (tengo el Crystal 8.5) no sé si esto esté o no presente en otras versiones.
Logro hacer un reporte de Crystal con una Bd MySQL pero usando un Crystal Report viejo, el 3 o 5, que aun así, presenta algun aviso de error pero aun con eso, sigue el wizard para realizar el reporte, aunque no me trae bien los datos, luego de hecho y si declaro en Formula del reporte igualar un dato de una tabla con otro, da error, algo raro, son datos de mismo tipo de dato y es algo que ya he hecho antes pero no con una Bd MySQL.
Alguien ha trabajo bien entre Crystal y MySQL3.5 ???
17
« en: Miércoles 11 de Julio de 2007, 17:23 »
Hola! Como soy nuevo en MySQL y estoy haciendo algo con una BD de este tipo, tengo un campo de tabla que esta muy propenso a ser llenado por muchos caracteres, hasta con 200 caracteres podria quedarse algo corto y en vez de probar un VARCHAR(500) preferiria saber si hay algun campo String de MySQL que soporte o guarde mucha información en un solo campo. Es un campo de Historial Medico y a los Doctores a veces les da por ser casi unos escritores de novela en eso, de ahi todo esto. Por medio del MySQLAdministrator declaro el campo pero no despliega un listado como Access por ejemplo, me autocompleta el tipo del campo conforme lo escriba pero no me completa nada al poner memo o algun campo que sea como lo que digo.
18
« en: Martes 10 de Julio de 2007, 23:07 »
Hola muchachada! Estoy usando un MSHFlexgrid, no es un MSFlexgrid pero igual creo que es lo mismo. La cuestión es que yo cargo una variable Recordset con una SQL que luego enlazo con este MSHF asi: Set MSFH.DataSource = RsPero los datos se cargan desde Row = 0 quitando los titulos de la grilla/rejilla Si Edito la información del MSHF no toma el primero (1era fila) por ser Row 0 ¿Cómo podría mostrar la información sin que esta comience desde Row 0? Trate colocando Filas y Columnas antes pero parece que el Set MSHF.DataSource=Rs borra u omite esto y se posiciona la información nuevamente asi como indico. Sugerencias, quejas y amenazas de muerte por aqui Rumbo al final de la Copa
19
« en: Lunes 2 de Julio de 2007, 21:02 »
Hola por estos lares del foro Escribo esto por una duda sobre Bds MySQL, tengo un programa que esta conectado a una BD MySQL y esta Bd está en: C:\Archivos de programa\MySQL\MySQL Server 5.0\data\ En esa carpeta data estan todas las Bd, trate de ver, cortando la carpeta de mi Bd y pasandola a la carpeta del propio programa, pero al conexion no se dá, entonces he aquí donde pregunto. Al momento de distribuir el programa, bajar de su web el MySQL, bajar el ODBC, debo tomar mi Bd y ponerla en esa ruta? ¿no hay manera de que la Bd pueda estar en una subcarpeta dentro de la carpeta raiz del programa? Cuando cree la conexión por ODBC a mi Bd, solo me pide Server (IP o hostname), Login, Password, puerto, pero nada de Path de la Bd, puesto que el ODBC la busca solo, pero por lo que he probado, como que debe estar a juro en esa ruta que indico y no es posible moverla, sé que se ve que me contesto la pregunta, pero deseo que por favor me confirme alguien esto, y así saber siempre donde va y donde no puede ir una BD MySQL que se conecte a nuestro programa. Saludos
20
« en: Lunes 2 de Julio de 2007, 20:07 »
Sé que es uan pregunta algo tonta, pero no pude conseguir ni aqui ni siquiera en otras webs algo tan simple como calcular Porcentaje en VB, sé que el Format se le indica con algo de Percent que lo que hace al parecer es multiplicar por 100 el dato colocando al final un simbolo de %, realmente no sé como es que se determinaria el procentaje asi.
Creo que de forma estadistica el monto se multiplicaria asi Sacar el 50% a un monto ==> monto*0.5 Sacar el 5% a un monto ==> monto*0.05 Sacar el 30% a un monto ==> monto*0.30
Cómo podría determinarse el calculo de un dato numerico en base a un porcentaje de descuento. Tengo un pequeño combobox que despliega unos valores 10, 15, 20, 30 y trataba de ver si algo como Desc = "0." & cmbDescuento.Text pero me el codigo no agarra el "0." lo desprecia u omite. Trate con Format(cmbDescuento.Text, Percent) pero tampoco, si indico 30, ese mismo valor es el que se sale, por lo que siempre, en vez de calcularse, monto*0.30 lo hace con monto*30
21
« en: Domingo 1 de Julio de 2007, 18:18 »
Hola Me gustaria la opinion de quien desee compartir su idea sobre como podria ser la mejor manera de manejar un problema de seleccionar un Item y varios SubItem para la descripcion del detalle de Factura. Yo tengo inicialmente hecho algo como esto, con lo que he empezado a probar: Realmente yo estaba viendo la posibilidad de que al seleccionar un Item del 1er Combobox (Descripcion) y luego varios del 2do Combobox (Subdescripcion) esos datos se colocasen de una vez en el MSFlexGrid que está al final, el ultimo. Es decir: CESAREA SEGMENTARIA, CIRUJANO PRINCIPAL, 2DO CIRUJANO Pero lo que sucede es asi: CESAREA SEGMENTARIA, CIRUJANO PRINCIPAL CESAREA SEGMENTARIA, 2DO CIRUJANO Debido a que el codigo vuelve a tomar el dato del 1erCombo y si agrego un tercer SubItem estaria asi: CESAREA SEGMENTARIA, CIRUJANO PRINCIPAL CESAREA SEGMENTARIA, 2DO CIRUJANO CESAREA SEGMENTARIA, CITOLOGIA Y no asi: CESAREA SEGMENTARIA, CIRUJANO PRINCIPAL, 2DO CIRUJANO, CITOLOGIA En una misma Fila del MSFlexGrid. Preferí colocar entonces un MSFlexGrid para el Item principal, y otro MSFlexGrid para los SubItem, lo cual es lo que se ve en la ventana. Pero no tan distinto al problema anterior, no he visto bien como pasar luego, todos estas Filas del MSF1 y el MSF2 al 3er MSFlexGrid que quede asi: CESAREA SEGMENTARIA, CIRUJANO PRINCIPAL, 2D CIRUJANO Concatenar los Row de cada MSF es el problema inicial. Cual seria la mejor forma de poderse trabajar esto, sea con mas de uno, o un solo MSFlexGrid, todo este problema es debido a la seleccion multiple de Item, principalmente de SubItems (1 Item + varios SubItems). PD: Habia visto con un ListBox pero al seleccionar un Item y deseleccionarlo, pues no sabria bien como recoger las varias selecciones de la lista, y este problema lo tengo igual en otra ventana con una lista de Diagnosticos y Subdiagnosticos.
22
« en: Viernes 29 de Junio de 2007, 23:02 »
hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi: MSF.Rows = MSF.Rows + 1 MSF.Row = MSF.Rows - 1 MSF.Col = 1 MSF.Text = cmbDescripcion.Text MSF.Col = 2 MSF.Text = cmbDesc1.Text MSF.Col = 3 MSF.Text = txtMonto1.Text
Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid Estaba probando algo como esto pero no me ha servido: For i = 1 To MSF.Rows - 1 MSF.Row = i MSF.Col = i Next MSF.RemoveItem (MSF.Row)
Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento
23
« en: Martes 26 de Junio de 2007, 15:23 »
Hola amigos Yo era feliz con el MSFlexGrid, en el que cargaba registros y en donde, por ejemplo, colocaba en la primera columna el campo Cedula y al hacer click en esa columna, podía capturar el dato de esa celda y buscar la informacion. Pero estoy usando un DataGrid porque el ADO no se enlaza al MSFlexgrid, pero no consigo que al dar Click en una celda me traiga realmente ese dato, excluyendo al MsFexgrid, entre el DataGrid y DBGrid para ADO cual es el que mejor me podría servir para esto. Solo quiero hacer click en una celda y que efectivamente me traiga ese dato para trabajar con él, pero la propiedad .Text parece no servir como la del MsFlexGrid. Opiniones ¿?
24
« en: Viernes 22 de Junio de 2007, 20:00 »
hola Tengo una curiosidad de conocer si existe un control en todo el largo repertorio de componentes que hay para cargar en los proyectos de VB, algo como el MenuBar que uno coloca en los MDIForm pero que se coloque en un Form normal y que su informacion venga de una Base de Datos. es decir... Yo tengo un ComboBox que desplegara una lista de informacion, pero se desea que un Item o varios de la lista tengan un submenu (subitems) algo asi como en Windows: Inicio -> Programas -> EL_Programa -> subItems del Programa Tengo algo como esto: Quiste de Ovario Embarazos -------> - Podalico Endometrioma - Tranverso Cistitis - Gemelar VPH - Trillizos etc - Ectopico - Amenazado
No sé si sirva el MenuBar o exista algun control que pueda tener submenus o Items con sus SubItems, la información vendria de una Base de datos, he ahí mi duda. PD: todos los item luego del ----> van uno debajo del otro, pertenecen a Embarazos, lo comento porque en el post salen algo movidos, pero igual la idea se entiende.
25
« en: Sábado 16 de Junio de 2007, 23:34 »
Hola, buen fin de semana que tal Tengo una sentencia IF que me ha dado mucha pelea, le he cambiado y ajustado todas por haber, solo me falta pararme de manos porque he probado cambiando esto y aquello y nada. If Format(CDate(h2), "hh:mm:ss") > Format(CDate("11:59:59 pm"), "hh:mm:ss") Then 'Aqui el codigo que debe ejecutarse al entrar End IF
Ni siquiera puedo revisar bien el codigo dentro del IF porque no he logrado que entre. h2 es una variable que tiene una Hora, ahi se ve que los datos se les da su formato de hora para ser validados, pero he quitado el Format, lo he vuelto a poner, he puesto un solo Format para ambos lados del > le he puesto un Format a cada uno, he tratado validar solo con los CDate() y nada. El dato que tiene h2 es 12:00:00 am pero por algo que falta y no he visto aun qué podría ser, no entra al IF. Feliz dia del Padre
|
|
|