diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb index 492523b4b..c7317a75b 100644 --- a/App_Code/ClsExportaciones.vb +++ b/App_Code/ClsExportaciones.vb @@ -142,7 +142,7 @@ Public Class ClsExportaciones CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer, - CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Integer + CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Exp_ExportacionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -174,6 +174,8 @@ Public Class ClsExportaciones .Add("@Notas", SqlDbType.VarChar).Value = Notas .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento .Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero + .Add("@ITN", SqlDbType.VarChar).Value = ITN + .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion .Add("@CveExportacion", SqlDbType.Int).Direction = ParameterDirection.Output End With @@ -191,7 +193,7 @@ Public Class ClsExportaciones CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer, CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String, CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer, - CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Boolean + CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Exp_ExportacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -224,6 +226,8 @@ Public Class ClsExportaciones .Add("@Notas", SqlDbType.VarChar).Value = Notas .Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento .Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero + .Add("@ITN", SqlDbType.VarChar).Value = ITN + .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion End With Try SqlAdapter.Fill(Data) diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx index bb3d6d95d..cd4946771 100644 --- a/Export/ExpDetalle.aspx +++ b/Export/ExpDetalle.aspx @@ -174,6 +174,13 @@ +
+ +
+ + +
+
@@ -210,6 +217,13 @@ +
+ +
+ + +
+
@@ -436,72 +450,72 @@
-
-
-
- - Incrementables -
-
-
+
+
+
+ + Incrementables +
+
+
+
-
-
- -
-
-
-
- -
- - - +
+
-
- -
- - - +
+
+ +
+ + + +
-
-
- -
- - - +
+ +
+ + + +
-
-
- -
- - - +
+ +
+ + + +
-
-
- -
- - - +
+ +
+ + + +
-
-
- -
- +
+ +
+ + + +
+
+
+ +
+ +
-
@@ -521,48 +535,48 @@
- -
+ +
- -
+ +
- -
+ +
- -
+ +
- -
+ +
- -
+ +
diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index af4c7a036..895d00d9a 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -19,6 +19,7 @@ using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using ModExtensiones = Extensiones.ModExtensiones; +using Microsoft.Reporting.WebForms; public partial class Export_ExpDetalle : ClsPaginas { @@ -122,12 +123,12 @@ public partial class Export_ExpDetalle : ClsPaginas { LblExp.Text = DTExportaciones.FiltroPrimeroValor("CveExportacion"); - string CveVenta = Exportaciones.DtResultados.FiltroPrimeroValor("CveVenta"); + string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta"); if (CveVenta != "" && CveVenta != "-1") { if (DdlVentas.Items.FindByValue(CveVenta) == null) { - string Folio = Exportaciones.DtResultados.FiltroPrimeroValor("SerieFolio"); + string Folio = DTExportaciones.FiltroPrimeroValor("SerieFolio"); DdlVentas.Items.Insert(1, new ListItem(Folio, CveVenta)); } DdlVentas.SelectedValue = CveVenta; @@ -148,8 +149,10 @@ public partial class Export_ExpDetalle : ClsPaginas DdlExp.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteExportador"); DdlImp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveClienteImportador"); DdlImp.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteImportador"); + TxtITN.Text = DTExportaciones.FiltroPrimeroValor("ITN"); DdlCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveClienteConsignatario"); DdlCon.SelectedText = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); + CkbVinculacion.Checked = ModExtensiones.ToBool(DTExportaciones.FiltroPrimeroValor("Vinculacion")); DdlAgenteMex.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgente"); DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero"); @@ -172,16 +175,16 @@ public partial class Export_ExpDetalle : ClsPaginas DataTable DTGastos = Gastos.DtResultados; if (DTGastos.Rows.Count > 0) { - TxtIncFletes.Text = DTGastos.FiltroPrimeroValor("IncFletes"); - TxtIncSeguro.Text = DTGastos.FiltroPrimeroValor("IncSeguro"); - TxtIncEmbalajes.Text = DTGastos.FiltroPrimeroValor("IncEmbalajes"); - TxtIncEmbalaje.Text = DTGastos.FiltroPrimeroValor("IncEmbalaje"); - TxtIncConexos.Text = DTGastos.FiltroPrimeroValor("IncConexos"); - TxtDecFlete.Text = DTGastos.FiltroPrimeroValor("DecFlete"); - TxtDecSeguro.Text = DTGastos.FiltroPrimeroValor("DecSeguro"); - TxtDecCarga.Text = DTGastos.FiltroPrimeroValor("DecCarga"); - TxtDecDescarga.Text = DTGastos.FiltroPrimeroValor("DecDescarga"); - TxtDecOtros.Text = DTGastos.FiltroPrimeroValor("DecOtros"); + TxtIncFletes.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncFletes")).ToString("#,###.####"); + TxtIncSeguro.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncSeguro")).ToString("#,###.####"); + TxtIncEmbalajes.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalajes")).ToString("#,###.####"); + TxtIncEmbalaje.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalaje")).ToString("#,###.####"); + TxtIncConexos.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncConexos")).ToString("#,###.####"); + TxtDecFlete.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecFlete")).ToString("#,###.####"); + TxtDecSeguro.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecSeguro")).ToString("#,###.####"); + TxtDecCarga.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecCarga")).ToString("#,###.####"); + TxtDecDescarga.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecDescarga")).ToString("#,###.####"); + TxtDecOtros.Text = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecOtros")).ToString("#,###.####"); } } Gastos.Dispose(); @@ -327,6 +330,7 @@ public partial class Export_ExpDetalle : ClsPaginas return; } + string ITN = TxtITN.Text; string NumeroPedimento = TxtNumPed.Text; DateTime FechaPedimento = TxtFechaPedim.Text.ToDate(); int CveVenta = DdlVentas.Text.ToEntero(); @@ -348,6 +352,7 @@ public partial class Export_ExpDetalle : ClsPaginas int CveUsuario = UsuarioActual.CveUsuario; int CveDirExportador = DdlDirExp.Text.ToEntero(); int CveDirConsignatario = DdlDirCon.Text.ToEntero(); + bool Vinculacion = CkbVinculacion.Checked; int CveIncoterm = DdlIncoterm.Text.ToEntero(); string Notas = TxtNotas.Text; int CvePedimento = DdlClavePedimento.Text.ToEntero(); @@ -396,7 +401,9 @@ public partial class Export_ExpDetalle : ClsPaginas CveIncoterm, Notas, CvePedimento, - CveAgenteExtranjero + CveAgenteExtranjero, + ITN, + Vinculacion ); if (ExportacionGuardada != -1) { @@ -470,7 +477,9 @@ public partial class Export_ExpDetalle : ClsPaginas CveIncoterm, Notas, CvePedimento, - CveAgenteExtranjero + CveAgenteExtranjero, + ITN, + Vinculacion ); if (Continuar) { @@ -899,9 +908,143 @@ public partial class Export_ExpDetalle : ClsPaginas UpPSS.Update(); } - protected void ImprimirReporte(string Formato = "PDF") + protected void ImprimirReporte() { - FileInfo Archivo = new FileInfo(string.Format("{0}Empresas/Grales/Formatos/FacturaImportacion.mrt", UsuarioActual.Empresa.Ruta)); + //FileInfo Archivo = new FileInfo(string.Format("{0}Empresas/Grales/Formatos/FacturaImportacion.mrt", UsuarioActual.Empresa.Ruta)); + + int CveEmpresa = UsuarioActual.CveEmpresa; + DataTable DTExportaciones = new DataTable(); + ClsExportaciones Exportaciones = new ClsExportaciones(); + if (Exportaciones.GetExportacion(CveExportacion, CveEmpresa)) + { + DTExportaciones = Exportaciones.DtResultados; + if (DTExportaciones.Rows.Count > 0) + { + DataRow RowExp = DTExportaciones.Rows[0]; + string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador"); + string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador"); + string ClienteImortador = DTExportaciones.FiltroPrimeroValor("ClienteImportador"); + string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp"); + string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio"); + string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento"); + string FechaFact = RowExp["FechaFact"] != DBNull.Value ? Convert.ToDateTime(RowExp["FechaFact"]).ToString("dd/MM/yyyy") : ""; + string TipoCambio = ModExtensiones.ToDecimal(DTExportaciones.FiltroPrimeroValor("TipoCambio")).ToString("#,###.####"); + string MedioTransporte = DTExportaciones.FiltroPrimeroValor("MedioTransporte"); + string TipoContenedor = DTExportaciones.FiltroPrimeroValor("TipoContenedor"); + string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); + string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario"); + string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon"); + + decimal IncFletes = 0.00m; + decimal IncSeguro = 0.00m; + decimal IncEmbalajes = 0.00m; + decimal IncEmbalaje = 0.00m; + decimal IncConexos = 0.00m; + decimal DecFlete = 0.00m; + decimal DecSeguro = 0.00m; + decimal DecCarga = 0.00m; + decimal DecDescarga = 0.00m; + decimal DecOtros = 0.00m; + decimal TotalInc = 0.00m; + decimal TotalDec = 0.00m; + + string ContenedorPlaca = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca"); + string Proveedor = DTExportaciones.FiltroPrimeroValor("Proveedor"); + string SCAC = DTExportaciones.FiltroPrimeroValor("SCAC"); + string CAAT = DTExportaciones.FiltroPrimeroValor("CAAT"); + string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion"); + string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm"); + string CedulaAgente = DTExportaciones.FiltroPrimeroValor("CedulaAgente"); + + List para = new List(); + para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString())); + para.Add(new ReportParameter("ClienteExportador", ClienteExportador)); + para.Add(new ReportParameter("DirExportador", DirExportador)); + para.Add(new ReportParameter("ClienteImportador", ClienteImortador)); + para.Add(new ReportParameter("RFCImp", RFCImp)); + para.Add(new ReportParameter("NumFactura", NumFactura)); + para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento)); + para.Add(new ReportParameter("FechaFact", FechaFact)); + para.Add(new ReportParameter("TipoCambio", TipoCambio)); + para.Add(new ReportParameter("MedioTransporte", MedioTransporte)); + para.Add(new ReportParameter("TipoContenedor", TipoContenedor)); + para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario)); + para.Add(new ReportParameter("DirConsignatario", DirConsignatario)); + para.Add(new ReportParameter("RFCCon", RFCCon)); + + ClsExportaciones Gastos = new ClsExportaciones(); + if (Gastos.GetGastos(CveExportacion)) + { + DataTable DTGastos = Gastos.DtResultados; + if (DTGastos.Rows.Count > 0) + { + IncFletes = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncFletes")); + IncSeguro = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncSeguro")); + IncEmbalajes = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalajes")); + IncEmbalaje = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncEmbalaje")); + IncConexos = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("IncConexos")); + DecFlete = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecFlete")); + DecSeguro = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecSeguro")); + DecCarga = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecCarga")); + DecDescarga = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecDescarga")); + DecOtros = ModExtensiones.ToDecimal(DTGastos.FiltroPrimeroValor("DecOtros")); + TotalInc = IncFletes + IncSeguro + IncEmbalajes + IncEmbalaje + IncConexos; + TotalDec = DecFlete + DecSeguro + DecCarga + DecDescarga + DecOtros; + } + } + Gastos.Dispose(); + + para.Add(new ReportParameter("IncFletes", IncFletes.ToString("#,###.####"))); + para.Add(new ReportParameter("IncSeguro", IncSeguro.ToString("#,###.####"))); + para.Add(new ReportParameter("IncEmbalajes", IncEmbalajes.ToString("#,###.####"))); + para.Add(new ReportParameter("IncEmbalaje", IncEmbalaje.ToString("#,###.####"))); + para.Add(new ReportParameter("IncConexos", IncConexos.ToString("#,###.####"))); + para.Add(new ReportParameter("TotalInc", TotalInc.ToString("#,###.####"))); + para.Add(new ReportParameter("DecFlete", DecFlete.ToString("#,###.####"))); + para.Add(new ReportParameter("DecSeguro", DecSeguro.ToString("#,###.####"))); + para.Add(new ReportParameter("DecCarga", DecCarga.ToString("#,###.####"))); + para.Add(new ReportParameter("DecDescarga", DecDescarga.ToString("#,###.####"))); + para.Add(new ReportParameter("DecOtros", DecOtros.ToString("#,###.####"))); + para.Add(new ReportParameter("TotalDec", TotalDec.ToString("#,###.####"))); + + para.Add(new ReportParameter("ContenedorPlaca", ContenedorPlaca)); + para.Add(new ReportParameter("Proveedor", Proveedor)); + para.Add(new ReportParameter("SCAC", SCAC)); + para.Add(new ReportParameter("CAAT", CAAT)); + para.Add(new ReportParameter("ClaveAduana", ClaveAduana)); + para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm)); + para.Add(new ReportParameter("CedulaAgente", CedulaAgente)); + + + List lrds = new List(); + ReportDataSource rds = new ReportDataSource(); + rds.Name = "DsExportaciones"; + rds.Value = DTExportaciones; + lrds.Add(rds); + + string NombreArchivo = $"Exportacion_{CveExportacion}"; + string CveVenta = DTExportaciones.FiltroPrimeroValor("CveVenta"); ; + if (CveVenta != "" && CveVenta != "-1") + { + NombreArchivo = NumFactura; + } + + string Formato = "FormatoExportacion.mrt"; + para.Add(new ReportParameter("Formato", "PDF")); + string Ruta = ModExtensiones.DirectorioBaseEmpresas + $@"Empresas\{UsuarioActual.CveEmpresa}\Formatos\{Formato}"; + + var bytes = StreamBytesStimul("Facturas", Ruta, lrds, para, NombreArchivo: NombreArchivo, Formato: "PDF", NombreDataSource: "Datos"); + + string Extension = "pdf"; + ImprimirbytesPDF(bytes, NombreArchivo, Formato, Content_Disposition: "attachment", Extension: Extension); + Ruta.GuardaLogAD(); + } + else + { + Alert("No se encontró la exportación", ModExtensiones.TipoMensaje.MsgAdvertencia); + } + } + Exportaciones.Dispose(); } protected void LBImprimir_Click(object sender, EventArgs e) {