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 btnStartAsyncOperation_Click(object sender, EventArgs e)
{
btnStartAsyncOperation.Enabled = false;
btnCancel.Enabled = true;
//Start the async operation here
m_oWorker.RunWorkerAsync();
string mensaje = "";
//mensaje = Funciones.PreparaListado(dtpFechaDesde.Value, dtpFechaHasta.Value, GloblaVar.gConRem);
if (mensaje == "")
{
string sql = "SELECT ArtCod as A, ArtDes as F, CuentaVentas as AF ";
sql += "FROM ARTICULOS ";
sql += "ORDER BY ArtCod 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 = "ART";
//lblExcel.Visible = true;
//timer1.Start();
mensaje = excel.exportarExcelArticulos(DateTime.Now.Date);
//lblExcel.Visible = false;
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 btnExportarArticulos_Click(object sender, EventArgs e)
{
btnExportarArticulos.Enabled = false;
string mensaje = "";
mensaje = PreparaARTICULOS();
if (mensaje == "")
{
string sql = "SELECT ArtCod as A, ArtDes as F, CuentaVentas as AF, case when(TipoIva=3) then 0 else case when (TipoIVA=1) then 1 else case when (TipoIVA=2) then 2 else 3 end end end as J ";
sql += "FROM ARTICULOS ";
sql += "ORDER BY ArtCod 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 = "ART";
mensaje = excel.exportarExcelArticulos(dtpFechaHasta.Value);
if (mensaje != "")
{
MessageBox.Show(mensaje);
}
else
{
MessageBox.Show("La exportación de ARTÍCULOS 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);
}
btnExportarArticulos.Enabled = true;
}
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 btnExportarVentas_Click(object sender, EventArgs e)
{
btnExportarVentas.Enabled = false;
string mensaje = "";
mensaje = PreparaVENALB_CABE(dtpFechaDesde.Value, dtpFechaHasta.Value);
if (mensaje == "")
{
string sql = @"SELECT case when(VC.VenTve=1) then 3 else 1 end as A
,VC.VenAlb as B
,CONVERT(date,VC.VenFec) as D
,0 as E
,VC.AUX1 as F
,VC.AUX2 as I
,D.DetNom as J
,0 as P
,case when(VC.VenRec>0) then 1 else 0 end as Q
,VC.BI3 as S
,VC.BI1 as T
,VC.BI2 as U
,VC.BI3 as AT
,VC.BI1 as AU
,VC.BI2 as AV
,21.00 as AW
,10.00 as AX
,4.00 as AY
,VC.IVA3 as AZ
,VC.IVA1 as BA
,VC.IVA2 as BB
,5.20 as BC
,1.40 as BD
,0.50 as BE
,VC.Recargo3 as BF
,VC.Recargo1 as BG
,VC.Recargo2 as BH
,VC.VenTot as BK
FROM VENALB_CABE as VC INNER JOIN DETALLISTAS as D ON VC.DetCod=D.DetCod
WHERE VC.VenFec>='" + dtpFechaDesde.Text + "' and VC.VenFec<='" + dtpFechaHasta.Text + "' and VC.Anulado=0 ORDER BY VC.VenAlb 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 = "ALB";
mensaje = excel.exportarExcelVentas(dtpFechaHasta.Value);
if (mensaje != "")
{
MessageBox.Show("Error al exportar las Cabeceras de ventas: \n" + mensaje);
}
else
{
sql = @"SELECT case when(VC.VenTve=1) then 3 else 1 end as A
,VL.VelAlb as B
,VL.VelLin as C
,VL.ArtCod as D
,A.ArtDes as E
,VL.VelKil as F
,VL.VelPre as J
,VL.VelImp as K
,case when(VL.PerCentIVA=21) then 0 else case when (VL.PerCentIVA=10) then 1 else case when (VL.PerCentIVA=4) then 2 else 3 end end end as L
,0 as Z
FROM VENALB_LINEAS as VL
INNER JOIN VENALB_CABE as VC ON VL.VelAlb=VC.VenAlb AND VL.Anyo=VC.Anyo
INNER JOIN ARTICULOS as A ON VL.ArtCod=A.ArtCod
WHERE VL.VelFec>='" + dtpFechaDesde.Text + "' and VL.VelFec<='" + dtpFechaHasta.Text + "' and VC.Anulado=0 ORDER BY VL.VelAlb, VL.VelLin ASC";
excel.Query = sql;
excel.NombreFichero = "LAL";
mensaje = excel.exportarExcelVentas(dtpFechaHasta.Value);
if (mensaje != "")
{
MessageBox.Show("Error al exportar las Líneas de ventas: \n" + mensaje);
}
else
{
MessageBox.Show("La exportación de VENTAS 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);
}
btnExportarVentas.Enabled = true;
}
} //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);
}
}
