Autor Tema: Ventana Con 30 Campos (Leído 2453 veces)

UserCode · « **en:** Martes 21 de Noviembre de 2006, 20:55 »

hola, (esta vez si que no es algo tonto eso es seguro) es como el tratar de darle la vuelva (mejor solucion) a algo que tiene muchos campos.

Yo tengo esta ventana:
Lo que está en azul lo meto en una tabla, y lo que está en rojo va en otra tabla:

Lo que está en azul lo meto en esta tablita:

Y lo que está en rojo lo meto en esta otra: (o al menos esa es la idea)

Yo pensaba (o aun pienso) el que tal vez podría poner en el campo Motivo el string del checkbox pulsado. Pero para eso el ID debe repetirse

Es decir, si yo en la primera tabla (el recuadro azul) meto un registro, supongamos ID=1 entonces en la segunda tablita (recuadro rojo) meteria ID=1 lo cual sería la relacion entre ambas tablas. Pero si yo selecciono 5, 20 o los 30 checkbox, entonces en la 2da tabla habrían 30 registros todos con ID=1

Asi, si yo quiero ver los registros relacionados, pues creo y supongo que podría en una SQL filtrar los datos, indicando que me busque (para una consulta) todos los registros de la 2da Tabla que tengan el ID de la 1era Tabla.

¿Que me recomiendan? que haga esto asi o que la 2da Tabla sea diferente, es decir, hacer una tabla con 30 campos

y validaria asi:

