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);
}
}