コード例 #1
0
        private void RepPortugues()
        {
            edo.ReservasPortu(RepPort, cto.FolioContrato);
            RepPort.SetParameterValue("NumMem", NoContrato);
            RepPort.SetParameterValue("Titular", cto.Nombre1);
            RepPort.SetParameterValue("Vigencia", cm.Duracion);
            RepPort.SetParameterValue("Status", cm.Status1Idioma3);
            RepPort.SetParameterValue("TipMem", cm.Membresia);
            RepPort.SetParameterValue("Porcentaje", edo.Porcentaje);
            RepPort.SetParameterValue("PuntosMem", cto.Semanas);
            RepPort.SetParameterValue("PuntosDispPagados", edo.PtosPagoCap);
            RepPort.SetParameterValue("PuntosUsados", edo.PtosUsados);
            RepPort.SetParameterValue("PuntosRestantesPagados", edo.PtosDisPagoCap);
            RepPort.SetParameterValue("PuntosRestantesMem", edo.PtosRestantesTotal);

            vr = new VisorReportes(RepPort);

            vr.ShowDialog();
        }
コード例 #2
0
        private void RepIngles()
        {
            edo.ReservasIng(RepIng, cto.FolioContrato);
            RepIng.SetParameterValue("NumMem", NoContrato);
            RepIng.SetParameterValue("Titular", cto.Nombre1);
            RepIng.SetParameterValue("Vigencia", cm.Duracion);
            RepIng.SetParameterValue("Status", cm.Status1Idioma2); //traducir
            RepIng.SetParameterValue("TipMem", cm.TipMemIdioma2);  //idioma2
            RepIng.SetParameterValue("Porcentaje", edo.Porcentaje);
            RepIng.SetParameterValue("PuntosMem", cto.Semanas);
            RepIng.SetParameterValue("PuntosDispPagados", edo.PtosPagoCap);
            RepIng.SetParameterValue("PuntosUsados", edo.PtosUsados);
            RepIng.SetParameterValue("PuntosRestantesPagados", edo.PtosDisPagoCap);
            RepIng.SetParameterValue("PuntosRestantesMem", edo.PtosRestantesTotal);

            vr = new VisorReportes(RepIng);

            vr.ShowDialog();
        }