Código: Text

 
If Check1.Value = 1 And TxtCampo1.Text&#60;&#62;&#34;&#34; Then
   RsServicio(&#34;Campo1&#34;)=TxtCampo1.Text
Else
   RsServicio(&#34;Campo2&#34;)=&#34;&#34;
End If
If Check2.Value = 1 And TxtCampo2.Text&#60;&#62;&#34;&#34; Then
   RsServicio(&#34;Campo2&#34;)=TxtCampo2.Text
Else
   RsServicio(&#34;Campo2&#34;)=&#34;&#34;
End If
    .
    .
    .
    .
If Check30.Value = 1 And TxtCampo30.Text&#60;&#62;&#34;&#34; Then
   RsServicio(&#34;Campo30&#34;)=TxtCampo30.Text
Else
   RsServicio(&#34;Campo30&#34;)=&#34;&#34;
End If
 
 

En una consulta, yo activaria el CheckBox dependiendo si el campo de la Tabla tiene o no valor (el dato es numerico), si el campo está vacio checkbox.Value=0, si está lleno, checkbox.value=1 y pongo en el Textbox el dato.

Pero hacer esto ultimo, una tabla con 30 campos, y la otra pestaña tiene como 20, pues serían muchos campos, y luego escribir el codigo validando cada uno

Por eso habia pensado si podría tal vez dejar la 2da Tabla como está y no meterle tantos campos. ¿cómo podría hacer para un caso como este?

EDITANDO:
Me he dado cuenta mientras empiezo todo esto, que va a ser más dificil de lo que pensé, algo me dice que no habra mucha opinión sobre este post, al menos yo me enrrede todo comenzando con esta loca idea de ver si debo o no hacer una tabla de muchos campos

vamos a ver.

UserCode

Si, ya me decidí, la 2da tablita la voy a dividir en 2 tablas

la primera con 30 campos (cotenido de la primera pestaña de la ventana)
la segunda con 19 campos (contenido de la segunda pestaña de la ventana)

Igual siempre, habrá que escribir muuuuucho código para validar todos esos TextBox y los CheckBox.

Al parecer no hay otra mejor forma, que se le va a hacer

UserCode

me voy a tomar un tiempito

de puro análisis a pensar a papel y lapiz sobre esto, porque haciendo lo ultimo escrito sirve para el programa, pero no para los reportes.

Si algunos campos no se llenan, quedara el campo vacio o con un 0 en la tabla
(suponiendo que le indique al programa que si no hay nada, que ponga un 0 o deja el campo vacio)

En el reporte no podría poner todos esos campos, 30 campos, ni siquiera con hoja horizontal y con fuente de letra 8 entrarian todos, a muy pegados unos con otros y no sabría como hacer por algun Query el que salgan los datos siempre y cuando tengan un valor <>"" o <>0.

a darle pelea

así sea que me tome varios dias o más a puro papel y lapiz hehehe

Jose Arriagada

Tu solucion es bastante burda, por decirlo, suavemente. Pero soluciona tu problema. Que sea lo mas eficiente, es otra cosa.

Si tienes un minima nocion de gestion de base de datos, podrias haber modelo tu problema y asunto arreglado.

Por el icono del formulario, espero que no seas de CHILE, por que, deja bastante que desear tu solucion...

F_Tanori

Cita de: "UserCode"

Yo pensaba (o aun pienso) el que tal vez podría poner en el campo Motivo el string del checkbox pulsado. Pero para eso el ID debe repetirse

Es decir, si yo en la primera tabla (el recuadro azul) meto un registro, supongamos ID=1 entonces en la segunda tablita (recuadro rojo) meteria ID=1 lo cual sería la relacion entre ambas tablas. Pero si yo selecciono 5, 20 o los 30 checkbox, entonces en la 2da tabla habrían 30 registros todos con ID=1

yo apoyo esa solucion

asi es como realmente se debe hacer

Para la otra solucion no es dificil validar 30 campos

Mira lo que yo haria es crear un arreglo de 'checks' y uno de 'textbox' con el index correspondiente es decir

el check(0) es otro
el textbox(0) es el text que esta enseguida de otro

el check(1) es Paquete Encontrado
el textbox(1) es el text que esta enseguida de Paquete Encontrado

el check(2) es Paquete Robado
el textbox(2) es el text que esta enseguida de Paquete Robado

y asi para poder recorrer los dos controles en un solo for

no importa que sean 30,40,50...

por ultimo en la propiedad tag del textbox guardar el nombre del campo (de la tabla) para poder saber a que campo se va guardar....

Bien te dejo un ejemplo

Saludos

F_Tanori

Cita de: "Jose Arriagada"

Tu solucion es bastante burda, por decirlo, suavemente. Pero soluciona tu problema. Que sea lo mas eficiente, es otra cosa.

Si tienes un minima nocion de gestion de base de datos, podrias haber modelo tu problema y asunto arreglado.

Por el icono del formulario, espero que no seas de CHILE, por que, deja bastante que desear tu solucion...

Mas que ayuda, parece reclamo, si ha preguntado creo que es porque desea orientacion y algo de apoyo, de alguien que pueda ofrecerlo

Siempre hay soluciones mas eficientes que otras, pero mientras se soluciones el problema muchas veces es suficiente (No es mi idea pero siempre es prioridad)

y creo que el que deja que desear es tu comentario, porque no veo nada de aporte

, el que critica, propone si no que mejor no diga nada

Saludos

Somos una comunidad

cpmario

Revisando tu pregunta y las formas que colocas, me doy cuenta por ejemplo: que difícilmente encontrarás 2 razones (de las 30) que se combinen (ley de propabilidad) pero si solo se requiere de una de esas razones para no haber entregado el paquete por ejemplo: "mal tiempo" que importaría si la dirección está incorrecta, o si el cliente está de huelga. si solo una razón cualquiera de estas 3 que menciono basta para que no se entregue (lo que sea que se entregue).

El problema que planteas pudiera solucionarse también, colocando todas las causas, de 'no entrega', en un ComboBox y seleccionando solo una de ellas, si hay varias causas, se seleccione la más relevante. El único problema sería que la causa fuera 'Otra', para lo cual habría que darle oportunidad al capturista que escribiera el motivo.

No entendí lo que Jose Arriagada quiso decir con:

Citar

podrias haber modelo tu problema y asunto arreglado.

Espero nos ilustre con con su idea.

UserCode

compadres ya lo resolvi

y viniendo corriendo a exponerlo, indico que es precisamente la solucion que dice el buen amigo F-Tanori

La Tabla que guarda lo que está en el recuadro Azul tiene estos campos:
TR_SERVICIOS (este ID es unico)
TipoServicio
TipoGestion
Fecha
ID
IDSucursal
Dias_Habiles
CodRegion
Total1 --> Total (TextBox en amarillo, Pestaña 1)
Total2 --> Total (TextBox en amarillo, Pestaña 2)

Y la Tabla que guarda lo que está en el recuadro rojo es esta asi:
CAUSAS_NO_ENTREGADOS (este ID si permite repetirse)
ID
Motivo
TipoCNE
TipoServicio
IDSucursal
CodRegion
Cant

Y efectivamente como ha comentado el amigo F_Tanori a matriz se minimizó todo:
Matriz tanto para los Check como para los Text
Aqui sólo la parte de lo de matriz:

Código: Text

 
                For i = 0 To 48
                    If Text1(i).Text &#60;&#62; &#34;&#34; Then
                        RsCNE.AddNew
                        RsCNE(&#34;CodRegion&#34;) = RsConfig(&#34;CodRegion&#34;)
                        RsCNE(&#34;TipoServicio&#34;) = SERVICIO
                        If i &#62;= 0 And i &#60; 30 Then
                            RsCNE(&#34;TipoCNE&#34;) = 1 'No Imp
                        ElseIf i &#62; 29 And i &#60;= 48 Then
                            RsCNE(&#34;TipoCNE&#34;) = 2 'Imp
                        End If
                        RsCNE(&#34;IDSucursal&#34;) = SUCURSAL
                        RsCNE(&#34;ID&#34;) = LbID.Caption
                        RsCNE(&#34;Motivo&#34;) = Check1(i).Caption
                        RsCNE(&#34;Cant&#34;) = Text1(i).Text
                        RsCNE.Update
                    End If
                Next i
 
 

Eso del IF i >= 0 And i < 30 Then y el otro con i > 29 And i <=48 Then
es porque el la segunda tabla estoy colocando lo que está en ambas pestañas
y para que no se mesclen los datos de una con la otra, pues lo valido con un campo:
TipoCNE = 1 --> Es No Imputable
TipoCNE = 2 --> Es Imputable

El botoncito que dice LISTO hace la sumatoria de los Text que tengan dato:
Primera Pestaña: Causas No Entregados [No Imputables]:

Código: Text

 
    Dim TotalNoImp As Double
    TotalNoImp = 0
    'No Imp:
    For i = 0 To 29
        TotalNoImp = TotalNoImp + Val(Text1(i).Text)
    Next
    TxtTotalNoImp = TotalNoImp
 
 

El otro botoncito de LISTO de la otra pestaña:
Causas No Entregados [Imputables]:

Código: Text

 
    Dim TotalImp As Double
    TotalImp = 0
    'Imp:
    For i = 30 To 48
        TotalImp = TotalImp + Val(Text1(i).Text)
    Next
    TxtTotalImp = TotalImp
 
 

Asi restauro todos los check y text:

Código: Text

 
    For i = 0 To 48
        Check1(i).Value = 1
        Text1(i).Text = &#34;&#34;
    Next i

Citar

Tu solucion es bastante burda, por decirlo, suavemente. Pero soluciona tu problema. Que sea lo mas eficiente, es otra cosa.

Burda = sifrino (no importa si ha sido por "decirlo suavemente")
Que sea lo más eficiente es la idea y lo que siempre se trata de buscar

Citar

Si tienes un minima nocion de gestion de base de datos, podrias haber modelo tu problema y asunto arreglado.

R: digo lo mismo que el amigo cpmario sobre esto.

Citar

Por el icono del formulario, espero que no seas de CHILE, por que, deja bastante que desear tu solucion...

El icono es de la empresa, en eso yo no tengo nada que ver.
Y no no soy de Chile y es triste que tal vez tu lo seas, porque tal vez yo no sea un erudito en la programacion o más aun en gestiones de bases de datos, pero al menos no soy pedante.

Te recomiendo que con el ultimo comentario, que en vez de decir lo que piensas, mejor piensa lo que dices, veras que en ese orden no te llevas la sorpresa de un posible disgusto o mal entendido por parte de las personas a quienes te expresas, modera mejor tus palabras para la proxima. O en su defecto mientras sigas con esa actitud (que no te conozco ni te he hecho nada) descarta u omite mis post en el futuro, haste de la vista gorda y lee y participa en el de los otros menos en uno que yo escriba.

A los demás muchachos muchass gracias, no me sorprende que el amigo F_Tanori apreciese con la solución, me alegra no haber pasado antes porque sino, la idea hubiese sido de él (por leerle) y no mia (al menos en esto) por la obsesión y gusto de ver como podía darle la mejor solucion a ello, concordamos en lo mismo y lo coroboro al verlo.

gracias muchachos

UserCode

cpmario:

Citar

El problema que planteas pudiera solucionarse también, colocando todas las causas, de 'no entrega', en un ComboBox y seleccionando solo una de ellas, si hay varias causas, se seleccione la más relevante. El único problema sería que la causa fuera 'Otra', para lo cual habría que darle oportunidad al capturista que escribiera el motivo.

Oops!! se me habia pasado esta parte
Si yo pense en eso tambien, ponerlo todo en un combo pero el problema era el usuario tendria que estar desplegando el combo muchas veces, además al pulsar el boton guardar se guarda todo de una vez, con un combobox tendría que estar adjutando cada item del listado en alguna variable, tabla, etc.. para luego guardar.

Asi como ha quedado creo que esta muy bien porque eso de hacer una tabla co 30 campos, realmente no sé como saldrian los datos para un repote ya que no todos los campos se llenan, y hablando mas de Filas y no de Registros (para verlo mejor) no serviria en el reporte, aun colocando un largo WHERE Ausente<>"" AND .... en una sql validando cada campo de los 30 en la tabla, ya me daba vueltas todo de que asi no podia ser, tal vez si para el programa pero no para reporte alguno.

SoloCodigo

Autor Tema: Ventana Con 30 Campos (Leído 2453 veces)

UserCode

Ventana Con 30 Campos

UserCode

Re: Ventana Con 30 Campos

UserCode

Re: Ventana Con 30 Campos

Jose Arriagada

Re: Ventana Con 30 Campos

F_Tanori

Re: Ventana Con 30 Campos

F_Tanori

Re: Ventana Con 30 Campos

cpmario

Re: Ventana Con 30 Campos

UserCode

Re: Ventana Con 30 Campos

UserCode

Re: Ventana Con 30 Campos