private void button3_Click(object sender, EventArgs e) { string mensaje = ""; mensaje = Funciones.PreparaListado(dtpFecha.Value, dtpFechaHasta.Value, GloblaVar.gConRem); if (mensaje == "") { string sql = "SELECT "; sql += "'430' + RIGHT('0000' + Ltrim(Rtrim(DetCod)),4) as [Cod.Det], "; sql += "DetNom as NOMBRE, DetNif as NIF, DetCon,DetRec as RE, "; sql += "DetCoc as SG, DetVia as Direcc,DetCop as CP, DetTel as Tfno "; sql += "FROM DETALLISTAS "; sql += "WHERE "; sql += "DetCod>=79000 "; //sql += "(VENALB_CABE.AUX1='01 CREDITO' "; //sql += " OR VENALB_CABE.AUX1='07 FACT. PROPIA CREDITO' "; //sql += " OR VENALB_CABE.AUX1='011 SERIE L AL BANCO' "; //sql += " OR VENALB_CABE.AUX1='02 CONTADO PENDIENTE' "; //sql += " OR VENALB_CABE.AUX1='03 CONTADO PAGADO'"; //sql+=" OR VENALB_CABE.AUX1='04 F.PROPIA PAGADO'"; //sql+=" OR VENALB_CABE.AUX1='011 SERIE L AL BANCO'"; //sql+=" OR VENALB_CABE.AUX1='020 SERIE M RETENIDOS') "; //sql += ")"; sql += " ORDER BY DetCod asc"; string path = obtenerPath(); if (!string.IsNullOrEmpty(path)) { clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sql; excel.Path = path; excel.NombreFichero = "DETALLISTAS_79000"; mensaje = excel.exportarExcel(dtpFechaHasta.Value); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación de " + excel.NombreFichero + " a excel se ha realizado correctamente"); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } } else { MessageBox.Show(mensaje); } } // private void button3_Click(object sender, EventArgs e) detallistas 79000
} // private void button3_Click(object sender, EventArgs e) detallistas 79000 private void BtnExportFacturas_Click(object sender, EventArgs e) { //Botón de exportar EXCEL FACTURAS PROPIAS string mensaje = ""; mensaje = Funciones.PreparaListado(dtpFecha.Value, dtpFechaHasta.Value, GloblaVar.gConRem); if (mensaje == "") { string sql = "SELECT FacNfp as Factura, CONVERT(Date,FacFfp,103) as Fecha, "; sql += "'' as Column1, '430' + RIGHT('0000' + Ltrim(Rtrim(DetCod)),4) as [Cod.Det], "; sql += "'' as Column2, '' as Column3, '' as Column4, FacBru as BI, "; //sql += "10 as [%IVA], FacIva as IVA, 1.4 as [%RE], FacRec as RE, "; sql += "10 as [%IVA], FacIva as IVA, CASE WHEN FacRec=0.00 THEN null ELSE 1.4 END as [%RE], CASE WHEN FacRec=0.00 THEN null ELSE FacRec END as RE, "; sql += "'' as Column5, '' as Column6, 7000000 as SubCuenta, FacTot as TOTAL "; sql += "FROM FACTURAS "; sql += "WHERE FacFfp>='" + dtpFecha.Text + "' and FacFfp<='" + dtpFechaHasta.Text + "'"; sql += "ORDER BY FacNfp asc"; string sqlTotal = "SELECT SUM(FacTot) "; sqlTotal += "FROM FACTURAS "; sqlTotal += "WHERE FacFfp>='" + dtpFecha.Text + "' and FacFfp<='" + dtpFechaHasta.Text + "'"; decimal totalFacturas = Funciones.EjecutaScalar(sqlTotal, GloblaVar.gConRem) == DBNull.Value ? 0 :Convert.ToDecimal(Funciones.EjecutaScalar(sqlTotal, GloblaVar.gConRem)); string path = obtenerPath(); if (!string.IsNullOrEmpty(path)) { clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sql; excel.Path = path; excel.NombreFichero = "Facturas_Propias"; mensaje = excel.exportarExcel(dtpFechaHasta.Value, "", (decimal)totalFacturas); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación a excel se ha realizado correctamente"); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } } else { MessageBox.Show(mensaje); } }
private void btnExportExcel1_Click(object sender, EventArgs e) { string mensaje = ""; string sql = "SELECT VENALB_CABE.venalb as Albaran, VENALB_CABE.venfec as FVenta, "; sql += "'430' + RIGHT('0000' + Ltrim(Rtrim(VENALB_CABE.detcod)),4) as [Cod.Det], "; sql += "VENALB_CABE.venbru as BI, 10 as [%IVA], VENALB_CABE.veniva as IVA, 1.4 as [%RE], "; sql += "VENALB_CABE.VenRec as RE, VENALB_CABE.VenTot as Total "; sql += "FROM VENALB_CABE INNER JOIN DETALLISTAS ON VENALB_CABE.detcod = DETALLISTAS.detcod "; sql += "WHERE "; sql += "((VENALB_CABE.VenFec='" + dtpFecha.Text + "' AND VENALB_CABE.Anulado=0) OR "; sql += "(VENALB_CABE.VenFec<='" + dtpFecha.Text + "' AND VENALB_CABE.VenCoe='Z' AND VENALB_CABE.Anulado=0)) "; sql += "ORDER BY VENALB_CABE.venfec asc"; string path = obtenerPath(); if (!string.IsNullOrEmpty(path)) { clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sql; excel.Path = path; excel.NombreFichero = "Fichero1"; mensaje = excel.exportarExcel(dtpFecha.Value); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación a excel se ha realizado correctamente"); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } }
} //private void frmSeleccionDatos_Load(object sender, EventArgs e) private void btnF5_Click(object sender, EventArgs e) { string gIdent = this.GetType().FullName + " " + System.Reflection.MethodBase.GetCurrentMethod().Name; GloblaVar.gUTIL.ATraza(gIdent + "Listado Tipo " + GloblaVar.TIPO_REPORT); // Planteamos el query según el TIPO_REPORT que hayamos elegido y llamamos para mostrarlo a frmCR switch (GloblaVar.TIPO_REPORT) { case 1: //Listado de Rendimiento para Carabal GloblaVar.gUTIL.SP2(dateTimePicker_Inicio.Value.Date.ToShortDateString(), dateTimePicker_Fin.Value.ToShortDateString(), int.Parse(tVendedIni.Text), int.Parse(tVendedFin.Text)); GloblaVar.gUTIL.ATraza("btnF5_Click().- Preparada lista con datos para listar "); GloblaVar.sQReport = "{Comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; //MessageBox.Show("HOLA"); break; case 2: //Listado de Ventas de Articulos, Fecha y Detallistas GloblaVar.sQReport = "{Comando.VelFec} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.DetCod} IN " + tDetIni.Text + " TO " + tDetFin.Text; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; break; case 3: //LISTADO DE FACTURAS DE CLIENTES GloblaVar.sQReport = "{Comando.FechaEmision} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.DetCod} IN " + tDetIni.Text + " TO " + tDetFin.Text; if (OptFacturasCobradas.Checked) { GloblaVar.sQReport += " AND {Comando.ImptePendiente}=0"; } if (OptFactPendientes.Checked) { GloblaVar.sQReport += " AND {Comando.ImptePendiente}>0"; } break; case 4: MessageBox.Show("Nada que Listar"); break; case 5: //Listado de Compras: Fecha, Artículos Proveedores GloblaVar.sQReport = "{Comando.ComCfa} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ProCod} IN " + tProvIni.Text + " TO " + tProvFin.Text; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; break; case 6: //Listado de Rendimiento para Dialpesca por vendedores GloblaVar.gUTIL.SP2(dateTimePicker_Inicio.Value.Date.ToShortDateString(), dateTimePicker_Fin.Value.ToShortDateString(), int.Parse(tVendedIni.Text), int.Parse(tVendedFin.Text)); GloblaVar.gUTIL.ATraza("btnF5_Click().- Preparada lista con datos para listar "); //GloblaVar.sQReport = "{Comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; break; case 8: //Listado de Stock por Artículos Basado en Partidas GloblaVar.sQReport = "{Comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; if (GloblaVar.gCERCLE_105 == true) { } else { GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.Stock}>0"; } GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " ISNULL({comando.FCua})"; break; case 9: //Listado de Diferencias de Stock //GloblaVar.gUTIL.SP2( dateTimePicker_Inicio.Value.Date.ToShortDateString(), dateTimePicker_Fin.Value.ToShortDateString(), 0, 0 ) ; GloblaVar.gUTIL.ATraza("btnF5_Click().- Preparada lista con datos para listar Diferencias de Stock "); break; case 11: //Listado de Ventas por Detallistas GloblaVar.sQReport = "{Comando.VelFec} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; break; case 12: //Listado de Compras por Proveedor GloblaVar.sQReport = "{Comando.comcfa} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; break; case 13: GloblaVar.sQReport = "{Comando.VelFec} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",00,00,00)"; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ProCod} IN " + tProvIni.Text + " TO " + tProvFin.Text; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; break; case 14: //Estadisticas de Compras por Proveedor_Artículo para ENDUMAR GloblaVar.sQReport = "{Comando.ComCfa} in DateTime (" + dateTimePicker_Inicio.Value.Year + "," + dateTimePicker_Inicio.Value.Month + "," + dateTimePicker_Inicio.Value.Day + ",00,00,00 )"; GloblaVar.sQReport += " to DateTime (" + dateTimePicker_Fin.Value.Year + "," + dateTimePicker_Fin.Value.Month + "," + dateTimePicker_Fin.Value.Day + ",23,59,59)"; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ProCod} IN " + tProvIni.Text + " TO " + tProvFin.Text; GloblaVar.sQReport += " AND "; GloblaVar.sQReport += " {comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; break; case 15: //Listado de Rendimiento para Valpeix GloblaVar.gUTIL.SP2(dateTimePicker_Inicio.Value.Date.ToShortDateString(), dateTimePicker_Fin.Value.ToShortDateString(), int.Parse(tVendedIni.Text), int.Parse(tVendedFin.Text)); GloblaVar.gUTIL.ATraza("btnF5_Click().- Preparada lista con datos para listar "); GloblaVar.sQReport = "{Comando.ArtCod} IN " + tArtIni.Text + " TO " + tArtFin.Text; //MessageBox.Show("HOLA"); break; } frmCR1 frmREPORT = new frmCR1(); switch (GloblaVar.TIPO_REPORT) { case 4: break; case 6: //Llamada a Rutina o Código para generar fichero Excel con el Listado try { string query = @"SELECT ArtCod as C_Art, ArtDes as Artículo, Vendedor, ProCod as C_Prov, ProNom as Proveedor, DetCod as Cod_Cli, DetNom as Detallista, convert(varchar, FVenta, 103) as F_Venta, KgsVenta as Kgs_Venta, PreVenta as Pr_Venta, PreCompra as Pr_Compra, Partida, PartAnyo as Año_Pda, ImpteVenta as Impte_Venta, ImpteCompra as Impte_Compra, Beneficio, Margen as [Margen (%)] FROM RENDIMIENTO02 ORDER BY FVenta ASC, ArtCod ASC"; DataTable dtRendimiento = new DataTable(); using (SqlCommand cmd = new SqlCommand(query, GloblaVar.gConRem)) { SqlDataAdapter da = new SqlDataAdapter(cmd); da.Fill(dtRendimiento); } ExportarExcel(dtRendimiento); } catch (Exception ex) { MessageBox.Show("Al exportar a excel se ha producido el siguiente error: \n\n" + ex.Message); } MessageBox.Show("La exportación a excel se ha realizado correctamente"); break; case 9: //Llamada a Rutina o Código para generar fichero Excel con el Listado de Diferencias de Stock string mensaje = ""; string sql = "SELECT p.Partida, p.Anyo, p.AlmMay, p.ArtCod as CodArt, p.ProCod as CodProv, p.StockInicial, p.Stock, p.FCua As Fecha_Cuadre, a.ComLpr as PCompra,(p.Stock * a.ComLpr) * -1 As [Beneficio/Perdida] "; sql += "FROM PARTIDAS p INNER JOIN [COMALB_LINEAS] a ON p.Partida=a.Partida and p.Anyo=a.anyo and p.AlmMay=a.AlmMay "; sql += "WHERE "; sql += "p.Stock<>0 "; sql += "AND p.FCua is not NULL AND (p.FCua>='" + dateTimePicker_Inicio.Text + "' AND p.FCua<='" + dateTimePicker_Fin.Text + "') "; //sql += " ORDER BY VENALB_CABE.AUX1 asc"; //string path = "C:\\CERCLE\\Excell"; string path = obtenerPath(); MessageBox.Show("Se va a generar listado excell en " + path); if (!string.IsNullOrEmpty(path)) { clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sql; excel.Path = path; excel.NombreFichero = "Diferencias_STOCK"; mensaje = excel.exportarExcel(dateTimePicker_Inicio.Value); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación a excel se ha realizado correctamente"); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } break; case 11: frmREPORT.fechaDesde = dateTimePicker_Inicio.Text; frmREPORT.fechaHasta = dateTimePicker_Fin.Text; frmREPORT.Show(); break; case 12: frmREPORT.fechaDesde = dateTimePicker_Inicio.Text; frmREPORT.fechaHasta = dateTimePicker_Fin.Text; frmREPORT.Show(); break; case 15: frmREPORT.fechaDesde = dateTimePicker_Inicio.Text; frmREPORT.fechaHasta = dateTimePicker_Fin.Text; frmREPORT.artCodDesde = tArtIni.Text; frmREPORT.artCodHasta = tArtFin.Text; frmREPORT.Show(); break; default: frmREPORT.Show(); break; } //switch (GloblaVar.TIPO_REPORT ) //if (GloblaVar.TIPO_REPORT==4) //{ // //Genera_File_FP_OMP(); //} //else //{ //frmCR1 frmREPORT = new frmCR1(); //frmREPORT.Show(); //} } // private void btnF5_Click(object sender, EventArgs e)
private void BtnExportFacturasCobrosOremape_Click(object sender, EventArgs e) { //Abrir fichero de Facturas recibido de Oremape string gIdent = this.GetType().FullName + " " + System.Reflection.MethodBase.GetCurrentMethod().Name; string linea; string Mayorista; string FechaFact; string Serie; string Factura; string Año; string DetCod; string BI; string IVA; string Req; string Importe; string Signo; string Observaciones; DateTime FechaFichero = DateTime.Now; if (openFileDialog1.ShowDialog() == System.Windows.Forms.DialogResult.OK) { //1.- LEEMOS EL FICHERO QUE NOS PASA OREMAPE, lo tenemos en sr System.IO.StreamReader sr = new System.IO.StreamReader(openFileDialog1.FileName); //2.- Borramos la tabla en la que vamos a insertar los registros int res = Funciones.EjecutaNonQuery("DELETE FROM CONTAB_FACTV_CABE", GloblaVar.gConRem); int NumFras = 0; while ((linea = sr.ReadLine()) != null) { //LEEMOS LINEA a LINEA y miramos si la longitud es >67 if (linea.Length > 67) { NumFras++; Mayorista = linea.Substring(0, 2); //linea=linea.PadLeft(linea.Length -2); FechaFact = linea.Substring(2, 8); Año = FechaFact.Substring(4, 4); FechaFact = FechaFact.Substring(0, 2) + "/" + FechaFact.Substring(2, 2) + "/" + FechaFact.Substring(4, 4); Serie = linea.Substring(10, 2); Factura = linea.Substring(12, 7); DetCod = linea.Substring(19, 5); BI = linea.Substring(24, 9) + "." + linea.Substring(33, 2); IVA = linea.Substring(35, 9) + "." + linea.Substring(44, 2); Req = linea.Substring(46, 9) + "." + linea.Substring(55, 2); Importe = linea.Substring(57, 9) + "." + linea.Substring(66, 2); Signo = linea.Substring(68, 1); Observaciones = Serie.Trim() + "" + Factura; if (Signo == "-") { BI = "-" + BI; IVA = "-" + IVA; Req = "-" + Req; Importe = "-" + Importe; } string sQ = "INSERT INTO CONTAB_FACTV_CABE ("; sQ += "Factura,Anyo,Serie,FechaEmision,DetCod,BI1,IVA1,RE1,ImpteFactura,Observaciones"; sQ += ") VALUES ("; sQ += Factura + ","; sQ += Año + ","; sQ += "'" + Serie.Trim() + "',"; sQ += "'" + FechaFact + "',"; sQ += DetCod + ","; //sQ += "'" + SubCtaCli + "',"; sQ += BI + ","; sQ += IVA + ","; sQ += Req + ","; sQ += Importe + ","; sQ += "'" + Observaciones + "'"; sQ += ")"; //INSERTAMOS LINEA A LINEA EN LA TABLA res = Funciones.EjecutaNonQuery(sQ, GloblaVar.gConRem); if (NumFras == 1) { FechaFichero = Convert.ToDateTime(FechaFact); } } } // while ((linea = sr.ReadLine()) != null) sr.Close(); //3.- YA TENEMOS LA TABLA CON LAS FACTURAS LEÍDAS. AHORA EXPORTAMOS A EXCEL LA FACTURA. string mensaje = ""; string path = obtenerPath(); if (!string.IsNullOrEmpty(path)) { string sqlFacturas = "SELECT Observaciones as [Factura], CONVERT(Date,FechaEmision,103) as Fecha, "; sqlFacturas += "'' as Column1, '430' + RIGHT('0000' + Ltrim(Rtrim(DetCod)),4) as [Cod.Det], "; sqlFacturas += "'' as Column2, '' as Column3, '' as Column4, BI1 as BI, "; //sqlFacturas += "10 as [%IVA], IVA1 as IVA, 1.4 as [%RE], RE1 as RE, "; sqlFacturas += "10 as [%IVA], IVA1 as IVA, CASE WHEN RE1=0.00 THEN null ELSE 1.4 END as [%RE], CASE WHEN RE1=0.00 THEN null ELSE RE1 END as RE, "; sqlFacturas += "'' as Column5, '' as Column6, 7000000 as SubCuenta, ImpteFactura as TOTAL "; sqlFacturas += "FROM CONTAB_FACTV_CABE "; sqlFacturas += "ORDER BY FechaEmision asc, Observaciones asc"; string sqlFacturasTotal = "SELECT SUM(ImpteFactura) "; sqlFacturasTotal += "FROM CONTAB_FACTV_CABE "; string sqlCobros = "SELECT Fecha, Cuenta, Nombre, Descripcion, Referencia, DEBE, HABER FROM ("; sqlCobros += "SELECT CONVERT(Date, FechaEmision, 103) as Fecha, "; sqlCobros += "'430' + RIGHT('0000' + Ltrim(Rtrim(DetCod)),4) as Cuenta, '' as Nombre, Observaciones as Descripcion, "; sqlCobros += "'' as Referencia, '' as DEBE, ImpteFactura as HABER, Serie "; sqlCobros += "FROM CONTAB_FACTV_CABE "; sqlCobros += "WHERE Serie<>'C' "; sqlCobros += "UNION "; sqlCobros += "SELECT CONVERT(Date, FechaEmision, 103) as Fecha, '5720025' as Cuenta, '' as Nombre, 'ABONO CREDITO' as Descripcion, "; sqlCobros += "'' as Referencia, SUM(ImpteFactura) as DEBE,'' as HABER, Serie "; sqlCobros += "FROM CONTAB_FACTV_CABE "; sqlCobros += "WHERE Serie<>'C' "; sqlCobros += "GROUP BY FechaEmision, Serie "; sqlCobros += "UNION "; sqlCobros += "SELECT CONVERT(Date, FechaEmision, 103) as Fecha, "; sqlCobros += "'430' + RIGHT('0000' + Ltrim(Rtrim(DetCod)),4) as Cuenta, '' as Nombre, Observaciones as Descripcion, "; sqlCobros += "'' as Referencia, '' as DEBE, ImpteFactura as HABER, Serie "; sqlCobros += "FROM CONTAB_FACTV_CABE "; sqlCobros += "WHERE Serie='C' "; sqlCobros += "UNION "; sqlCobros += "SELECT CONVERT(Date, FechaEmision, 103) as Fecha, '5700000' as Cuenta, '' as Nombre, 'COBRO CAJA' as Descripcion, "; sqlCobros += "'' as Referencia, SUM(ImpteFactura) as DEBE,'' as HABER, Serie "; sqlCobros += "FROM CONTAB_FACTV_CABE "; sqlCobros += "WHERE Serie='C' "; sqlCobros += "GROUP BY FechaEmision, Serie) as tabla "; sqlCobros += "ORDER BY tabla.Fecha, tabla.Serie"; clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sqlFacturas; excel.Path = path; excel.NombreFichero = "Facturas_OREMAPE"; decimal totalFacturas = Funciones.EjecutaScalar(sqlFacturasTotal, GloblaVar.gConRem) == DBNull.Value ? 0 : Convert.ToDecimal(Funciones.EjecutaScalar(sqlFacturasTotal, GloblaVar.gConRem)); mensaje = excel.exportarExcel(FechaFichero, "", totalFacturas); if (mensaje == "") { excel.Query = sqlCobros; excel.NombreFichero = "Cobros_Facturas_OREMAPE"; mensaje = excel.exportarExcel(FechaFichero); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación a excel se ha realizado correctamente"); } } else { MessageBox.Show(mensaje); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } } }
private void BtnExportCobros_Click(object sender, EventArgs e) { //Botón de exportar EXCEL COBROS FACTURAS PROPIAS string mensaje = ""; mensaje = Funciones.PreparaListado(dtpFecha.Value, dtpFechaHasta.Value, GloblaVar.gConRem); if (mensaje == "") { string sql = "SELECT Fecha, Cuenta, Nombre, Descripcion, Referencia, DEBE, HABER FROM ("; sql += "SELECT CONVERT(Date,C.Fecha,103) as Fecha, "; sql += "'430' + RIGHT('0000' + Ltrim(Rtrim(F.DetCod)),4) as Cuenta, '' as Nombre, CONVERT(VARCHAR(50), F.FacNfp) as Descripcion, "; sql += "'' as Referencia, '' as DEBE, F.FacTot as HABER, '1' as Tipo "; sql += "FROM FACTURAS as F INNER JOIN VENALB_COBROS as C ON F.IdCobro=C.IdCobro LEFT JOIN DETALLISTAS as D ON F.DetCod=D.DetCod "; sql += "WHERE C.Fecha>='" + dtpFecha.Text + "' AND C.Fecha<='" + dtpFechaHasta.Text + "' AND D.DetMay is not null "; sql += "UNION "; sql += "SELECT CONVERT(Date,C.Fecha,103) as Fecha, '5720025' as Cuenta, '' as Nombre, 'ABONO CREDITO' as Descripcion, "; sql += "'' as Referencia, SUM(F.FacTot) as DEBE,'' as HABER, '1' as Tipo "; sql += "FROM FACTURAS as F INNER JOIN VENALB_COBROS as C ON F.IdCobro=C.IdCobro LEFT JOIN DETALLISTAS as D ON F.DetCod=D.DetCod "; sql += "WHERE C.Fecha>='" + dtpFecha.Text + "' AND C.Fecha<='" + dtpFechaHasta.Text + "' AND D.DetMay is not null "; sql += "GROUP BY C.Fecha "; sql += "UNION "; sql += "SELECT CONVERT(Date,C.Fecha,103) as Fecha, "; sql += "'430' + RIGHT('0000' + Ltrim(Rtrim(F.DetCod)),4) as Cuenta, '' as Nombre, CONVERT(VARCHAR(50), F.FacNfp) as Descripcion, "; sql += "'' as Referencia, '' as DEBE, F.FacTot as HABER, '0' as Tipo "; sql += "FROM FACTURAS as F INNER JOIN VENALB_COBROS as C ON F.IdCobro=C.IdCobro LEFT JOIN DETALLISTAS as D ON F.DetCod=D.DetCod "; sql += "WHERE C.Fecha>='" + dtpFecha.Text + "' AND C.Fecha<='" + dtpFechaHasta.Text + "' AND D.DetMay is null "; sql += "UNION "; sql += "SELECT CONVERT(Date,C.Fecha,103) as Fecha, '5700000' as Cuenta, '' as Nombre, 'COBRO CAJA' as Descripcion, "; sql += "'' as Referencia, SUM(F.FacTot) as DEBE,'' as HABER, '0' as Tipo "; sql += "FROM FACTURAS as F INNER JOIN VENALB_COBROS as C ON F.IdCobro=C.IdCobro LEFT JOIN DETALLISTAS as D ON F.DetCod=D.DetCod "; sql += "WHERE C.Fecha>='" + dtpFecha.Text + "' AND C.Fecha<='" + dtpFechaHasta.Text + "' AND D.DetMay is null "; sql += "GROUP BY C.Fecha) as tabla "; sql += "ORDER BY tabla.Fecha, tabla.Tipo "; string path = obtenerPath(); if (!string.IsNullOrEmpty(path)) { clase_excel excel = new clase_excel(); excel.CnO = GloblaVar.gConRem; excel.Query = sql; excel.Path = path; excel.NombreFichero = "Cobros_Facturas_Propias"; mensaje = excel.exportarExcel(dtpFechaHasta.Value); if (mensaje != "") { MessageBox.Show(mensaje); } else { MessageBox.Show("La exportación a excel se ha realizado correctamente"); } } else { MessageBox.Show("La ubicación de los ficheros es obligatoria. Debe rellenar el campo 'ConPathExcell' de la tabla 'CONTROL"); } } else { MessageBox.Show(mensaje); } }