コード例 #3
0
        public void RegalosVenta()
        {
            ok       = true;
            consulta = "";
            texto    = "";
            ultprim  = ultprim == "Ultimos" ? "desc" : "asc"; //ultimos=0 desc - primeros=1 asc

            //por consecutivo
            if (Consec == true)
            {
                if (topFolio > 0)
                {
                    consulta = "select Top " + topFolio + " t.Iniciales as TipCon,c.NumCto,c.FechaVta,reg.Nombre as Regalo,(case when r.Tipo=1 then 'Incluido' else 'No Incluido' end) Tipo, r.Folio,(case when r.Cancelado='True' then 'Si' else '' end) Cancelado,r.Cantidad,r.CostoA,(r.Cantidad*r.CostoA) as Total from ContratosRegalos r inner join Contratos c on  r.FolioContrato=c.FolioContrato left join Regalos reg on r.IdRegalo=reg.idRegalo left join TiposContrato t on  c.idTipcon=t.idtipcon";
                    texto    = ultprim == "desc"? "-Ultimos: " + topFolio + " folios ":"-Primeros: " + topFolio + " folios ";
                }
                else
                {
                    consulta = "select t.Iniciales as TipCon,c.NumCto,c.FechaVta,reg.Nombre as Regalo,(case when r.Tipo=1 then 'Incluido' else 'No Incluido' end) Tipo, r.Folio,(case when r.Cancelado='True' then 'Si' else '' end) Cancelado,r.Cantidad,r.CostoA,(r.Cantidad*r.CostoA) as Total from ContratosRegalos r inner join Contratos c on  r.FolioContrato=c.FolioContrato left join Regalos reg on r.IdRegalo=reg.idRegalo left join TiposContrato t on c.idTipcon=t.idtipcon";
                }

                if (Sala > 0)
                {
                    consulta = consulta + " where c.idSalaVta=" + Sala;
                }
                else
                {
                    ok = false;
                }

                if (empieza > 0)
                {
                    consulta = consulta + " and r.FolioContrato like '" + empieza + "%'";
                }

                if (FolFin > 1)
                {
                    consulta = consulta + " and r.FolioContrato between " + FolIni + " and " + FolFin;
                    texto    = texto + " -Folio del: " + FolIni + " al: " + FolFin;
                }

                if (Tipo == 1 || Tipo == 2)
                {
                    consulta = consulta + " and r.Tipo =" + Tipo;

                    if (Tipo == 1)
                    {
                        texto = texto + " -Tipo: " + "Incluido";
                    }
                    else if (Tipo == 2)
                    {
                        texto = texto + " -Tipo: " + "No Incluido";
                    }
                    else
                    {
                        texto = texto + " -Tipo: " + "Todos";
                    }
                }

                if (sinFolio == false)
                {
                    consulta = consulta + " and r.Folio is not null";
                    texto    = texto + " -Regalos con Folio";
                }

                if (NumsRegalos != "")
                {
                    consulta = consulta + " and r.IdRegalo in (" + NumsRegalos + ")";
                }

                if (OrderBy == 1)
                {
                    consulta = consulta + " order by reg.Nombre " + ultprim;
                }
                else if (OrderBy == 2)
                {
                    consulta = consulta + " order by c.NumCto " + ultprim;
                }
                else
                {
                    consulta = consulta + " order by r.Folio " + ultprim;
                }
            }
            else if (FVenta == true || FFolio == true)
            {
                consulta = "select t.Iniciales as TipCon,c.NumCto,c.FechaVta,reg.Nombre as Regalo,(case when r.Tipo=1 then 'Incluido' else 'No Incluido' end) Tipo, r.Folio,(case when r.Cancelado='True' then 'Si' else '' end) Cancelado,r.Cantidad,r.CostoA,(r.Cantidad*r.CostoA) as Total from ContratosRegalos r inner join Contratos c on  r.FolioContrato=c.FolioContrato left join Regalos reg on r.IdRegalo=reg.idRegalo left join TiposContrato t on c.idTipcon=t.idtipcon";

                if (Sala > 0)
                {
                    consulta = consulta + " where c.idSalaVta=" + Sala;
                }
                else
                {
                    ok = false;
                }

                if (FVenta == true)
                {
                    consulta = consulta + " and c.FechaVta between " + "'" + FecIni.ToString("yyyyMMdd") + "'" + " and " + "'" + FecFin.ToString("yyyyMMdd") + "'";
                    texto    = texto + " -Fecha de Venta del: " + FecIni.ToString("d") + " al: " + FecFin.ToString("d");
                }

                if (FFolio == true)
                {
                    consulta = consulta + " and r.FechorAlt between " + "'" + FecIni.ToString("yyyyMMdd") + "'" + " and " + "'" + FecFin.ToString("yyyyMMdd") + "'";
                    texto    = texto + " -Fecha de Captura del: " + FecIni.ToString("d") + " al: " + FecFin.ToString("d");
                }

                if (Tipo == 1 || Tipo == 2)
                {
                    consulta = consulta + " and r.Tipo =" + Tipo;
                    if (Tipo == 1)
                    {
                        texto = texto + " -Tipo: " + "Incluido";
                    }
                    else if (Tipo == 2)
                    {
                        texto = texto + " -Tipo: " + "No Incluido";
                    }
                    else
                    {
                        texto = texto + " -Tipo: " + "Todos";
                    }
                }

                if (sinFolio == false)
                {
                    consulta = consulta + " and r.Folio is not null";
                }

                if (NumsRegalos != "")
                {
                    consulta = consulta + " and r.IdRegalo in (" + NumsRegalos + ")";
                }

                if (OrderBy == 1)
                {
                    consulta = consulta + " order by reg.Nombre " + ultprim;
                }
                else if (OrderBy == 2)
                {
                    consulta = consulta + " order by c.NumCto " + ultprim;
                }
                else
                {
                    consulta = consulta + " order by r.Folio " + ultprim;
                }
            }
            else
            {
                consulta = "select t.Iniciales as TipCon,c.NumCto,c.FechaVta,reg.Nombre as Regalo,(case when r.Tipo=1 then 'Incluido' else 'No Incluido' end) Tipo, r.Folio,(case when r.Cancelado='True' then 'Si' else '' end) Cancelado,r.Cantidad,r.CostoA,(r.Cantidad*r.CostoA) as Total from ContratosRegalos r inner join Contratos c on  r.FolioContrato=c.FolioContrato left join Regalos reg on r.IdRegalo=reg.idRegalo left join TiposContrato t on c.idTipcon=t.idtipcon ";

                if (Sala > 0)
                {
                    consulta = consulta + " where c.idSalaVta=" + Sala;
                }
                else
                {
                    ok = false;
                }

                if (Tipo == 1 || Tipo == 2)
                {
                    consulta = consulta + " and r.Tipo =" + Tipo;
                    if (Tipo == 1)
                    {
                        texto = texto + " -Tipo: " + "Incluido";
                    }
                    else if (Tipo == 2)
                    {
                        texto = texto + " -Tipo: " + "No Incluido";
                    }
                    else
                    {
                        texto = texto + " -Tipo: " + "Todos";
                    }
                }

                if (sinFolio == false)
                {
                    consulta = consulta + " and r.Folio is not null";
                }

                if (NumsRegalos != "")
                {
                    consulta = consulta + " and r.IdRegalo in (" + NumsRegalos + ")";
                }

                if (OrderBy == 1)
                {
                    consulta = consulta + " order by reg.Nombre " + ultprim;
                }
                else if (OrderBy == 2)
                {
                    consulta = consulta + " order by c.NumCto " + ultprim;
                }
                else
                {
                    consulta = consulta + " order by r.Folio " + ultprim;
                }
            }


            if (ok == false)
            {
                MessageBox.Show("Favor de verificar los filtros seleccionados");
                consulta = "";
            }
            else
            {
                string sql = consulta;

                using (SqlConnection con = new SqlConnection(c.cadenaConexion))
                {
                    con.Open();

                    using (SqlCommand comando = new SqlCommand(sql, con))
                    {
                        SqlDataAdapter da = new SqlDataAdapter(comando);
                        DataTable      dt = new DataTable("RegalosVenta");

                        da.Fill(dt);
                        reporte.SetDataSource(dt);

                        con.Close();
                    }
                }


                string ThisDay = "";
                fecha.GeneraFecha(DateTime.Today, 1);
                ThisDay = fecha.LetrasDia + ", " + fecha.NumDia + " DE " + fecha.LetrasMes + " DE " + fecha.Año;

                reporte.SetParameterValue("ThisDay", ThisDay);
                reporte.SetParameterValue("text", texto);
                // reporte.SetParameterValue("Texto", texto);
                vr = new VisorReportes(reporte);

                vr.ShowDialog();
            }
        }
