diff --git a/AF/AF.aspx b/AF/AF.aspx index 741f42d39..d5eab06f6 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -267,11 +267,11 @@ - + <%-- - + --%> diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb index 5da9f7191..2b9409625 100644 --- a/AF/AF.aspx.vb +++ b/AF/AF.aspx.vb @@ -265,6 +265,19 @@ Partial Class AF_AF End Set End Property + Private Property IndexProduccion As Integer + Get + If ViewState("IndexProduccion") Is Nothing Then + ViewState("IndexProduccion") = -1 + End If + Return ViewState("IndexProduccion").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IndexProduccion") = value + End Set + End Property + + Private Property CveMantenimiento As Integer Get If ViewState("CveMantenimiento") Is Nothing Then @@ -278,6 +291,18 @@ Partial Class AF_AF End Property + Private Property IndexMantenimiento As Integer + Get + If ViewState("IndexMantenimiento") Is Nothing Then + ViewState("IndexMantenimiento") = -1 + End If + Return ViewState("IndexMantenimiento").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IndexMantenimiento") = value + End Set + End Property + Private Property CvePlagaEnfermedad As Integer Get If ViewState("CvePlagaEnfermedad") Is Nothing Then @@ -290,8 +315,62 @@ Partial Class AF_AF End Set End Property + + Private Property IndexPlagaEnfermedad As Integer + Get + If ViewState("IndexPlagaEnfermedad") Is Nothing Then + ViewState("IndexPlagaEnfermedad") = -1 + End If + Return ViewState("IndexPlagaEnfermedad").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("IndexPlagaEnfermedad") = value + End Set + End Property + #End Region + + + Private Property DT_Produccion As DataTable + Get + If ViewState("DT_Produccion") Is Nothing Then + ViewState("DT_Produccion") = CreaDTProduccion() + End If + Return DirectCast(ViewState("DT_Produccion"), DataTable) + End Get + Set(value As DataTable) + ViewState("DT_Produccion") = value + End Set + End Property + + + Private Property DT_PlgaEfermedad As DataTable + Get + If ViewState("DT_PlgaEfermedad") Is Nothing Then + ViewState("DT_PlgaEfermedad") = CreaDTPlagaEngermedad() + End If + Return DirectCast(ViewState("DT_PlgaEfermedad"), DataTable) + End Get + Set(value As DataTable) + ViewState("DT_PlgaEfermedad") = value + End Set + End Property + + + Private Property DT_Mantenimiento As DataTable + Get + If ViewState("DT_Mantenimiento") Is Nothing Then + ViewState("DT_Mantenimiento") = CreaDTMantenimiento() + End If + Return DirectCast(ViewState("DT_Mantenimiento"), DataTable) + End Get + Set(value As DataTable) + ViewState("DT_Mantenimiento") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -311,6 +390,7 @@ Partial Class AF_AF CargaProduccion() CargaMantenimento() CargaPlagaEnfermedad() + ModalidadesPaginaAF() 'Configuración de Modalidad Update BtnGuardar.Text = "Guardar Cambios" @@ -343,9 +423,11 @@ Partial Class AF_AF If Request("Op") IsNot Nothing Then - ModalidadesPaginaAF(Request("Op").ToString) - End If - + ModalidadesPaginaAFInicial(Request("Op").ToString) + End If + + + End If End Sub Private Sub cargaOrdenesdeservicio() @@ -431,7 +513,9 @@ Partial Class AF_AF CveEmpresaActual = UsuarioActual.CveEmpresa End Sub - Private Sub ModalidadesPaginaAF(Optional Op As String = "") + + + Private Sub ModalidadesPaginaAFInicial(Optional Op As String = "") TabProduccion.Visible = False TabPlagaEnfermedad.Visible = False @@ -440,28 +524,113 @@ Partial Class AF_AF LblFechaCompra.Text = "Fecha de Compra:" LblFechaBaja.Text = "Fecha de Baja:" - 'Arbol Frutal - If DdlTipoActivoFijo.SelectedValue.ToEntero = 150 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1936 And CveActivoFijo > 0 Then + + If Op.Length > 0 Then + + 'Arbol Frutal + If Op = "AR" Then + + Dim CveTipoActivoFijoTmp As Integer = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo").FiltroPrimeroValor("CveTipoActivoFijo", $"TipoActivoFijo = 'ARBOLES FRUTALES'").ToEntero + DdlTipoActivoFijo.SelectedValueExist(CveTipoActivoFijoTmp) + DdlTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + Dim CveSubTipoActivoFijoTemp As Integer = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format(" CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo").FiltroPrimeroValor("CveSubTipoActivoFijo", $"SubTipoActivoFijo = 'ARBOLES FRUTALES'").ToEntero + DdlSubTipoActivoFijo.SelectedValueExist(CveSubTipoActivoFijoTemp) + DdlSubTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + + LblFechaCompra.Text = "Fecha de Nacimiento" + LblFechaBaja.Text = "Fecha de Muerte" + TabProduccion.Visible = True + + End If + + 'Arbol Apicola + If Op = "AP" Then + + + Dim CveTipoActivoFijoTmp As Integer = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo").FiltroPrimeroValor("CveTipoActivoFijo", $"TipoActivoFijo = 'APICOLAS'").ToEntero + DdlTipoActivoFijo.SelectedValueExist(CveTipoActivoFijoTmp) + DdlTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + Dim CveSubTipoActivoFijoTemp As Integer = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format(" CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo").FiltroPrimeroValor("CveSubTipoActivoFijo", $"SubTipoActivoFijo = 'APICOLAS'").ToEntero + DdlSubTipoActivoFijo.SelectedValueExist(CveSubTipoActivoFijoTemp) + DdlSubTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + TabPlagaEnfermedad.Visible = True + + End If + + 'Pozos + If Op = "PO" Then + + + Dim CveTipoActivoFijoTmp As Integer = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo").FiltroPrimeroValor("CveTipoActivoFijo", $"TipoActivoFijo = 'POZOS'").ToEntero + DdlTipoActivoFijo.SelectedValueExist(CveTipoActivoFijoTmp) + DdlTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + Dim CveSubTipoActivoFijoTemp As Integer = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format(" CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo").FiltroPrimeroValor("CveSubTipoActivoFijo", $"SubTipoActivoFijo = 'POZOS'").ToEntero + DdlSubTipoActivoFijo.SelectedValueExist(CveSubTipoActivoFijoTemp) + DdlSubTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + TabServyMant.Visible = True + End If + + 'Inmuebles + If Op = "IN" Then + + Dim CveTipoActivoFijoTmp As Integer = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo").FiltroPrimeroValor("CveTipoActivoFijo", $"TipoActivoFijo = 'INMUEBLES'").ToEntero + DdlTipoActivoFijo.SelectedValueExist(CveTipoActivoFijoTmp) + DdlTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + Dim CveSubTipoActivoFijoTemp As Integer = GlobalDTSubTipoActivoFijo(CveEmpresaActual).FiltraParametros(String.Format(" CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo").FiltroPrimeroValor("CveSubTipoActivoFijo", $"SubTipoActivoFijo = 'INMUEBLES'").ToEntero + DdlSubTipoActivoFijo.SelectedValueExist(CveSubTipoActivoFijoTemp) + DdlSubTipoActivoFijo_SelectedIndexChanged(Nothing, Nothing) + + End If + + UpDatos.Update() + + End If + + End Sub + + + Private Sub ModalidadesPaginaAF() + + TabProduccion.Visible = False + TabPlagaEnfermedad.Visible = False + TabServyMant.Visible = False + + LblFechaCompra.Text = "Fecha de Compra:" + LblFechaBaja.Text = "Fecha de Baja:" + + + If DdlTipoActivoFijo.SelectedItem.Text = "ARBOLES FRUTALES" And DdlSubTipoActivoFijo.SelectedItem.Text = "ARBOLES FRUTALES" Then LblFechaCompra.Text = "Fecha de Nacimiento" LblFechaBaja.Text = "Fecha de Muerte" TabProduccion.Visible = True End If 'Arbol Apicola - If DdlTipoActivoFijo.SelectedValue.ToEntero = 151 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1937 And CveActivoFijo > 0 Then + If DdlTipoActivoFijo.SelectedItem.Text = "APICOLAS" And DdlSubTipoActivoFijo.SelectedItem.Text = "APICOLAS" Then TabPlagaEnfermedad.Visible = True End If 'Pozos - If DdlTipoActivoFijo.SelectedValue.ToEntero = 152 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1938 And CveActivoFijo > 0 Then + If DdlTipoActivoFijo.SelectedItem.Text = "POZOS" And DdlSubTipoActivoFijo.SelectedItem.Text = "POZOS" Then TabServyMant.Visible = True End If 'Inmuebles - If DdlTipoActivoFijo.SelectedValue.ToEntero = 153 And DdlSubTipoActivoFijo.SelectedValue.ToEntero = 1939 And CveActivoFijo > 0 Then + If DdlTipoActivoFijo.SelectedItem.Text = "INMUEBLES" And DdlSubTipoActivoFijo.SelectedItem.Text = "INMUEBLES" Then End If + + + + UpDatos.Update() End Sub @@ -580,12 +749,84 @@ Partial Class AF_AF DdlModalCultivosCuadro.DataBind() DdlModalCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End Sub + + + Private Function CreaDTProduccion() As DataTable + 'CveProduccion, CveActivoFijo, CveCultivoCuadroDetalle, Cantidad, Fecha, CveUsuario, FechaIng, Codigo, Descripcion, Usuario, Cuadro + + Dim DTProduccion As New DataTable + + + DTProduccion.Columns.Add("CveProduccion", GetType(Integer)) + DTProduccion.Columns.Add("CveActivoFijo", GetType(Integer)) + DTProduccion.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer)) + DTProduccion.Columns.Add("Cantidad", GetType(Decimal)) + DTProduccion.Columns.Add("Fecha", GetType(Date)) + DTProduccion.Columns.Add("Cuadro", GetType(String)) + + DTProduccion.Columns.Add("CveUsuario", GetType(Integer)) + DTProduccion.Columns.Add("FechaIng", GetType(Date)) + DTProduccion.Columns.Add("Codigo", GetType(String)) + DTProduccion.Columns.Add("Descripcion", GetType(String)) + DTProduccion.Columns.Add("Usuario", GetType(String)) + + + Return DTProduccion + + End Function + + Private Function CreaDTPlagaEngermedad() As DataTable + 'CvePlagaEnfermedad,CveActivoFijo,Observaciones,Fecha,CveUsuario,FechaIng + Dim DTPlgaEfermedad As New DataTable + + DTPlgaEfermedad.Columns.Add("CvePlagaEnfermedad", GetType(Integer)) + DTPlgaEfermedad.Columns.Add("CveActivoFijo", GetType(Integer)) + + DTPlgaEfermedad.Columns.Add("Observaciones", GetType(String)) + DTPlgaEfermedad.Columns.Add("Fecha", GetType(Date)) + + DTPlgaEfermedad.Columns.Add("CveUsuario", GetType(Integer)) + DTPlgaEfermedad.Columns.Add("FechaIng", GetType(Date)) + + DTPlgaEfermedad.Columns.Add("Usuario", GetType(String)) + + + + Return DTPlgaEfermedad + + End Function + + Private Function CreaDTMantenimiento() As DataTable + 'CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion,Usuario,Archivo + Dim DTMantenimiento As New DataTable + + DTMantenimiento.Columns.Add("CveMantenimiento", GetType(Integer)) + DTMantenimiento.Columns.Add("CveActivoFijo", GetType(Integer)) + + DTMantenimiento.Columns.Add("Mantenimiento", GetType(String)) + DTMantenimiento.Columns.Add("Observaciones", GetType(String)) + DTMantenimiento.Columns.Add("Fecha", GetType(Date)) + DTMantenimiento.Columns.Add("FechaIng", GetType(Date)) + + DTMantenimiento.Columns.Add("CveUsuario", GetType(Integer)) + DTMantenimiento.Columns.Add("Codigo", GetType(String)) + DTMantenimiento.Columns.Add("Descripcion", GetType(String)) + DTMantenimiento.Columns.Add("Usuario", GetType(String)) + DTMantenimiento.Columns.Add("Archivo", GetType(String)) + + + Return DTMantenimiento + + End Function + + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged CargaSubProyecto() End Sub Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged CargaFolios() + CargaCultivos() End Sub Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged @@ -2247,6 +2488,83 @@ Partial Class AF_AF Else ErrorGuardar = True End If + + If Not ErrorGuardar Then + + For Each GvRowProduccion As GridViewRow In GvProduccion.Rows + If Not ObjAF.AddProduccion(ObjAF.CveActivoFijo, GvRowProduccion.DataKey("CveCultivoCuadroDetalle").ToEntero, GvRowProduccion.DataKey("Cantidad").ToDecimal, GvRowProduccion.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario) Then + ErrorGuardar = True + Exit For + End If + Next + + + If Not ErrorGuardar Then + For Each GvRowPlagaEnfermedad As GridViewRow In GvPlagaEnfermedad.Rows + If Not ObjAF.AddPlagaEnfermedad(ObjAF.CveActivoFijo, GvRowPlagaEnfermedad.DataKey("Observaciones"), GvRowPlagaEnfermedad.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario) Then + ErrorGuardar = True + Exit For + End If + Next + End If + + + + If Not ErrorGuardar Then + + + For Each GvRowMantenimiento As GridViewRow In GvMantenimientos.Rows + + Dim CveMantenimientoTemp As Integer = ObjAF.AddMantenimientos(ObjAF.CveActivoFijo, GvRowMantenimiento.DataKey("Mantenimiento"), GvRowMantenimiento.DataKey("Observaciones"), GvRowMantenimiento.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario, "") + + If CveMantenimientoTemp > 0 Then + + If GvRowMantenimiento.DataKey("Archivo").Trim.Length > 0 Then + + Dim fi As New FileInfo(GvRowMantenimiento.DataKey("Archivo").Trim) + + If fi.Exists Then + + Dim Filename As String = fi.Name + Dim FileExtension As String = IO.Path.GetExtension(fi.FullName) + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}")) + If Archivo.Exists() Then + Archivo.Delete() + End If + + If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then + ErrorGuardar = True + Alert("Error al mover Archivo", TipoMensaje.MsgError) + End If + + If Not ErrorGuardar Then + If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, ObjAF.CveActivoFijo, GvRowMantenimiento.DataKey("Mantenimiento"), GvRowMantenimiento.DataKey("Observaciones"), GvRowMantenimiento.DataKey("Fecha").ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}{FileExtension}") Then + ErrorGuardar = True + End If + End If + + End If + + End If + + + Else + ErrorGuardar = True + Exit For + End If + + Next + + + + End If + + + + + End If + End If 'PREPOLIZA DE IMPORTACION DESDE ALMACEN @@ -2780,6 +3098,7 @@ Partial Class AF_AF CargaCaracteristicas() CargaDispositivos() ModalidadesPaginaAF() + End Sub #Region "CARGAR CUENTA CONTABLE" @@ -3853,15 +4172,26 @@ Partial Class AF_AF Private Sub CargaProduccion() - Dim ObjAF As New ClsAF - If ObjAF.GetProduccion(CveActivoFijo, UsuarioActual.CveEmpresa) Then - GvProduccion.DataSource = ObjAF.DtResultados + + If CveActivoFijo > 0 Then + + Dim ObjAF As New ClsAF + + If ObjAF.GetProduccion(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvProduccion.DataSource = ObjAF.DtResultados + Else + GvProduccion.DataSource = Nothing + End If + + ObjAF.Dispose() + + Else - GvProduccion.DataSource = Nothing + GvProduccion.DataSource = DT_Produccion End If - ObjAF.Dispose() + GvProduccion.DataBind() UpProduccion.Update() @@ -3871,9 +4201,13 @@ Partial Class AF_AF Protected Sub LnkAgregarProduccion_Click(sender As Object, e As EventArgs) + + CveProduccion = -1 + IndexProduccion = -1 + LblModaProduccionTitulo.Text = "Agregar Producción" LnkModalAgregarProduccion.Text = "Agregar" - CveProduccion = -1 + DdlModalCultivosCuadro.SelectedValueExist(-1) TxtModalProduccionCantidad.Text = "" @@ -3888,7 +4222,15 @@ Partial Class AF_AF Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CveProduccion = GvRow.DataKey("CveProduccion").ToEntero + + + If CveActivoFijo > 0 Then + CveProduccion = GvRow.DataKey("CveProduccion").ToEntero + Else + IndexProduccion = GvRow.RowIndex + End If + + Dim CveCultivoCuadroDetalle As Integer = GvRow.DataKey("CveCultivoCuadroDetalle").ToEntero Dim Cantidad As Decimal = GvRow.DataKey("Cantidad").ToDecimal Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate @@ -3910,21 +4252,29 @@ Partial Class AF_AF Protected Sub LnkGvProduccionRemove_Click(sender As Object, e As EventArgs) Dim ErrorProceso As Boolean = False + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveProduccionEliminar As Integer = GvRow.DataKey("CveProduccion").ToEntero + If CveActivoFijo > 0 Then - Dim ObjAF As New ClsAF + Dim CveProduccionEliminar As Integer = GvRow.DataKey("CveProduccion").ToEntero + Dim ObjAF As New ClsAF + If ObjAF.RemoveProduccion(CveProduccionEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + ObjAF.Dispose() - If ObjAF.RemoveProduccion(CveProduccionEliminar, UsuarioActual.CveEmpresa) Then - ErrorProceso = False Else - ErrorProceso = True + Dim IndexProduccionEliminar As Integer = GvRow.RowIndex + + DT_Produccion.Rows(IndexProduccionEliminar).Delete() + DT_Produccion.AcceptChanges() + ErrorProceso = False + End If - ObjAF.Dispose() - - If Not ErrorProceso Then Alert("Producción Eliminada Correctamente.") CargaProduccion() @@ -3936,28 +4286,60 @@ Partial Class AF_AF Protected Sub LnkModalAgregarProduccion_Click(sender As Object, e As EventArgs) Dim ErrorProceso As Boolean = False - Dim ObjAF As New ClsAF - If CveProduccion > 0 Then - If ObjAF.UpdateProduccion(CveProduccion, CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then - ErrorProceso = False + + + + + If CveActivoFijo > 0 Then + + Dim ObjAF As New ClsAF + + If CveProduccion > 0 Then + If ObjAF.UpdateProduccion(CveProduccion, CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If Else - ErrorProceso = True + If ObjAF.AddProduccion(CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If End If + + ObjAF.Dispose() + Else - If ObjAF.AddProduccion(CveActivoFijo, DdlModalCultivosCuadro.SelectedValue.ToEntero, TxtModalProduccionCantidad.Text.ToDecimal, TxtModalProduccionFecha.Text.ToDate, UsuarioActual.CveUsuario) Then - ErrorProceso = False + + + If IndexProduccion >= 0 Then + DT_Produccion.Rows(IndexProduccion)("Cuadro") = DdlModalCultivosCuadro.SelectedItem.Text + DT_Produccion.Rows(IndexProduccion)("CveCultivoCuadroDetalle") = DdlModalCultivosCuadro.SelectedValue.ToEntero + DT_Produccion.Rows(IndexProduccion)("Fecha") = TxtModalProduccionFecha.Text.ToDate + DT_Produccion.Rows(IndexProduccion)("Cantidad") = TxtModalProduccionCantidad.Text.ToDecimal Else - ErrorProceso = True + + Dim nRow As DataRow = DT_Produccion.NewRow + + nRow("Cuadro") = DdlModalCultivosCuadro.SelectedItem.Text + nRow("CveCultivoCuadroDetalle") = DdlModalCultivosCuadro.SelectedValue.ToEntero + nRow("Fecha") = TxtModalProduccionFecha.Text.ToDate + nRow("Cantidad") = TxtModalProduccionCantidad.Text.ToDecimal + + DT_Produccion.Rows.Add(nRow) + ErrorProceso = False + End If + + DT_Produccion.AcceptChanges() + End If - - ObjAF.Dispose() - If Not ErrorProceso Then - RegistraScript("$('#DVModalMantenimiento').modal('hide');") + RegistraScript("$('#DVModalProduccion').modal('hide');") Alert("Producción Agregada Correctamente.") CargaProduccion() End If @@ -3973,15 +4355,21 @@ Partial Class AF_AF Private Sub CargaMantenimento() - Dim ObjAF As New ClsAF + If CveActivoFijo > 0 Then + + Dim ObjAF As New ClsAF + If ObjAF.GetMantenimientos(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvMantenimientos.DataSource = ObjAF.DtResultados + Else + GvMantenimientos.DataSource = Nothing + End If + ObjAF.Dispose() - If ObjAF.GetMantenimientos(CveActivoFijo, UsuarioActual.CveEmpresa) Then - GvMantenimientos.DataSource = ObjAF.DtResultados Else - GvMantenimientos.DataSource = Nothing + GvMantenimientos.DataSource = DT_Mantenimiento End If - ObjAF.Dispose() + GvMantenimientos.DataBind() UpMantenimientos.Update() @@ -3991,10 +4379,14 @@ Partial Class AF_AF Protected Sub LnkAgregarMantenimiento_Click(sender As Object, e As EventArgs) + + CveMantenimiento = -1 + IndexMantenimiento = -1 + LblModaMantenimientoTitulo.Text = "Agregar Mantenimiento" LnkModalAgregarMantenimiento.Text = "Agregar" - CveMantenimiento = -1 + TxtModalMantenimiento.Text = "" TxtModalMantenimientoObservaciones.Text = "" @@ -4011,7 +4403,13 @@ Partial Class AF_AF Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'CveMantenimiento, CveActivoFijo, Mantenimiento, Observaciones, Fecha, FechaIng, CveUsuario, Codigo, Descripcion, Usuario - CveMantenimiento = GvRow.DataKey("CveMantenimiento").ToEntero + + If CveActivoFijo > 0 Then + CveMantenimiento = GvRow.DataKey("CveMantenimiento").ToEntero + Else + IndexMantenimiento = GvRow.RowIndex + End If + Dim Mantenimiento As String = GvRow.DataKey("Mantenimiento") Dim Observaciones As String = GvRow.DataKey("Observaciones") @@ -4036,18 +4434,26 @@ Partial Class AF_AF Dim ErrorProceso As Boolean = False Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveMantenimientoEliminar As Integer = GvRow.DataKey("CveMantenimiento").ToEntero + Dim IndexMantenimientoEliminar As Integer = GvRow.RowIndex - Dim ObjAF As New ClsAF + If CveActivoFijo > 0 Then + Dim CveMantenimientoEliminar As Integer = GvRow.DataKey("CveMantenimiento").ToEntero + Dim ObjAF As New ClsAF + If ObjAF.RemoveMantenimientos(CveMantenimientoEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + ObjAF.Dispose() - If ObjAF.RemoveMantenimientos(CveMantenimientoEliminar, UsuarioActual.CveEmpresa) Then - ErrorProceso = False Else - ErrorProceso = True + + DT_Mantenimiento.Rows(IndexMantenimientoEliminar).Delete() + DT_Mantenimiento.AcceptChanges() + End If - ObjAF.Dispose() If Not ErrorProceso Then @@ -4065,58 +4471,13 @@ Partial Class AF_AF ObjAF.IniciaTransacSQL() - If CveMantenimiento > 0 Then + If CveActivoFijo > 0 Then - Dim FileExtension As String = "" - Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos - Dim Filename As String = "-1" - - If Filesgral.Count > 0 Then - - For Each fileItem As Archivo In Filesgral - FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") - Filename = fileItem.filename - Exit For - Next - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimiento}.{FileExtension}")) - If Archivo.Exists() Then - Archivo.Delete() - End If - - - If Not Filename.FilesMove(String.Format("{0}", CveMantenimiento.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then - ErrorProceso = True - Alert("Error al mover Archivo", TipoMensaje.MsgError) - End If - - End If - - If Not ErrorProceso Then - If Not ObjAF.UpdateMantenimientos(CveMantenimiento, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimiento}.{FileExtension}") Then - ErrorProceso = True - End If - End If - - - Else - - - Dim CveMantenimientoTemp As Integer = -1 - - - CveMantenimientoTemp = ObjAF.AddMantenimientos(CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, "-1") - If CveMantenimientoTemp > 0 Then - ErrorProceso = False - Else - ErrorProceso = True - End If - - If Not ErrorProceso Then + If CveMantenimiento > 0 Then Dim FileExtension As String = "" Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos - Dim Filename As String = "" + Dim Filename As String = "-1" If Filesgral.Count > 0 Then @@ -4126,57 +4487,173 @@ Partial Class AF_AF Exit For Next - Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}")) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimiento}.{FileExtension}")) If Archivo.Exists() Then Archivo.Delete() End If - If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then + If Not Filename.FilesMove(String.Format("{0}", CveMantenimiento.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then ErrorProceso = True Alert("Error al mover Archivo", TipoMensaje.MsgError) End If - If Not ErrorProceso Then - If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}.{FileExtension}") Then - ErrorProceso = True - End If - End If - - End If + If Not ErrorProceso Then + If Not ObjAF.UpdateMantenimientos(CveMantenimiento, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimiento}.{FileExtension}") Then + ErrorProceso = True + End If + End If + Else + Dim CveMantenimientoTemp As Integer = -1 + + CveMantenimientoTemp = ObjAF.AddMantenimientos(CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, "-1") + If CveMantenimientoTemp > 0 Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + If Not ErrorProceso Then + + Dim FileExtension As String = "" + Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos + Dim Filename As String = "" + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + Filename = fileItem.filename + Exit For + Next + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}AF\Mantenimientos\{1}", UsuarioActual.Empresa.Ruta, $"{CveMantenimientoTemp}.{FileExtension}")) + If Archivo.Exists() Then + Archivo.Delete() + End If + + + If Not Filename.FilesMove(String.Format("{0}", CveMantenimientoTemp.ToString), String.Format("{0}AF\Mantenimientos", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) Then + ErrorProceso = True + Alert("Error al mover Archivo", TipoMensaje.MsgError) + End If + + If Not ErrorProceso Then + If Not ObjAF.UpdateMantenimientos(CveMantenimientoTemp, CveActivoFijo, TxtModalMantenimiento.Text, TxtModalMantenimientoObservaciones.Text, TxtModalMantenimientoFecha.Text.ToDate, UsuarioActual.CveUsuario, $"{CveMantenimientoTemp}.{FileExtension}") Then + ErrorProceso = True + End If + End If + End If + End If End If + + If Not ErrorProceso Then + TxtArchivoMantenimiento.Text = "" + UpModalMantenimiento.Update() + End If + + + If Not ErrorProceso Then + ObjAF.Commit() + ObjAF.Dispose() + + 'RegistraScript("$('#DVModalMantenimiento').modal('hide');") + 'Alert("Mantenimiento Guardado Correctamente.") + 'CargaMantenimento() + Else + ObjAF.RollBack() + ObjAF.Dispose() + End If + + + Else + + Dim Filesgral As List(Of Archivo) = TxtArchivoMantenimiento.getfiles().Archivos + + + If IndexMantenimiento >= 0 Then + + DT_Mantenimiento.Rows(IndexMantenimiento)("Mantenimiento") = TxtModalMantenimiento.Text + DT_Mantenimiento.Rows(IndexMantenimiento)("Observaciones") = TxtModalMantenimientoObservaciones.Text + DT_Mantenimiento.Rows(IndexMantenimiento)("Fecha") = TxtModalMantenimientoFecha.Text.ToDate + + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + + Dim fi As New FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)) + + If fi.Exists Then + DT_Mantenimiento.Rows(IndexMantenimiento)("Archivo") = fi.FullName + End If + + Exit For + Next + End If + + DT_Mantenimiento.AcceptChanges() + + Else + + Dim nRow As DataRow = DT_Mantenimiento.NewRow + + nRow("Mantenimiento") = TxtModalMantenimiento.Text + nRow("Observaciones") = TxtModalMantenimientoObservaciones.Text + nRow("Fecha") = TxtModalMantenimientoFecha.Text.ToDate + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + + Dim fi As New FileInfo(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)) + + If fi.Exists Then + nRow("Archivo") = fi.FullName + End If + + Exit For + Next + End If + + DT_Mantenimiento.Rows.Add(nRow) + DT_Mantenimiento.AcceptChanges() + + End If + + TxtArchivoMantenimiento.Text = "" + End If - - - - - If Not ErrorProceso Then - ObjAF.Commit() - ObjAF.Dispose() - RegistraScript("$('#DVModalMantenimiento').modal('hide');") Alert("Mantenimiento Guardado Correctamente.") CargaMantenimento() - Else - ObjAF.RollBack() - ObjAF.Dispose() End If + + End Sub Protected Sub LnkDescargaArcgivo_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim Archivo As String = GvRow.DataKey("Archivo") - Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") + + Dim InfArchivo As FileInfo + + If CveActivoFijo > 0 Then + InfArchivo = New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") + Else + InfArchivo = New FileInfo(Archivo) + End If If InfArchivo.Exists Then + Response.Clear() Response.AppendHeader("Content-Disposition", "attachment; filename=" + InfArchivo.Name) Response.AppendHeader("Content-Length", InfArchivo.Length.ToString()) @@ -4184,6 +4661,7 @@ Partial Class AF_AF Response.WriteFile(InfArchivo.FullName) Response.End() + End If @@ -4195,13 +4673,27 @@ Partial Class AF_AF If e.Row.RowType = DataControlRowType.DataRow Then Dim Archivo As String = e.Row.DataKey("Archivo") - Dim InfArchivo As New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") - If InfArchivo.Exists Then - e.Row.FCLinkButton("LnkDescargaArcgivo").Visible = True - ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkDescargaArcgivo")) + If Archivo.Length > 0 Then + + + Dim InfArchivo As FileInfo + + If CveActivoFijo > 0 Then + InfArchivo = New FileInfo($"{UsuarioActual.Empresa.Ruta}\AF\Mantenimientos\{Archivo}") + Else + InfArchivo = New FileInfo(Archivo) + End If + + If InfArchivo.Exists Then + e.Row.FCLinkButton("LnkDescargaArcgivo").Visible = True + ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LnkDescargaArcgivo")) + End If + + End If + End If End Sub @@ -4215,15 +4707,22 @@ Partial Class AF_AF Private Sub CargaPlagaEnfermedad() - Dim ObjAF As New ClsAF - If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then - GvPlagaEnfermedad.DataSource = ObjAF.DtResultados + + If CveActivoFijo > 0 Then + Dim ObjAF As New ClsAF + If ObjAF.GetPlagaEnfermedad(CveActivoFijo, UsuarioActual.CveEmpresa) Then + GvPlagaEnfermedad.DataSource = ObjAF.DtResultados + Else + GvPlagaEnfermedad.DataSource = Nothing + End If + + ObjAF.Dispose() Else - GvPlagaEnfermedad.DataSource = Nothing + GvPlagaEnfermedad.DataSource = DT_PlgaEfermedad End If - ObjAF.Dispose() + GvPlagaEnfermedad.DataBind() UpPlagaEnfermedad.Update() @@ -4233,10 +4732,18 @@ Partial Class AF_AF Protected Sub LnkAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs) + + If CveActivoFijo > 0 Then + CvePlagaEnfermedad = -1 + Else + IndexProduccion = -1 + End If + + LblModalTituloPlagaEnfermedad.Text = "Agregar Plaga Enfermedad" LnkModalAgregarProduccion.Text = "Agregar" - CvePlagaEnfermedad = -1 + TxtModalPlagaEnfermedadObservaciones.Text = "" TxtModalPlagaEnfermedadFecha.Text = "" @@ -4250,7 +4757,11 @@ Partial Class AF_AF Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero + If CveActivoFijo > 0 Then + CvePlagaEnfermedad = GvRow.DataKey("CvePlagaEnfermedad").ToEntero + Else + IndexPlagaEnfermedad = GvRow.RowIndex + End If Dim Observaciones As String = GvRow.DataKey("Observaciones") Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate @@ -4271,22 +4782,31 @@ Partial Class AF_AF Protected Sub LnkGvPlagaEnfermedadRemove_Click(sender As Object, e As EventArgs) - Dim ErrorProceso As Boolean = False Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero - Dim ObjAF As New ClsAF + Dim ErrorProceso As Boolean = False - If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then - ErrorProceso = False + If CveActivoFijo > 0 Then + Dim CvePlagaEnfermedadEliminar As Integer = GvRow.DataKey("CvePlagaEnfermedad").ToEntero + Dim ObjAF As New ClsAF + + If ObjAF.RemovePlagaEnfermedad(CvePlagaEnfermedadEliminar, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + Else + ErrorProceso = True + End If + + ObjAF.Dispose() Else - ErrorProceso = True + + Dim IndexPlagaEnfermedadEliminar As Integer = GvRow.RowIndex + DT_PlgaEfermedad.Rows(IndexPlagaEnfermedadEliminar).Delete() + DT_PlgaEfermedad.AcceptChanges() + ErrorProceso = False + End If - ObjAF.Dispose() - - If Not ErrorProceso Then Alert("Plaga Enfermedad Eliminada Correctamente.") CargaPlagaEnfermedad() @@ -4298,25 +4818,54 @@ Partial Class AF_AF Protected Sub LnkModalAgregarPlagaEnfermedad_Click(sender As Object, e As EventArgs) Dim ErrorProceso As Boolean = False - Dim ObjAF As New ClsAF - If CvePlagaEnfermedad > 0 Then - If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then - ErrorProceso = False + + If CveActivoFijo > 0 Then + + Dim ObjAF As New ClsAF + If CvePlagaEnfermedad > 0 Then + If ObjAF.UpdatePlagaEnfermedad(CvePlagaEnfermedad, CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If Else - ErrorProceso = True + If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then + ErrorProceso = False + Else + ErrorProceso = True + End If End If + ObjAF.Dispose() + Else - If ObjAF.AddPlagaEnfermedad(CveActivoFijo, TxtModalPlagaEnfermedadObservaciones.Text, TxtModalPlagaEnfermedadFecha.Text.ToDate, UsuarioActual.CveUsuario) Then - ErrorProceso = False + + If IndexPlagaEnfermedad >= 0 Then + + DT_PlgaEfermedad.Rows(IndexPlagaEnfermedad)("Observaciones") = TxtModalPlagaEnfermedadObservaciones.Text + DT_PlgaEfermedad.Rows(IndexPlagaEnfermedad)("Fecha") = TxtModalPlagaEnfermedadFecha.Text.ToDate + DT_PlgaEfermedad.Rows(IndexPlagaEnfermedad)("Usuario") = UsuarioActual.Usuario + Else - ErrorProceso = True + + Dim nRow As DataRow = DT_PlgaEfermedad.NewRow + + nRow("Observaciones") = TxtModalPlagaEnfermedadObservaciones.Text + nRow("Fecha") = TxtModalPlagaEnfermedadFecha.Text.ToDate + nRow("Usuario") = UsuarioActual.Usuario + + DT_PlgaEfermedad.Rows.Add(nRow) + + DT_PlgaEfermedad.AcceptChanges() + + + End If + ErrorProceso = False End If - ObjAF.Dispose() If Not ErrorProceso Then RegistraScript("$('#DVModalPlagaEnfermedad').modal('hide');") diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx b/Acumuladores/RepEntradasUsadosClientes.aspx index fa2e5a85b..5bb9a18ac 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx +++ b/Acumuladores/RepEntradasUsadosClientes.aspx @@ -92,9 +92,9 @@ - + - + diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index cae0e6c31..ed0a413f1 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -67,9 +67,13 @@ Partial Class Acumuladores_RepEntradasUsadosClientes If e.Row.DBCampo("EsHeader").ToString = "-1" Or e.Row.DBCampo("Codigo").ToString = "" And e.Row.DataKey("CveVenta").ToString.ToEntero = 0 Then e.Row.CssClass = "SubTotales2" - End If - - + End If + + If e.Row.DataKey("CvePS").ToString.ToEntero > 0 And e.Row.DataKey("CveVenta").ToString.ToEntero = 0 Then + e.Row.CssClass = "SubTotales" + End If + + If e.Row.DataKey("CveVenta").ToString.ToEntero > 0 Then e.Row.Cells(1).Text = $"{e.Row.DataKey("SerieFolio")}" Else @@ -80,7 +84,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes End If If e.Row.DataKey("EsDistribuidor") <> "" Then - e.Row.Cells(5).Text = $"{e.Row.DataKey("Total").ToDecimal.ToString("###,###,###.00")}" + e.Row.Cells(5).Text = $"{e.Row.DataKey("Total").ToDecimal.ToString("#########")}" End If diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 3a0ec3593..0916d36a0 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -1665,7 +1665,7 @@ Public Class ClsClientes End Function Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, CveEstado As Integer, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, - NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1) As Boolean + NumCuentaPago As String, CveMetodoPago33 As Integer, CveFormaPago33 As Integer, Optional CvePrecioLista As Integer = -1, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesNoFrecuenteAdd") @@ -1690,6 +1690,8 @@ Public Class ClsClientes .Add("@CveFormaPago33", SqlDbType.Int).Value = CveFormaPago33 .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista + .Add("@CvePrecioLista", SqlDbType.VarChar).Value = RegimenSociedad + .Add("@TipoPersona", SqlDbType.Bit).Value = TipoPersona End With diff --git a/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc b/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc index 71646abd5..fd2989e2f 100644 --- a/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc +++ b/Empresas/140/Formatos/RepEntradasUsadosClientes.rdlc @@ -33,6 +33,10 @@ CveVenta System.Int + + CvePS + System.Int + Folio System.String @@ -125,10 +129,10 @@ Codigo - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -161,10 +165,10 @@ Codigo_Clientes - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -197,10 +201,10 @@ Folio - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -234,10 +238,10 @@ Fecha - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -270,10 +274,10 @@ SubProyecto - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -307,10 +311,10 @@ Cantidad - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt @@ -344,10 +348,10 @@ TotalImporte - =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "" or (Fields!CvePS.Value > 0 and IsNothing(Fields!CveVenta.Value) ),"LightGrey","Transparent") 2pt 2pt 2pt diff --git a/OC/OC.aspx b/OC/OC.aspx index 33fccac15..3f8652f2d 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -763,6 +763,7 @@ POA P.U. Desc. + IVA Total Comandos @@ -863,6 +864,9 @@ + + + <%-- IVA--%> @@ -1015,6 +1019,16 @@ + + + + + + + + + + @@ -1022,6 +1036,8 @@ + + <%-- --%>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index d8f9e9000..0f23a71bf 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -10222,5 +10222,6 @@ Partial Class Clientes UpDatos.Update() End Sub + End Class diff --git a/Ventas/PV.aspx b/Ventas/PV.aspx index 32d49be68..05f66910c 100644 --- a/Ventas/PV.aspx +++ b/Ventas/PV.aspx @@ -2456,6 +2456,7 @@ <%--Descripción--%> +
@@ -2466,8 +2467,12 @@
+ + + +
@@ -2478,11 +2483,59 @@
-
- - - + + +
+
+ + +
+ + <%-- + Física + Moral + --%> + + + + Física + Moral + + + + + +
+ +
+
+ + + + + + + +
+
+
+ + + +
+
+
+
+ + + +
+
+
+ + +
@@ -2575,8 +2628,13 @@
+ + + +
+