diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb index 72509a08e..8670c2847 100644 --- a/App_Code/ClsExportaciones.vb +++ b/App_Code/ClsExportaciones.vb @@ -120,7 +120,7 @@ Public Class ClsExportaciones End Sub #Region "EXPORTACIONES" - Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Integer = 1, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean + Public Function GetExportacion(Optional CveExportacion As Integer = -1, Optional CveEmpresa As Integer = -1, Optional EsExportacion As Boolean = True, Optional FechaInicio As Date = MinFecha, Optional FechaFin As Date = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Exp_ExportacionesRep") With SqlAdapter.SelectCommand.Parameters @@ -143,7 +143,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, ITN As String, Vinculacion As Boolean) As Integer + CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean, EsExportacion As Boolean) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Exp_ExportacionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -177,6 +177,7 @@ Public Class ClsExportaciones .Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero .Add("@ITN", SqlDbType.VarChar).Value = ITN .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion + .Add("@EsExportacion", SqlDbType.Bit).Value = EsExportacion .Add("@CveExportacion", SqlDbType.Int).Direction = ParameterDirection.Output End With diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 7c63cd39d..673703de3 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1284,6 +1284,7 @@ Partial Class Bancos_IE ViewState("CveCliente") = "-1" CargaProveedor(HdnCveProveedor.Value.ToEntero, "-1") + CargaCuentasDepositos() End Sub Private Sub CargaProveedor(ByVal CveProveedor As Integer, RFC As String) @@ -4098,11 +4099,17 @@ Partial Class Bancos_IE Dim dtc As DataTable = Nothing - If CveProveedor > 0 Then - dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedor) + Dim CveProveedorTemp As Integer = CveProveedor + + If DdlProveedores.SelectedValue.ToEntero > 0 Then + CveProveedorTemp = DdlProveedores.SelectedValue.ToEntero + End If + + If CveProveedorTemp > 0 Then + dtc = GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorTemp) ElseIf CveCliente > 0 Then dtc = GlobalDTCuentasDepositosClientes(UsuarioActual.CveEmpresa, CveCliente:=CveCliente) - ElseIf cvepersonal > 0 Then + ElseIf CvePersonal > 0 Then dtc = GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) End If @@ -4216,14 +4223,14 @@ Partial Class Bancos_IE ElseIf OpBanco = 3 Then If dtc.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'") + DdlCuentaDeposito.DataSource = dtc.FiltraParametros(" Estatus ='True'") DdlCuentaDeposito.DataBind() DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If - If dtc.FiltraParametros("EstatusPagoElectronicoScotia = 'True' AND Estatus ='True'").Rows.Count > 0 Then + If dtc.FiltraParametros(" Estatus ='True'").Rows.Count > 0 Then trCuentaDeposito.Visible = True - DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + 'DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) Else BtnGuardar.Enabled = False Alert("El Beneficiario no tiene una cuenta activa en Scotiabank, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) @@ -4265,6 +4272,19 @@ Partial Class Bancos_IE End If End If + + If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSSINFACT", "EGSCREDITO") Then + If DdlTipoTransaccion.SelectedValue.Contiene("9") AndAlso OpBanco = 3 Then + RBL.Items(1).Enabled = False + RBL.Items(2).Enabled = False + Else + RBL.Items(1).Enabled = True + RBL.Items(2).Enabled = True + End If + End If + + + UPPP.Update() UpGuardar.Update() UpCuentaDeposito.Update() UpDatos.Update() @@ -4500,6 +4520,7 @@ Partial Class Bancos_IE DdlProveedores_selectedindexchange(DdlProveedores, Nothing) DdlProveedores.SelectedText = RazonSocial ' BuscaCargaProveedor() + End If CveOCSolicitudAnticipo = DrOC("CveOC").ToString.ToEntero Else diff --git a/Bancos/PagoElectronico.aspx b/Bancos/PagoElectronico.aspx index 453f22d68..5bd2bf71c 100644 --- a/Bancos/PagoElectronico.aspx +++ b/Bancos/PagoElectronico.aspx @@ -60,7 +60,7 @@
-
+
@@ -79,7 +79,7 @@
-
+
@@ -127,7 +127,7 @@
-
+
@@ -178,7 +178,7 @@
-
+
diff --git a/Bancos/PagoElectronico.aspx.vb b/Bancos/PagoElectronico.aspx.vb index bde6db7ea..b058e60bb 100644 --- a/Bancos/PagoElectronico.aspx.vb +++ b/Bancos/PagoElectronico.aspx.vb @@ -277,6 +277,8 @@ Partial Class Bancos_PagoElectronico If DTPendientes IsNot Nothing AndAlso DTPendientes.Rows.Count > 0 Then CargaDatosInformativos() + Else + VistaComandoGeneracion() End If End Sub @@ -946,7 +948,7 @@ Partial Class Bancos_PagoElectronico Dim correo As String = dr("Correo").ToString.Trim If correo.Trim.Length = 0 Then - SBErrores.Append($"Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.
") + SBErrores.Append($" {nombreBen} Email no definido en fila {idx + 1}. Debe ser un correo electrónico válido.
") ErrorLayout = True End If diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index f9b41f66e..f1903a5f0 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -35,6 +35,12 @@ public partial class Export_ExpDetalle : ClsPaginas get { return (ViewState["CveExportacionDetalle"] == null) ? -1 : Convert.ToInt32(ViewState["CveExportacionDetalle"]); } set { ViewState["CveExportacionDetalle"] = value; } } + + private bool EsImportacion + { + get { return (ViewState["EsImportacion"] == null) ? false : Boolean.Parse(ViewState["EsImportacion"].ToString()); } + set { ViewState["EsImportacion"] = value; } + } #endregion @@ -42,6 +48,12 @@ public partial class Export_ExpDetalle : ClsPaginas { if (!IsPostBack) { + EsImportacion = false; + if (!string.IsNullOrEmpty(Request["Opcion"]) && Request["Opcion"].Equals("I", StringComparison.OrdinalIgnoreCase)) + { + EsImportacion = true; + } + CveExportacion = !string.IsNullOrEmpty(Request["CveExportacion"]) ? Request["CveExportacion"].ToEntero() : -1; InicializarValores(); CargaDatos(); @@ -117,7 +129,8 @@ public partial class Export_ExpDetalle : ClsPaginas { DataTable DTExportaciones = new DataTable(); ClsExportaciones Exportaciones = new ClsExportaciones(); - if (Exportaciones.GetExportacion(CveExportacion, UsuarioActual.CveEmpresa)) + bool EsExportacion = !EsImportacion; + if (Exportaciones.GetExportacion(CveExportacion, UsuarioActual.CveEmpresa, EsExportacion)) { DTExportaciones = Exportaciones.DtResultados; if (DTExportaciones.Rows.Count > 0) @@ -371,7 +384,7 @@ public partial class Export_ExpDetalle : ClsPaginas decimal DecOtros = ModExtensiones.ToDecimal(TxtDecOtros.Text); ClsExportaciones Exportaciones = new ClsExportaciones(); - + bool EsExportacion = !EsImportacion; if (CveExportacion == -1) { int ExportacionGuardada = Exportaciones.AddExportacion( @@ -404,7 +417,8 @@ public partial class Export_ExpDetalle : ClsPaginas CvePedimento, CveAgenteExtranjero, ITN, - Vinculacion + Vinculacion, + EsExportacion ); if (ExportacionGuardada != -1) { @@ -442,8 +456,10 @@ public partial class Export_ExpDetalle : ClsPaginas } //string Liga = "document.location.href=\"/Export/RepExportaciones.aspx\";"; - string Liga = $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}\";"; - Alert("La Exportación se ha agregado correctamente.", JSBtnAceptar: Liga); + string liga = EsImportacion + ? $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}&Opcion=I\";" + : $"document.location.href=\"/Export/ExpDetalle.aspx?CveExportacion={ExportacionGuardada}\";"; + Alert("La Exportación se ha agregado correctamente.", JSBtnAceptar: liga); } Exportaciones.Dispose(); } @@ -948,7 +964,9 @@ public partial class Export_ExpDetalle : ClsPaginas } string TipoCambio = ModExtensiones.ToDecimal(DTExportaciones.FiltroPrimeroValor("TipoCambio")).ToString("#,###.####"); string MedioTransporte = DTExportaciones.FiltroPrimeroValor("MedioTransporte"); + MedioTransporte = MedioTransporte != "-1" ? MedioTransporte : ""; string TipoContenedor = DTExportaciones.FiltroPrimeroValor("TipoContenedor"); + TipoContenedor = TipoContenedor != "-1" ? TipoContenedor : ""; string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario"); string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon"); @@ -976,6 +994,7 @@ public partial class Export_ExpDetalle : ClsPaginas string Patente = DTExportaciones.FiltroPrimeroValor("Patente"); string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt"); string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId"); + string Notas = DTExportaciones.FiltroPrimeroValor("Notas"); List para = new List(); para.Add(new ReportParameter("CveExportacion", CveExportacion.ToString())); @@ -1040,6 +1059,7 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("Patente", Patente)); para.Add(new ReportParameter("AgenteExt", AgenteExt)); para.Add(new ReportParameter("TaxId", TaxId)); + para.Add(new ReportParameter("Notas", Notas)); List lrds = new List(); ReportDataSource RDSExportaciones = new ReportDataSource(); @@ -1058,12 +1078,14 @@ public partial class Export_ExpDetalle : ClsPaginas DTPartidas.Columns.Add("ValorUnitarioMN", typeof(decimal)); DTPartidas.Columns["ValorUnitarioUSD"].DefaultValue = 0.0m; DTPartidas.Columns["ValorUnitarioMN"].DefaultValue = 0.0m; - DataRow RowPartida = DTPartidas.Rows[0]; - decimal cantidad = Convert.ToDecimal(RowPartida["Cantidad"]); - if (cantidad > 0) + foreach (DataRow row in DTPartidas.Rows) { - RowPartida["ValorUnitarioUSD"] = Convert.ToDecimal(RowPartida["Precio"]) / cantidad; - RowPartida["ValorUnitarioMN"] = Convert.ToDecimal(RowPartida["ValorTotalMXP"]) / cantidad; + decimal cantidad = Convert.ToDecimal(row["Cantidad"]); + if (cantidad > 0) + { + row["ValorUnitarioUSD"] = Convert.ToDecimal(row["Precio"]) / cantidad; + row["ValorUnitarioMN"] = Convert.ToDecimal(row["ValorTotalMXP"]) / cantidad; + } } ReportDataSource RDSPartidas = new ReportDataSource(); RDSPartidas.Name = "DsPartidas"; diff --git a/Export/RepExportaciones.aspx.cs b/Export/RepExportaciones.aspx.cs index 474c146de..3ee4b2c68 100644 --- a/Export/RepExportaciones.aspx.cs +++ b/Export/RepExportaciones.aspx.cs @@ -49,7 +49,7 @@ public partial class Export_RepExportaciones : ClsPaginas protected void CargaExportaciones() { ClsExportaciones Exportaciones = new ClsExportaciones(); - int EsExportacion = EsImportacion ? 0 : 1; // 0 = importación, 1 = exportación + bool EsExportacion = !EsImportacion; if (Exportaciones.GetExportacion(-1, UsuarioActual.CveEmpresa, EsExportacion)) { GVExportaciones.DataSource = Exportaciones.DtResultados;