コード例 #4
0
        private void ReportesIng(string reporte)
        {
            int    idioma = Convert.ToInt32(comboIdioma.SelectedValue);
            string Moneda;
            string ThisDay;
            string ThisHora;
            string FechaUltiMen = "";
            string FechaPrimMen = "";
            string Importe      = "";

            //formato fecha del dia actual
            fecha.GeneraFecha(DateTime.Today, 2);
            ThisDay  = fecha.LetrasDia + ", " + fecha.NumDia + " " + fecha.LetrasMes + " " + fecha.Año;
            ThisHora = DateTime.Today.Hour + ":" + DateTime.Today.Minute;

            //define fecha de venta
            string fVta;

            fecha.GeneraFecha(cto.FechaVta, 2);
            fVta = fecha.NumDia + " " + fecha.LetrasMes + " " + fecha.Año;


            if (cto.FecprimmenActual.Year == 50 || (cto.FecprimmenActual.Year < 1900))
            {
                FechaPrimMen = "";
                FechaUltiMen = "";
            }
            else
            {
                //genera formato fecha ultima mensualidad
                cm.UltimaMensualidad(cto);
                fecha.GeneraFecha(Convert.ToDateTime(cm.FechaUltiMen), 2);
                FechaUltiMen = fecha.NumDia + " " + fecha.LetrasMes + " " + fecha.Año;

                //genera formato fecha primera mensualidad
                fecha.GeneraFecha(cto.FecprimmenActual, 2);
                FechaPrimMen = fecha.NumDia + " " + fecha.LetrasMes + " " + fecha.Año;
            }

            Moneda = cto.idMoneda == 1 ? "PESOS" : "USD";

            Importe = letras.enletrasIng(Convert.ToString(cto.ImporteMensualidad), Moneda);

            //_______________________________________________________________________________________________________________ANEXOA
            if (reporte == "Anexo A")    //Envia parametros al AnexoA
            {
                anexoAA.SetParameterValue("NumCto", cto.NumCto);
                anexoAA.SetParameterValue("TipCto", cm.TipCon);
                anexoAA.SetParameterValue("Vendedor2", soc.Vendedor2);
                anexoAA.SetParameterValue("Comprador2", soc.Comprador2);
                anexoAA.SetParameterValue("Compradores2", soc.Compradores2);
                anexoAA.SetParameterValue("OTLC", soc.OTLC);
                anexoAA.SetParameterValue("OTLCmin", soc.OTLCmin);
                anexoAA.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(anexoAA);
                vr.ShowDialog();
            }

            //_______________________________________________________________________________________________________________ANEXOB
            if (reporte == "Anexo B")    //Envia parametros al AnexoB
            {
                anexoBB.SetParameterValue("Vendedor", soc.Vendedor2);
                anexoBB.SetParameterValue("Comprador", soc.Comprador2);
                anexoBB.SetParameterValue("NumCto", cto.NumCto);
                anexoBB.SetParameterValue("TipCto", cm.TipCon);
                anexoBB.SetParameterValue("Membresia", cm.TipMemIdioma2);
                anexoBB.SetParameterValue("OTLC", soc.OTLC);

                if (cto.idTipmem == 15)
                {
                    anexoBB.SetParameterValue("Dias", 120);
                }                                           //silver
                else
                {
                    anexoBB.SetParameterValue("Dias", 90);
                }                                          //zafiro, golden, premium

                anexoBB.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(anexoBB);
                vr.ShowDialog();
            }

            //_______________________________________________________________________________________________________________ANEXOC
            if (reporte == "Anexo C")    //Envia parametros al AnexoC
            {
                anexoCC.SetParameterValue("NumCto", cto.NumCto);
                anexoCC.SetParameterValue("TipCto", cm.TipCon);
                anexoCC.SetParameterValue("Membresia", cm.TipMemIdioma2);
                anexoCC.SetParameterValue("Puntos", cto.Semanas);
                anexoCC.SetParameterValue("Duracion", cm.Duracion);

                if (cto.idTipmem == 18)
                {
                    anexoCC.SetParameterValue("Texto", "No Restrictions");
                }                                                          //zafiro
                else
                {
                    anexoCC.SetParameterValue("Texto", "February to April 15, President´s, Holy, Eastern, Thanksgiving, Christmas and New Year");
                }                                                                                                                                 //silver, golden, premium
                anexoCC.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(anexoCC);
                vr.ShowDialog();
            }

            //_______________________________________________________________________________________________________________ANEXOD
            if (reporte == "Anexo D")    //Envia parametros al AnexoD
            {
                string nombres;
                string direccion;
                double saldoFinal;
                string status;

                nombres    = cto.Nombre1 + "," + cto.Nombre2;
                direccion  = cto.Direccion1 + "," + cd.Nombre + "," + ed.Nombre + "," + ps.Nombre + ", CP:" + cto.Cp1;
                saldoFinal = (cto.ImporteMensualidad * cto.Plazo);

                anexoDD.SetParameterValue("TipCto", cm.TipCon);
                anexoDD.SetParameterValue("NumCto", cto.NumCto);
                anexoDD.SetParameterValue("FechaVta", fVta);
                anexoDD.SetParameterValue("Nombres", nombres);
                anexoDD.SetParameterValue("Rfc", cto.SegsocRFC1);
                anexoDD.SetParameterValue("Direccion", direccion);
                anexoDD.SetParameterValue("TelCasa", cto.TelCasa1);
                anexoDD.SetParameterValue("TelOficina", cto.TelOficina1);
                anexoDD.SetParameterValue("Email", cto.Email1);
                anexoDD.SetParameterValue("Interes", cto.TazaInteres);
                anexoDD.SetParameterValue("Saldo", cto.Saldo);
                anexoDD.SetParameterValue("SaldoFinal", saldoFinal);
                anexoDD.SetParameterValue("Moneda", Moneda);
                anexoDD.SetParameterValue("Plazo", cto.Plazo);
                anexoDD.SetParameterValue("Mensualidad", cto.ImporteMensualidad);

                if (cto.idStatusCon1 == 5)
                {
                    anexoDD.SetParameterValue("Status", "---");
                }
                else
                {
                    if (cto.FecprimmenActual.Year == 50 || (cto.FecprimmenActual.Year < 1900))
                    {
                        status = "";
                    }
                    else
                    {
                        fecha.GeneraFecha(cto.FecprimmenActual, 1);
                        status = fecha.LetrasMes + fecha.NumDia + ", " + fecha.Año;
                    }

                    anexoDD.SetParameterValue("Status", status);
                }

                anexoDD.SetParameterValue("Vendedor", soc.Vendedor2);
                anexoDD.SetParameterValue("Comprador", soc.Comprador2);
                anexoDD.SetParameterValue("Compradores", soc.Compradores2);
                anexoDD.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(anexoDD);
                vr.ShowDialog();
            }


            //_______________________________________________________________________________________________________________AUTORIZACION
            if (reporte == "Autorizacion")    //Envia parametros a la Carta de Autorización
            {
                //genera formato fecha expiracion
                fecha.GeneraFecha(cto.MFExpiracion1, 2);
                string TExp = fecha.NumMes + "/" + fecha.Año;

                //tipos de tarjeta
                string Tvi = cto.MFIdTarjeta1 == 4 ? "X" : "O"; //TARJETAVISA
                string Tmc = cto.MFIdTarjeta1 == 3 ? "X" : "O"; //TARJETAMC
                string Tam = cto.MFIdTarjeta1 == 7 ? "X" : "O"; //TARJETAAMEXCO

                cartaAutIng.SetParameterValue("TipCto", cm.TipCon);
                cartaAutIng.SetParameterValue("NumCto", cto.NumCto);
                cartaAutIng.SetParameterValue("Moneda", Moneda);
                cartaAutIng.SetParameterValue("Plazo", cto.Plazo);
                cartaAutIng.SetParameterValue("FechaVta", fVta);
                cartaAutIng.SetParameterValue("Mensualidad", cto.ImporteMensualidad);
                cartaAutIng.SetParameterValue("Nombre1", cto.Nombre1);
                cartaAutIng.SetParameterValue("Nombre2", cto.Nombre2);
                cartaAutIng.SetParameterValue("TNombre", cto.MFNombre1);
                cartaAutIng.SetParameterValue("TNumero", cto.MFNoTarjeta1);
                cartaAutIng.SetParameterValue("TCodigo", cto.MFCodSeg1);
                cartaAutIng.SetParameterValue("TFecha", TExp);
                cartaAutIng.SetParameterValue("TVI", Tvi);
                cartaAutIng.SetParameterValue("TMC", Tmc);
                cartaAutIng.SetParameterValue("TAM", Tam);
                cartaAutIng.SetParameterValue("Importe", Importe);
                cartaAutIng.SetParameterValue("Sociedad", soc.Nombre);
                cartaAutIng.SetParameterValue("CxcTel", soc.CxcTel);
                cartaAutIng.SetParameterValue("CxcEmail", soc.CxcEmail);
                cartaAutIng.SetParameterValue("Domicilio", soc.Domicilio);
                cartaAutIng.SetParameterValue("Ciudad", soc.Ciudad);
                cartaAutIng.SetParameterValue("Estado", soc.Estado);
                cartaAutIng.SetParameterValue("CP", soc.Cp);
                cartaAutIng.SetParameterValue("FecPrimMen", FechaPrimMen);
                cartaAutIng.SetParameterValue("FecUltiMen", FechaUltiMen);
                cartaAutIng.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(cartaAutIng);
                vr.ShowDialog();
            }

            //_______________________________________________________________________________________________________________PAGARE
            if (reporte == "Pagare")    //Envia parametros al PAGARE
            {
                string fechaVta = "";

                PagosPagare2(pagaree);

                fecha.GeneraFecha(cto.FechaVta, 2);
                fechaVta = fecha.NumDia + " de " + fecha.LetrasMes + ", " + fecha.Año;

                pagaree.SetParameterValue("TipCto", cm.TipCon);
                pagaree.SetParameterValue("NumCto", cto.NumCto);
                pagaree.SetParameterValue("FechaVta", fechaVta);
                pagaree.SetParameterValue("Importe", Importe);
                pagaree.SetParameterValue("Saldo", cto.Saldo);
                pagaree.SetParameterValue("Moneda", Moneda);
                pagaree.SetParameterValue("Interes", cto.TazaInteres);
                pagaree.SetParameterValue("Plazo", cto.Plazo);
                pagaree.SetParameterValue("Mensualidad", cto.ImporteMensualidad);
                pagaree.SetParameterValue("FecPrimMen", FechaPrimMen);
                pagaree.SetParameterValue("FecUltiMen", FechaUltiMen);
                pagaree.SetParameterValue("Nombres", cto.Nombre1 + ", " + cto.Nombre2);
                pagaree.SetParameterValue("Sociedad", soc.Nombre);
                pagaree.SetParameterValue("Representante", soc.Representante);

                if (cto.idNAcionalidad1 == 1)
                {
                    pagaree.SetParameterValue("Titulo", "IN PESOS MXN");
                    pagaree.SetParameterValue("SocTxt", soc.TextoMxn);
                    pagaree.SetParameterValue("SocAbono", soc.CtaAbonoMxn);
                    pagaree.SetParameterValue("SocClav", soc.CtaClaveMxn);
                    pagaree.SetParameterValue("SocDiv", soc.DivisaMxn);
                }
                else
                {
                    pagaree.SetParameterValue("Titulo", "IN US DOLLARS");
                    pagaree.SetParameterValue("SocTxt", soc.TextoUsd);
                    pagaree.SetParameterValue("SocAbono", soc.CtaAbonoUsd);
                    pagaree.SetParameterValue("SocClav", soc.CtaClaveUsd);
                    pagaree.SetParameterValue("SocDiv", soc.DivisaUsd);
                }

                pagaree.SetParameterValue("ThisDay", ThisDay);

                vr = new VisorReportes(pagaree);

                vr.ShowDialog();
            }

            //_______________________________________________________________________________________________________________CONTRATO
            if (reporte == "Contrato")    //Envia parametros al CONTRATO
            {
                string fechaPrimMen = "";
                double saldoFinal   = 0;

                if (cto.FecprimmenActual.Year == 50 || (cto.FecprimmenActual.Year < 1900))
                {
                    fechaPrimMen = "";
                }
                else
                {
                    fecha.GeneraFecha(cto.FecprimmenActual, 2);
                    fechaPrimMen = fecha.LetrasMes + " " + fecha.NumDia + ", " + fecha.Año;
                }

                saldoFinal = (cto.ImporteMensualidad * cto.Plazo);

                fecha.GeneraFecha(cto.FechaVta, 2);

                contratoIng.SetParameterValue("TipCto", cm.TipCon);
                contratoIng.SetParameterValue("NumCto", cto.NumCto);
                contratoIng.SetParameterValue("TipPer", tp.Idioma2);
                contratoIng.SetParameterValue("Nombre1", cto.Nombre1);
                contratoIng.SetParameterValue("Nombre2", cto.Nombre2);
                contratoIng.SetParameterValue("Nacionalidad", nac.Nombre);
                contratoIng.SetParameterValue("EdoCivil", ec.Idioma2);
                contratoIng.SetParameterValue("Domicilio", cto.Direccion1);
                contratoIng.SetParameterValue("Ciudad", cd.Nombre);
                contratoIng.SetParameterValue("Estado", ed.Nombre);
                contratoIng.SetParameterValue("Pais", ps.Nombre);
                contratoIng.SetParameterValue("CP", cto.Cp1);
                contratoIng.SetParameterValue("TelCasa", cto.TelCasa1);
                contratoIng.SetParameterValue("TelOfic", cto.TelOficina1);
                contratoIng.SetParameterValue("Celular", cto.Celular1);
                contratoIng.SetParameterValue("Fax", cto.Fax1);
                contratoIng.SetParameterValue("Email", cto.Email1);
                contratoIng.SetParameterValue("Membresia", cm.TipMemIdioma2);
                contratoIng.SetParameterValue("PrecioVta", cto.PrecioVenta);
                contratoIng.SetParameterValue("Moneda", Moneda);
                contratoIng.SetParameterValue("Puntos", cto.Semanas);
                contratoIng.SetParameterValue("CCPactado", cto.CCPactado);
                contratoIng.SetParameterValue("EngancheCobrado", cto.EngancheCobrado);
                contratoIng.SetParameterValue("Saldo", cto.Saldo);
                contratoIng.SetParameterValue("Plazo", cto.Plazo);
                contratoIng.SetParameterValue("Mensualidad", cto.ImporteMensualidad);
                contratoIng.SetParameterValue("FecPriMen", fechaPrimMen);
                contratoIng.SetParameterValue("TasaInteres", cto.TazaInteres);
                contratoIng.SetParameterValue("SaldoFinal", saldoFinal);
                contratoIng.SetParameterValue("FechaVta", fVta);
                contratoIng.SetParameterValue("Dia", fecha.NumDia);
                contratoIng.SetParameterValue("Mes", fecha.LetrasMes);
                contratoIng.SetParameterValue("Ano", fecha.Año);

                contratoIng.SetParameterValue("Sociedad", soc.Nombre);
                contratoIng.SetParameterValue("SocRep", soc.Representante);
                contratoIng.SetParameterValue("SocTxtUSD", soc.TextoUsd);
                contratoIng.SetParameterValue("SocAbonoUSD", soc.CtaAbonoUsd);
                contratoIng.SetParameterValue("SocClavUSD", soc.CtaClaveUsd);
                contratoIng.SetParameterValue("SocDivUSD", soc.DivisaUsd);
                contratoIng.SetParameterValue("SocDomicilio", soc.Domicilio);
                contratoIng.SetParameterValue("SocCiudad", soc.Ciudad);
                contratoIng.SetParameterValue("SocEstado", soc.Estado);
                contratoIng.SetParameterValue("SocPais", soc.Pais);
                contratoIng.SetParameterValue("SocCP", soc.Cp);
                contratoIng.SetParameterValue("SocTelMX", soc.TelMx);
                contratoIng.SetParameterValue("SocTelUSA", soc.TelUsa);
                contratoIng.SetParameterValue("SocTelOtro", soc.TelOtro);
                contratoIng.SetParameterValue("SocEmail1", soc.Email1);
                contratoIng.SetParameterValue("SocEmail2", soc.Email2);

                contratoIng.SetParameterValue("Cat", cal.CatIva);
                contratoIng.SetParameterValue("CatSinIva", cal.Cat);

                contratoIng.SetParameterValue("ThisDay", ThisDay);
                contratoIng.SetParameterValue("Vendedor", soc.Vendedor2);
                contratoIng.SetParameterValue("Comprador", soc.Comprador2);
                contratoIng.SetParameterValue("Compradores", soc.Compradores2);
                contratoIng.SetParameterValue("OTLCiniciales", soc.OTLCiniciales);
                contratoIng.SetParameterValue("OTLC", soc.OTLC);

                vr = new VisorReportes(contratoIng);
                vr.ShowDialog();
            }
        }