diff --git a/App_Code/ClsOP.vb b/App_Code/ClsOP.vb new file mode 100644 index 000000000..87bcf4845 --- /dev/null +++ b/App_Code/ClsOP.vb @@ -0,0 +1,384 @@ +Imports Extensiones +Imports System.Data +Imports System.Data.SqlClient +Imports Microsoft.VisualBasic + +Public Class ClsOP + Implements IDisposable + +#Region "Campos" + 'SQL + Private SqlConexion As SqlConnection + Private SqlAdapter As SqlDataAdapter + Private SqlCommand As SqlCommand + Private SqlTransacc As SqlTransaction + Private Data As DataTable + Protected DTSet As DataSet + + Private disposedValue As Boolean = False ' Para detectar llamadas redundantes + 'REGISTRAR CONEXIÓN + Private CveConexion As Integer = 0 + Private EsTransaccionCompartida As Boolean = False + + Public ReadOnly Property DtResultados() As DataTable + Get + DtResultados = Data + End Get + End Property + Public ReadOnly Property DTSetResultados() As DataSet + Get + Return DTSet + End Get + End Property +#End Region + + Sub New(Optional TransaccionCompartida As SqlTransaction = Nothing) + + If TransaccionCompartida Is Nothing Then + SqlConexion = New SqlConnection + SqlConexion.ConnectionString = ClsPaginas.UsuarioActualRutaDB + Try + SqlConexion.Open() + Catch ex As Exception + OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex) + End Try + Else + SqlConexion = TransaccionCompartida.Connection + SqlTransacc = TransaccionCompartida + EsTransaccionCompartida = True + End If + + SqlAdapter = New SqlDataAdapter("", SqlConexion) + ConexionAdd() + End Sub + Private Sub DataAdapter(StrSQL As String, Optional TipoComando As CommandType = CommandType.StoredProcedure) + With SqlAdapter.SelectCommand + .Parameters.Clear() + .CommandText = StrSQL + .CommandType = TipoComando + End With + If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc + Data = New DataTable + End Sub +#Region "Conexiones" + + Private Sub ConexionAdd() + If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + Try + DataAdapter("PA_Sis_RegistrarConexion") + With SqlAdapter.SelectCommand.Parameters + .Add("@Clase", SqlDbType.VarChar).Value = Me.GetType().Name + .Add("@Modulo", SqlDbType.VarChar).Value = String.Format("{0}?{1}", HttpContext.Current.Request.Url.AbsolutePath.ToString, HttpContext.Current.Request.QueryString.ToString) + .Add("@IDConexion", SqlDbType.Int).Direction = ParameterDirection.Output + End With + SqlAdapter.Fill(Data) + CveConexion = SqlAdapter.SelectCommand.Parameters("@IDConexion").Value.ToString.ToEntero + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + End If + End Sub + + Private Sub ConexionClose() + If CveConexion > 0 AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + + DataAdapter(String.Format("UPDATE Sis_Conexiones SET FechaCierre = GETDATE() WHERE CveConexion = {0}", CveConexion), CommandType.Text) + + Try + SqlAdapter.Fill(Data) + + Catch ex As Exception + OnError("Ocurrió un error registrar la conexión.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + CveConexion = 0 + End If + + End Sub +#End Region + Public Function IniciaTransacSQL() As SqlTransaction + If SqlTransacc Is Nothing Then SqlTransacc = SqlConexion.BeginTransaction() + Return SqlTransacc + End Function + Public Sub RollBack() + SqlTransacc.Rollback() + End Sub + Public Sub Commit() + SqlTransacc.Commit() + End Sub + +#Region "CONFIGURACION PRODUCTOS" + + + Public Function GetProductosOP(CveOP As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_ProductosGET") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOP", SqlDbType.Int).Value = CveOP + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function GetCIReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_CostoIndirectoRecetaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la receta de ci del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddCI(Cantidad As Decimal, CvePS As Integer, CvePSMateriaPrima As Integer, CveUM As Integer, CveUMMateriaPrima As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_CIAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CvePSMateriaPrima", SqlDbType.Int).Value = CvePSMateriaPrima + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveUMMateriaPrima", SqlDbType.Int).Value = CveUMMateriaPrima + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el costo indirecto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveCI(CveOPPS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_CIRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOPPS", SqlDbType.Int).Value = CveOPPS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el costo indirecto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetMOReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_ManodeObraRecetaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la receta de mo del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddMO(Cantidad As Decimal, CvePS As Integer, CvePuesto As Integer, CveUM As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MOAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CvePuesto", SqlDbType.Int).Value = CvePuesto + .Add("@CveUM", SqlDbType.Int).Value = CveUM + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la mano de obra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveMO(CveOPManoObra As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MORemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOPManoObra", SqlDbType.Int).Value = CveOPManoObra + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la mano de obra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetMPReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MateriaPrimaRecetaGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener la receta de mp del producto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddMP(Cantidad As Decimal, CvePS As Integer, CvePSMateriaPrima As Integer, CveUM As Integer, CveUMMateriaPrima As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MPAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@Cantidad", SqlDbType.SmallMoney).Value = Cantidad + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CvePSMateriaPrima", SqlDbType.Int).Value = CvePSMateriaPrima + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveUMMateriaPrima", SqlDbType.Int).Value = CveUMMateriaPrima + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la materia prima.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveMP(CveOPPS As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MPRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveOPPS", SqlDbType.Int).Value = CveOPPS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar la materia prima.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetConfiguracionProducto(CvePS As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_ConfiguracionProductoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los productos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddUpManodeObraReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer, xmlpuestos As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_ManodeObraRecetaUp") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@xmlpuestos", SqlDbType.Xml).Value = xmlpuestos + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la mano de obra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddUpMateriaPrimaReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer, xmlproductos As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_MateriaPrimaRecetaUp") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@xmlproductos", SqlDbType.Xml).Value = xmlproductos + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar la materia prima.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + Public Function AddUpCostoIndirectoReceta(CvePS As Integer, CveUM As Integer, CveEmpresa As Integer, xmlproductos As String) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_OP_CostoIndirectoRecetaUp") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveUM", SqlDbType.Int).Value = CveUM + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@xmlproductos", SqlDbType.Xml).Value = xmlproductos + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el costo indirecto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + +#End Region + +#Region "IDisposable Support" + ' IDisposable + Protected Overridable Sub Dispose(disposing As Boolean) + If Not Me.disposedValue Then + If disposing Then + + If Not Data Is Nothing Then Data.Dispose() : Data = Nothing + If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing + If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing + If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing + If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close() + If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing + + End If + End If + Me.disposedValue = True + End Sub + Public Sub Dispose() Implements IDisposable.Dispose + ConexionClose() + Dispose(True) + GC.SuppressFinalize(Me) + End Sub +#End Region + +End Class diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 01b118501..1b63b1a6f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -11096,6 +11096,10 @@ Public Class ClsPaginas PaginaDict.Add("/Transportes/CatRutas.aspx".ToUpper(), 604) PaginaDict.Add("/Transportes/RepViajesCalendario.aspx".ToUpper(), 605) #End Region + +#Region "Ordenes de Produccion" + PaginaDict.Add("/OP/CatConfiguracionProducto.aspx".ToUpper(), 790) +#End Region 'Antes de aquí. Application("GlobalSIGAppPaginas") = PaginaDict diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb index 729fc7426..a0d04f707 100644 --- a/App_Code/ClsPuntoVenta.vb +++ b/App_Code/ClsPuntoVenta.vb @@ -400,11 +400,31 @@ Public Class ClsPuntoVenta End Try Return Retorno - End Function + End Function + + Public Function GetVta_EstadoCajas(CveCuenta As Integer, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasEstadoCajasGet") + + SqlAdapter.SelectCommand.Parameters.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaFin + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #Region "IDisposable Support" - - - ' IDisposable + + + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6b0e594dc..13cfbd3eb 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1679,6 +1679,14 @@ Partial Class Compras_Compras InicializaDTProrrateoGasolina() End If + + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + If Request("SaldarRNC") IsNot Nothing AndAlso Request("SaldarRNC").ToString.ToEntero = 1 Then + SaldaConRNC() + End If + + End If + End If 'SE OCUPAN AFUERA DEL POSTBACK ?? @@ -1711,6 +1719,79 @@ Partial Class Compras_Compras End Sub + + Private Sub SaldaConRNC() + + If CompraSaldo > 0 Then + ImporteRNC = CompraSaldo.ToDecimal + Dim ErrorSaldoRNC As Boolean = False + Dim ObjCompras As New ClsCompras + Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL) + ObjCompras.IniciaTransacSQL() + ObjCompras.IniciaTransacSQL() + + If UsuarioActual.Empresa.Funcionalidad(574) = "1" AndAlso (ImporteRNC > 0 Or ImporteRNCProntoPago > 0) Then + + + Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal + + Dim CompraSaldar As New Compra + CompraSaldar.CveCompra = CveCompra + CompraSaldar.CveTipoConceptoProveedor = CveTipoConcepto + CompraSaldar.CveProveedor = CveProveedor + CompraSaldar.CveMoneda = DdlMoneda.SelectedValue.ToEntero + CompraSaldar.Fecha = TxtFecha.Text.ToDate + CompraSaldar.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim + CompraSaldar.ProveedorNombre = HplProveedor.Text + CompraSaldar.TC = TipoCambio + CompraSaldar.Total = TxtTotal.Text.ToDecimal + CompraSaldar.IVA = TxtIVA.Text.ToDecimal + CompraSaldar.IVADeducible = TxtIVA.Text.ToDecimal + CompraSaldar.IEPS = TxtIEPS.Text.ToDecimal + CompraSaldar.RetIVA = TxtRetIVA.Text.ToDecimal + CompraSaldar.RetISR = TxtRetISR.Text.ToDecimal + CompraSaldar.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero + CompraSaldar.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero + CompraSaldar.PorcentajeIVA = PorcentajeIVA + CompraSaldar.UsuarioActual = UsuarioActual + CompraSaldar.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero + CompraSaldar.EsImportacion = chkImportacion.Checked + + Dim FolioFijo As Integer = 0 + 'cheque + If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa <> 119 Then FolioFijo = TxtFolio.Text.ToEntero + Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim) + + Dim CvePrePolizaSaldar = ObjConta.AddPrePolizas("Compras/SaldarRNC", 53, ImporteRNC.RoundSQL(2), ImporteRNC.RoundSQL(2), DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) + + If CvePrePolizaSaldar > 0 Then + ImporteRNC = ImporteRNC.RoundSQL(2) + If PorcentajeIVA > 0 Then + ImporteRNC = ((ImporteRNC) / (1 + PorcentajeIVA)) + End If + + If Not GeneraRNC(ObjCompras.IniciaTransacSQL, CveCompra, CompraSaldar, ObjConta, CvePrePolizaSaldar, DdlProveedor.SelectedValue.ToEntero, DdlProveedor.SelectedItem.Text, TxtFecha.Text.ToDate, $"Remisión Nota de Crédito {TxtDescripcion.Text}", DdlMoneda.SelectedValue.ToEntero, TxtTC.Text.ToDecimal, + TxtSerie.Text, TxtFolio.Text, RedondearSaldado:=True) Then + ErrorSaldoRNC = True + End If + End If + + + End If + + If ErrorSaldoRNC Then + ObjCompras.RollBack() + Else + ObjCompras.Commit() + End If + + ObjCompras.Dispose() + ObjConta.Dispose() + End If + + + End Sub + Private Sub ConfiguraseleccionRemisionNotaCredito() Dim AutoSelRNC As Boolean = False @@ -21944,7 +22025,8 @@ Partial Class Compras_Compras #Region "PRONTO PAGO" Public Function GeneraRNC(ByRef sqltransaccion As SqlTransaction, CveCompraRegistrada As Integer, ByRef CompraActual As Compra, ByRef ObjConta As ClsContabilidad, CvePrePoliza As Integer, - CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, TipoCambio As Decimal, Serie As String, Folio As String, Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing) As Boolean + CveProveedor As Integer, NombreProveedor As String, Fecha As Date, Descripcion As String, CveMoneda As Integer, TipoCambio As Decimal, Serie As String, Folio As String, + Optional EsDRMN As Boolean = False, Optional TmpListadoPS As DataTable = Nothing, Optional RedondearSaldado As Boolean = False) As Boolean CveCompraDRMC = -1 Dim respuesta As Boolean = True Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal @@ -21969,19 +22051,20 @@ Partial Class Compras_Compras If PSRow IsNot Nothing Then Dim CompraRNC As New ClsCompraManagerCompras(UsuarioActual) With { - .TipoDocto = "RNC", - .CveProveedor = CveProveedor, - .CveTipoProveedor = CveTipoProveedor, - .CveTipoConceptoProveedor = CveTipoConcepto, - .Descripcion = Descripcion, - .NombreProveedor = NombreProveedor, - .Fecha = Fecha, - .CveMoneda = CveMoneda, - .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), - .Serie = $"D-{Serie}", - .Folio = Folio, - .CveCompraAmortizacion = CveCompraRegistrada - } + .TipoDocto = "RNC", + .CveProveedor = CveProveedor, + .CveTipoProveedor = CveTipoProveedor, + .CveTipoConceptoProveedor = CveTipoConcepto, + .Descripcion = Descripcion, + .NombreProveedor = NombreProveedor, + .Fecha = Fecha, + .CveMoneda = CveMoneda, + .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), + .Serie = $"D-{Serie}", + .Folio = Folio, + .CveCompraAmortizacion = CveCompraRegistrada, + .CveCompraRelacionada = CveCompraRegistrada + } 'Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero 'If PSRow("CvePSCargo").ToString <> "" Then @@ -21993,11 +22076,13 @@ Partial Class Compras_Compras Dim PS As String = PSRow("PSCodigo").ToString Dim CveUM As Integer = PSRow("CveUnidadMedida").ToString.ToEntero Dim UM As String = PSRow("UnidadMedida").ToString - Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2) - CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, (ImporteRNC + IVARNC), PorcentajeIVA) + Dim IVARNC As Decimal = (ImporteRNC * PorcentajeIVA).RoundSQL(2) + Dim TotalRNC As Decimal = If(RedondearSaldado, (ImporteRNC + IVARNC).RoundSQL(2), (ImporteRNC + IVARNC)) + + CompraRNC.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNC, IVARNC, TotalRNC, PorcentajeIVA) If CompraRNC.AddCompra(sqltransaccion) Then - Dim tImporteRNC = ImporteRNC + IVARNC ' le agrego el importe del iva + Dim tImporteRNC = TotalRNC ' le agrego el importe del iva Dim Pago As New CompraPago Pago.ImportePago = tImporteRNC Pago.CveMonedaPago = CompraActual.CveMoneda @@ -22016,19 +22101,20 @@ Partial Class Compras_Compras If respuesta AndAlso ImporteRNCProntoPago > 0 Then Dim CompraRNCProntoPago As New ClsCompraManagerCompras(UsuarioActual) With { - .TipoDocto = "RNC", - .CveProveedor = CveProveedor, - .CveTipoProveedor = CveTipoProveedor, - .CveTipoConceptoProveedor = CveTipoConcepto, - .Descripcion = Descripcion, - .NombreProveedor = NombreProveedor, - .Fecha = Fecha, - .CveMoneda = CveMoneda, - .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), - .Serie = $"PP-{Serie}", - .Folio = $"{Folio}", - .CveCompraAmortizacion = CveCompraRegistrada - } + .TipoDocto = "RNC", + .CveProveedor = CveProveedor, + .CveTipoProveedor = CveTipoProveedor, + .CveTipoConceptoProveedor = CveTipoConcepto, + .Descripcion = Descripcion, + .NombreProveedor = NombreProveedor, + .Fecha = Fecha, + .CveMoneda = CveMoneda, + .TipoCambio = If(CveMoneda = 1, 1, TipoCambio), + .Serie = $"PP-{Serie}", + .Folio = $"{Folio}", + .CveCompraAmortizacion = CveCompraRegistrada, + .CveCompraRelacionada = CveCompraRegistrada + } Dim IVARNCProntoPago As Decimal = (ImporteRNCProntoPago * PorcentajeIVA).RoundSQL(2) CompraRNCProntoPago.ConfiguraRegistroRapido(CvePS_RNC, CveUM, UM, CveClasificacion, Clasificacion, PS, CveSubProyectoPrincipal, SubProyecto, ImporteRNCProntoPago, (ImporteRNCProntoPago + IVARNCProntoPago), IVARNCProntoPago, PorcentajeIVA) @@ -22050,6 +22136,11 @@ Partial Class Compras_Compras End If End If + If RedondearSaldado And respuesta Then + Alert("Saldado correctamente") + End If + + Return respuesta End Function @@ -22865,6 +22956,8 @@ Public Class ClsCompraManagerCompras Public Property CveIE As Integer = -1 Public Property CveCompraAmortizacion As Integer = -1 + Public Property CveCompraRelacionada As Integer = -1 + Public Sub New(UsuarioActual As Usuario) Errores = New StringBuilder @@ -24503,7 +24596,8 @@ Public Class ClsCompraManagerCompras AplicoPromocion:=Me.AplicoPromocion, PorcentajeIVA:=Me.PorcentajeIVA, CveMetodoPago:=Me.CveMetodoPago, CveRetIVAConcepto:=Me.CveRetIVAConcepto, CveConceptoContableAlmacen:=Me.CveConceptoContableAlmacen, CveRetISRConcepto:=Me.CveRetISRConcepto, NoDeducible:=Me.NoDeducible, CveTipoCompra:=Me.CveTipoCompra, TotalOriginal:=Me.TotalOriginal, CveTipoConcepto:=Me.CveTipoConcepto, - EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia) Then + EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia, + CveCompraRelacionada:=CveCompraRelacionada) Then Me.CveCompra = ObjCompras.CveCompra Else respuesta = False diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 00b590813..e77222e90 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -780,7 +780,7 @@
- +
diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index c50f6046b..fde84a39d 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -861,13 +861,18 @@ Partial Class RepCxC DdlTipo.SelectedValueExist(gvRow.DataKey("Tipo")) TxtRI.Text = gvRow.DataKey("RangoInicial") TxtRF.Text = gvRow.DataKey("RangoFinal") - TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00") + TxtRObjetivo.Text = gvRow.DataKey("Objetivo").ToString.ToDecimal.ToString("###.00") + If Not TxtRF.Text.ToDouble > 0 Then ChkMayor.Checked = True TxtRF.Enabled = False + CambioChecked() Else ChkMayor.Checked = False - End If + TxtRF.Enabled = True + End If + + RegistraScript("$('#DivPersonalizarRangoEditar').modal()") UpPersonalizarRangoEditar.Update() End Sub diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx index e402747b2..2521640c5 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx +++ b/Inventarios/PopUpExistenciasAlmacen.aspx @@ -166,7 +166,7 @@ -
+
diff --git a/OP/CatConfiguracionProducto.aspx b/OP/CatConfiguracionProducto.aspx new file mode 100644 index 000000000..360b2c6f8 --- /dev/null +++ b/OP/CatConfiguracionProducto.aspx @@ -0,0 +1,256 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatConfiguracionProducto.aspx.vb" Inherits="OP_CatConfiguracionProducto" %> + + + + + + + Configuración de productos + + + + + + +
  • + +
    • +     +     +     + + + + + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + +     +     + + + + +
    + + + +
    + + + + + + + + diff --git a/OP/CatConfiguracionProducto.aspx.vb b/OP/CatConfiguracionProducto.aspx.vb new file mode 100644 index 000000000..5a9d5c678 --- /dev/null +++ b/OP/CatConfiguracionProducto.aspx.vb @@ -0,0 +1,612 @@ +Imports System.Data +Imports Extensiones + +Partial Class OP_CatConfiguracionProducto + Inherits ClsPaginas + +#Region "PROPIEDADES" + + Private Property CvePS As Integer + Get + If Not ViewState("CvePS") Is Nothing Then + Return ViewState("CvePS").ToString.ToEntero + Else + Return -1 + End If + End Get + Set(value As Integer) + ViewState("CvePS") = value + End Set + End Property + + Private Property CveUM As Integer + Get + If Not ViewState("CveUM") Is Nothing Then + Return ViewState("CveUM").ToString.ToEntero + Else + Return -1 + End If + End Get + Set(value As Integer) + ViewState("CveUM") = value + End Set + End Property + + Private Property DtMP As DataTable + Get + Return CType(ViewState("DtMP"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMP") = value + End Set + End Property + + Private Property DtMO As DataTable + Get + Return CType(ViewState("DtMO"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMO") = value + End Set + End Property + + Private Property DtCI As DataTable + Get + Return CType(ViewState("DtCI"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCI") = value + End Set + End Property + + Private Property DtEliminados As DataTable + Get + Return CType(ViewState("DtEliminados"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtEliminados") = value + End Set + End Property + +#End Region + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CreaDtEliminados() + CargarListadoPrincipal() + CargarCombos() + End If + End Sub + +#Region "CARGAS" + + Private Sub CargarListadoPrincipal() + Using clsOp As New ClsOP() + If clsOp.GetConfiguracionProducto(-1, UsuarioActual.CveEmpresa) Then + GvProductos.DataSource = clsOp.DtResultados + GvProductos.DataBind() + End If + clsOp.Dispose() + UpDatos.Update() + End Using + End Sub + + Private Sub CreaDtEliminados() + DtEliminados = New DataTable + DtEliminados.Columns.Add("Cve", GetType(Integer)) + End Sub + + Private Sub CargarCombos() + + DdlPuesto.DataSource = GlobalDTRHPuestos(UsuarioActual.CveEmpresa) + DdlPuesto.DataBind() + DdlPuesto.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlProductoConfigurar.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlProductoConfigurar.SelectedText = "Seleccione" + DdlProductoConfigurar.SelectedValue = "-1" + Else + DdlProductoConfigurar.ddl.Items.Clear() + DdlProductoConfigurar.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlProductoConfigurar.ddl.DataBind() + DdlProductoConfigurar.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + DdlMateriaPrima.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlMateriaPrima.SelectedText = "Seleccione" + DdlMateriaPrima.SelectedValue = "-1" + Else + DdlMateriaPrima.ddl.Items.Clear() + DdlMateriaPrima.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlMateriaPrima.ddl.DataBind() + DdlMateriaPrima.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + DdlProducto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then + DdlProducto.SelectedText = "Seleccione" + DdlProducto.SelectedValue = "-1" + Else + DdlProducto.ddl.Items.Clear() + DdlProducto.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) + DdlProducto.ddl.DataBind() + DdlProducto.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If + + UpMateriaPrima.Update() + UpManoObra.Update() + UpCostoIndirecto.Update() + End Sub + + Protected Sub DdlPS_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlMateriaPrima.selectedindexchange + DdlPSChange() + End Sub + + Private Sub DdlPSChange() + If DdlMateriaPrima.SelectedValue.ToEntero > 0 Then + Dim PS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlMateriaPrima.SelectedValue.ToEntero).FiltroPrimero("") + + If PS IsNot Nothing Then + DdlUM.Items.Clear() + DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) + DdlUM.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUM.DataBind() + DdlUM.SelectedValueExist(PS("CveUnidadMedida").ToString) + End If + Else + DdlUM.Items.Clear() + DdlUM.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUM.SelectedValue = "-1" + End If + UpMateriaPrima.Update() + End Sub + + Protected Sub DdlPSConfigurar_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlProductoConfigurar.selectedindexchange + DdlPSConfigurarChange() + End Sub + + Private Sub DdlPSConfigurarChange() + If DdlProductoConfigurar.SelectedValue.ToEntero > 0 Then + Dim PS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlProductoConfigurar.SelectedValue.ToEntero).FiltroPrimero("") + + If PS IsNot Nothing Then + DdlUMConfigurar.Items.Clear() + DdlUMConfigurar.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) + DdlUMConfigurar.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUMConfigurar.DataBind() + DdlUMConfigurar.SelectedValueExist(PS("CveUnidadMedida").ToString) + End If + Else + DdlUMConfigurar.Items.Clear() + DdlUMConfigurar.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlUMConfigurar.SelectedValue = "-1" + End If + UpMateriaPrima.Update() + End Sub + +#End Region + +#Region "MATERIA PRIMA" + + Protected Sub BtnMateriaPrima_Click(ByVal sender As Object, ByVal e As EventArgs) + + DdlProductoConfigurar.SelectedText = "Seleccione" + DdlProductoConfigurar.SelectedValue = "-1" + + DdlMateriaPrima.SelectedText = "Seleccione" + DdlMateriaPrima.SelectedValue = "-1" + + DdlUMConfigurar.SelectedValueExist("-1") + DdlUM.SelectedValueExist("-1") + + TxtCantidadMateriaPrima.Text = String.Empty + + DtEliminados.Rows.Clear() + + DivProductoConfigurar.Visible = False + DivUMConfigurar.Visible = False + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + CvePS = GvRow.DataKey("CvePS").ToEntero() + CveUM = GvRow.DataKey("CveUM").ToEntero() + Using clsOp As New ClsOP() + If clsOp.GetMPReceta(CvePS, CveUM, UsuarioActual.CveEmpresa) Then + DtMP = clsOp.DtResultados.FiltraParametros("ISNULL(CveOPPS,0) > 0").Copy() + GvMateriaPrima.DataSource = DtMP + GvMateriaPrima.DataBind() + End If + clsOp.Dispose() + UpMateriaPrima.Update() + End Using + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMateriaPrima")) + End Sub + + Protected Sub BtnEliminarMateriaPrima_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveOPPS = GvRow.DataKey("CveOPPS").ToEntero + Dim Index = GvRow.RowIndex + DtMP.Rows.RemoveAt(Index) + + If CveOPPS > 0 Then + Dim dr As DataRow = DtEliminados.NewRow + dr("Cve") = CveOPPS + DtEliminados.Rows.Add(dr) + End If + + GvMateriaPrima.DataSource = DtMP + GvMateriaPrima.DataBind() + + UpMateriaPrima.Update() + End Sub + + Protected Sub BtnAgregarMateriaPrima_Click(ByVal sender As Object, ByVal e As EventArgs) + + If Not DdlMateriaPrima.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar una materia prima.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not DdlUM.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar una unidad de medida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If String.IsNullOrEmpty(TxtCantidadMateriaPrima.Text) Or Not TxtCantidadMateriaPrima.Text.ToDecimal() > 0 Then + Alert("Es necesario ingresar una cantidad mayor a 0.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim dr As DataRow = DtMP.NewRow + dr("CveOPPS") = -1 + dr("CvePSMateriaPrima") = DdlMateriaPrima.SelectedValue.ToEntero() + dr("CveUMMateriaPrima") = DdlUM.SelectedValue.ToEntero() + dr("productoMateriaPrima") = DdlMateriaPrima.SelectedText + dr("UnidadMedidaMateriaPrima") = DdlUM.SelectedItem.Text + dr("Cantidad") = TxtCantidadMateriaPrima.Text.ToDecimal() + dr("CvePS") = CvePS + dr("CveUM") = CveUM + + DtMP.Rows.Add(dr) + + GvMateriaPrima.DataSource = DtMP + GvMateriaPrima.DataBind() + + DdlProductoConfigurar.SelectedText = "Seleccione" + DdlProductoConfigurar.SelectedValue = "-1" + + DdlMateriaPrima.SelectedText = "Seleccione" + DdlMateriaPrima.SelectedValue = "-1" + + DdlUMConfigurar.SelectedValueExist("-1") + DdlUM.SelectedValueExist("-1") + + TxtCantidadMateriaPrima.Text = String.Empty + + UpMateriaPrima.Update() + + End Sub + + Protected Sub BtnAgregarProducto_Click(ByVal sender As Object, ByVal e As EventArgs) + + DdlProductoConfigurar.SelectedText = "Seleccione" + DdlProductoConfigurar.SelectedValue = "-1" + + DdlMateriaPrima.SelectedText = "Seleccione" + DdlMateriaPrima.SelectedValue = "-1" + + DdlUMConfigurar.SelectedValueExist("-1") + DdlUM.SelectedValueExist("-1") + + TxtCantidadMateriaPrima.Text = String.Empty + + DtEliminados.Rows.Clear() + + CvePS = -1 + CveUM = -1 + + Using clsOp As New ClsOP() + If clsOp.GetMPReceta(CvePS, CveUM, UsuarioActual.CveEmpresa) Then + DtMP = clsOp.DtResultados.FiltraParametros("ISNULL(CveOPPS,0) = 0").Copy() + DtMP.Rows.Clear() + GvMateriaPrima.DataSource = DtMP + GvMateriaPrima.DataBind() + End If + clsOp.Dispose() + End Using + + DivProductoConfigurar.Visible = True + DivUMConfigurar.Visible = True + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddMateriaPrima")) + UpMateriaPrima.Update() + End Sub + +#End Region + +#Region "MANO OBRA" + + Protected Sub BtnManoObra_Click(ByVal sender As Object, ByVal e As EventArgs) + + DdlPuesto.SelectedValueExist("-1") + + TxtHoras.Text = String.Empty + + DtEliminados.Rows.Clear() + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + CvePS = GvRow.DataKey("CvePS").ToEntero + CveUM = GvRow.DataKey("CveUM").ToEntero + Using clsOp As New ClsOP() + If clsOp.GetMOReceta(CvePS, CveUM, UsuarioActual.CveEmpresa) Then + DtMO = clsOp.DtResultados.FiltraParametros("ISNULL(CveOPManoObra,0) > 0").Copy() + GvManoObra.DataSource = DtMO + GvManoObra.DataBind() + End If + clsOp.Dispose() + UpManoObra.Update() + End Using + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddManoObra")) + End Sub + + Protected Sub BtnEliminarManoObra_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveOPManoObra = GvRow.DataKey("CveOPManoObra").ToEntero + Dim Index = GvRow.RowIndex + DtMO.Rows.RemoveAt(Index) + + If CveOPManoObra > 0 Then + Dim dr As DataRow = DtEliminados.NewRow + dr("Cve") = CveOPManoObra + DtEliminados.Rows.Add(dr) + End If + + GvManoObra.DataSource = DtMO + GvManoObra.DataBind() + + UpManoObra.Update() + End Sub + + Protected Sub BtnAgregarManoObra_Click(ByVal sender As Object, ByVal e As EventArgs) + If Not DdlPuesto.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar un puesto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If String.IsNullOrEmpty(TxtHoras.Text) Or Not TxtHoras.Text.ToDecimal() > 0 Then + Alert("Es necesario ingresar una cantidad mayor a 0.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim dr As DataRow = DtMO.NewRow + dr("CveOPManoObra") = -1 + dr("CvePuesto") = DdlPuesto.SelectedValue.ToEntero() + dr("Puesto") = DdlPuesto.SelectedItem.Text + dr("Cantidad") = TxtHoras.Text.ToDecimal() + dr("CvePS") = CvePS + dr("CveUM") = CveUM + + DtMO.Rows.Add(dr) + + GvManoObra.DataSource = DtMO + GvManoObra.DataBind() + + DdlPuesto.SelectedValueExist("-1") + + TxtHoras.Text = String.Empty + + UpManoObra.Update() + End Sub + +#End Region + +#Region "COSTO INDIRECTO" + + Protected Sub BtnCostoIndirecto_Click(ByVal sender As Object, ByVal e As EventArgs) + + DdlProducto.SelectedText = "Seleccione" + DdlProducto.SelectedValue = "-1" + + TxtCosto.Text = String.Empty + + DtEliminados.Rows.Clear() + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + CvePS = GvRow.DataKey("CvePS").ToEntero + CveUM = GvRow.DataKey("CveUM").ToEntero + Using clsOp As New ClsOP() + If clsOp.GetCIReceta(CvePS, CveUM, UsuarioActual.CveEmpresa) Then + DtCI = clsOp.DtResultados.FiltraParametros("ISNULL(CveOPPS,0) > 0").Copy() + GvCostoIndirecto.DataSource = DtCI + GvCostoIndirecto.DataBind() + End If + clsOp.Dispose() + UpCostoIndirecto.Update() + End Using + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddCostoIndirecto")) + End Sub + + Protected Sub BtnEliminarCostoIndirecto_Click(ByVal sender As Object, ByVal e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveOPPS = GvRow.DataKey("CveOPPS").ToEntero + Dim Index = GvRow.RowIndex + DtCI.Rows.RemoveAt(Index) + + If CveOPPS > 0 Then + Dim dr As DataRow = DtEliminados.NewRow + dr("Cve") = CveOPPS + DtEliminados.Rows.Add(dr) + End If + + GvCostoIndirecto.DataSource = DtCI + GvCostoIndirecto.DataBind() + + UpCostoIndirecto.Update() + End Sub + + Protected Sub BtnAgregarCostoIndirecto_Click(ByVal sender As Object, ByVal e As EventArgs) + If Not DdlProducto.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar un producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If String.IsNullOrEmpty(TxtCosto.Text) Or Not TxtCosto.Text.ToDecimal() > 0 Then + Alert("Es necesario ingresar un costo mayor a 0.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim dr As DataRow = DtCI.NewRow + dr("CveOPPS") = -1 + dr("CvePSMateriaPrima") = DdlProducto.SelectedValue.ToEntero() + dr("productoMateriaPrima") = DdlProducto.SelectedText + dr("Cantidad") = TxtCosto.Text.ToDecimal() + dr("CvePS") = CvePS + dr("CveUM") = CveUM + + DtCI.Rows.Add(dr) + + GvCostoIndirecto.DataSource = DtCI + GvCostoIndirecto.DataBind() + + DdlProducto.SelectedText = "Seleccione" + DdlProducto.SelectedValue = "-1" + + TxtCosto.Text = String.Empty + + UpCostoIndirecto.Update() + End Sub + +#End Region + +#Region "GUARDADOS" + + Protected Sub BtnGuardarMP_Click(sender As Object, e As EventArgs) + + If Not DtMP.Rows.Count > 0 Then + Alert("Es necesario que agregue al menos una materia prima.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not DdlProductoConfigurar.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar el producto a configurar.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If Not DdlUM.SelectedValue.ToEntero() > 0 Then + Alert("Es necesario seleccionar la unidad de medida a configurar.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim GuardadoCorrecto As Boolean = True + Dim clsOp As New ClsOP() + clsOp.IniciaTransacSQL() + + If DivProductoConfigurar.Visible Then + + For Each Dr As DataRow In DtMP.Rows + If Not Dr("CveOPPS").ToString().ToEntero() > 0 Then + If Not clsOp.AddMP(Dr("Cantidad").ToString().ToDecimal(), DdlProductoConfigurar.SelectedValue.ToEntero(), Dr("CvePSMateriaPrima").ToString().ToEntero(), DdlUM.SelectedValue.ToEntero(), Dr("CveUMMateriaPrima").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + End If + Next + + Else + For Each Dr As DataRow In DtMP.Rows + If Not Dr("CveOPPS").ToString().ToEntero() > 0 Then + If Not clsOp.AddMP(Dr("Cantidad").ToString().ToDecimal(), Dr("CvePS").ToString().ToEntero(), Dr("CvePSMateriaPrima").ToString().ToEntero(), Dr("CveUM").ToString().ToEntero(), Dr("CveUMMateriaPrima").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + End If + Next + + For Each Dr As DataRow In DtEliminados.Rows + If Not clsOp.RemoveMP(Dr("Cve").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + Next + End If + + If GuardadoCorrecto Then + clsOp.Commit() + Alert("Materia Prima Guardada Correctamente", TipoMensaje.MsgInformacion) + CargarListadoPrincipal() + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddMateriaPrima"), "jsHideModalMP") + Else + clsOp.RollBack() + Alert("Ocurrió un error al guardar la Materia Prima", TipoMensaje.MsgError) + End If + + End Sub + + Protected Sub BtnGuardarMO_Click(sender As Object, e As EventArgs) + + Dim GuardadoCorrecto As Boolean = True + + Dim clsOp As New ClsOP() + clsOp.IniciaTransacSQL() + + For Each Dr As DataRow In DtMO.Rows + If Not Dr("CveOPManoObra").ToString().ToEntero() > 0 Then + If Not clsOp.AddMO(Dr("Cantidad").ToString().ToDecimal(), Dr("CvePS").ToString().ToEntero(), Dr("CvePuesto").ToString().ToEntero(), Dr("CveUM").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + End If + Next + + For Each Dr As DataRow In DtEliminados.Rows + If Not clsOp.RemoveMO(Dr("Cve").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + Next + + If GuardadoCorrecto Then + clsOp.Commit() + Alert("Mano de Obra Guardada Correctamente", TipoMensaje.MsgInformacion) + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddManoObra"), "jsHideModalMO") + Else + clsOp.RollBack() + Alert("Ocurrió un error al guardar la Mano de Obra", TipoMensaje.MsgError) + End If + + End Sub + + Protected Sub BtnGuardarCI_Click(sender As Object, e As EventArgs) + + Dim GuardadoCorrecto As Boolean = True + + Dim clsOp As New ClsOP() + clsOp.IniciaTransacSQL() + + For Each Dr As DataRow In DtCI.Rows + If Not Dr("CveOPPS").ToString().ToEntero() > 0 Then + If Not clsOp.AddCI(Dr("Cantidad").ToString().ToDecimal(), Dr("CvePS").ToString().ToEntero(), Dr("CvePSMateriaPrima").ToString().ToEntero(), Dr("CveUM").ToString().ToEntero(), Dr("CveUMMateriaPrima").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + End If + Next + + For Each Dr As DataRow In DtEliminados.Rows + If Not clsOp.RemoveCI(Dr("Cve").ToString().ToEntero()) Then + GuardadoCorrecto = False + End If + Next + + If GuardadoCorrecto Then + clsOp.Commit() + Alert("Costo Indirecto Guardado Correctamente", TipoMensaje.MsgInformacion) + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddCostoIndirecto"), "jsHideModalCI") + Else + clsOp.RollBack() + Alert("Ocurrió un error al guardar el Costo Indirecto", TipoMensaje.MsgError) + End If + + End Sub + +#End Region + +End Class diff --git a/Ventas/PVCobranza.aspx b/Ventas/PVCobranza.aspx index 5a0ae6e9a..67ea2b63d 100644 --- a/Ventas/PVCobranza.aspx +++ b/Ventas/PVCobranza.aspx @@ -203,6 +203,9 @@
  • Cobros en Transcurso
    • +
  • + Ver estados de las cajas +
    • @@ -1325,6 +1328,51 @@ + + + + + + + +