Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- // DESACTIVA BOTON ACEPTAR
- ActiveDocument.Sections["Filtros"].Shapes["CommandButtonAceptar"].Enabled = false
- ActiveDocument.Sections["Filtros"].Shapes["CommandButtonNuevo"].Enabled = true
- ActiveDocument.Sections["Filtros"].Shapes["DropDown2"].Enabled =true
- ActiveDocument.Sections["Filtros"].Shapes["DropDown3"].Enabled = true
- Console.Writeln("desactiva boton aceptar");
- //Dias
- for (var K = 1; K <= ListBox2.SelectedList.Count; K++)
- {var ddia = parseInt(ListBox2.SelectedList[K])
- }
- // OBTIENE VALORES DESDE DROPDOWNs PARA LIMITES
- var nmes = DropDown2.SelectedIndex
- var sanno = DropDown3[DropDown3.SelectedIndex]
- Console.Writeln(sanno);
- Console.Writeln(nmes.toString());
- var d1=ddia
- var d2=ddia
- var m1=nmes
- var m2=nmes
- var sanno2=sanno
- if (nmes == 2 && ddia == 28 ) //Cambiar si el año es bisiesto
- { d1=28
- m1=2
- d2=1
- m2=3
- }
- else if ((nmes == 4 || nmes == 6 || nmes == 9 || nmes == 11) && (ddia == 30) )
- { d1=30
- m1=nmes
- d2=1
- m2=nmes+1
- }
- else if (nmes==12 && ddia == 31) {
- d1=31
- m1=12
- d2=1
- m2=1
- nanno=parseInt(sanno)
- nanno=nanno+1
- sanno2=nanno.toString()
- }
- else if((nmes == 1 || nmes == 3 || nmes == 5 || nmes == 7 || nmes == 8 || nmes == 10) && ddia == 31){
- d1=31
- m1=nmes
- d2=1
- m2=nmes+1
- }else d2=ddia+1
- sd1 = d1.toString()
- sd2 = d2.toString()
- sm1 = m1.toString()
- sm2 = m2.toString()
- A1 = sd1 +'/'+ sm1 +'/'+ sanno
- A2 = sd2 +'/'+ sm2 +'/'+ sanno2
- Console.Writeln(A1);
- Console.Writeln(A2);
- // CREA LIMITES DE DIA MES Y ANNO PARA QUERY
- MiLimiteStartup1 = ActiveDocument.Sections["Query"].Limits.CreateLimit("TBL_WCBCHAT_SODIMAC_CH.FECHAHORA")
- ActiveDocument.Sections["Query"].Limits.Add(MiLimiteStartup1)
- MiLimiteStartup1.Operator =bqLimitOperatorBetween
- Console.Writeln('antes de poner el limite')
- MiLimiteStartup1.CustomValues.Add(A1)
- MiLimiteStartup1.CustomValues.Add(A2)
- MiLimiteStartup1.SelectedValues.Add(A1)
- MiLimiteStartup1.SelectedValues.Add(A2)
- MiLimiteStartup1.DisplayName = "Entre"
- Console.Writeln("Limite 1 OK");
- // LOGIN Y PROCESO DE DATOS
- Console.Writeln("Login..... ");
- MiConnexion = ActiveDocument.Sections["Query"].DataModel.Connection;
- Console.Writeln("Busco en C");
- //MiConnexion.Open("C:\\ODBC_GEN_OPE_PE.oce");
- MiConnexion.Open("C:\\ODBC_GEN_OPE_CH.oce");
- //MiConnexion.Username = "gen_ope";
- MiConnexion.Username = "gen_ope";
- Console.Writeln("User");
- //MiConnexion.SetPassword("genope");
- MiConnexion.SetPassword("pw2I726VE");
- Console.Writeln("Pass");
- MiConnexion.Connect();
- Console.Writeln("Conectado..");
- ActiveDocument.Sections["Query"].Process();
- MiConnexion.Disconnect();
- Console.Writeln("Login OK");
- // MUESTRA REPORTE
- ActiveDocument.Sections["Informe"].Activate();
- // ACTIVA
- ActiveDocument.Sections["Filtros"].Shapes["CommandButtonNuevo"].Enabled = true;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement