diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 7c11a3d3b..5cfe5cc22 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -293,7 +293,7 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, - Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1) As Boolean + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1, Optional CveActivoFijo As Integer = -1, Optional ImporteME As Decimal = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") @@ -319,6 +319,7 @@ Public Class ClsContabilidad .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@ImporteME", SqlDbType.Money).Value = ImporteME.RoundSQL(3) End With Try diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb index 45ffee442..ea59fddc9 100644 --- a/App_Code/ClsExportaciones.vb +++ b/App_Code/ClsExportaciones.vb @@ -143,9 +143,10 @@ Public Class ClsExportaciones Public Function AddExportacion(CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal, TipoExportacion As Integer, CveExportacionEstatus As Integer, 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, EsExportacion As Boolean) As Integer + ClaveAduana As Integer, DescripcionContenedor As String, 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, + CveDirImportador As Integer, CveDirConsignatario 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 @@ -161,6 +162,7 @@ Public Class ClsExportaciones .Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario .Add("@CveAgente", SqlDbType.Int).Value = CveAgente .Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana + .Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte .Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor @@ -173,6 +175,7 @@ Public Class ClsExportaciones .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador + .Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador .Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm .Add("@Notas", SqlDbType.VarChar).Value = Notas @@ -196,9 +199,10 @@ Public Class ClsExportaciones Public Function UpdateExportacion(CveExportacion As Integer, CveSubProyecto As Integer, NumeroPedimento As String, FechaPedimento As Date, CveVenta As Integer, TipoCambio As Decimal, TipoExportacion As Integer, CveExportacionEstatus As Integer, 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 Boolean + CveAgente As Integer, ClaveAduana As Integer, DescripcionContenedor As String, 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, CveDirImportador As Integer, CveDirConsignatario As Integer, 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 @@ -215,6 +219,7 @@ Public Class ClsExportaciones .Add("@CveClienteConsignatario", SqlDbType.Int).Value = CveClienteConsignatario .Add("@CveAgente", SqlDbType.Int).Value = CveAgente .Add("@ClaveAduana", SqlDbType.Int).Value = ClaveAduana + .Add("@DescripcionContenedor", SqlDbType.VarChar).Value = DescripcionContenedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@MedioTransporte", SqlDbType.Int).Value = MedioTransporte .Add("@TipoContenedor", SqlDbType.Int).Value = TipoContenedor @@ -227,6 +232,7 @@ Public Class ClsExportaciones .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveDirExportador", SqlDbType.Int).Value = CveDirExportador + .Add("@CveDirImportador", SqlDbType.Int).Value = CveDirImportador .Add("@CveDirConsignatario", SqlDbType.Int).Value = CveDirConsignatario .Add("@CveIncoterm", SqlDbType.Int).Value = CveIncoterm .Add("@Notas", SqlDbType.VarChar).Value = Notas diff --git a/Bancos/PagoAcreedor.aspx.cs b/Bancos/PagoAcreedor.aspx.cs index 9643bbd97..6e6eed7ae 100644 --- a/Bancos/PagoAcreedor.aspx.cs +++ b/Bancos/PagoAcreedor.aspx.cs @@ -242,11 +242,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero(), DdlTipoTransaccion.SelectedValue.ToEntero(), TxtFechaDocumento.Text.Trim().ToDate(), TxtFolio.Text.Trim(), DdlProveedores.SelectedText.ToString(), ImporteBanco.ToString().ToDouble(), CveMonedaPago, TCPago.ToString().ToDouble(), TxtObservaciones.Text.Trim(), "", ChkAbonoCuenta.Checked, false, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); - - if (CveIE > 0) { - decimal Importe; decimal ImporteMN; decimal ImporteComision; @@ -286,6 +283,7 @@ public partial class Bancos_PagoAcreedor : ClsPaginas if (tCveMoneda > 1 && gvr.DataKey("FechaDocumento").ToDate() < TxtFechaDocumento.Text.ToDate().FirstDayOfMonth()) { TC = get_GlobalTipoCambio(TxtFechaDocumento.Text.ToDate().AddMonths(-1).LastDayOfMonth()).ToDecimal();//obtengo el TC del mes anterior del pago + CveConceptoContablePago = 384; } ImporteBancosMN = (Importe * TCPago).RoundSQL(); ImporteAcreedorMN = (Importe * TC).RoundSQL(); @@ -323,6 +321,8 @@ public partial class Bancos_PagoAcreedor : ClsPaginas ImporteComision = ImporteComision.RoundSQL(); AcumImporteMN += ImporteMN; + if (tCveMoneda > 1 ) { CveConceptoContablePago = 384; } + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, false, Importe, ImporteMN, CveConceptoContablePago, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedores.SelectedValue.ToEntero(), CveIEDevolucion: gvr.DataKey("CveIE").ToEntero(), TipoCambio: TC, TipoCambioPago: TCPago, CveSubProyecto: DdlSubProyectoPago.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de pago acreedor"; @@ -619,10 +619,9 @@ public partial class Bancos_PagoAcreedor : ClsPaginas MsgError = "No se pudo insertar concepto de bancos"; } - if (CveMoneda != 1) { - if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, CveConceptoContablePrestamo, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) + if (!ObjMov.AddPrePolizasDetalle(CvePrePoliza, true, Importe, ImporteMN, 383, Ref, Conc, CveIE: CveIE, CveProveedor: DdlProveedorPrestamo.SelectedValue.ToEntero(), TipoCambio: TC, TipoCambioPago: TC, CveSubProyecto: DdlSubProyecto.SelectedValue.ToEntero())) { MsgError = "No se pudo insertar concepto de acreedor"; } diff --git a/Contabilidad/ContabilidadElectronica.aspx.vb b/Contabilidad/ContabilidadElectronica.aspx.vb index e63a0d6b2..b20d47dcd 100644 --- a/Contabilidad/ContabilidadElectronica.aspx.vb +++ b/Contabilidad/ContabilidadElectronica.aspx.vb @@ -186,7 +186,7 @@ Partial Class Contabilidad_ContabilidadElectronica Dim Archivopfx As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX }" Dim Clavepfx As String = UsuarioActual.Empresa.FielPassword - Dim xsltPath As String + Dim xsltPath As String = "" Select Case Opcion Case 1 xsltPath = $"{AppDomain.CurrentDomain.BaseDirectory}Temp\CatalogoCuentas_1_3.xslt" @@ -265,7 +265,7 @@ Partial Class Contabilidad_ContabilidadElectronica Dim DtCuentas As New DataTable If UsuarioActual.Empresa.TipoContabilidad = 1 Then Dim objconta As New ClsContabilidad - If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then + If objconta.GetBalanzaComprobacion(FechaI, FechaF, 5, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then DtCuentas = objconta.DtResultados End If objconta.Dispose() diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 2f2481421..d5d511945 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1173,33 +1173,44 @@ Partial Class ContabilidadC_RegPrePolizaS If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then If CBool(row.DataKey("Modificado")) Then contador = contador + 1 + Dim tImporteME As Decimal = 0 + If CBool(row.DataKey("EsMonedaExtranjera")) Then tImporteME = row.DataKey("ImporteME").ToDecimal Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) - If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then - Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) - CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"), - row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "", - False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveIEAgregado < 0 Then - 'MsgError = "No se pudo registrar movimiento bancario" + If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then + Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL) + Dim tCveMoneda As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveMoneda", $"CveCuenta = {row.DataKey("ContadoCuenta")}").ToEntero + CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, row.DataKey("ContadoNumeroFolio"), + row.DataKey("ContadoBeneficiario"), ImporteIE, tCveMoneda, row.DataKey("TC").ToDecimal, row.DataKey("ContadoObservaciones"), "", + False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveIEAgregado < 0 Then + 'MsgError = "No se pudo registrar movimiento bancario" + OcurrioError = True + Exit For + End If + End If + If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, + -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True), + If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), + CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, + CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveCompra:=row.DataKey("CveCompra").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, + CveVenta:=row.DataKey("CveVenta").ToEntero, + CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, + CvePersonal:=row.DataKey("CvePersonal").ToEntero, + Referencia:=row.FCLiteral("TxtRef").Text, + TipoCambio:=row.DataKey("TC").ToDecimal, + CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero, + CveCuenta:=row.DataKey("CveCuenta").ToEntero, + ImporteME:=tImporteME, + CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then OcurrioError = True Exit For End If End If - If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, - -1, If(row.DataKey("Cargo").ToDecimal <> 0, False, True), - If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), - CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, - CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, - TipoCambio:=row.DataKey("TC").ToDecimal, CveActivoFijo:=row.DataKey("CveActivoFijo").ToEntero, - CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then - OcurrioError = True - Exit For - End If - End If - Else + Else contador = contador + 1 Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) diff --git a/Contabilidad/RepBalanzaComprobacion.aspx b/Contabilidad/RepBalanzaComprobacion.aspx index 8cedf3845..616f23e5e 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx +++ b/Contabilidad/RepBalanzaComprobacion.aspx @@ -136,15 +136,10 @@ - -
- - -
- + +
" style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
@@ -153,27 +148,25 @@ + runat="server" GridLines="None" EmptyDataText="No se encontraron cuentas con los parametros establecidos." AutoGenerateColumns="False" OnRowDataBound="GvDatos_RowDataBound"> - + - + - - + - - + - + @@ -186,23 +179,23 @@
- + - + - + - + - + - + - + @@ -218,13 +211,13 @@ - + - + - + diff --git a/Contabilidad/RepBalanzaComprobacion.aspx.vb b/Contabilidad/RepBalanzaComprobacion.aspx.vb index 59c8f5fb0..a545361c5 100644 --- a/Contabilidad/RepBalanzaComprobacion.aspx.vb +++ b/Contabilidad/RepBalanzaComprobacion.aspx.vb @@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion RegistraScript("Enable();") End Sub - Protected Sub GvIngresos_RowDataBound(sender As Object, e As GridViewRowEventArgs) + Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("CtaMayor") = "1" OrElse e.Row.DBCampo("CtaMayor") = "3" OrElse e.Row.DBCampo("CtaMayor") = "4" Then @@ -189,9 +189,11 @@ Partial Class Contabilidad2_RepBalanzaComprobacion 'Acomoda Deudor y Acreedor If e.Row.DBCampo("CveTipo") = "0" Then + 'e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left e.Row.FCLabel("LbSaldoInicial").Text = String.Format("{0} ", e.Row.DBCampo("SaldoInicial").FormatoNumero) - e.Row.FCLabel("LbSaldoInicial").Style.Remove("padding-right") - e.Row.FCLabel("LbSaldoActual").Text = " " + e.Row.FCLabel("LbSaldoInicial").Style.Add("padding-right", "65px") + e.Row.FCLabel("LbSaldoActual").Text = " " + e.Row.FCLabel("LbSaldoActual").Style.Add("padding-right", "65px") End If 'Colorea NEGATIVOS diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx index d2ea20d0f..ac4590e6d 100644 --- a/Export/ExpDetalle.aspx +++ b/Export/ExpDetalle.aspx @@ -25,6 +25,8 @@
+ +
@@ -213,6 +215,14 @@
+
+ +
+ + + +
+
@@ -344,8 +354,9 @@
-
- +
+ +
@@ -655,7 +666,7 @@ - + diff --git a/Export/ExpDetalle.aspx.cs b/Export/ExpDetalle.aspx.cs index 4964c8da0..995c5e416 100644 --- a/Export/ExpDetalle.aspx.cs +++ b/Export/ExpDetalle.aspx.cs @@ -87,7 +87,6 @@ public partial class Export_ExpDetalle : ClsPaginas // Factura ClsVentas Ventas = new ClsVentas(); - // El problema es que solo se obtienen los registros donde CveUsuarioConsulta = Sis_UsuariosSubProyectos.CveUsuario en la BD if (Ventas.GetVentas(CveEmpresa, "-1", "-1", -1, "-1", -1, -1, -1, -1, DateTime.Today.AddMonths(-1).ToString(), ModExtensiones.MaxFecha.ToString(), "-1", CveUsuarioConsulta: CveUsuario)) { DdlVentas.Items.Clear(); @@ -192,6 +191,7 @@ public partial class Export_ExpDetalle : ClsPaginas DdlAgenteExt.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveAgenteExtranjero"); DdlClaveAduana.SelectedValue = DTExportaciones.FiltroPrimeroValor("ClaveAduana"); + TxtDescContenedor.Text = DTExportaciones.FiltroPrimeroValor("DescripcionContenedor"); DdlCompTransportista.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveProveedor"); DdlCompTransportista.SelectedText = DTExportaciones.FiltroPrimeroValor("Proveedor"); TxtPlaca.Text = DTExportaciones.FiltroPrimeroValor("ContenedorPlaca"); @@ -227,6 +227,7 @@ public partial class Export_ExpDetalle : ClsPaginas ActualizarValores(); // Se actualizan los valores que dependen de otros campos DdlDirExp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirExportador"); // Seleccionar las Dir DESPUÉS de llenar el dropdown + DdlDirImp.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirImportador"); DdlDirCon.SelectedValue = DTExportaciones.FiltroPrimeroValor("CveDirConsignatario"); CargarPartidas(); @@ -292,6 +293,23 @@ public partial class Export_ExpDetalle : ClsPaginas } } + // Clave Dir. Importador + string CveImportador = DdlImp.SelectedValue; + if (CveImportador != "" && CveImportador != "-1") + { + string CveDirImp = DdlDirImp.Text; + DdlDirImp.Items.Clear(); + DdlDirImp.DataSource = get_GlobalDTProveedorSucursales(CveImportador.ToEntero(), CveEmpresa); + DdlDirImp.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlDirImp.DataBind(); + if (CveDirImp != "" && CveDirImp != "-1") + { + ListItem ItemDirImp = DdlDirImp.Items.FindByValue(CveDirImp); + if (ItemDirImp != null) + DdlDirImp.SelectedValue = CveDirImp; + } + } + // Clave Dir. Consignatario string CveConsignatario = DdlCon.SelectedValue; if (CveConsignatario != "" && CveConsignatario != "-1") @@ -367,6 +385,7 @@ public partial class Export_ExpDetalle : ClsPaginas string ITN = TxtITN.Text; int CveSubProyecto = DdlSubProyecto.Text.ToEntero(); string NumeroPedimento = TxtNumPed.Text; + NumeroPedimento = NumeroPedimento == "__--__--____--_______" ? "" : NumeroPedimento; DateTime FechaPedimento = TxtFechaPedim.Text.ToDate(); int CveVenta = DdlVentas.Text.ToEntero(); decimal TipoCambio = ModExtensiones.ToDecimal(TxtTipoCambio.Text); @@ -374,6 +393,7 @@ public partial class Export_ExpDetalle : ClsPaginas int CveExportacionEstatus = DdlExpEstatus.Text.ToEntero(); int CveAgente = DdlAgenteMex.Text.ToEntero(); int ClaveAduana = DdlClaveAduana.Text.ToEntero(); + string DescripcionContenedor = TxtDescContenedor.Text; int CveProveedor = DdlCompTransportista.SelectedValue.ToEntero(); int MedioTransporte = DdlMedioTran.Text.ToEntero(); int TipoContenedor = DdlTipoContenedor.Text.ToEntero(); @@ -386,6 +406,7 @@ public partial class Export_ExpDetalle : ClsPaginas int CveEmpresa = UsuarioActual.CveEmpresa; int CveUsuario = UsuarioActual.CveUsuario; int CveDirExportador = DdlDirExp.Text.ToEntero(); + int CveDirImportador = DdlDirImp.Text.ToEntero(); int CveDirConsignatario = DdlDirCon.Text.ToEntero(); bool Vinculacion = CkbVinculacion.Checked; int CveIncoterm = DdlIncoterm.Text.ToEntero(); @@ -421,6 +442,7 @@ public partial class Export_ExpDetalle : ClsPaginas CveClienteConsignatario.ToEntero(), CveAgente, ClaveAduana, + DescripcionContenedor, CveProveedor, MedioTransporte, TipoContenedor, @@ -433,6 +455,7 @@ public partial class Export_ExpDetalle : ClsPaginas CveEmpresa, CveUsuario, CveDirExportador, + CveDirImportador, CveDirConsignatario, CveIncoterm, Notas, @@ -501,6 +524,7 @@ public partial class Export_ExpDetalle : ClsPaginas CveClienteConsignatario.ToEntero(), CveAgente, ClaveAduana, + DescripcionContenedor, CveProveedor, MedioTransporte, TipoContenedor, @@ -513,6 +537,7 @@ public partial class Export_ExpDetalle : ClsPaginas CveEmpresa, CveUsuario, CveDirExportador, + CveDirImportador, CveDirConsignatario, CveIncoterm, Notas, @@ -794,7 +819,26 @@ public partial class Export_ExpDetalle : ClsPaginas string FraccionArancelaria = ""; string UnidadAduana = ""; - string CveFraccionArancelaria = get_GlobalDTPS(CveEmpresa, CvePS).FiltroPrimeroValor("CveFraccionArancelaria"); + DataTable DTPS = get_GlobalDTPS(CveEmpresa, CvePS); + string IVA = DTPS.FiltroPrimeroValor("IVA"); + if (IVA == "-1") + { + if (DdlSubProyecto.Text != "-1") + { + DataTable DTSubProyectos = get_GlobalDTSubProyectosUsuarios(CveUsuario, -1, CveEmpresa, DdlSubProyecto.Text.ToEntero()); + IVA = DTSubProyectos.FiltroPrimeroValor("IVA"); + } + else + { + IVA = ""; + } + } + if (IVA != "") + { + decimal iva_decimal = ModExtensiones.ToDecimal(IVA); + IVA = iva_decimal.ToString("N2"); + } + string CveFraccionArancelaria = DTPS.FiltroPrimeroValor("CveFraccionArancelaria"); if (CveFraccionArancelaria != "" && GlobalDTFraccionArancelaria.Any()) { DataTable DTFraccArancelaria = GlobalDTFraccionArancelaria.CopyToDataTable(); @@ -814,6 +858,7 @@ public partial class Export_ExpDetalle : ClsPaginas PartidaRow["ClaveSATPais"] = ClaveSATPais; PartidaRow["Precio"] = Precio; PartidaRow["ValorTotalMXP"] = ValorTotalMXP; + PartidaRow["IVA"] = IVA; PartidaRow["Cantidad"] = Cantidad; PartidaRow["PesoUnitario"] = PesoUnitario; PartidaRow["PesoBruto"] = PesoBruto; @@ -837,6 +882,7 @@ public partial class Export_ExpDetalle : ClsPaginas PartidaRow["ClaveSATPais"] = ClaveSATPais; PartidaRow["Precio"] = Precio; PartidaRow["ValorTotalMXP"] = ValorTotalMXP; + PartidaRow["IVA"] = IVA; PartidaRow["Cantidad"] = Cantidad; PartidaRow["PesoUnitario"] = PesoUnitario; PartidaRow["PesoBruto"] = PesoBruto; @@ -879,6 +925,7 @@ public partial class Export_ExpDetalle : ClsPaginas DTTemp.Columns.Add("ClaveSATPais", typeof(string)); DTTemp.Columns.Add("Precio", typeof(decimal)); DTTemp.Columns.Add("ValorTotalMXP", typeof(decimal)); + DTTemp.Columns.Add("IVA", typeof(string)); DTTemp.Columns.Add("Cantidad", typeof(decimal)); DTTemp.Columns.Add("PesoUnitario", typeof(decimal)); DTTemp.Columns.Add("PesoBruto", typeof(decimal)); @@ -963,8 +1010,9 @@ public partial class Export_ExpDetalle : ClsPaginas DataRow RowExp = DTExportaciones.Rows[0]; string ClienteExportador = DTExportaciones.FiltroPrimeroValor("ClienteExportador"); string DirExportador = DTExportaciones.FiltroPrimeroValor("DirExportador"); - string ClienteImortador = DTExportaciones.FiltroPrimeroValor("ClienteImportador"); + string ClienteImportador = DTExportaciones.FiltroPrimeroValor("ClienteImportador"); string RFCImp = DTExportaciones.FiltroPrimeroValor("RFCImp"); + string IMMEXimp = DTExportaciones.FiltroPrimeroValor("IMMEXimp"); string NumFactura = DTExportaciones.FiltroPrimeroValor("SerieFolio"); string ClaveSATPedimento = DTExportaciones.FiltroPrimeroValor("ClaveSATPedimento"); string ITN = DTExportaciones.FiltroPrimeroValor("ITN"); @@ -993,6 +1041,7 @@ public partial class Export_ExpDetalle : ClsPaginas string ClienteConsignatario = DTExportaciones.FiltroPrimeroValor("ClienteConsignatario"); string DirConsignatario = DTExportaciones.FiltroPrimeroValor("DirConsignatario"); string RFCCon = DTExportaciones.FiltroPrimeroValor("RFCCon"); + string IMMEXcon = DTExportaciones.FiltroPrimeroValor("IMMEXcon"); decimal IncFletes = 0.00m; decimal IncSeguro = 0.00m; @@ -1014,6 +1063,7 @@ public partial class Export_ExpDetalle : ClsPaginas string ClaveAduana = DTExportaciones.FiltroPrimeroValor("ClaveSATAduanaSeccionDescripcion"); ClaveAduana = ClaveAduana != " - - " ? ClaveAduana : ""; string ClaveSATIncoterm = DTExportaciones.FiltroPrimeroValor("ClaveSATIncoterm"); + string RFCAgente = DTExportaciones.FiltroPrimeroValor("RFCAgente"); string Patente = DTExportaciones.FiltroPrimeroValor("Patente"); string AgenteExt = DTExportaciones.FiltroPrimeroValor("AgenteExt"); string TaxId = DTExportaciones.FiltroPrimeroValor("TaxId"); @@ -1023,8 +1073,9 @@ public partial class Export_ExpDetalle : ClsPaginas 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("ClienteImportador", ClienteImportador)); para.Add(new ReportParameter("RFCImp", RFCImp)); + para.Add(new ReportParameter("IMMEXimp", IMMEXimp)); para.Add(new ReportParameter("NumFactura", NumFactura)); para.Add(new ReportParameter("ClaveSATPedimento", ClaveSATPedimento)); para.Add(new ReportParameter("ITN", ITN)); @@ -1037,6 +1088,7 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("ClienteConsignatario", ClienteConsignatario)); para.Add(new ReportParameter("DirConsignatario", DirConsignatario)); para.Add(new ReportParameter("RFCCon", RFCCon)); + para.Add(new ReportParameter("IMMEXcon", IMMEXcon)); ClsExportaciones Gastos = new ClsExportaciones(); if (Gastos.GetGastos(CveExportacion)) @@ -1079,6 +1131,7 @@ public partial class Export_ExpDetalle : ClsPaginas para.Add(new ReportParameter("CAAT", CAAT)); para.Add(new ReportParameter("ClaveAduana", ClaveAduana)); para.Add(new ReportParameter("ClaveSATIncoterm", ClaveSATIncoterm)); + para.Add(new ReportParameter("RFCAgente", RFCAgente)); para.Add(new ReportParameter("Patente", Patente)); para.Add(new ReportParameter("AgenteExt", AgenteExt)); para.Add(new ReportParameter("TaxId", TaxId)); diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index a15de8001..90526571d 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -143,12 +143,12 @@ Partial Class Inicio If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer() MuestraAniversarioLaboral() If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso - (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then + (UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then divsms1.Visible = True txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString - If UsuarioActual.CveUsuario.Contiene(3964, 4165) Then 'diego de la concha + If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha DdlSMSOpciones.SelectedValue = "2" DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ") DdlSMSVendedores.DataBind() diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 3564233e4..35c7a90ed 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -128,7 +128,17 @@ Partial Class Inventarios_EntregaAlmacen End Set End Property - + Private Property SeleccionLoteCaducidadCombo As Boolean + Get + If ViewState("SeleccionLoteCaducidadCombo") Is Nothing Then + ViewState("SeleccionLoteCaducidadCombo") = False + End If + Return CType(ViewState("SeleccionLoteCaducidadCombo"), Boolean) + End Get + Set(value As Boolean) + ViewState("SeleccionLoteCaducidadCombo") = value + End Set + End Property Private Property TipoEstatus As Integer Get @@ -631,18 +641,13 @@ Partial Class Inventarios_EntregaAlmacen TipoEntrega = 1 BtnGuardar.Visible = True - Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)" - If UsuarioActual.CveSubProyecto = 8804 Then - StrAlmacenes = "CveTipoAlmacen IN (1,2,12)" - End If - + Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,4, 26)" Dim ObjInventario As New ClsInventarios If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then Dim CveVentaPadre As Integer = -1 - ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta) ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta) If ArchivoBitacora <> "" Then @@ -902,6 +907,11 @@ Partial Class Inventarios_EntregaAlmacen Case Else Filtro = "CveConcepto = 9" End Select + 'condicion especial cuando es tipo uso de material + 'CveTipoVenta + If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso CveTipoVenta.Contiene(5, 6) AndAlso TipoDocto = "Ped" Then + Filtro = "CveConcepto = 8" 'salida del almacen de consigna + End If If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS) @@ -1064,8 +1074,6 @@ Partial Class Inventarios_EntregaAlmacen Private Sub CargaGvDatos(Optional RecargaVenta As Boolean = True) If DtDatos IsNot Nothing Then - - Dim AplicaSeccion, AplicaLote, AplicaCaducidad, AplicaSerie As Boolean If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then AplicaSerie = CBool(DtDatos.MAX("AplicaSerie")) @@ -1079,6 +1087,7 @@ Partial Class Inventarios_EntregaAlmacen If AplicaCaducidad Then GvDatos.Columns(10).Visible = True If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + SeleccionLoteCaducidadCombo = True GvDatos.Columns(8).Visible = True GvDatos.Columns(9).Visible = False GvDatos.Columns(10).Visible = False @@ -1285,7 +1294,7 @@ Partial Class Inventarios_EntregaAlmacen If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then Dim ValorAsignado As String = "" Dim DtDatosDevolucion As DataTable = Nothing - If GvDatos.Columns(8).Visible AndAlso EsDevolucionVenta = 1 Then + If SeleccionLoteCaducidadCombo AndAlso EsDevolucionVenta = 1 Then ValorAsignado = $"{e.Row.DBCampo("Lote").ToString}|{e.Row.DBCampo("FechaCaducidad").ToDate.ToString("dd/MM/yyyy")}" DtDatosDevolucion = DtDatos.Copy() End If @@ -1308,8 +1317,6 @@ Partial Class Inventarios_EntregaAlmacen Dim Lote As String = ArrayCaducidad(0) Dim FechaCaducidad As String = ArrayCaducidad(1) - - If AplicaLote Then GvRow.FCTextBox("TxtLote").Text = Lote End If @@ -1317,7 +1324,6 @@ Partial Class Inventarios_EntregaAlmacen If AplicaCaducidad Then GvRow.FCTextBox("TxtCaducidad").Text = FechaCaducidad End If - UpDatos.Update() End Sub @@ -1347,7 +1353,6 @@ Partial Class Inventarios_EntregaAlmacen ObjInventarios.Dispose() End If - If Not String.IsNullOrEmpty(ValorAsignado) Then DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado) End If @@ -1867,6 +1872,15 @@ Partial Class Inventarios_EntregaAlmacen TdSeriePS.Visible = False Dim Existe As Boolean = False Dim PSTemp As String = "" + 'validación de impresión con CódigoQR, ej. ?CvePS=711820&Lote=220078&Fecha=04/07/2027 + If TxtCodigoPS.Text.Trim.Contains("?CvePS") Then + Dim query As String = TxtCodigoPS.Text.Trim '"?CvePS=711820&Lote=220078&Fecha=04/07/2027" + Dim parsedQuery = HttpUtility.ParseQueryString(Query) + + Dim tCvePS As String = parsedQuery("CvePS") + Dim tLote As String = parsedQuery("Lote") + Dim tFecha As String = parsedQuery("Fecha") + End If For Each Gvr As GridViewRow In GvDatos.Rows If Gvr.DataKey("CodigoBarras") = TxtCodigoPS.Text.Trim Then @@ -2054,7 +2068,7 @@ Partial Class Inventarios_EntregaAlmacen End If If CBool(Gvr.DataKey("AplicaCaducidad")) Then - If GvDatos.Columns(8).Visible Then + If SeleccionLoteCaducidadCombo Then If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then ValidaCaducidad = True End If @@ -2066,7 +2080,7 @@ Partial Class Inventarios_EntregaAlmacen End If If CBool(Gvr.DataKey("AplicaLote")) Then - If GvDatos.Columns(8).Visible Then + If SeleccionLoteCaducidadCombo Then If String.IsNullOrEmpty(Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim()) OrElse Gvr.FCDropDownList("DdlCaducidadProducto").SelectedValue.Trim() = "|" Then ValidaLote = True End If diff --git a/Nomina/RepMovtosPermanentes.aspx b/Nomina/RepMovtosPermanentes.aspx index 712b307ba..549f6d52f 100644 --- a/Nomina/RepMovtosPermanentes.aspx +++ b/Nomina/RepMovtosPermanentes.aspx @@ -121,28 +121,7 @@
- -
-
- - - - - - -
-
- -
-
- - - - - - -
-
+
@@ -181,6 +160,28 @@
+ +
+
+ + + + + + +
+
+ +
+
+ + + + + + +
+
diff --git a/Sistemas/CatRoles.aspx b/Sistemas/CatRoles.aspx index f9b390ea6..fbf243d6d 100644 --- a/Sistemas/CatRoles.aspx +++ b/Sistemas/CatRoles.aspx @@ -4,40 +4,7 @@ - <%-- --%> +
  • diff --git a/Sistemas/CatRoles.aspx.vb b/Sistemas/CatRoles.aspx.vb index 893e8e3d3..583e90b56 100644 --- a/Sistemas/CatRoles.aspx.vb +++ b/Sistemas/CatRoles.aspx.vb @@ -4,17 +4,6 @@ Imports System.Data Partial Class CatRoles Inherits ClsPaginas - - Private Property DtRoles As DataTable - Get - Return CType(ViewState("DtRoles"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtRoles") = value - End Set - End Property - - Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then 'LnkCerrar.Style.Add("cursor", "hand") @@ -52,7 +41,7 @@ Partial Class CatRoles Public Sub CargaDatos() Dim Rol As New ClsSisRoles If Rol.GetRoles(-1, UsuarioActual.CveEmpresa) Then - DtRoles = Rol.DtResultados + If Rol.GetRoles(-1, -1) Then GlobalDTRoles(-1) = Rol.DtResultados GvDatos.DataSource = Rol.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GvDatos.DataBind() diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index ef72b2980..81bfebd0d 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -80,6 +80,8 @@ Partial Class Boletos If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then Response.Redirect("/Transportes/RepViajes.aspx") End If + + Permisos() AsientoSeleccionado = "" CveViaje = IfNull(Request("CveViaje"), "0").ToString.ToEntero If CveViaje > 0 Then @@ -88,7 +90,6 @@ Partial Class Boletos Alert("Viaje no definido") End If - Permisos() End If End Sub