diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index b2b635433..56901e562 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -20,12 +20,12 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
- CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyecto)
- CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores)
- CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores)
+ CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyectoBancos, "")
+ CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores, "")
+ CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores, "")
CargaUltimaFluctuacion()
End If
@@ -232,17 +232,12 @@ Partial Class Bancos_FluctuacionCambiaria
#Region "FLUCTUACION COMPRAS"
- Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
-
- 'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
- ' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
- ' Exit Sub
- 'End If
-
+ Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
+
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Conta.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -306,18 +301,12 @@ Partial Class Bancos_FluctuacionCambiaria
#Region "FLUCTUACION VENTAS"
- Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
-
- 'If DdlsubProyectoVentas.SelectedValue.ToEntero < 0 Then
- ' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
- ' Exit Sub
- 'End If
-
-
+ Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
+
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Conta.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Ventas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -345,38 +334,38 @@ Partial Class Bancos_FluctuacionCambiaria
CveCuenta = CveCuentaPerdida
idCta = idCtaPerdida
TipoMovto = False
- End If
+ End If
+
If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
- If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
- ErrorRegistrar = True
+ ErrorRegistrar = True
+ End If
+
+ Dim CveConconceptoCliente As Integer = 203
+
+ 'saco las cuentas de pérdida y ganancia
+ For Each gvr As GridViewRow In GvVentas.Rows
+ Total = -gvr.DataKey("Fluctuacion").ToDecimal
+
+ If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
+ CveConconceptoCliente = 226
+ Else
+ CveConconceptoCliente = 203
End If
- Dim CveConconceptoCliente As Integer = 203
-
- 'saco las cuentas de pérdida y ganancia
- For Each gvr As GridViewRow In GvVentas.Rows
- Total = -gvr.DataKey("Fluctuacion").ToDecimal
-
- If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
- CveConconceptoCliente = 226
- Else
- CveConconceptoCliente = 203
- End If
-
- 'movimiento de complementaria
- If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
- ErrorRegistrar = True
- Exit For
- End If
- Next
-
- If Not ErrorRegistrar Then
- Conta.Commit()
- Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion)
-
- Else
- Conta.RollBack()
- End If
+ 'movimiento de complementaria
+ If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+ ErrorRegistrar = True
+ Exit For
+ End If
+ Next
+
+ If Not ErrorRegistrar Then
+ Conta.Commit()
+ Alert(String.Format("La Fluctuación se ha generado
Ver PrePóliza", CvePrePoliza), TipoMensaje.MsgInformacion)
+
+ Else
+ Conta.RollBack()
+ End If
Conta.Dispose()
End Sub
@@ -386,18 +375,11 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)
-
- 'If DdlSubproyectoBancos.SelectedValue.ToEntero < 0 Then
- ' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
- ' Exit Sub
- 'End If
-
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Conta.IniciaTransacSQL()
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Bancaria", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -405,28 +387,28 @@ Partial Class Bancos_FluctuacionCambiaria
Dim TipoMovto As Boolean = False
Dim CveConceptoContable As Integer = 0
Dim ErrorRegistrar As Boolean = False
- Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
-
+ Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
+ Dim MesTCtexto As String = String.Format("{0} TC:{1}", TxtFecha.Text.ToDate.ToString("MMMM-yyyy"), TCCierreFluctuacion)
+
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+
CveCuentaPerdida = 0 ' 55379
CveCuentaGanancia = 0 ' 55382
idCtaPerdida = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria '1227
IdCtaGanancia = UsuarioActual.Empresa.IdCuentaGananciaCambiaria '1230
Dim TC As Decimal = 2 ' se pone 2, para que cumpla con el check constrains de complementarias
- Total = LblTotalBancos.Text.ToDecimal
-
-
-
-
- Dim CveConconceptoBancos As Integer = 204
-
-
- 'saco las cuentas de pérdida y ganancia
+ Total = LblTotalBancos.Text.ToDecimal
+
+ Dim CveConconceptoBancos As Integer = 204
+
+ 'saco las cuentas de pérdida y ganancia
For Each gvr As GridViewRow In GvCuentas.Rows
Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
If cb.Checked Then
Total = gvr.DataKey("Fluctuacion").ToDecimal
Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
- Dim ConceptoReferencia As String = $"{gvr.DataKey("Banco")} - {gvr.DataKey("NumCuenta")} "
+ Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
'MOVIMIENTO DE FLUCTUACION
@@ -485,16 +467,10 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)
-
- 'If DdlSubProyectoDeoudores.SelectedValue.ToEntero < 0 Then
- ' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
- ' Exit Sub
- 'End If
-
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Deudor", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoDeudores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -565,17 +541,12 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)
- 'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
- ' Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
- ' Exit Sub
- 'End If
-
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
ObjContPaq.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoFiliales.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -665,12 +636,10 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)
-
-
Dim Total As Decimal = 0
Dim Conta As New ClsContabilidad
Conta.IniciaTransacSQL()
- Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim idCta As Integer = 0
Dim CveCuenta As Integer = 0
Dim CveCuentaPerdida, CveCuentaGanancia As Integer
diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx
index 4824b3eeb..cdaa66505 100644
--- a/Bancos/PopIEVentas.aspx
+++ b/Bancos/PopIEVentas.aspx
@@ -35,6 +35,13 @@
+
+
+
+
+
+
+
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 3d83cb0b4..ef4f28551 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -736,11 +736,16 @@ Partial Class Bancos_PopIEVentas
SerieFolio = dr("SerieFolio").ToString
TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
- 'Configuración de Modalidad Update
-
- 'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
-
+ LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
+
+
+
+ 'Configuración de Modalidad Update
+
+ 'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
+
+
If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
If dr("TipoDocto").ToString = "Rem" Then
Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)
diff --git a/Bancos/PrestamoPersonal.aspx.cs b/Bancos/PrestamoPersonal.aspx.cs
index f9674a6bb..2ecb1b234 100644
--- a/Bancos/PrestamoPersonal.aspx.cs
+++ b/Bancos/PrestamoPersonal.aspx.cs
@@ -106,6 +106,17 @@ public partial class Bancos_PrestamoPersonal : ClsPaginas
txtFechaF.Text = DateTime.Now.ToShortDateString();
TxtImporte.Attributes.Add("disabled", "disabled");
+ if(UsuarioActual.Empresa.Funcionalidad(281).ToEntero() == 1)
+ {
+ TxtFechaPrestamo.Enabled = false;
+ ImgCalendarioPrestamo.Visible = false;
+
+ TxtFechaDocumento.Enabled = false;
+ ImgCalendario.Visible = false;
+
+ }
+
+
}
}
diff --git a/Compras/CatTipoGasto.aspx b/Compras/CatTipoGasto.aspx
index c1f4a738e..ac328153b 100644
--- a/Compras/CatTipoGasto.aspx
+++ b/Compras/CatTipoGasto.aspx
@@ -45,7 +45,7 @@
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index be933f6a1..47d1eb77c 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -29,6 +29,24 @@ Partial Class Compras_Compras
End Set
End Property
+ Private Property EstaAsociadoACajaChica() As Boolean
+ Get
+ Return If(IsNothing(ViewState("EstaAsociadoACajaChica")), False, CBool(ViewState("EstaAsociadoACajaChica")))
+ End Get
+ Set
+ ViewState("EstaAsociadoACajaChica") = Value
+ End Set
+ End Property
+
+ Private Property EstaAsociadoAPersonal() As Boolean
+ Get
+ Return If(IsNothing(ViewState("EstaAsociadoAPersonal")), False, CBool(ViewState("EstaAsociadoAPersonal")))
+ End Get
+ Set
+ ViewState("EstaAsociadoAPersonal") = Value
+ End Set
+ End Property
+
Private Property CveUsuarioEvaluador() As Integer
Get
Return If(IsNothing(ViewState("CveUsuarioEvaluador")), -1, CInt(ViewState("CveUsuarioEvaluador")))
@@ -848,6 +866,14 @@ Partial Class Compras_Compras
ViewState("PopUpOC") = value
End Set
End Property
+ Private Property CompraEstaVinculadaOC As Boolean
+ Get
+ Return CBool(ViewState("CompraEstaVinculadaOC"))
+ End Get
+ Set(value As Boolean)
+ ViewState("CompraEstaVinculadaOC") = value
+ End Set
+ End Property
#End Region
#Region "PROPIEDADES ALMACEN" 'Charlie
@@ -1307,6 +1333,9 @@ Partial Class Compras_Compras
ViewState("CveFactura") = Request("CveFactura").ToEntero
Dim RFC As String = CargaFactura(CveFactura)
+ If Not VerificarProductosSATPS() Then
+ Exit Sub
+ End If
If RFC.Trim <> String.Empty Then
DdlProveedor.Visible = False
HplProveedor.Visible = True
@@ -1734,6 +1763,7 @@ Partial Class Compras_Compras
'TmpDT.Columns.Add("IEPSPSIVAPorcentaje")
SubTotalConceptos = Math.Round(TmpDT.SUM("Total"), 2).ToDecimal
AddPS2(False)
+
End If
Else
CargaConceptosXML(XMLDoc)
@@ -3971,6 +4001,17 @@ Partial Class Compras_Compras
DtNoEncontrados.Dispose()
End If
+ 'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
+
+ If UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
+ If Not EstaAsociadoACajaChica And Not EstaAsociadoAPersonal Then
+ If Not CompraEstaVinculadaOC Then
+ Alert("Debe de vincular una orden de compra para realizar esta factura")
+ Exit Sub
+ End If
+ End If
+ End If
+
'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle
Dim GuardaNoDeducibles As Boolean = False
If ChkEsNoDeducible.Checked Then
@@ -12712,6 +12753,7 @@ Partial Class Compras_Compras
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+ EstaAsociadoACajaChica = True
End If
If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then
@@ -12740,7 +12782,7 @@ Partial Class Compras_Compras
ObjMovtos.Dispose()
DDlCheques.DataBind()
-
+ EstaAsociadoAPersonal = True
DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty)
Else
@@ -13751,6 +13793,9 @@ Partial Class Compras_Compras
#Region " REEMBOLSOS NO USA AC "
Protected Sub DdlPersonal2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPersonalReembolso.SelectedIndexChanged
ViewState("CvePersonal") = DdlPersonalReembolso.SelectedValue
+ If DdlPersonalReembolso.SelectedValue.ToEntero > 0 Then
+ EstaAsociadoAPersonal = True
+ End If
End Sub
Protected Sub DdlCajaChica2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCuentaCajaChicaReembolso.SelectedIndexChanged
Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("CveCuenta = " & DdlCuentaCajaChicaReembolso.SelectedValue)
@@ -13759,6 +13804,7 @@ Partial Class Compras_Compras
CveMoneda = dr("CveMoneda").ToString.ToEntero
IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
+ EstaAsociadoACajaChica = True
End If
ViewState("CveCajaChica") = DdlCuentaCajaChicaReembolso.SelectedValue
End Sub
@@ -15052,7 +15098,7 @@ Partial Class Compras_Compras
'SI PUEDE RECIBIR POR OC Y COMPRA
' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre
- If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+ If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
DivOCVinculaInv.Visible = True
End If
@@ -15381,27 +15427,27 @@ Partial Class Compras_Compras
Dim SubTotalCompra As Decimal = Amortizacion
Dim DiferenciaPermitida = 1
Dim Cont = 0
- Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
- For Each gvr As GridViewRow In GvOC1.Rows
- SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
- If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
- Cont = 1
- If GvOC1.Columns(6).Visible Then
- Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
- Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
- If SatPS.Contains("01010101") Then
- ProductosCodigoSATNoPermitidos.AppendFormat("{0}", NombreProducto)
- 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
- 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ 'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+ 'For Each gvr As GridViewRow In GvOC1.Rows
+ ' SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
+ ' If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
+ ' Cont = 1
+ ' If GvOC1.Columns(6).Visible Then
+ ' Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+ ' Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+ ' If SatPS.Contains("01010101") Then
+ ' ProductosCodigoSATNoPermitidos.AppendFormat("{0}", NombreProducto)
+ ' 'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+ ' 'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
- End If
- End If
- Next
- If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
- Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
- Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
+ ' End If
+ ' End If
+ 'Next
+ 'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+ ' Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
+ ' Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ ' Exit Sub
+ 'End If
If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
LbSubTotalDif.Visible = False
@@ -15434,15 +15480,16 @@ Partial Class Compras_Compras
'SI PUEDE RECIBIR POR OC Y COMPRA
- If UsuarioActual.CveEmpresa.Contiene(119) Then
- If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
- If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
- Alert("El campo
Tipo de recepción almacén es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
+
+ If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then
+
+ If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then
+ Alert("El campo
Tipo de recepción almacén es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
End If
+
If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 AndAlso UsuarioActual.CveEmpresa.Contiene(119) Then
Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
Exit Sub
@@ -15639,6 +15686,7 @@ Partial Class Compras_Compras
End If
CalculaTotales()
+ CompraEstaVinculadaOC = True
End Sub
@@ -19831,7 +19879,7 @@ Partial Class Compras_Compras
End If
Else
'2018.11.24 se cambia concepto 177, de cargo a abono negativo., petición MALL
- If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, If(ConceptoSalida = 0, IdCtaContableAlmacen, IdCtaContableRecepcionOCER), -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
+ If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), ConceptoPartida, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveCuenta:=CveCuentaAlmacen, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=CveSubProyecto) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, ConceptoPartida, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
Retorno = False
Exit For
@@ -20156,7 +20204,37 @@ Partial Class Compras_Compras
End Sub
+ Private Function VerificarProductosSATPS() As Boolean
+ Dim CvePSGRuposAux As New StringBuilder("")
+ For Each gvr As GridViewRow In GvPS.Rows
+ Dim CvePSIndividual As String = gvr.DataKey("CvePS")
+ CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+ Next
+ If CvePSGRuposAux.Length > 0 Then
+ Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+
+ Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+
+ Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+ For Each PS As GridViewRow In GvPS.Rows
+ Dim PSIndividual As String = PS.DataKey("PS")
+ Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+ If ClavePSSAT = "46920" Then
+ ProductosCodigoSATNoPermitidos.AppendFormat("{0}", PSIndividual)
+ End If
+ Next
+
+ If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+ Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
+ Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ Return False
+ End If
+ End If
+
+ Return True
+
+ End Function
End Class
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 83cbf87b1..25b566e4d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1241,6 +1241,7 @@ Partial Class PopUpVerFactura
Dim Observaciones As String = ObjInventarios.Observaciones
Dim ObservacionesSolicitud As String = ObjInventarios.DtResultados.FiltroPrimeroValor("ObservacionesSolicitud")
Dim NombreCapturo As String = ObjInventarios.NombreCapturo
+ Dim NombreEntrego As String = ObjInventarios.DtResultados.FiltroPrimeroValor("Entrego")
Dim CveAlmacen As Integer = ObjInventarios.CveAlmacen
Dim Recibio As String = ObjInventarios.Recibio
Dim PuestoRecibio As String = ObjInventarios.PuestoRecibio
@@ -1344,7 +1345,7 @@ Partial Class PopUpVerFactura
EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
- CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen)
+ CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)
End Sub
Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1361,7 +1362,7 @@ Partial Class PopUpVerFactura
Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
- RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1)
+ RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")
Select Case CveConcepto
@@ -2707,7 +2708,7 @@ Partial Class PopUpVerFactura
End If
Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
- Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
+ Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego))
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
@@ -2718,7 +2719,7 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Descuentos", ""))
params.Add(New ReportParameter("IVA", ""))
params.Add(New ReportParameter("Total", ""))
- params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+ params.Add(New ReportParameter("NombreEntrego", NombreEntrego))
params.Add(New ReportParameter("NombreRecibio", Recibio))
params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
@@ -2730,7 +2731,7 @@ Partial Class PopUpVerFactura
End If
params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
- params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("Observaciones", Observaciones))
diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 36b4176d3..f5d83d58c 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
Referencia = gvr.DataKey("SerieFolio").ToString
IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
- CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
+
ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
Case Else
End Select
End If
+ If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+ IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
+ Else
+ IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
+ End If
If SaldoCheque > 0 Then
ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)
diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 120b5ff4b..33b22246f 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -249,7 +249,7 @@
+ CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
@@ -366,6 +366,14 @@
+
+
+ Descripción
+
+
+
+
+
@@ -419,6 +427,8 @@
|
+
+ |
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 842000f1e..8a61cd2fe 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -621,6 +621,8 @@ Partial Class RepCxPDetalle
GvDatos.Columns(13).Visible = False
End If
+ GvDatos.Columns(14).Visible = ChkDescripcion.Checked
+
Personalizo = 1
If Personalizo = 1 Then
ImgExcelPersonalizado.Visible = True
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index cd307959c..28d7b8831 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -982,34 +982,39 @@ Partial Class ContabilidadC_RegPrePoliza
Else
MsgError = "No se pudo insertar la póliza"
- End If
- Catch ex As Exception
- MsgError = "Error"
- End Try
-
- If MsgError = "" Then
- 'MENSAJE IE
- If CveIE > 0 Then
- MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
- Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
- Else
- Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
- End If
-
- ObjIE.Commit()
- If Conta IsNot Nothing Then Conta.Commit()
-
- UPPDocumento.Update()
-
- TxtObservaciones.Text = ""
- GvMov.DataBind()
- TxtFecha.Text = ""
- TxtObservaciones.Text = ""
- Else
- ObjIE.RollBack()
+ End If
+
+ If MsgError = "" Then
+
+ 'MENSAJE IE
+ If CveIE > 0 Then
+ MensajeAlert.AppendFormat("
Folio Bancario: {1}", CveIE, FolioIE)
+ Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
+ Else
+ Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
+ End If
+
+ ObjIE.Commit()
+ If Conta IsNot Nothing Then Conta.Commit()
+
+ 'UPPDocumento.Update()
+ 'TxtObservaciones.Text = ""
+ 'GvMov.DataBind()
+ 'TxtFecha.Text = ""
+ 'TxtObservaciones.Text = ""
+ Else
+ ObjIE.RollBack()
+ If Conta IsNot Nothing Then Conta.RollBack()
+ End If
+ Catch ex As Exception
+ ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack()
- End If
-
+ Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
+ ex.GuardaLog(ex.Message)
+ End Try
+
+
+
ObjIE.Dispose()
ObjMov.Dispose()
If Conta IsNot Nothing Then Conta.Dispose()
diff --git a/General/CatMedidaEquivalencia.aspx b/General/CatMedidaEquivalencia.aspx
new file mode 100644
index 000000000..aa284a51a
--- /dev/null
+++ b/General/CatMedidaEquivalencia.aspx
@@ -0,0 +1,96 @@
+<%@ Page Title="General - Catálogo de Equivalencias de Medida" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="CatMedidaEquivalencia.aspx.cs" Inherits="General_CatMedidaEquivalencia" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+
+
+
+
+
+
+
+ Catálogo de Equivalencias de Medida
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/General/CatMedidaEquivalencia.aspx.cs b/General/CatMedidaEquivalencia.aspx.cs
new file mode 100644
index 000000000..765a94476
--- /dev/null
+++ b/General/CatMedidaEquivalencia.aspx.cs
@@ -0,0 +1,132 @@
+using System;
+using System.Collections.Generic;
+using System.Linq;
+using System.Web;
+using System.Web.UI;
+using System.Web.UI.WebControls;
+using Extensiones;
+using System.Data;
+
+public partial class General_CatMedidaEquivalencia : ClsPaginas
+{
+ private int CveMedidaEquivalencia
+ {
+ get
+ {
+ return ViewState["CveMedidaEquivalencia"].ToString().ToEntero();
+ }
+
+ set
+ {
+ ViewState["CveMedidaEquivalencia"] = value;
+ }
+ }
+
+ protected void Page_Load(object sender, EventArgs e)
+ {
+ if (!IsPostBack)
+ {
+ CargaDatos();
+ CargaDatosModal();
+ }
+ }
+
+ private void CargaDatos()
+ {
+ ClsGenerales ObjGeneral = new ClsGenerales();
+ if (ObjGeneral.GetMedidasEquivalentes(UsuarioActual.CveEmpresa))
+ {
+ GvDatos.DataSource = ObjGeneral.DtResultados;
+ GvDatos.DataBind();
+ }
+ ObjGeneral.Dispose();
+ }
+
+ private void CargaDatosModal()
+ {
+ ClsGenerales ObjGeneral = new ClsGenerales();
+ if (ObjGeneral.GetMedidas(UsuarioActual.CveEmpresa))
+ {
+ DdlMedidas.DataSource = ObjGeneral.DtResultados;
+ DdlMedidasEquivalente.DataSource = ObjGeneral.DtResultados;
+ }
+ if (ObjGeneral.GetRimTamanios(UsuarioActual.CveEmpresa))
+ {
+ DdlRin.DataSource = ObjGeneral.DtResultados;
+ DdlRinEquivalente.DataSource = ObjGeneral.DtResultados;
+ }
+ ObjGeneral.Dispose();
+ DdlMedidas.DataBind();
+ DdlMedidasEquivalente.DataBind();
+ DdlRin.DataBind();
+ DdlRinEquivalente.DataBind();
+ DdlMedidas.Items.Insert(0, new ListItem("Seleccione", "-1"));
+ DdlMedidasEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1"));
+ DdlRin.Items.Insert(0, new ListItem("Seleccione", "-1"));
+ DdlRinEquivalente.Items.Insert(0, new ListItem("Seleccione", "-1"));
+ }
+
+ protected void BtnAgregarMedidaEquivalente_Click(object sender, EventArgs e)
+ {
+ BtnAgregarEquivalente.Text = "Agregar";
+ DdlMedidas.SelectedValueExist(-1);
+ DdlMedidasEquivalente.SelectedValueExist(-1);
+ DdlRin.SelectedValueExist(-1);
+ DdlRinEquivalente.SelectedValueExist(-1);
+ UpModalTiposD.Update();
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+ }
+
+ protected void LnkEditar_Click(object sender, EventArgs e)
+ {
+ BtnAgregarEquivalente.Text = "Actualizar";
+ GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ CveMedidaEquivalencia = GvRow.DataKey("CveMedidaEquivalencia").ToEntero();
+ int CveMedida = GvRow.DataKey("CveMedida").ToEntero();
+ int CveRin = GvRow.DataKey("CveRin").ToEntero();
+ int CveMedidaEquivalente = GvRow.DataKey("CveMedidaEquivalente").ToEntero();
+ int CveRinEquivalente = GvRow.DataKey("CveRinEquivalente").ToEntero();
+ DdlMedidas.SelectedValueExist(CveMedida);
+ DdlMedidasEquivalente.SelectedValueExist(CveMedidaEquivalente);
+ DdlRin.SelectedValueExist(CveRin);
+ DdlRinEquivalente.SelectedValueExist(CveRinEquivalente);
+ UpModalTiposD.Update();
+ RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"));
+ }
+
+ protected void LnkEliminar_Click(object sender, EventArgs e)
+ {
+ GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+ int CveMedidaEquivalenciaEliminar = GvRow.DataKey("CveMedidaEquivalencia").ToEntero();
+ ClsGenerales ObjGeneral = new ClsGenerales();
+ if (ObjGeneral.RemoveMedidasEquivalentes(CveMedidaEquivalenciaEliminar))
+ {
+ Alert("Equivalencia eliminada correctamente");
+ CargaDatos();
+ UpDatos.Update();
+ }
+ ObjGeneral.Dispose();
+ }
+
+ protected void BtnAgregarEquivalente_Click(object sender, EventArgs e)
+ {
+ ClsGenerales ObjGeneral = new ClsGenerales();
+ if(BtnAgregarEquivalente.Text == "Agregar")
+ {
+ if (ObjGeneral.AddMedidasEquivalentes(DdlMedidas.SelectedValue.ToEntero(),DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(),DdlRinEquivalente.SelectedValue.ToEntero()))
+ {
+ Alert("Se agregó la equivalencia correctamente");
+ }
+ }else
+ {
+ if (ObjGeneral.UpdateMedidasEquivalentes(CveMedidaEquivalencia, DdlMedidas.SelectedValue.ToEntero(), DdlRin.SelectedValue.ToEntero(), DdlMedidasEquivalente.SelectedValue.ToEntero(), DdlRinEquivalente.SelectedValue.ToEntero()))
+ {
+ Alert("Se actualizó la equivalencia correctamente");
+ }
+ }
+ ObjGeneral.Dispose();
+ CargaDatos();
+ UpDatos.Update();
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"));
+ }
+}
\ No newline at end of file
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 08040c50e..059f71e5b 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -275,6 +275,7 @@ Partial Class Inventarios_EntradasSalidas
#End Region
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
If Not IsPostBack Then
CveMovimiento = -1
@@ -289,6 +290,7 @@ Partial Class Inventarios_EntradasSalidas
CreaDT()
CargaCombos()
TxtFecha.Text = Now.ToShortDateString
+ TxtFechaInvFisico.Text = Now.ToShortDateString
RVFecha.MaximumValue = Now.ToShortDateString
If Not UsuarioActual.CveEmpresa = 48 Then
@@ -350,7 +352,25 @@ Partial Class Inventarios_EntradasSalidas
PermisoVerImportes()
End If
+
+ If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+ TxtFecha.Enabled = False
+ ImgFecha.Visible = False
+
+ TxtFechaInvFisico.Enabled = False
+ ImgFechaInvFisico.Visible = False
+
+ UpGenerales.Update()
+ UpModalInventarioFisico.Update()
+
+ End If
+
End If
+
+
+
+
End Sub
#Region " PERMISOS PAGINAS "
@@ -927,6 +947,21 @@ Partial Class Inventarios_EntradasSalidas
'BtnGuardar.Visible = False
End If
+
+ If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+ TxtFecha.Enabled = False
+ ImgFecha.Visible = False
+
+ TxtFechaInvFisico.Enabled = False
+ ImgFechaInvFisico.Visible = False
+
+
+
+
+ End If
+
+ UpModalInventarioFisico.Update()
BloqueaEdicionEncabezado()
Mov.Dispose()
UpGenerales.Update()
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 6d6e99153..8aff48266 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -263,6 +263,14 @@ Partial Class Inventarios_EntregaAlmacen
InicializaValores()
CargaParametrosAD()
If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
+
+ If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+ TxtFecha.Enabled = False
+ ImgFecha.Visible = False
+
+ End If
+
End If
End Sub
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index e8a120fa6..eec03b6a6 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -35,18 +35,37 @@
|
+
+
+ |
| Medida: |
|
+
+
+ |
| Rin: |
|
+
+
+ |
| C. Barras: |
@@ -60,6 +79,9 @@
+
+
+ |
@@ -67,12 +89,15 @@
|
|
+ |
|
|
+ |
+ |
@@ -113,7 +138,7 @@