diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 74b4d1432..2f6dc4b60 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -182,11 +182,16 @@ Public Class ClsContratos Public Property EstatusFianza As Integer Public Property Folio As Integer Public Property FechaVenc As Date - Public Property AplicaImpuestosLocales As Boolean - - + Public Property AplicaImpuestosLocales As Boolean + Public Property CveEstimacionActual As Integer + Public Property NumeroEstimacionActual As Integer + + + + + #End Region - + #Region " C O N T R A T O S " Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime) As Boolean Dim Retorno As Boolean = False @@ -1276,15 +1281,15 @@ Public Class ClsContratos Return Retorno End Function - Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, fecha As String, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean + Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, CveUsuario As Integer, Optional CveEstimacion As Integer = -1, Optional CveContratoAvance As Integer = -1) As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosAvanceAnexos") With SqlAdapter.SelectCommand.Parameters - .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@Fecha", SqlDbType.Date).Value = fecha + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle .Add("@CveUsuario", SqlDbType.Float).Value = CveUsuario .Add("@CveEstimacion", SqlDbType.Float).Value = CveEstimacion + .Add("@CveContratoAvance", SqlDbType.Float).Value = CveContratoAvance End With Try @@ -1300,13 +1305,49 @@ Public Class ClsContratos #Region "ESTIMACION" - Public Function GetContratosAvanceEstimacion(CveContrato As Integer, CveEmpresa As Integer) As Boolean + + Public Function AddContratosObraAvance(CveContrato As Integer, CveContratoDetalle As Integer, Cantidad As Double, Fecha As Date, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + + CveEstimacionActual = 0 + + DataAdapter("PA_Con_ContratosObraAvanceAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle + .Add("@Cantidad", SqlDbType.Int).Value = Cantidad + .Add("@Fecha", SqlDbType.Date).Value = Fecha + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEstimacionActual", SqlDbType.Int).Direction = ParameterDirection.Output + .Add("@NumeroEstimacionActual", SqlDbType.Int).Direction = ParameterDirection.Output + + End With + + Try + SqlAdapter.Fill(Data) + + CveEstimacionActual = SqlAdapter.SelectCommand.Parameters("@CveEstimacionActual").Value.ToString.ToEntero + NumeroEstimacionActual = SqlAdapter.SelectCommand.Parameters("@NumeroEstimacionActual").Value.ToString.ToEntero + + Retorno = True + + Catch ex As Exception + OnError("Ocurrió un error al agregar el avance.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function GetContratosAvanceEstimacion(CveContrato As Integer, CveEmpresa As Integer, CveEstimacion As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosAvanceEstimacionGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion End With Try @@ -1374,6 +1415,54 @@ Public Class ClsContratos + + Public Function UpdateContratosEstimacion(CveEstimacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveEstimacionEstatus As Integer) As Boolean + + Dim Retorno = False + + DataAdapter("PA_Con_ContratosEstimacionUpdate") + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveEstimacion", SqlDbType.Int).Value = CveEstimacion + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveEstimacionEstatus", SqlDbType.Int).Value = CveEstimacionEstatus + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la estimacion.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + + Public Function RemoveContratosAvance(CveContratoAvance As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno = False + + DataAdapter("PA_Con_ContratosAvanceRemove") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContratoAvance", SqlDbType.Int).Value = CveContratoAvance + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el avance.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + + End Function + + #End Region #Region "CONTRATOS OBRA COMPRAS" diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 6ea168a78..56ebab4bf 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -454,6 +454,26 @@ Public Class ClsMovimientos OnError("Ocurrió un error al consultar los Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + Public Function GetRemisionesNCCliente(CveCliente As Integer, MostarDetalle As Boolean, Optional CveMoneda As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ClienteRemisionesNC") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@MostarDetalle", SqlDbType.Bit).Value = MostarDetalle + .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar los Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 8baa88e9c..bde4f584f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5020,6 +5020,9 @@ Public Class ClsPaginas PaginaDict.Add("/Contratos/RepContratosObraAvances.aspx".ToUpper(), -1) PaginaDict.Add("/Contratos/RepContratosObraAvancesDetalle.aspx".ToUpper(), -1) PaginaDict.Add("/Contratos/RepContratosObraAvancesPartida.aspx".ToUpper(), -1) + PaginaDict.Add("/Contratos/ContratoObraAutorizacion.aspx".ToUpper(), -1) + + 'Orden Produccion' diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index ca2415149..d0648d098 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -764,6 +764,25 @@ Public Class ClsVentas Return Retorno End Function + Public Function UpdateVentaRNCUsado(CveVentaRNC As Integer, CveVenta As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Vta_VentasRNCUsadosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentaRNC", SqlDbType.Int).Value = CveVentaRNC + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la relacion con el usado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function Public Function UpdateCancelaVenta(CveVenta As Integer, FechaCancelacion As DateTime, SelloCancelacionSAT As String, CveEmpresa As Integer, Optional CvePAC As Integer = -1, Optional CveEstatusRefacturacion As Integer = 0) As Boolean Dim Retorno As Boolean = False @@ -4788,6 +4807,26 @@ Public Class ClsVentas Return Retorno End Function + Public Function AddVentaDetalleRNCFacturada(CveVentaDetalleRNC As Integer, CveVentaDetalle As Integer, CantidadFacturada As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaDetalleRNCFacturadaAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVentaDetalleRNC", SqlDbType.Int).Value = CveVentaDetalleRNC + .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle + .Add("@CantidadFacturada", SqlDbType.Float).Value = CantidadFacturada + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al agregar lo facturado de la RNC.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region diff --git a/Bancos/PopUpBuscarIE.aspx b/Bancos/PopUpBuscarIE.aspx index 5c650cbcd..228691300 100644 --- a/Bancos/PopUpBuscarIE.aspx +++ b/Bancos/PopUpBuscarIE.aspx @@ -74,17 +74,17 @@
- - + + - - - + + +
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 092f884ab..d0118d925 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -632,6 +632,7 @@
+ Tipo de Gasto @@ -675,6 +676,7 @@ + @@ -4284,8 +4286,19 @@ <%-- --%> + + +
+
+ + + +
+
+ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index fc53b60e5..da0b58856 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1319,6 +1319,15 @@ Partial Class Compras_Compras DdlPersonal.DataBind() DdlPersonalReembolso.DataBind() + If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then + DVCultivosCuadro.Visible = True + DdlSubProyecto.AutoPostBack = True + DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlCultivosCuadro.DataBind() + DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End If + 'Carga Proveedor If Request("CveProveedor") IsNot Nothing AndAlso IsNumeric(Request("CveProveedor")) AndAlso Request("CveProveedor").ToEntero > 0 Then @@ -17655,6 +17664,15 @@ Partial Class Compras_Compras If Modalidad <> "U" Or Not CveFactura > 0 Then DdlPSChange() End If + + If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then + + DdlCultivosCuadro.Items.Clear() + DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($" CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlCultivosCuadro.DataBind() + DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End If End Sub Private Sub DdlPSChange() If CveProveedor > 0 Then diff --git a/Contratos/ContratoAvance.aspx b/Contratos/ContratoAvance.aspx index 45bf7c3d0..f52875650 100644 --- a/Contratos/ContratoAvance.aspx +++ b/Contratos/ContratoAvance.aspx @@ -63,11 +63,11 @@
- +
-
+
@@ -117,6 +117,7 @@ + Producto / Servicio @@ -124,106 +125,114 @@ Ultimo Avance Levantamiento Anexo +
-
+
- - - - - - - - - - - <%# Eval("Cantidad", "{0:N2}")%> - - - - - <%# Eval("Importe", "{0:N2}")%> - - - - - <%# Eval("Cantidad_Ultima", "{0:N2}")%> - - - - - <%# Eval("Importe_Ultima", "{0:N2}")%> - - - - - - - - - - - - - - - - - - <%-- --%> - - - - - - - - - - - + + + + + + + + -
+ + + <%# Eval("Abreviatura")%> + + + + + + <%# Eval("Cantidad", "{0:N2}")%> + + + + + + <%# Eval("Importe", "{0:N2}")%> + + + + + <%# Eval("Cantidad_Ultima", "{0:N2}")%> + + + + + <%# Eval("Importe_Ultima", "{0:N2}")%> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
-
+
@@ -234,7 +243,7 @@ - + @@ -254,7 +263,7 @@
- +
diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index 451b2c4a4..66c961842 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -91,16 +91,43 @@ Partial Class Contratos_ContratoAvance End Property + Property CveEstimacionActual As Integer + Get + If ViewState("CveEstimacionActual") Is Nothing Then + Return -1 + Else + Return ViewState("CveEstimacionActual").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveEstimacionActual") = value + End Set + End Property + + Property NuemeroEstimacionActual As Integer + Get + If ViewState("NuemeroEstimacionActual") Is Nothing Then + Return -1 + Else + Return ViewState("NuemeroEstimacionActual").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("NuemeroEstimacionActual") = value + End Set + End Property + + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + BtnGuardar.Visible = False - CargaContrato() - End If End Sub @@ -112,54 +139,34 @@ Partial Class Contratos_ContratoAvance DdlContratos.DataBind() DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) - DDlContratosEstimaciones.DataBind() - - - CargaddlAvance() - End Sub - - Protected Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged - CargaddlAvance() - End Sub - Private Sub CargaddlAvance() - DdlAvances.Items.Clear() - Dim ObjContratos As New ClsContratos() - If ObjContratos.GetContratosAvanceFecha(DdlContratos.SelectedValue.ToEntero, 2) Then - DdlAvances.DataSource = ObjContratos.DtResultados - End If - ObjContratos.Dispose() - DdlAvances.DataBind() - DdlAvances.Items.Insert(0, New ListItem(" ---- ", "-1")) + DDlContratosEstimaciones.DataBind() End Sub + #End Region + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click CveContrato = DdlContratos.SelectedValue.ToEntero CargaDatosAvance() End Sub + Private Sub CargaDatosAvance() + GvAnexos.Visible = False - Dim ObjContratos As New ClsContratos() - If DdlAvances.SelectedValue = "-1" Then - If ObjContratos.GetContratosAvanceTodos(CveContrato, 2) Then - fecha = "" - DtDatos = ObjContratos.DtResultados - If ObjContratos.DtResultados.Rows.Count > 0 Then - BtnGuardar.Visible = True + Dim ObjContratos As New ClsContratos() - End If - End If - Else - If ObjContratos.GetContratosAvanceHistoricos(CveContrato, 2, DdlAvances.SelectedValue) Then - fecha = DdlAvances.SelectedValue - DtDatos = ObjContratos.DtResultados - BtnGuardar.Visible = False + If ObjContratos.GetContratosAvanceTodos(CveContrato, 2) Then + fecha = "" + DtDatos = ObjContratos.DtResultados + If ObjContratos.DtResultados.Rows.Count > 0 Then + BtnGuardar.Visible = True + End If + End If - End If - End If ObjContratos.Dispose() CargaGrid() + End Sub #Region "GV" @@ -175,7 +182,8 @@ Partial Class Contratos_ContratoAvance Alert("no se encontraron productos en el presupuesto") End If End Sub - Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound + Protected Sub GV_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles Gv.RowDataBound + If e.Row.RowIndex > -1 Then e.Row.FCTextBox("TxtCantidad").Visible = (fecha = "") @@ -209,10 +217,12 @@ Partial Class Contratos_ContratoAvance LnkAnexo.Visible = True End If - End If - - - + Dim LnkGuardarAvance As LinkButton = e.Row.FCLinkButton("LnkGuardarAvance") + LnkGuardarAvance.Visible = True + + End If + + End If End Sub Protected Sub GetAnexos(sender As Object, e As System.EventArgs) @@ -226,7 +236,7 @@ Partial Class Contratos_ContratoAvance Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow) Dim CveContratoDetalle As Integer = gvr.DataKey("CveContratoDetalle").ToString.ToEntero Dim objContrato As New ClsContratos - If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, fecha, UsuarioActual.CveUsuario) Then + If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, UsuarioActual.CveUsuario, -1) Then GvAnexos.DataSource = objContrato.DtResultados GvAnexos.DataBind() GvAnexos.Visible = True @@ -277,10 +287,13 @@ Partial Class Contratos_ContratoAvance Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() + Dim TieneError = False Dim CveContratoDetalle As Integer - Dim Cantidad As Double - 'Dim filesgral As List(Of Archivo) = AnexoGral.getfiles().Archivos + Dim Cantidad As Double + + Dim NumeroEstimacionActual As Integer = 0 + Dim guardarArchivos As New List(Of Archivo) For Each gvr As GridViewRow In Gv.Rows @@ -292,19 +305,14 @@ Partial Class Contratos_ContratoAvance Cantidad = gvr.FCTextBox("TxtCantidad").Text.ToDouble If Cantidad > 0 Then - If ObjContratos.AddContratosAvance(CveContratoDetalle, Cantidad, TxtFecha.Text.ToDateTime, UsuarioActual.CveUsuario) Then + + If ObjContratos.AddContratosObraAvance(DdlContratos.SelectedValue.ToEntero, CveContratoDetalle, Cantidad, TxtFecha.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + + NumeroEstimacionActual = ObjContratos.NumeroEstimacionActual Dim CveContratoAvance As Integer = ObjContratos.DtResultados.Rows(0)("CveContratoAvance").ToString.ToEntero - Dim files As List(Of Archivo) = gvr.FCTextBox("TXTAnexo").getfiles().Archivos - - 'For Each fileItem As Archivo In filesgral 'GENERAL - ' guardarArchivos.Add(fileItem) - ' If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then - ' TieneError = True - ' Exit For - ' End If - 'Next - + Dim files As List(Of Archivo) = gvr.FCTextBox("TXTAnexo").getfiles().Archivos + For Each fileItem As Archivo In files guardarArchivos.Add(fileItem) If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then @@ -326,26 +334,100 @@ Partial Class Contratos_ContratoAvance If TieneError Then ObjContratos.RollBack() Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia) - Else + Else + Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) - 'For Each fileItem As Archivo In filesgral - ' fileItem.filename.FilesMove(fileItem.filename, urlsave) - 'Next - For Each fileItem As Archivo In guardarArchivos fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) - Next + Next + + ObjContratos.Commit() - Alert("se guardo Correctamente") + + 'Alert("se avance guardado correctamente") + Alert("se avance guardado correctamente en estimacion numero " & NumeroEstimacionActual) + End If 'AnexoGral.Text = "[]" ObjContratos.Dispose() - CargaddlAvance() + 'CargaddlAvance() CargaDatosAvance() End Sub + Protected Sub LnkGuardarAvance_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + + Dim ObjContratos As New ClsContratos + ObjContratos.IniciaTransacSQL() + Dim TieneError = False + Dim CveContratoDetalle As Integer + Dim Cantidad As Double + Dim guardarArchivos As New List(Of Archivo) + + Dim NumeroEstimacionActual As Integer = 0 + + CveContratoDetalle = GvRow.DataKey("CveContratoDetalle").ToEntero + + If CveContratoDetalle > 0 Then + + Cantidad = GvRow.FCTextBox("TxtCantidad").Text.ToDouble + + If Cantidad > 0 Then + If ObjContratos.AddContratosObraAvance(DdlContratos.SelectedValue.ToEntero, CveContratoDetalle, Cantidad, TxtFecha.Text.ToDateTime, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + NumeroEstimacionActual = ObjContratos.NumeroEstimacionActual + + Dim CveContratoAvance As Integer = ObjContratos.DtResultados.Rows(0)("CveContratoAvance").ToString.ToEntero + Dim files As List(Of Archivo) = GvRow.FCTextBox("TXTAnexo").getfiles().Archivos + + For Each fileItem As Archivo In files + guardarArchivos.Add(fileItem) + If Not ObjContratos.AddContratosAvanceAnexo(CveContratoAvance, fileItem.filename, UsuarioActual.CveUsuario) Then + TieneError = True + Exit For + End If + Next + + Else + TieneError = True + End If + + + If TieneError Then + ObjContratos.RollBack() + Alert("No se logro guardar el Presupuesto favor de intentarlo mas tarde o comuniquese con soporte", TipoMensaje.MsgAdvertencia) + Else + + Dim urlsave As String = String.Format("Empresas\{0}\Contrato\{1}\Anexos", UsuarioActual.CveEmpresa, CveContrato) + For Each fileItem As Archivo In guardarArchivos + fileItem.filename.FilesMove(fileItem.filename.Replace($".{fileItem.Extencion}", ""), urlsave) + Next + ObjContratos.Commit() + + 'Alert("se avance guardado correctamente") + Alert("se avance guardado correctamente en estimacion numero " & NumeroEstimacionActual) + End If + + + + + End If + Else + ObjContratos.RollBack() + End If + + + + + ObjContratos.Dispose() + CargaDatosAvance() + + End Sub + + #Region "ESTIMACION" @@ -355,9 +437,9 @@ Partial Class Contratos_ContratoAvance Dim ObjContratos As New ClsContratos() Dim DTEstimaciones As New DataTable + Dim NumeroEstimacionActual As Integer = 0 - - If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then DTEstimaciones = ObjContratos.DtResultados CveContratoEstimacion = DDlContratosEstimaciones.SelectedValue.ToEntero @@ -465,7 +547,6 @@ Partial Class Contratos_ContratoAvance End Sub - Private Sub GeneraAnexo(CveEstimacion As Integer, NumeroEstimacion As Integer, FechaEstimacion As Date, NumeroContrato As String) Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx" @@ -683,7 +764,7 @@ Partial Class Contratos_ContratoAvance Dim objContrato As New ClsContratos Dim DTArchivos As New DataTable - If objContrato.GetContratosAvanceAnexos(Drow("CveContratoDetalle").ToString.ToEntero, Drow("Fecha").ToString, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then + If objContrato.GetContratosAvanceAnexos(Drow("CveContratoDetalle").ToString.ToEntero, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then DTArchivos = objContrato.DtResultados End If objContrato.Dispose() @@ -748,6 +829,10 @@ Partial Class Contratos_ContratoAvance #End Region + + + + End Class diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index e3ccfab73..86f5165e3 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -110,17 +110,7 @@ - <%-- - - - - - - - - - - --%> + @@ -132,80 +122,169 @@ -<%-- - - -
-
- -
-
-
- -

Tipo de Contrato

- -
-
-
-
-
-
-
-
-
- -
-
- -
-
-
-
-
Tipo Contrato:
-
- - -
-
-
-
-
- -
-
-
-
- -
-
-
-
- -
- -
- -
- -
- -
-
- - --%>
- + + + + + +
+ +
+
+ +
+ +
+ Contratos +

+ + +

+ +
+ +
+ Total Contratado +

+ $ +

+
+ +
+ +
+ +
+ +
+ +
+ + +
+
+
+ +
+ + + + +
+ Ventas +

+ + + + +

+ + 		+ Porcentaje +

+ + + + +

+ +
+ +
+ +
+ +
+
+
+ +
+ + <%--76% Avance--%> + +
+ +
+
Avance
+
+ +
+
+ +
+
+
+ +
+
+
+ +
+ + + + +
+ Interno +

+ + + + +

+ + 		+ Porcentaje +

+ + + + +

+ +
+ + +
+ +
+ +
+
+
+
+ + <%--76% Avance--%> + +
+
+
Faltante
+
+ +
+
+
+
+
+ +
+ + + + + <%-- + @@ -219,14 +298,20 @@
Importe Contratado: $ - Facturado: $
- + --%> + + + + + +
-
+
@@ -236,6 +321,12 @@
Datos del Contrato
+ + + + + +
@@ -306,187 +397,8 @@
- <%--
- -
- -
-
-
- -
- - - -
-
-
- -
- - - -
-
-
- -
- - -
-
--%> - - - -
-
-
- -
- - -
-
-
- -
-
-
-
-
- Proyecto: -
- - - - - - - -
-
-
- - : -
- - - <%--
-
- - - - - -
-
--%> - - <%--
- -
- -
-
--%> - -
-
- - -
- -
- -
-
-
-
-
- -
-
Información
-
-
-
-
- -
-
- - -
-
- - - -
-
- - - - -<%-- - -
-
- - - -
-
- - --%> - - - <%-- - -
-
- - - -
-
- - - - - - -
-
- - - -
-
-
-
- - - -
-
-
-
- - - -
-
--%> - - -
+
@@ -526,6 +438,81 @@
+ + + + + +
+ + Proyecto: +
+ + + + + + + +
+
+ +
+ + + +
+ + + + + + + +
+
+
+ + + +
+
+
+
+ +
+
Información
+
+
+ + + + + +
+
+ +
+
+ + + +
+
+ + + +
+
+ + + + + +
@@ -563,18 +550,7 @@
- <%--
- -
- -
-
-
- -
- -
-
--%> +
@@ -604,9 +580,17 @@
-
+ -
+
+ +
+ + + +
+ +
@@ -624,54 +608,6 @@
- <%--
- -
- - - - - - -
-
--%> - - - <%-- - - --%>
@@ -679,59 +615,25 @@
- <%-- AGREGAR FIANZA --%> - <%--
-
-
-
-
- -
-
Fianzas
-
-
- -
-
-
-
-
+ -
- - - - - - - - - - - - - - - - - - - - - -
-
+ <%--
+
+
+
+ +
--%> - <%-- --%> -
-
+
+ +
+
@@ -751,14 +653,7 @@ - <%-- - Archivo - --%> - - <%-- - Archivo - --%> @@ -768,73 +663,11 @@
-
+
-
-
-
-
- - -
-
-
-
- <%--
-
-
-
-
- - -
-
- - Impuestos Locales: -
-
- -
-
-
-
-
-
-
- - - - - - - - - - - - - - - - - - - - - - - -
-
-
-
-
-
--%> -
+
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 50310de8a..932c9a1c1 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -357,6 +357,40 @@ Partial Class Contratos_ContratoObra End Property + + Property TotalAvanceVentas As Decimal + Get + + If ViewState("TotalAvanceVentas") Is Nothing Then + Return 0D + Else + Return ViewState("TotalAvanceVentas").ToString.ToDecimal + End If + End Get + Set(value As Decimal) + ViewState("TotalAvanceVentas") = value + End Set + End Property + + + + Property TotalAvanceInterno As Decimal + Get + + If ViewState("TotalAvanceInterno") Is Nothing Then + Return 0D + Else + Return ViewState("TotalAvanceInterno").ToString.ToDecimal + End If + End Get + Set(value As Decimal) + ViewState("TotalAvanceInterno") = value + End Set + End Property + + + + #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -417,6 +451,8 @@ Partial Class Contratos_ContratoObra End If + Indicadores() + Else 'Configuración de Modalidad Insert LblFechaCaptura.Text = Now.ToShortDateString() @@ -440,7 +476,7 @@ Partial Class Contratos_ContratoObra CargaPS() CargaPSInsumos() ConfiguraTipos() - CargaDatosEncabezado() + 'CargaDatosEncabezado() End If @@ -620,9 +656,9 @@ Partial Class Contratos_ContratoObra DvTotal.Visible = True - If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then - TableDatosCabecera.Visible = True - End If + 'If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then + ' TableDatosCabecera.Visible = True + 'End If If CveTipoContrato = 25 Then @@ -638,9 +674,9 @@ Partial Class Contratos_ContratoObra DvTotal.Visible = True - If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then - TableDatosCabecera.Visible = True - End If + 'If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then + ' TableDatosCabecera.Visible = True + 'End If @@ -668,8 +704,8 @@ Partial Class Contratos_ContratoObra msjpresupuestos.Visible = False If ArchivoUpdate = ObjContratos.Archivo.ToString Then - LinkArchivo.Visible = True - LinkArchivo.HRef = String.Format("{0}{1}", Ruta, ObjContratos.Archivo.ToString) + 'LinkArchivo.Visible = True + 'LinkArchivo.HRef = String.Format("{0}{1}", Ruta, ObjContratos.Archivo.ToString) End If Titulo = $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} ({ObjContratos.DtResultados.Rows(0)("ContratoTipo")})" TituloCorto = $"{ObjContratos.NumeroContrato} - {ObjContratos.DescripcionContrato} " @@ -719,7 +755,7 @@ Partial Class Contratos_ContratoObra TabPVInsumos.Visible = False RowEstatus.Visible = False TabPres.HeaderText = "Partidas" - TableDatosCabecera.Visible = False + 'TableDatosCabecera.Visible = False TabAvanveDocumento.Visible = False TabSistema.Visible = False TabContratosGastos.Visible = False @@ -862,9 +898,15 @@ Partial Class Contratos_ContratoObra UpGV.Update() UpGVInsumos.Update() - UPGVInt.Update() + UPGVInt.Update() + + + TotalAvanceVentas = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").ToDecimal + TotalAvanceInterno = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").ToDecimal + LbTotalGeneral.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() LbTotalGeneralInsumos.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() + LbTotalGeneralInt.Text = TmpDT.FiltraParametros("CveTipoPresupuesto=1").SUM("Total").FormatoNumero() 'LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero() End If @@ -1116,7 +1158,7 @@ Partial Class Contratos_ContratoObra LblProyecto.Visible = True - LblCentroCosto.Text = LblSubProyectoTitulo.Text + 'LblCentroCosto.Text = LblSubProyectoTitulo.Text LblSubProyectoTitulo.Text = LblSubProyectoTitulo.Text & ":" 'If UsuarioActual.Empresa.GralSoloProyecto Then @@ -2841,22 +2883,22 @@ Partial Class Contratos_ContratoObra End If ObjVentas.Dispose() - End Sub - - - - - Public Sub CargaDatosEncabezado() - - TablaUtilidad.Visible = True - LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}" - - If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red - LblFacturado.Text = SumaAvance.FormatoNumero - LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero - End Sub + + + + 'Public Sub CargaDatosEncabezado() + + ' TablaUtilidad.Visible = True + ' LblUtilidad.Text = $"$ {(SumaAvance - SumaGasto).ToString.FormatoNumero()}" + + ' If (SumaAvance - SumaGasto) < 0 Then LblUtilidad.ForeColor = Drawing.Color.Red + ' LblFacturado.Text = SumaAvance.FormatoNumero + ' LblPorFacturar.Text = (LblImporte.Text.ToDouble - SumaAvance).FormatoNumero + + 'End Sub + #End Region #End Region @@ -3063,176 +3105,10 @@ Partial Class Contratos_ContratoObra End While Return dataTable - End Function - - 'Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String) - ' Dim dt As New DataTable - ' dt = ReadExcelFile(Ruta + FileName, True) - ' Dim ErrorArchivo = False - - ' 'Dim Conexion As Odbc.OdbcConnection = Nothing - ' 'Try - ' ' Select Case Tipo - ' ' Case "EXCEL" - ' ' Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - ' ' Conexion.Open() - ' ' Dim cmd = Conexion.CreateCommand() - ' ' cmd.CommandType = CommandType.Text - ' ' cmd.CommandText = "SELECT * FROM [Hoja1$]" - ' ' Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - ' ' DataAdapter.Fill(dt) - ' ' Case Else - ' ' Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) - ' ' Exit Sub - ' ' End Select - ' 'Catch ex As Exception - ' ' ErrorArchivo = True - ' ' OnError("Ocurrio un error al leer el archivo
" & ex.Message, ex) - ' 'End Try - ' 'Conexion.Close() - ' If Not ErrorArchivo AndAlso dt IsNot Nothing Then - ' If Not dt.Columns(0).ColumnName = "OC Interna" Then - ' Alert("El nombre de la primera columna debe ser 'OC Interna'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(1).ColumnName = "Cantidad" Then - ' Alert("El nombre de la primera columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(2).ColumnName = "Clave Interna Cliente" Then - ' Alert("El nombre de la segunda columna debe ser 'Clave Interna'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(3).ColumnName = "Código" Then - ' Alert("El nombre de la tercera columna debe ser 'Código'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(4).ColumnName = "Código Barras" Then - ' Alert("El nombre de la cuarta columna debe ser 'Código Barras'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(5).ColumnName = "Producto/Servicio" Then - ' Alert("El nombre de la quinta columna debe ser 'Producto/Servicio'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(6).ColumnName = "UM" Then - ' Alert("El nombre de la sexta columna debe ser 'U.M'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - ' If Not dt.Columns(7).ColumnName = "Precio Unitario" Then - ' Alert("El nombre de la septima columna debe ser 'Precio Unitario'. Favor de corregirlo", TipoMensaje.MsgError) - ' Exit Sub - ' End If - - ' dt.TableName = "Datos" - - ' If Not ErrorArchivo Then - ' NumRow = 1 - ' Dim RowNoEncontrados As String = String.Empty - ' Dim NumAgregados As Integer = 0 - ' For Each Row As DataRow In dt.Rows - ' Dim Cantidad As Integer = Row("Cantidad").ToString.ToEntero - ' Dim Codigo As String = Row("Código").ToString.Trim.ToUpper - ' Dim CodigoBarras As String = Row("Código Barras").ToString.Trim.ToUpper - ' Dim UM As String = Row("UM").ToString - ' Dim ClaveInterna As String = Row("Clave Interna Cliente").ToString.Trim.ToUpper - ' Dim OCInterna As String = Row("OC Interna").ToString.Trim.ToUpper - ' Dim ProductoServicio As String = Row("Producto/Servicio").ToString.Trim.ToUpper - ' Dim PrecioUnitario As Double = Row("Precio Unitario").ToString.ToDouble - ' Dim CvePS As Integer = 0 - ' Dim CveUM As Integer = 0 ' GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"CvePS = '{CvePS}'").ToString.ToEntero - ' Dim CodigoPS As Integer = 0 - ' Dim Total As Double = (Cantidad * PrecioUnitario) - - - ' NumRow = NumRow + 1 - - ' If Codigo.Length > 0 Then - ' Dim StrArray() As String = GetPS("Codigo", Codigo).Split("|"c) - ' If StrArray.Length > 0 Then - ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero - ' Else - ' RowNoEncontrados &= StrArray(1) & "<\BR>" - ' End If - ' End If - ' ElseIf CodigoBarras.Length > 0 Then - ' Dim StrArray() As String = GetPS("CodigoBarras", CodigoBarras).Split("|"c) - ' If StrArray.Length > 0 Then - ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero - ' Else - ' RowNoEncontrados &= StrArray(1) & "<\BR>" - ' End If - ' End If - ' ElseIf ProductoServicio.Length > 0 Then - ' Dim StrArray() As String = GetPS("PS", ProductoServicio).Split("|"c) - ' If StrArray.Length > 0 Then - ' If CBool(StrArray(0)) = True Then - ' CvePS = StrArray(1).ToEntero - ' Else - ' RowNoEncontrados &= StrArray(1) & "<\BR>" - ' End If - ' End If - ' Else - ' RowNoEncontrados &= "<\BR>    - En la fila " & NumRow & " no se especificó código, código de barras ó descripción." - ' End If - ' CveUM = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveUnidadMedida", "").ToString.ToEntero - - ' If TmpDT IsNot Nothing AndAlso CvePS > 0 Then - ' Dim dr As DataRow = TmpDT.NewRow - ' dr("Cantidad") = Cantidad - ' dr("CantidadContratada") = Cantidad - ' dr("CveUM") = CveUM - ' dr("UM") = UM - ' dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion", "").ToString.ToEntero - ' dr("Clasificacion") = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = '{dr("CveClasificacion")}'").ToString - ' dr("CvePS") = CvePS - ' dr("PS") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("PS", "").ToString - ' dr("CodigoPS") = dr("PS") - ' dr("PU") = PrecioUnitario - ' dr("Total") = Cantidad * PrecioUnitario - ' dr("CveTipoPresupuesto") = 2 - ' dr("NoIdentificacion") = ClaveInterna - ' dr("OCInterna") = OCInterna - ' dr("LimitarCantidad") = 0 - - ' If CvePS > 0 Then - ' Dim ObjContratos As New ClsContratos - ' If ObjContratos.AddContratosDetalle(CveContrato, dr("CvePS").ToString.ToEntero, dr("Cantidad").ToString.ToDouble, dr("PU").ToString.ToDouble, UsuarioActual.CveUsuario, dr("CveTipoPresupuesto").ToString.ToEntero, dr("NoIdentificacion").ToString, dr("LimitarCantidad").ToString.ToEntero = 1, dr("OCInterna").ToString) Then - ' Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", dr("Cantidad"), dr("UM"), dr("PS"), dr("PU")) - ' guardarBitacora(msj) - ' dr("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle") - ' TmpDT.Rows.Add(dr) - ' Dim TotalRow = dr("Total").ToString.ToDouble - - ' CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2")) - ' LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero - ' LblImporte.Text = LbTotalGeneral.Text - ' Else - ' Alert("Ocurrio un error al agregar el detalle", TipoMensaje.MsgError) - ' End If - ' ObjContratos.Dispose() - ' End If - - - ' End If - ' Next - ' 'Cargo el GridView - ' Gv.DataSource = TmpDT - ' Gv.DataBind() - ' UpGV.Update() - - - ' If RowNoEncontrados.Length > 0 Then - ' Alert("Los siguientes Productos o Servicios no se encontraron en la Base de Datos.<\BR>" & RowNoEncontrados, TipoMensaje.MsgAdvertencia) - ' Else - ' Alert("Se Cargaron " & NumRow & " Productos o Servicios correctamente.") - ' End If - ' End If - ' End If - 'End Sub - + End Function + + + Private Function GetPS(Opt As String, Valor As String) As String Dim StrReturn As String = String.Empty Dim CvePS As Integer = 0 @@ -3260,34 +3136,7 @@ Partial Class Contratos_ContratoObra #End Region -#Region " GPS " - 'Private Sub CargaCuentasEquipos() - ' Dim GPS As New ClsGPS - ' If GPS.DispositivosGet(-1, -1, DdlCliente.SelectedValue.ToEntero) Then - ' DdlCuentaEquipo.DataSource = GPS.DtResultados - ' Else - ' DdlCuentaEquipo.DataSource = Nothing - ' End If - ' GPS.Dispose() - ' DdlCuentaEquipo.DataBind() - ' UpGral.Update() - - 'End Sub - - 'Private Sub CargaPeriodos() - ' Dim ObjContratos As New ClsContratos - ' If ObjContratos.GetPeriodos(-1, UsuarioActual.CveEmpresa) Then - ' DtPeriodo = ObjContratos.DtResultados - ' Else - ' DtPeriodo = Nothing - ' End If - ' DdlPeriodo.DataSource = DtPeriodo - ' ObjContratos.Dispose() - ' DdlPeriodo.DataBind() - ' UpGral.Update() - 'End Sub -#End Region #Region " IMPRESION " @@ -3322,57 +3171,7 @@ Partial Class Contratos_ContratoObra ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) End Sub - 'Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' Dim dt As DataTable = DtAvanceDocumento - ' Dim params As New List(Of ReportParameter) - ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - ' params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - ' params.Add(New ReportParameter("Contrato", Titulo)) - ' 'DATOS DEL CONTRATO - ' params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim)) - ' params.Add(New ReportParameter("Descripcion", TxtDescripcionContrato.Text.Trim)) - ' params.Add(New ReportParameter("Proveedor", If(TrProveedor.Visible = True, DdlContratista.SelectedItem.Text.Trim, "-"))) - ' params.Add(New ReportParameter("Ubicacion", TxtUbicacion.Text.Trim)) - ' params.Add(New ReportParameter("Responsable", TxtResponsable.Text.Trim)) - ' params.Add(New ReportParameter("Almacen", "-")) - ' params.Add(New ReportParameter("Porcentaje", "-")) - ' 'CENTRO DE COSTOS - ' params.Add(New ReportParameter("Proyecto", If(DVddlproyecto.Visible = True, DdlProyecto.SelectedItem.Text.Trim, "-"))) - ' params.Add(New ReportParameter("SubProyecto", CveSubProyecto.ToString)) - ' params.Add(New ReportParameter("Addendum", "")) - ' 'INFORMACION - ' params.Add(New ReportParameter("Cliente", If(TrCliente.Visible = True, DdlCliente.SelectedItem.Text.Trim, "-"))) - ' params.Add(New ReportParameter("Sucursal", If(TrClienteSucursal.Visible = True, DdlSucursalCliente.SelectedItem.Text.Trim, "-"))) - ' params.Add(New ReportParameter("FechaInicial", TxtFechaInicial.Text.Trim)) - ' params.Add(New ReportParameter("FechaFinal", TxtFechaFinal.Text.Trim)) - ' params.Add(New ReportParameter("Moneda", DdlMoneda.SelectedItem.Text.Trim)) - ' params.Add(New ReportParameter("TipoCambio", If(tipoCambio.Visible = True, TxtTipoCambio.Text.Trim, "-"))) - ' params.Add(New ReportParameter("IVA", TxtPorIVA.Text.Trim)) - ' params.Add(New ReportParameter("Anticipo", TxtPorAnticipo.Text.Trim)) - ' params.Add(New ReportParameter("Amortizacion", TxtPorAmortizacionAnticipo.Text.Trim)) - ' params.Add(New ReportParameter("Garantia", TxtPorGarantia.Text.Trim)) - ' params.Add(New ReportParameter("Minimo", "-")) - ' params.Add(New ReportParameter("Maximo", "-")) - ' params.Add(New ReportParameter("Total", If(DvTotal.Visible = True, TxtTotal.Text.Trim, "-"))) - ' 'Estatus - ' params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text.Trim)) - ' params.Add(New ReportParameter("TipoGarantia", "")) - ' params.Add(New ReportParameter("EstatusFianza", "")) - ' params.Add(New ReportParameter("Folio", "0")) - ' params.Add(New ReportParameter("FechaVencimiento", "")) - - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - ' ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF") - - 'End Sub #End Region @@ -3384,10 +3183,10 @@ Partial Class Contratos_ContratoObra Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString - - + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString + + Dim dt As DataTable = DtGastos Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -3400,9 +3199,9 @@ Partial Class Contratos_ContratoObra params.Add(New ReportParameter("FechaInicio", TxtFechaInicial.Text.Trim)) params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim)) params.Add(New ReportParameter("TipoContrato", TipoDocumento)) - params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) - params.Add(New ReportParameter("Utilidad", UtilidadGastos)) - + params.Add(New ReportParameter("TotalContrato", LblImporte.Text)) + ' params.Add(New ReportParameter("Utilidad", UtilidadGastos)) + If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else @@ -3898,59 +3697,12 @@ Partial Class Contratos_ContratoObra LnkDescargar.Visible = False 'BtnGuardarFianza.Text = "Guardar" UPModalFianza.Update() - Me.RegistraScript("$('#DvModalFianza').modal();") - 'GvFianzas.DataSource = DtTmpFianzas - 'GvFianzas.DataBind() - 'UpGvFianzas.Update() - End Sub - 'Protected Sub BtnGuardarFianza_Click(sender As Object, e As EventArgs) - - ' Dim dr As DataRow = DtTmpFianzas.NewRow() - - ' Dim Folio As String = txtFolioFianza.Text - ' Dim CveEstatus As Integer = DdlFianza.SelectedValue.ToEntero() - ' Dim Estatus As String = DdlFianza.SelectedItem.Text - - ' Dim TieneError As Boolean = False - - ' Dim Adjunto As String = "" - ' If TxtModalAdjuntoArchivo.getfiles.Archivos.Count > 0 Then - ' Dim ArchivoAdjunto As Archivo = TxtModalAdjuntoArchivo.getfiles.Archivos(0) - ' Adjunto = ArchivoAdjunto.filenameO - ' End If - - - ' If EsEditarFianza Then - ' DtTmpFianzas.Rows.RemoveAt(IndexFianzaEditar) - ' dr("CveContratoFianza") = GvFianzas.Rows(IndexFianzaEditar).DataKey("CveContratoFianza").ToString - ' dr("Folio") = Folio - ' dr("EstatusFianza") = Estatus - ' dr("CveEstatusFianza") = CveEstatus - ' dr("FechaVencimiento") = txtFechaVenFianza.Text - ' dr("Adjunto") = If(Adjunto = "", GvFianzas.Rows(IndexFianzaEditar).DataKey("Adjunto").ToString, Adjunto) - ' Else - ' dr("CveContratoFianza") = "-1" - ' dr("Folio") = Folio - ' dr("EstatusFianza") = Estatus - ' dr("CveEstatusFianza") = CveEstatus - ' dr("FechaVencimiento") = txtFechaVenFianza.Text - ' dr("Adjunto") = Adjunto - ' End If - - ' DtTmpFianzas.Rows.Add(dr) - ' GuardaAdjunto($"{Folio} - {txtFechaVenFianza.Text}") - - ' GvFianzas.DataSource = DtTmpFianzas - ' GvFianzas.DataBind() - ' UpGvFianzas.Update() - - ' LimpiarCamposModalFianzas() - ' Me.RegistraScript("$('#DvModalFianza').modal('hide');") - - 'End Sub - - - + Me.RegistraScript("$('#DvModalFianza').modal();") + + End Sub + + + Private Sub GuardaAdjunto(FolioFechaVencimiento As String) If Not TxtModalAdjuntoArchivo.getfiles.Archivos.Count > 0 Then Exit Sub @@ -3972,39 +3724,13 @@ Partial Class Contratos_ContratoObra Catch ex As Exception Alert("Ocurrió un error al guardar el archivo Adjunto. Por favor vuelva a intentar.", TipoMensaje.MsgError) End Try - End Sub - 'Private Sub DescargarAdjunto() - ' Dim filename As String = GvFianzas.Rows(IndexFianzaEditar).DataKey("Adjunto").ToString - ' If Not String.IsNullOrEmpty(filename) Then - ' Dim rutaAplicacion As String = HttpContext.Current.Server.MapPath(HttpContext.Current.Request.ApplicationPath) - ' Dim Path As String = String.Format("{0}\\{1}\\{2}\\{3}", UsuarioActual.Empresa.Ruta, "Contratos", "Fianzas", $"{GvFianzas.Rows(IndexFianzaEditar).DataKey("Folio").ToString} - {GvFianzas.Rows(IndexFianzaEditar).DataKey("FechaVencimiento").ToDate.ToShortDateString}") - ' Dim ArchivoDestino As String = String.Format("{0}\\{1}", Path, GvFianzas.Rows(IndexFianzaEditar).DataKey("Adjunto").ToString) - ' Dim toDownload As System.IO.FileInfo = New System.IO.FileInfo(ArchivoDestino) - ' If toDownload.Exists Then - ' Response.ClearContent() - ' Response.ClearHeaders() - ' Response.AddHeader("Content-Disposition", "attachment; filename=" + filename) - ' Response.ContentType = "application/octet-stream" - ' Response.WriteFile(ArchivoDestino) - ' Response.Flush() - ' Response.Close() - ' Response.End() - ' HttpContext.Current.ApplicationInstance.CompleteRequest() - ' End If - ' End If - 'End Sub - + End Sub + + Protected Sub LnkDescargar_Click(sender As Object, e As EventArgs) 'DescargarAdjunto() - End Sub - 'Protected Sub GvFianzas_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) - - ' DtTmpFianzas.Rows.RemoveAt(e.RowIndex) - ' GvFianzas.DataSource = DtTmpFianzas - ' GvFianzas.DataBind() - ' UpGvFianzas.Update() - - 'End Sub + End Sub + Protected Sub imgEFianzaGv_Click(sender As Object, e As EventArgs) LimpiarCamposModalFianzas() EsEditarFianza = True @@ -4018,13 +3744,11 @@ Partial Class Contratos_ContratoObra txtFechaVenFianza.Text = GvRow.DataKey("FechaVencimiento").ToString() LnkDescargar.Visible = GvRow.DataKey("Adjunto").ToString <> "" - txth4Fianza.InnerText = "Editar Fianza" - 'BtnGuardarFianza.Text = "Actualizar" + txth4Fianza.InnerText = "Editar Fianza" + UPModalFianza.Update() - Me.RegistraScript("$('#DvModalFianza').modal();") - 'GvFianzas.DataSource = DtTmpFianzas - 'GvFianzas.DataBind() - 'UpGvFianzas.Update() + Me.RegistraScript("$('#DvModalFianza').modal();") + End Sub Protected Sub CreaDtTmpFianzas() DtTmpFianzas = New DataTable() @@ -4037,11 +3761,8 @@ Partial Class Contratos_ContratoObra DtTmpFianzas.Columns.Add("FechaVencimiento", GetType(String)) DtTmpFianzas.Columns.Add("Adjunto", GetType(String)) - DtTmpFianzasInicial = DtTmpFianzas.Copy - - 'GvFianzas.DataSource = DtTmpFianzas - 'GvFianzas.DataBind() - 'UpGvFianzas.Update() + DtTmpFianzasInicial = DtTmpFianzas.Copy + End Sub Protected Function GuardaFianzas(ObjContrato As ClsContratos) As Boolean @@ -4853,9 +4574,65 @@ Partial Class Contratos_ContratoObra End Sub + Private Sub Indicadores() + Dim Con As New ClsContratos + Dim DTDatos As New DataTable + + If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, CveContrato, UsuarioActual.CveEmpresa) Then + DTDatos = Con.DtResultados + End If + + Con.Dispose() + + + If DTDatos.Rows.Count > 0 Then + + Dim CantidadAvance As Decimal = DTDatos.Rows(0)("Cantidad").ToString.ToDecimal + Dim ImporteAvance As Decimal = DTDatos.Rows(0)("AvanceImporte").ToString.ToDecimal + Dim TotalAvancePorcentaje As Decimal = (ImporteAvance * 100 / TotalAvanceVentas).RoundSQL(2) + + Dim CantidadInterno As Decimal = DTDatos.Rows(0)("CantidadInterno").ToString.ToDecimal + Dim ImporteInterno As Decimal = DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal + Dim TotalFaltantePorcentaje As Decimal = (ImporteInterno * 100 / TotalAvanceInterno).RoundSQL(2) + + + LtlAvanceImporte.Text = $"$ { ImporteAvance.ToString("###,###,###.00") }" + LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" + LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" + SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") + + + LtlAvanceInternoImporte.Text = $"$ {DTDatos.Rows(0)("ImporteInterno").ToString.ToDecimal.ToString("###,###,###.00")}" + LtlAvanceInternoImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %" + LtlAvanceInternoImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%" + SPFaltante.Attributes.Add("style", $"width:{TotalFaltantePorcentaje.ToString.ToEntero}%") + + End If + + + 'Dim TotalContratos As Decimal = DTDatos.SUM("Importe") + 'Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte") + 'Dim TotalFaltante As Decimal = TotalContratos - TotalAvance + + + 'Dim TotalAvancePorcentaje As Decimal = ((TotalAvance * 100) / TotalContratos).RoundAD(2) + 'Dim TotalFaltantePorcentaje As Decimal = (100 - TotalAvancePorcentaje).RoundAD(2) + + + ' LtlGrafNumeroContratos.Text = NumeroContratos.ToString + 'LtlGrafTotal.Text = TotalContratos.ToString("###,###,###.00") + + + DVGraficas.Visible = True + + UpGrafica.Update() + + End Sub + + End Class diff --git a/Contratos/ContratoObraAutorizacion.aspx b/Contratos/ContratoObraAutorizacion.aspx new file mode 100644 index 000000000..39a0117da --- /dev/null +++ b/Contratos/ContratoObraAutorizacion.aspx @@ -0,0 +1,324 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ +
+ +
+ +
+ + + +
+
+ + +
+
+ + + +
+
+
+ + +
+
+ + + + + + + + + + + + <%# Eval("Cantidad", "{0:N2}")%> + + + + + <%# Eval("Importe", "{0:N2}")%> + + + + + <%# Eval("Cantidad_Ultima", "{0:N2}")%> + + + + + <%# Eval("Importe_Ultima", "{0:N2}")%> + + + + + + + + + + + +
+ + + +
+ + + + + + + + + + + +
+
+ + +
+
+
+ + + + + +
+
+
+ + + + + + + + + + + + + + + + + +
+
+
+
+
+
+ + Cargar Evidencia +
+
+
+
+
+
+ + +
+
+
+
+
+
+ +
+
+ +
+
+
+ +
+
+
+ + + + + + + + + + + <%----%> + + + + + + diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb new file mode 100644 index 000000000..312288238 --- /dev/null +++ b/Contratos/ContratoObraAutorizacion.aspx.vb @@ -0,0 +1,690 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Imports System.IO +Imports System.Data +Imports Newtonsoft.Json +Imports ClosedXML.Excel + +Partial Class Contratos_ContratoObraAutorizacion + Inherits ClsPaginas + +#Region "Propiedades" + Private Property DtDatos As DataTable + Get + If ViewState("DtDatos") Is Nothing Then + Return Nothing + Else + Return CType(ViewState("DtDatos"), DataTable) + End If + End Get + Set(value As DataTable) + ViewState("DtDatos") = value + End Set + End Property + + Private Property CveContrato As Integer + Get + If ViewState("CveContrato") Is Nothing Then + Return Nothing + Else + Return ViewState("CveContrato").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveContrato") = value + End Set + End Property + + + Private Property CveContratoEstimacion As Integer + Get + If ViewState("CveContratoEstimacion") Is Nothing Then + Return Nothing + Else + Return ViewState("CveContratoEstimacion").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveContratoEstimacion") = value + End Set + End Property + + 'fecha seleccionada del historico de avances + Private Property fecha As String + Get + If ViewState("fecha") Is Nothing Then + Return "" + Else + Return ViewState("fecha").ToString + End If + End Get + Set(value As String) + ViewState("fecha") = value + End Set + End Property + + Property CveEstimacionNueva As Integer + Get + If ViewState("CveEstimacionNueva") Is Nothing Then + Return -1 + Else + Return ViewState("CveEstimacionNueva").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveEstimacionNueva") = value + End Set + End Property + + Property NuemeroEstimacionNuevo As Integer + Get + If ViewState("NuemeroEstimacionNuevo") Is Nothing Then + Return -1 + Else + Return ViewState("NuemeroEstimacionNuevo").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("NuemeroEstimacionNuevo") = value + End Set + End Property + + + Property CveEstimacionActual As Integer + Get + If ViewState("CveEstimacionActual") Is Nothing Then + Return -1 + Else + Return ViewState("CveEstimacionActual").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveEstimacionActual") = value + End Set + End Property + + Property NuemeroEstimacionActual As Integer + Get + If ViewState("NuemeroEstimacionActual") Is Nothing Then + Return -1 + Else + Return ViewState("NuemeroEstimacionActual").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("NuemeroEstimacionActual") = value + End Set + End Property + + + + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + + If Not IsPostBack Then + CargaContrato() + End If + + End Sub + + + + Private Sub CargaContrato() + DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DDlContratosEstimaciones.DataBind() + End Sub + + + + + + + Protected Sub GetAnexos(sender As Object, e As System.EventArgs) + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + + LblTituloModalAnexo.Text = "Anexo " & GvRow.DataKey("PS") + + 'Get the button that raised the event + Dim btn As LinkButton = DirectCast(sender, LinkButton) + Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow) + Dim CveContratoDetalle As Integer = gvr.DataKey("CveContratoDetalle").ToString.ToEntero + Dim CveContratoAvance As Integer = gvr.DataKey("CveContratoAvance").ToEntero + Dim Fecha As Date = gvr.DataKey("Fecha").ToDate + + Dim objContrato As New ClsContratos + If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, UsuarioActual.CveUsuario, CveContratoAvance:=CveContratoAvance) Then + GvAnexos.DataSource = objContrato.DtResultados + GvAnexos.DataBind() + GvAnexos.Visible = True + Else + GvAnexos.Visible = False + End If + + objContrato.Dispose() + + UpModalAnexos.Update() + + RegistraScript("$('#ModalAnexos').modal('show');") + + End Sub + + Protected Sub GvAnexos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvAnexos.RowDataBound + + If e.Row.RowIndex > -1 Then + Dim Archivo As String = e.Row.DBCampo("Archivo").ToString + Dim start As Integer = Len(Archivo.Split("-"c)(0)) + Dim LnkArchivo As LinkButton = e.Row.FCLinkButton("LnkArchivo") + + LnkArchivo.Text = Archivo.Substring(start + 1) + + ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkArchivo) + End If + + End Sub + + + Protected Sub LnkArchivo_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + Dim Archivo As String = GvRow.DataKey("Archivo").ToString + + Response.ContentType = "application/octet-stream" + Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}") + Response.TransmitFile($"{UsuarioActual.Empresa.Ruta}\Contrato\{DDlContratosEstimaciones.SelectedValue.ToEntero}\Anexos\{Archivo}") + Response.End() + + End Sub + + + +#Region "ESTIMACION" + + + Private Sub CargaAvancesParaEstimar() + CveContratoEstimacion = -1 + + Dim ObjContratos As New ClsContratos() + Dim DTEstimaciones As New DataTable + Dim NumeroEstimacionActual As Integer = 0 + + If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then + DTEstimaciones = ObjContratos.DtResultados + + CveContratoEstimacion = DDlContratosEstimaciones.SelectedValue.ToEntero + If DTEstimaciones.Rows.Count > 0 Then + CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero + End If + + + End If + + + ObjContratos.Dispose() + + + If DTEstimaciones.Rows.Count > 0 Then + GvEstimaciones.DataSource = DTEstimaciones + ' BtnGuardarEstimacion.Visible = True + BtnAutoriza.Visible = True + Else + GvEstimaciones.DataSource = Nothing + BtnGuardarEstimacion.Visible = False + End If + GvEstimaciones.DataBind() + + UpEstimaciones.Update() + End Sub + + Private Sub BtnConsultarEstimaciones_Click(sender As Object, e As EventArgs) Handles BtnConsultarEstimaciones.Click + + CargaAvancesParaEstimar() + + End Sub + + Private Sub GvEstimaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstimaciones.RowDataBound + + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero = 0 Then + + + If e.Row.DBCampo("CveSubFamilias").ToString.ToEntero = 0 Then + If e.Row.DBCampo("CveFamilias").ToString.ToEntero = 0 Then + e.Row.CssClass = "SubTotales" + Else + e.Row.CssClass = "SubTotales2" + End If + Else + e.Row.CssClass = "SubTotales3" + End If + + + + + End If + + If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then + Dim LnkAnexo As LinkButton = e.Row.FCLinkButton("LnkAnexo") + Dim LnkEliminarAvance As LinkButton = e.Row.FCLinkButton("LnkEliminarAvance") + LnkAnexo.Visible = True + LnkEliminarAvance.Visible = True + End If + + + + + End If + + End Sub + + Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click + + CveEstimacionNueva = -1 + NuemeroEstimacionNuevo = -1 + + Dim ObjContratos As New ClsContratos() + Dim ErrorProceso As Boolean = False + + ObjContratos.IniciaTransacSQL() + + + If ObjContratos.AddContratosAvanceEstimacion(CveContratoEstimacion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + + CveEstimacionNueva = ObjContratos.CveEstimacionNueva + NuemeroEstimacionNuevo = ObjContratos.NumeroEstimacionNueva + + For Each GvRow As GridViewRow In GvEstimaciones.Rows + + If GvRow.DataKey("CveContratoAvance").ToEntero > 0 Then + If Not ObjContratos.UpdateContratosAvanceEstimacion(GvRow.DataKey("CveContratoAvance").ToEntero, ObjContratos.CveEstimacionNueva, UsuarioActual.CveEmpresa) Then + ErrorProceso = True + Exit For + End If + End If + Next + + Else + ErrorProceso = True + End If + + 'AddContratosAvanceEstimacion + 'UpdateContratosAvanceEstimacion + + + + If Not ErrorProceso Then + ObjContratos.Commit() + Alert($"Estimación {NuemeroEstimacionNuevo} agregada correctamente.") + + BtnGuardarEstimacion.Visible = False + BtnDescargarGenerado.Visible = True + + Else + ObjContratos.RollBack() + End If + + ObjContratos.Dispose() + + UpEstimaciones.Update() + End Sub + + Private Sub BtnDescargarGenerado_Click(sender As Object, e As EventArgs) Handles BtnDescargarGenerado.Click + + GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, Now, DDlContratosEstimaciones.SelectedItem.Text) + + End Sub + + Private Sub GeneraAnexo(CveEstimacion As Integer, NumeroEstimacion As Integer, FechaEstimacion As Date, NumeroContrato As String) + + Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx" + + If Not System.IO.File.Exists(PlantillaAnexo) Then + Alert("No se encuentra la platilla de anexos.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim DtControl As New DataTable + Dim ObjContratos As New ClsContratos + Dim Lugar As String = "" + Dim DescripcionContrato As String = "" + + + If ObjContratos.GetContratosObraAvancesControlAcumulativo(CveContrato, CveEstimacion, UsuarioActual.CveEmpresa) Then + DtControl = ObjContratos.DtResultados + If DtControl.Rows.Count > 0 Then + Lugar = DtControl(0)("Lugar").ToString + DescripcionContrato = DtControl(0)("DescripcionContrato").ToString + End If + End If + ObjContratos.Dispose() + + If DtControl.Rows.Count > 0 Then + + + Dim WBAnexo = New ClosedXML.Excel.XLWorkbook(PlantillaAnexo) + + Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook + + Dim WSControl = WBAnexo.Worksheet(1) + Dim WSDetalle = WBAnexo.Worksheet(2) + + Dim CuerrentRow As Integer = 28 + + WSControl.Cell(17, 2).Value = NumeroEstimacion 'Estimacion + WSControl.Cell(20, 9).Value = FechaEstimacion.ToString("dd/MM/yyyy") 'Fecha estimacion + WSControl.Cell(19, 8).Value = "$ " & DtControl.SUM("Importe").ToString("###,###,###.00") 'Total + WSControl.Cell(19, 8).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right) + + WSControl.Cell(20, 6).Value = NumeroContrato + + WSControl.Cell(18, 2).Value = Lugar + WSControl.Cell(18, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(18, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + + WSControl.Cell(17, 6).Value = "" 'Periodo Fecha Inicial + WSControl.Cell(17, 7).Value = "" 'Periuodo Fecha Final + WSControl.Cell(20, 2).Value = DescripcionContrato + WSControl.Cell(20, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(20, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + + WSControl.Cell(22, 7).Value = "" 'Presupuesto segun contrato + WSControl.Cell(19, 5).Value = "" 'Contrtatista + + Dim RowCountControl As Integer = 1 + + For Each Drow As DataRow In DtControl.Rows + + WSControl.Cell(CuerrentRow, 1).Value = Drow("Codigo").ToString + WSControl.Cell(CuerrentRow, 2).Value = Drow("PS").ToString + WSControl.Cell(CuerrentRow, 3).Value = Drow("Abreviatura").ToString + WSControl.Cell(CuerrentRow, 4).Value = Drow("Cantidad").ToString.ToDecimal + WSControl.Cell(CuerrentRow, 5).Value = Drow("AcumuladoTotal").ToString.ToDecimal + WSControl.Cell(CuerrentRow, 6).Value = Drow("AcumuladoAnterior").ToString.ToDecimal + WSControl.Cell(CuerrentRow, 7).Value = Drow("CantidadActual").ToString.ToDecimal + WSControl.Cell(CuerrentRow, 8).Value = Drow("PU").ToString.ToDecimal + WSControl.Cell(CuerrentRow, 9).Value = Drow("Total").ToString.ToDecimal + + WSControl.Cell(CuerrentRow, 9).Style.NumberFormat.Format = "$ ###,###,###.00" + + + WSControl.Cell(CuerrentRow, 1).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 2).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 3).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 4).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 5).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 6).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 7).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 8).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 9).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + + + WSControl.Cell(CuerrentRow, 1).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 2).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 3).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 4).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 5).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 6).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 7).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 8).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow, 9).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium + + 'ultimo Row + If DtControl.Rows.Count = RowCountControl Then + + + WSControl.Cell(CuerrentRow + 1, 1).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 2).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 3).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 4).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 5).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 6).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 7).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 8).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 9).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + + + WSControl.Cell(CuerrentRow + 1, 1).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 2).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 3).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 4).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 5).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 6).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 7).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 8).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + WSControl.Cell(CuerrentRow + 1, 9).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium + + WSControl.Cell(CuerrentRow + 1, 8).Value = "Total:" + WSControl.Cell(CuerrentRow + 1, 8).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right) + WSControl.Cell(CuerrentRow + 1, 8).Style.Font.Bold = True + WSControl.Cell(CuerrentRow + 1, 9).Value = DtControl.SUM("Total") + WSControl.Cell(CuerrentRow + 1, 9).Style.Font.Bold = True + + WSControl.Cell(CuerrentRow + 1, 9).Style.NumberFormat.Format = "$ ###,###,###.00" + + + Dim range = WSControl.Range($"A{CuerrentRow + 3}:D{CuerrentRow + 3}") + range.Merge() + range.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + + range = WSControl.Range($"E{CuerrentRow + 3}:I{CuerrentRow + 3}") + range.Merge() + range.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + + + + + range = WSControl.Range($"A{CuerrentRow + 4}:D{CuerrentRow + 4}") + range.Merge() + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + range.Value = "ING. WALTER ROBERTO VILLEGAS LARES" + + range = WSControl.Range($"E{CuerrentRow + 4}:I{CuerrentRow + 4}") + range.Merge() + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + range.Value = "C. SALVADOR SUAREZ" + + + range = WSControl.Range($"A{CuerrentRow + 5}:D{CuerrentRow + 5}") + range.Merge() + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + range.Value = "SERVICIOS ELECTRICOS Y CONTROL DE HERMOSILLO S.A. DE C.V." + range.Style.Font.Bold = True + + range = WSControl.Range($"E{CuerrentRow + 5}:I{CuerrentRow + 5}") + range.Merge() + range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin + range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium + range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) + range.Value = "GASERVICIO MATAMOROS SA DE CV" + range.Style.Font.Bold = True + + + End If + + CuerrentRow = CuerrentRow + 1 + RowCountControl = RowCountControl + 1 + + Next + + WBAnexo.Worksheet(1).CopyTo(WBAnexoSalvar, "CONTROL") + + + For Each Drow As DataRow In DtControl.Rows + + + If Drow("CantidadActual").ToString.ToDecimal > 0 Then + + WSDetalle.Cell(3, 6).Value = NumeroContrato + + WSDetalle.Cell(4, 9).Value = "" 'Fecha de + WSDetalle.Cell(4, 10).Value = "" 'Fecha a + WSDetalle.Cell(4, 11).Value = NumeroEstimacion + + WSDetalle.Cell(6, 6).Value = DescripcionContrato + + WSDetalle.Cell(14, 2).Value = Drow("Codigo").ToString + WSDetalle.Cell(14, 3).Value = Drow("PS").ToString + WSDetalle.Cell(14, 4).Value = Drow("Abreviatura").ToString + + + WSDetalle.Cell(12, 3).Value = "" 'Concepto + + WSDetalle.Cell(14, 10).Value = Drow("CantidadActual").ToString.ToDecimal + WSDetalle.Cell(14, 11).Value = Drow("CantidadActual").ToString.ToDecimal + 'WSDetalle.Cell(61, 6).Value = "" 'Empresario + WSDetalle.Cell(61, 9).Value = Drow("Nombre").ToString 'Cliente + + + + Dim objContrato As New ClsContratos + Dim DTArchivos As New DataTable + + If objContrato.GetContratosAvanceAnexos(Drow("CveContratoDetalle").ToString.ToEntero, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then + DTArchivos = objContrato.DtResultados + End If + objContrato.Dispose() + + Dim Imagenes As New List(Of ClosedXML.Excel.Drawings.IXLPicture) + + Dim CurrectRowImg As Integer = 19 'Row 19 primera imggen + Dim RowH As Double = WSDetalle.Row(19).Height + + For Each drowArchivos As DataRow In DTArchivos.Rows + + Dim Archivo As String = "" + Archivo = drowArchivos("Archivo").ToString + Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}" + + If File.Exists(RutaArchivo) Then + + Dim Imagen = WSDetalle.AddPicture(RutaArchivo).MoveTo(WSDetalle.Cell(CurrectRowImg, 3)) + Imagen.Scale(WSDetalle.Column(3).Width / (Imagen.OriginalWidth * 0.145D)) + + Dim ImgWidth As Double = Imagen.Height + + Dim nRowmas As Integer = (ImgWidth / RowH).ToEntero + + CurrectRowImg = CurrectRowImg + nRowmas + + Imagenes.Add(Imagen) + End If + + Next + WBAnexo.Worksheet(2).CopyTo(WBAnexoSalvar, If(Drow("Codigo").ToString.Trim.Length > 0, Drow("Codigo").ToString, Drow("CvePS").ToString)) + + For Each img As ClosedXML.Excel.Drawings.IXLPicture In Imagenes + img.Delete() + Next + + + End If + + Next + + + Dim msB = New MemoryStream() + WBAnexoSalvar.SaveAs(msB) + + Dim BB As Byte() = msB.ToArray + msB.Dispose() + + Response.Clear() + Response.Buffer = True + Response.AddHeader("content-disposition", "attachment; filename=Anexo_Estimacion" & NumeroEstimacion & ".xlsx") + Response.ContentType = "application/vnd.ms-excel" + Response.BinaryWrite(BB) + Response.End() + + + Else + Alert("No se encontraron datos des control", TipoMensaje.MsgAdvertencia) + End If + + End Sub + + + + + + +#End Region + + + + + + Protected Sub LnkEliminarAvance_Click(sender As Object, e As EventArgs) + + Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) + + Dim CveContratoAvance As Integer = GvRow.DataKey("CveContratoAvance").ToEntero + Dim ErrorProceso As Boolean = True + + + + Dim ObjContrato As New ClsContratos + + If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then + ErrorProceso = False + End If + + ObjContrato.Dispose() + + If Not ErrorProceso Then + + CargaAvancesParaEstimar() + Alert("Avance elimiando correctamente.") + End If + + + + End Sub + Protected Sub BtnAutoriza_Click(sender As Object, e As EventArgs) + + + + Dim ErrorProceso As Boolean = True + + + + Dim ObjContrato As New ClsContratos + + If ObjContrato.UpdateContratosEstimacion(CveEstimacionActual, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3) Then + ErrorProceso = False + End If + + ObjContrato.Dispose() + + If Not ErrorProceso Then + + CveEstimacionActual = -1 + CargaAvancesParaEstimar() + Alert("Avance autorizado correctamente.") + + End If + + + + + End Sub +End Class + + + diff --git a/Contratos/RepContratosObraAvancesPartida.aspx b/Contratos/RepContratosObraAvancesPartida.aspx index b577c1fb4..a231acd89 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx +++ b/Contratos/RepContratosObraAvancesPartida.aspx @@ -43,7 +43,7 @@
diff --git a/Contratos/RepContratosObraAvancesPartida.aspx.vb b/Contratos/RepContratosObraAvancesPartida.aspx.vb index 2abb6424b..e016c56b7 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx.vb +++ b/Contratos/RepContratosObraAvancesPartida.aspx.vb @@ -113,8 +113,10 @@ Partial Class RepContratosObraAvancesPartida Dim CveEstimacion As Integer = GvRow.DataKey("CveEstimacion").ToEntero Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero + Dim CveContratoAvance As Integer = GvRow.DataKey("CveContratoAvance").ToEntero + Dim objContrato As New ClsContratos - If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then + If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion, CveContratoAvance:=CveContratoAvance) Then GvAnexos.DataSource = objContrato.DtResultados GvAnexos.DataBind() GvAnexos.Visible = True @@ -150,11 +152,18 @@ Partial Class RepContratosObraAvancesPartida Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim Archivo As String = GvRow.DataKey("Archivo").ToString + Dim FI As New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}") + + + If FI.Exists Then + + Response.ContentType = "application/octet-stream" + Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}") + Response.TransmitFile(FI.FullName) + Response.End() + + End If - Response.ContentType = "application/octet-stream" - Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}") - Response.TransmitFile($"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}") - Response.End() End Sub diff --git a/GPS/RepCombustible.aspx.vb b/GPS/RepCombustible.aspx.vb index 976c03a04..6df5d34e6 100644 --- a/GPS/RepCombustible.aspx.vb +++ b/GPS/RepCombustible.aspx.vb @@ -311,8 +311,7 @@ Partial Class GPS_RepCombustible End Sub Protected Sub Lnkreportegral_Click(sender As Object, e As EventArgs) - Dim GloBalFileUrl As String = HttpContext.Current.Server.MapPath("~") - Dim file As String = $"{GloBalFileUrl}Empresas\Grales\Formatos\CombustibleGeneral.xlsx" + Dim file As String = $"{DirectorioBaseEmpresas}Empresas\Grales\Formatos\CombustibleGeneral.xlsx" Try Dim wb As New ClosedXML.Excel.XLWorkbook(file) Dim libro = wb.Worksheets(0) diff --git a/General/CatModelos.aspx b/General/CatModelos.aspx index 09c09dba2..15aeee825 100644 --- a/General/CatModelos.aspx +++ b/General/CatModelos.aspx @@ -27,6 +27,7 @@ CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None"> + diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 8e68f2b23..b26306076 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -853,7 +853,7 @@ Partial Class General_SaldosIniciales If Codigo.Length > 0 Then - If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, -1, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveClasificacionDetalle:=CveClasificacionDetalle) <= 0 Then 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 4f19a33b8..7c83727db 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2525,8 +2525,14 @@ Partial Class Inventarios_RecepcionUsados If RblUsadosAjuste.SelectedValue = "1" Then 'agrego un registro extra del importe de ajuste Dim PU As Decimal = TxtImporteAjuste.Text.ToDecimal - Dim CveSATNC As String = "84111506" - Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).FiltroPrimero("") + 'CONSULTA EL CONCEPTO DE NC + Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) + Dim NCAjuste As Integer = -1 + If ArrayNC.Length > 5 Then + NCAjuste = ArrayNC(5).ToEntero() + End If + + Dim Dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).FiltroPrimero("") If Dr IsNot Nothing Then Dim CveUnidadMedida, CveClasificacion, CvePS As Integer @@ -2534,7 +2540,7 @@ Partial Class Inventarios_RecepcionUsados CveClasificacion = Dr("CveClasificacion").ToString.ToEntero CvePS = Dr("CvePS").ToString.ToEntero Dim PorcentajeIVA As Decimal = 0.16D - Dim Obs As String = "Descuento por garantía" + Dim Obs As String = $"Descuento por garantía. BCI: {DdlBCIAjuste.SelectedValue}" AddPSRNC(ObjRemisionNC.DtDetalle, 1, CveUnidadMedida, "", CveClasificacion, "", CvePS, "", Obs, PU, 0, -1, "", ObjRemisionNC.CveSubProyecto, ObjRemisionNC.SubProyecto.SubProyecto, PorcentajeIVA:=PorcentajeIVA) @@ -2806,13 +2812,6 @@ Partial Class Inventarios_RecepcionUsados Dim ClasificacionPS As String = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionPS).FiltroPrimeroValor("Clasificacion").ToString() Select Case TipoFolio Case "GENERAL" - '20520 ACUM. AUTOMOTRIZ - '20522 ACUM. ESPECIALES - '20513 ACUM. ESTANDAR - '20521 ACUM. PESADO - '20512 ACUM. PREMIUM - '20514 ACUM. VALUE - '20229 Acumulador ListaClasificacionesPermitidas.Add(20520) 'ACUM. AUTOMOTRIZ ListaClasificacionesPermitidas.Add(20522) 'ACUM. ESPECIALES ListaClasificacionesPermitidas.Add(20513) 'ACUM. ESTANDAR diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb index f44f0a3d6..7a9255c82 100644 --- a/OC/CatEstatus.aspx.vb +++ b/OC/CatEstatus.aspx.vb @@ -69,14 +69,14 @@ Partial Class OC_CatEstatus CargaDatos() CargaEstatus() CargaProyectos() - CargaUsuarios() - - 'SOLO MUESTRA SUBPROYECTO - If UsuarioActual.Empresa.GralSoloProyecto Then - 'TdProyecto.Visible = False - 'TdSubProyectoTitulo.Visible = False - - DivProyecto.Visible = False + CargaUsuarios() + + 'SOLO MUESTRA SUBPROYECTO + + 'TdProyecto.Visible = False + 'TdSubProyectoTitulo.Visible = False + + DivProyecto.Visible = False LblSubproyecto.Visible = False @@ -84,9 +84,9 @@ Partial Class OC_CatEstatus CboSubProyecto.DataBind() CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty) - End If - + CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty) + + chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();") MaintainScrollPositionOnPostBack = True @@ -614,7 +614,7 @@ Partial Class OC_CatEstatus 'Insertar el nuevo registro Else - If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True) Then + If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, CveSubProyecto, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then HuboErrores = True Exit For End If @@ -699,6 +699,7 @@ Partial Class OC_CatEstatus If Not HuboErrores Then objEstatusOC.Commit() + GlobalDTSubProyectosUsuarios(-1, -1, UsuarioActual.CveEmpresa) = Nothing Alert("Se guardaron los Cambios exitosamente", TipoMensaje.MsgInformacion) Else objEstatusOC.RollBack() diff --git a/OC/OC.aspx b/OC/OC.aspx index b7c9eb33e..a5c5ecb11 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -811,6 +811,7 @@
+ Cultivo: @@ -941,9 +942,7 @@ - - - + diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 07bd1ee2d..440141f5c 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -801,6 +801,9 @@ Partial Class OC If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then DVCultivosCuadro.Visible = True + DdlSubProyecto.AutoPostBack = True + DdlCultivosCuadro.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyecto.SelectedValue}") + DdlCultivosCuadro.DataBind() DdlCultivosCuadro.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End If @@ -3562,7 +3565,9 @@ Partial Class OC If e.Row.RowState = DataControlRowState.Normal Or e.Row.RowState = DataControlRowState.Alternate Then If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then - e.Row.FCLiteral("LtlSubProyecto").Text = e.Row.DBCampo("SubProyecto") + Dim Str As String = e.Row.DBCampo("SubProyecto") + If e.Row.DBCampo("Cuadro") <> "" Then Str = String.Format("{0}
{1}", Str, e.Row.DBCampo("Cuadro")) + e.Row.FCLiteral("LtlSubProyecto").Text = Str End If End If diff --git a/Site.master.vb b/Site.master.vb index f9498674c..4cfc112f6 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -17,7 +17,7 @@ Partial Class Site Return Convert.ToBoolean(HdnEsPopup.Value) End Get Set(value As Boolean) - HdnEsPopup.Value = value.ToString + HdnEsPopup.Value = value.ToString() End Set End Property @@ -26,7 +26,7 @@ Partial Class Site Return HdnPopUpWidth.Value.ToEntero End Get Set(value As Integer) - HdnPopUpWidth.Value = value.ToString + HdnPopUpWidth.Value = value.ToString() End Set End Property Public Property userx As Usuario @@ -39,7 +39,7 @@ Partial Class Site End Property Public Property countNotificaciones As Integer Get - countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString.ToEntero) + countNotificaciones = If(IsNothing(ViewState("countNotificaciones")), 0, ViewState("countNotificaciones").ToString().ToEntero) End Get Set(value As Integer) ViewState("countNotificaciones") = value @@ -64,10 +64,10 @@ Partial Class Site lblFecha.Text = DateTime.Now.ToString("dd.MMMyyyy HH:mm tt") MasterChat.Visible = False - If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString = "true" Then EsPopup = True + If Request("Masterimpoup") IsNot Nothing AndAlso Request("Masterimpoup").ToString() = "true" Then EsPopup = True If UsuarioActual IsNot Nothing Then - HdnCveE.Value = UsuarioActual.CveEmpresa.ToString - HdnCveU.Value = UsuarioActual.CveUsuario.ToString + HdnCveE.Value = UsuarioActual.CveEmpresa.ToString() + HdnCveU.Value = UsuarioActual.CveUsuario.ToString() LitTit.Text = UsuarioActual.Empresa.EmpresaEncabezado If UsuarioActual.CveUsuario = 100 Then LitTit.Text = String.Format(" Mi Empresa de Ventas ({0}) ", UsuarioActual.CveEmpresa) @@ -81,7 +81,7 @@ Partial Class Site userx = New Usuario userx.Empresa = New Empresa - userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString) + userx.Referencia = Encripta(UsuarioActual.CveUsuario.ToString()) userx.Usuario = Encripta(UsuarioActual.Usuario) userx.Liga = Encripta(UsuarioActual.Rol) @@ -143,7 +143,7 @@ Partial Class Site Else 'VALIDACION DE SEGURIDAD, EN LA QUE SE VALIDA QUE LA EMPRESA EN LA QUE SE GENERO LA PAGINA SEA LA MISMA A LA DE LA SESION, 'DE NO SER ASI, SE REDIRECCIONA A INICIO. - If UsuarioActual IsNot Nothing AndAlso (HdnCveE.Value <> UsuarioActual.CveEmpresa.ToString OrElse HdnCveU.Value <> UsuarioActual.CveUsuario.ToString) Then + If UsuarioActual IsNot Nothing AndAlso (HdnCveE.Value <> UsuarioActual.CveEmpresa.ToString() OrElse HdnCveU.Value <> UsuarioActual.CveUsuario.ToString()) Then Response.Redirect(FormsAuthentication.DefaultUrl) End If End If @@ -186,7 +186,7 @@ Partial Class Site ' userstring.AppendFormat("{0}{1} ", prefix, item) ' prefix = "," ' Next - ' stringusers = userstring.ToString + ' stringusers = userstring.ToString() ' If userconectedlist.Count > 0 Then ' GlobalDTUsuarios = GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario in ({0})", userstring)) ' RptChatEmpresa.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa >1", "", {"CveEmpresa", "Empresa"}) @@ -198,7 +198,7 @@ Partial Class Site 'End Sub 'Private stringusers As String = "0" 'Private Sub RptChatEmpresa_ItemDataBound(sender As Object, e As RepeaterItemEventArgs) Handles RptChatEmpresa.ItemDataBound - ' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString.ToEntero + ' Dim CveEmpresa As Integer = e.Item.DataItem("CveEmpresa").ToString().ToEntero ' Dim GlobalDTUsuarios As DataTable = DirectCast(Application("GlobalDTUsuarios"), DataTable).FiltraParametros(String.Format("CveUsuario in ({0}) AND CveEmpresa ={1}", stringusers, CveEmpresa)) ' Dim rpthijo As Repeater = DirectCast(e.Item.FindControl("RPTChatuser"), Repeater) @@ -312,61 +312,73 @@ Partial Class Site Dim LinkNieto = "" Dim ClassActive As String CveModuloPadreSeleccionado = 0 : CveModuloHijoSeleccionado = 0 : CveModuloNietoSeleccionado = 0 + + Dim strdomain = Request.Url.AbsoluteUri.Replace(Request.Url.PathAndQuery, "") + If Request.Url.Port <> 80 Then + strdomain = strdomain.Replace(String.Format(":{0}", Request.Url.Port), "") + End If Dim MenuHTML As New StringBuilder For Each drP As DataRow In Inicio - CveModuloPadre = drP("CveModulo").ToString.ToEntero - LinkPadre = drP("LIGA").ToString - If drP("PopUp").ToString = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")) + CveModuloPadre = drP("CveModulo").ToString().ToEntero + LinkPadre = drP("LIGA").ToString() + If drP("PopUp").ToString() = "S" Then LinkPadre = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drP("LIGA"), drP("ANCHO"), drP("ALTO")) Dim Hijos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloPadre) Order By h!Orden - If CveModulo = drP("CveModulo").ToString.ToEntero Then - HeaderBar.AppendFormat("
  • {1}", LinkPadre, drP("Modulo").ToString) - ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString.ToEntero) + If CveModulo = drP("CveModulo").ToString().ToEntero Then + HeaderBar.AppendFormat("
  • {1}", LinkPadre, drP("Modulo").ToString()) + ScriptColorGrupoModulo = ColorPage(drP("CveGrupoModulo").ToString().ToEntero) End If If Hijos.Count > 0 Then Linkpapa = LinkPadre LinkPadre = LinkBase - MenuHTML.AppendFormat("
  • {2}{1}
      ", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString <> "", String.Format("", drP("Estilo")), ""), drP("CveModulo")) + MenuHTML.AppendFormat("
    • {2}{1}
        ", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("", drP("Estilo")), ""), drP("CveModulo")) For Each drH As DataRow In Hijos - Dim CveModuloHijo As Integer = drH("CveModulo").ToString.ToEntero - LinkHijo = drH("LIGA").ToString - If CveModulo = drH("CveModulo").ToString.ToEntero Then + Dim CveModuloHijo As Integer = drH("CveModulo").ToString().ToEntero + LinkHijo = drH("LIGA").ToString() + If (drH("IsAngular").ToString() = "1") Then + LinkHijo = String.Format("{1}:84{0}", drH("LIGA"), strdomain) + End If + + If CveModulo = drH("CveModulo").ToString().ToEntero Then CveModuloPadreSeleccionado = CveModuloPadre ClassActive = "class='active'" - HeaderBar.AppendFormat("
      • {1}
      • {3}", Linkpapa, drP("Modulo").ToString, LinkHijo, drH("Modulo").ToString) - ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString.ToEntero) + HeaderBar.AppendFormat("
      • {1}
      • {3}", Linkpapa, drP("Modulo").ToString(), LinkHijo, drH("Modulo").ToString()) + ScriptColorGrupoModulo = ColorPage(drH("CveGrupoModulo").ToString().ToEntero) Else ClassActive = "" End If - If drH("PopUp").ToString = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO")) + If drH("PopUp").ToString() = "S" Then LinkHijo = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drH("LIGA"), drH("ANCHO"), drH("ALTO")) Dim Nietos = From h In dt.AsEnumerable Where h!CvePadre.Equals(CveModuloHijo) Order By h!Orden If Nietos.Count > 0 Then Linkson = LinkHijo LinkHijo = LinkBase - MenuHTML.AppendFormat("
      • {2}{1}
          ", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString <> "", String.Format("", drH("Estilo")), ""), drH("CveModulo")) + MenuHTML.AppendFormat("
        • {2}{1}
            ", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("", drH("Estilo")), ""), drH("CveModulo")) For Each drN As DataRow In Nietos - LinkNieto = drN("LIGA").ToString - If CveModulo = drN("CveModulo").ToString.ToEntero Then + LinkNieto = drN("LIGA").ToString() + If (drH("IsAngular").ToString() = "1") Then + LinkNieto = String.Format("{1}:4200{0}", drN("LIGA"), strdomain) + End If + If CveModulo = drN("CveModulo").ToString().ToEntero Then CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo ClassActive = "class='active'" - HeaderBar.AppendFormat("
          • {1}
          • {3}
          • {5}", Linkpapa, drP("Modulo").ToString, Linkson, drH("Modulo").ToString, LinkNieto, drN("Modulo")) - ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString.ToEntero) + HeaderBar.AppendFormat("
          • {1}
          • {3}
          • {5}", Linkpapa, drP("Modulo").ToString(), Linkson, drH("Modulo").ToString(), LinkNieto, drN("Modulo")) + ScriptColorGrupoModulo = ColorPage(drN("CveGrupoModulo").ToString().ToEntero) Else ClassActive = "" End If - If drN("PopUp").ToString = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO")) - MenuHTML.AppendFormat("
          • {2}{1}
            • ", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString <> "", String.Format("", drN("Estilo")), ""), ClassActive) + If drN("PopUp").ToString() = "S" Then LinkNieto = String.Format("javascript:AbrirVentana('{0}',{1},{2},'N');", drN("LIGA"), drN("ANCHO"), drN("ALTO")) + MenuHTML.AppendFormat("
          • {2}{1}
            • ", LinkNieto, drN("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("", drN("Estilo")), ""), ClassActive) Next MenuHTML.AppendFormat("
          • ") Else - MenuHTML.AppendFormat("
        • {2}{1}
          • ", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString <> "", String.Format("", drH("Estilo")), ""), ClassActive) + MenuHTML.AppendFormat("
        • {2}{1}
          • ", LinkHijo, drH("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("", drH("Estilo")), ""), ClassActive) End If Next MenuHTML.AppendFormat("
        • ") Else - MenuHTML.AppendFormat("
      • {2}{1}
        • ", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString <> "", String.Format("", drP("Estilo")), "")) + MenuHTML.AppendFormat("
      • {2}{1}
        • ", LinkPadre, drP("Modulo"), If(drP("Estilo").ToString() <> "", String.Format("", drP("Estilo")), "")) End If Next @@ -380,9 +392,9 @@ Partial Class Site MenuHTML = MenuHTML.Replace(String.Format("id='j{0}'", CveModuloHijoSeleccionado), String.Format("id='j{0}' class='selected'", CveModuloHijoSeleccionado)) End If HeaderBar.AppendFormat("{0}", ScriptColorGrupoModulo) - BarraNavegacion.Text = HeaderBar.ToString + BarraNavegacion.Text = HeaderBar.ToString() 'CargaMenu(MenuHTML) - Menu.Text = MenuHTML.ToString + Menu.Text = MenuHTML.ToString() MenuHTML.Clear() HeaderBar.Clear() End Sub @@ -417,7 +429,7 @@ Partial Class Site End Function 'Private Sub CargaMenu(Texto As StringBuilder) - ' Menu.Text = Texto.ToString + ' Menu.Text = Texto.ToString() 'End Sub #Region "Notificaciones" @@ -474,7 +486,7 @@ Partial Class Site 'End If 'OC.Dispose() - LtlMNotificaciones.Text = String.Format("{0}{1}", LtlMNotificaciones.Text, Notificaciones.ToString) + LtlMNotificaciones.Text = String.Format("{0}{1}", LtlMNotificaciones.Text, Notificaciones.ToString()) Notificaciones.Clear() End Sub @@ -484,7 +496,7 @@ Partial Class Site Dim Archivo As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.ArchivoCer) If File.Exists(Archivo) Then Dim CerFile As New FileStream(Archivo, FileMode.Open, FileAccess.Read) - Dim Size As Integer = CerFile.Length.ToString.ToEntero() + Dim Size As Integer = CerFile.Length.ToString().ToEntero() Dim Data As Byte() = New Byte(Size - 1) {} Size = CerFile.Read(Data, 0, Size) CerFile.Close() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index afd23bfe7..a996cf41b 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9161,7 +9161,7 @@ Partial Class Clientes End If - If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate) Then + If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then GvUsadosResumen.DataSource = ObjAcum.DtResultados End If GvUsadosResumen.DataBind() diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 6f9b5de8f..18dbbe908 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1257,7 +1257,7 @@ Partial Class ProductosyServicios End If Next End If - If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then + If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, True) End If @@ -1323,7 +1323,7 @@ Partial Class ProductosyServicios Next End If - If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then + If UsuarioActual.Empresa.Funcionalidad(563) <> "" AndAlso ChkAplicaParaVenta.Checked Then TieneError = GuardarProductoEnFranquicia(ObjProductosServicios, PSS, CveMetodoInv, EsPaquete, False) End If diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index bab37aa2a..cb3ea762a 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2746,14 +2746,15 @@ - + - +
        Contrato: +
        - - - - + + + + @@ -2790,19 +2791,23 @@
        -
        - -
        - +
        + +
        +
        - - + + - - + + -
        + +
        Estimacion: Estimacion: + +
        +
        @@ -2819,7 +2824,7 @@ <%----%> - +
        @@ -4314,7 +4319,7 @@ - + @@ -6289,6 +6294,11 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
        +
        + +
        +
        +
        @@ -6320,6 +6330,35 @@
        +
        +
        + + + + + + + + + + + + + + + + + + + + + + + + +
        +
        @@ -6439,7 +6478,7 @@
        -
        +
        @@ -7988,65 +8027,65 @@ } - function FnCambiaAnt(chk, txt, saldo) { - debugger; + function FnCambiaAnt(chk, txt, saldo) { + debugger; - var Total = ToDouble($get('TxtSubTotal').value); - let TipoAnticipo = $('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').val(); - let importeTxt = parseFloat(txt.value.replace(/,/g, '')); + var Total = ToDouble($get('TxtSubTotal').value); + let TipoAnticipo = $('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').val(); + let importeTxt = parseFloat(txt.value.replace(/,/g, '')); - if (isNaN(importeTxt)) { - importeTxt = 0; - } else { - if (importeTxt <= 0) { + if (isNaN(importeTxt)) { importeTxt = 0; - chk.checked = false; - return; + } else { + if (importeTxt <= 0) { + importeTxt = 0; + chk.checked = false; + return; + } } + + saldo = (importeTxt > saldo) ? saldo : importeTxt; + + + + var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2)); + if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value; + //minimo entre saldocompra y el saldoanticipo + if (SaldoCompra < saldo) saldo = SaldoCompra; + + if (ToDouble(txt.value) > 0) { + chk.checked = true; + } else { + chk.checked = false; + } + + if (ToDouble(txt.value) > saldo) { + txt.value = saldo; + alert("El Importe no debe de exceder a el saldo"); + } + + $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2)); + + + $get('HdnVentaSaldo').value = Total - FnSumaValoresAnt(); } - saldo = (importeTxt > saldo) ? saldo : importeTxt; + function FnSumaValoresAnt() { + debugger; + var totalPoints = 0; + var t = ''; + $('input[name*=TxtAnticipo]').each(function () { + totalPoints += ToDouble($(this).val()); + }); - var SaldoCompra = (Total - FnSumaValoresAnt() + ToDouble(txt.value)).toFixed(2); // le agrego lo del valor actual para validarlo //parseFloat(parseFloat($get('HdnVentaSaldo').value).toFixed(2)); - if (SaldoCompra < 0) txt.value = SaldoCompra - txt.value; - //minimo entre saldocompra y el saldoanticipo - if (SaldoCompra < saldo) saldo = SaldoCompra; - if (ToDouble(txt.value) > 0) { - chk.checked = true; - } else { - chk.checked = false; + return Math.round(totalPoints * 100) / 100; } - if (ToDouble(txt.value) > saldo) { - txt.value = saldo; - alert("El Importe no debe de exceder a el saldo"); - } - - $("#LblTotalAnticipos").text(FormatoNumero(FnSumaValoresAnt(), 2)); - - - $get('HdnVentaSaldo').value = Total - FnSumaValoresAnt(); - } - - function FnSumaValoresAnt() { - debugger; - var totalPoints = 0; - var t = ''; - - - $('input[name*=TxtAnticipo]').each(function () { - totalPoints += ToDouble($(this).val()); - }); - - - return Math.round(totalPoints * 100) / 100; - } - - function LimpiaModal() { - $('#<%= TxtDireccion.ClientID %>').val(''); + function LimpiaModal() { + $('#<%= TxtDireccion.ClientID %>').val(''); $('#<%= TxtColonia.ClientID %>').val(''); $('#<%= TxtCiudad.ClientID %>').val(''); $('#<%= TxtEstado.ClientID %>').val(''); @@ -8271,68 +8310,68 @@ function ConvertirDolares(ChkConvertirDolares) { //LIMPIA $('#<%= LblDolaresConvertidos.ClientID %>').text(''); - $("#TrConversionDolaresTexto").hide(); + $("#TrConversionDolaresTexto").hide(); - //CALCULA - if (ChkConvertirDolares.checked) { - ConvertirPesosDlls(); - } - } + //CALCULA + if (ChkConvertirDolares.checked) { + ConvertirPesosDlls(); + } + } - //FUNCIONES PARA MODAL "ModalAplicarNC" - function CalculaImporteNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); + //FUNCIONES PARA MODAL "ModalAplicarNC" + function CalculaImporteNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); - $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); - } + $get('TxtNCImporte').value = FormatoNumero((ToDouble($get('TxtNCPorcentaje').value) * ImporteReferencia) / 100, 2); + } - function CalculaPorcentajeNC() { - var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); - //var ImporteReferencia = ToDouble($get('TxtTotal').value); - $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); - } + function CalculaPorcentajeNC() { + var ImporteReferencia = (($('#C_DdlNCNivelImporte').val() == "1") ? ToDouble($get('TxtTotal').value) : ToDouble($get('TxtSubTotal').value)); + //var ImporteReferencia = ToDouble($get('TxtTotal').value); + $get('TxtNCPorcentaje').value = FormatoNumero((ToDouble($get('TxtNCImporte').value) * 100) / ImporteReferencia, 4); + } - function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { - debugger; - if (tipocambio.value.length > 0) { + function CambioTipoMoneda(chk, saldo, txt, tipocambio, CveMoneda) { + debugger; + if (tipocambio.value.length > 0) { - if (CveMoneda == 1) { - txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); - } else { - txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); + if (CveMoneda == 1) { + txt.value = FormatoNumero(ToDouble(saldo / tipocambio.value), 2); + } else { + txt.value = FormatoNumero(ToDouble(saldo * tipocambio.value), 2); - } - } - } + } + } + } - function BuscarOCRegistrada() { - $('#btnBuscarOCRegistrada').click(); - } + function BuscarOCRegistrada() { + $('#btnBuscarOCRegistrada').click(); + } - function ValidaAnticipoBoton() { + function ValidaAnticipoBoton() { - var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); - var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); + var Descuentototal = ToDouble($('#LblDescuentos').text()).toFixed(2); + var TotalAnticipos = ToDouble($('#LblTotalAnticipos').text()).toFixed(2); - var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); + var IndexActualDdl = parseInt($('#<%= DdlTipoAmortizacionAnticipo.ClientID %>').prop('selectedIndex')); if (IndexActualDdl == 1 && IndexActualDd2 > 0 && TotalAnticipos > 0) { if (TotalAnticipos > 0) { $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', false); - } else { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); - } - } else { - $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); - } + } else { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } + } else { + $('#<%= BtnAceptarAnticipos.ClientID %>').prop('disabled', true); + } - } + } - function showDivEC() { - $('#<%= TxtRFCCliente.ClientID %>').val(''); + function showDivEC() { + $('#<%= TxtRFCCliente.ClientID %>').val(''); $('#<%= TxtNombreCliente.ClientID %>').val(''); $('#<%= TxtDireccionCliente.ClientID %>').val(''); $('#<%= TxtNumExtCliente.ClientID %>').val(''); diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 772fa78a3..2a8583eed 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -144,6 +144,22 @@ Partial Class Ventas ViewState("TmpDTRNCBonificacionesSeleccionadas") = value End Set End Property + Private Property TmpDTRNCDetalle As DataTable + Get + Return If(IsNothing(ViewState("TmpDTRNCDetalle")), Nothing, CType(ViewState("TmpDTRNCDetalle"), DataTable)) + End Get + Set(value As DataTable) + ViewState("TmpDTRNCDetalle") = value + End Set + End Property + Private Property TmpDTRNCDetalleSelecciondas As DataTable + Get + Return If(IsNothing(ViewState("TmpDTRNCDetalleSelecciondas")), Nothing, CType(ViewState("TmpDTRNCDetalleSelecciondas"), DataTable)) + End Get + Set(value As DataTable) + ViewState("TmpDTRNCDetalleSelecciondas") = value + End Set + End Property Private Property TmpDTError As DataTable Get Return If(IsNothing(ViewState("TmpDTError")), Nothing, CType(ViewState("TmpDTError"), DataTable)) @@ -1861,6 +1877,22 @@ Partial Class Ventas ViewState("SerieVenta") = value End Set End Property + Private Property AplicaDocumentoNuevoNC As Boolean + Get + Return CBool(IfNull(ViewState("AplicaDocumentoNuevoNC"), "False", ViewState("AplicaDocumentoNuevoNC"))) + End Get + Set(value As Boolean) + ViewState("AplicaDocumentoNuevoNC") = value + End Set + End Property + Private Property AplicaRNCXDetalle As Boolean + Get + Return CBool(IfNull(ViewState("AplicaRNCXDetalle"), "False", ViewState("AplicaRNCXDetalle"))) + End Get + Set(value As Boolean) + ViewState("AplicaRNCXDetalle") = value + End Set + End Property #End Region @@ -3928,6 +3960,7 @@ Partial Class Ventas TmpDT = ObjVentas.DtResultados TmpDT.Columns.Add("EntregaDirecta", GetType(Integer)) TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) GvPS.DataSource = ObjVentas.DtResultados GvPS.DataBind() @@ -5233,6 +5266,7 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente Else ChkEnviarFactura.Checked = EnviarCorreoCliente ChkEnviarFactura.Visible = True @@ -5617,7 +5651,7 @@ Partial Class Ventas Dim ObjClientes As New ClsClientes If ObjClientes.GetHistorialVentas(CveCliente, 1000, CveClienteSucursal:=-1, TipoDocto:="Ing", CveEstatusFactura:=-1, FechaI:=Now.AddMonths(-1)) Then - DdlVentaUsado.DataSource = ObjClientes.DtResultados + DdlVentaUsado.DataSource = ObjClientes.DtResultados.FiltraParametros("UsadoMarcado = 0") End If ObjClientes.Dispose() @@ -5863,6 +5897,7 @@ Partial Class Ventas ChkEnviarFactura.Checked = False ChkEnviarFactura.Visible = True LblEnviarMail.Visible = True + If CveVenta > 0 AndAlso EnviarCorreoCliente Then ChkEnviarFactura.Checked = EnviarCorreoCliente Else ChkEnviarFactura.Checked = EnviarCorreoCliente ChkEnviarFactura.Visible = True @@ -6662,6 +6697,7 @@ Partial Class Ventas TmpDT.Rows(e.RowIndex)("ImporteIVA") = (TmpDT.Rows(e.RowIndex)("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteIEPS") = (TmpDT.Rows(e.RowIndex)("PorcentajeIEPS").ToString().ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) + TmpDT.Rows(e.RowIndex)("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales) TmpDT.Rows(e.RowIndex)("PorcentajeRetIVA") = ClienteRetIVA TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR @@ -8575,7 +8611,7 @@ Partial Class Ventas End If 'SI NO ES REFACTURACION - If NuevaFactura <> 1 Then + If NuevaFactura <> 1 AndAlso Not AplicaDocumentoNuevoNC Then If DtVentasNC Is Nothing Then InicializaDTVentasNC() Dim Drt = DtVentasNC.NewRow Drt("CveVenta") = ObjFactura.CveVenta @@ -10497,6 +10533,15 @@ Partial Class Ventas Catch ex As Exception End Try + 'SI SE FACTURA UNA RNC SE MUESTRA + If UsuarioActual.CveEmpresa = 140 AndAlso factura.TipoDocto = "Egs" Then + If Row("CveVentaDetalleRNC").ToString().ToEntero() > 0 Then + If Not ObjVentas.AddVentaDetalleRNCFacturada(Row("CveVentaDetalleRNC").ToString().ToEntero(), ObjVentas.CveVentaDetalle, Row("Cantidad").ToString().ToDecimal()) Then + ErrorList.Add("Ocurrió un error al agregar la venta detalle devolución.") + End If + End If + End If + End If Next @@ -11589,6 +11634,13 @@ Partial Class Ventas CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera End If + 'ACTUALIZA SI LA VENTA FUE MARCADA CON OTRA PARA EL FILTRO DE USADOS + If ObjRNC.Num3 > 0 Then + If Not ObjVentas.UpdateVentaRNCUsado(ObjRNC.CveVenta, ObjRNC.Num3.ToEntero()) Then + ErrorPrepoliza = True + End If + End If + IdCtaContableCliente = IdCtaContable CveCuentaCliente = CveCuenta @@ -16257,6 +16309,7 @@ Partial Class Ventas Row("IVA") = Row("PorcentajeIVA") Row("ImporteIVA") = (Row("PorcentajeIVA").ToString().ToDecimal * TotalCalculableImpuestosIVA).RoundAD(NumeroDecimales) Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales) + Row("RetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundAD(NumeroDecimales) Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundAD(NumeroDecimales) Row("PorcentajeRetIVA") = ClienteRetIVA Row("PorcentajeRetISR") = ClienteRetISR @@ -16508,6 +16561,7 @@ Partial Class Ventas TmpDT.Columns.Add("EsOutSourcing", GetType(Boolean)) TmpDT.Columns.Add("EsCargo", GetType(Boolean)) + TmpDT.Columns.Add("CveVentaDetalleRNC", GetType(Integer)) TmpDT.Columns("EsOutSourcing").DefaultValue = False TmpDT.Columns("EsCargo").DefaultValue = False @@ -23570,6 +23624,18 @@ Partial Class Ventas ObjMovtos.Dispose() GvCxC.DataBind() End Sub + Protected Sub ChkMostarProductosRNC_CheckedChanged(sender As Object, e As EventArgs) + If ChkMostarProductosRNC.Checked Then + DivRNCCargos.Visible = False + DivRNCCargosDetalle.Visible = True + CargaRNCDetalle(DdlVentaUsado.SelectedValue.ToEntero()) + Else + DivRNCCargos.Visible = True + DivRNCCargosDetalle.Visible = False + CargaRNC(DdlVentaUsado.SelectedValue.ToEntero()) + End If + UpModalRemisionesNC.Update() + End Sub Private Sub CargaRNC(Optional CveVentaUsado As Integer = -1) Dim DtNC As DataTable = Nothing @@ -23603,8 +23669,58 @@ Partial Class Ventas If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2) DivSMU.Visible = True - HdnSaldoMaximoUsados.Value = RowUsadosNC("Valor").ToString() - LtlSMU.Text = RowUsadosNC("Valor").ToString().ToDecimal().FormatoNumero(2) + HdnSaldoMaximoUsados.Value = RowUsadosNC("ValorConImpuestos").ToString() + LtlSMU.Text = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal().FormatoNumero(2) + Else + DivSMU.Visible = False + HdnSaldoMaximoUsados.Value = "0" + LtlSMU.Text = "0" + End If + ObjAcum.Dispose() + End If + + UpModalRemisionesNC.Update() + UpDescNC.Update() + End Sub + Private Sub CargaRNCDetalle(Optional CveVentaUsado As Integer = -1) + Dim DtNC As DataTable = Nothing + + Dim ObjMovtos As New ClsMovimientos() + If ObjMovtos.GetRemisionesNCCliente(CveCliente, True, CveMoneda:=-1, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero()) Then + Me.TmpDTRNCDetalle = ObjMovtos.DtResultados.Copy() + End If + ObjMovtos.Dispose() + + Me.TmpDTRNCDetalle.Columns.Add(New DataColumn("CveVentaDetalleNCGenerada", GetType(Integer))) + + Me.TmpDTRNCDetalleSelecciondas = Nothing + Me.TmpDTRNCDetalleSelecciondas = TmpDTRNCDetalle.Clone() + Me.TmpDTRNCDetalleSelecciondas.Clear() + + GvRemisionesNCDetalle.DataSource = TmpDTRNCDetalle.FiltraParametros("TipoRNC = 1") + 'GvRemisionesNCBon.DataSource = TmpDTRNCBonificacionesSeleccionadas + + 'Me.TmpDTRNCBonificacionesCliente = DtNC.FiltraParametros("TipoRNC = 2") + 'Me.TmpDTRNCBonificacionesCliente.Columns.Add("ImporteBonificacion", GetType(Decimal)) + 'Me.TmpDTRNCBonificacionesCliente.Columns.Add("IVABonificacion", GetType(Decimal)) + 'Me.TmpDTRNCBonificacionesCliente.Columns.Add("CveVentaRNCCargo", GetType(Integer)) + + GvRemisionesNCDetalle.DataBind() + 'GvRemisionesNCBon.DataBind() + + If CveVentaUsado > 0 Then + DivSMU.Visible = True + Dim FacUsado As New Modelos.Factura(UsuarioActual, CveVentaUsado, UsuarioActual.CveEmpresa) + Dim SaldoMaximoUsados As Decimal = FacUsado.DtDetalle.SUM("Total", "EsCargo = True").ToDecimal() + FacUsado.DtDetalle.SUM("ImporteIVA", "EsCargo = True").ToDecimal() + HdnSaldoMaximoUsados.Value = SaldoMaximoUsados.ToString() + LtlSMU.Text = String.Format("{0:N2}", SaldoMaximoUsados) + Else + Dim ObjAcum As New ClsAcumuladores + If ObjAcum.GetMovimientosDistribuidorResumen(CveCliente, UsuarioActual.CveEmpresa) Then + Dim RowUsadosNC As DataRow = ObjAcum.DtResultados.Rows(2) + DivSMU.Visible = True + HdnSaldoMaximoUsados.Value = RowUsadosNC("ValorConImpuestos").ToString() + LtlSMU.Text = RowUsadosNC("ValorConImpuestos").ToString().ToDecimal().FormatoNumero(2) Else DivSMU.Visible = False HdnSaldoMaximoUsados.Value = "0" @@ -23814,6 +23930,15 @@ Partial Class Ventas e.Row.FCTextBox("TxtImporte").Attributes.Add("onkeyup", $"LimitaSaldoRNCChk({e.Row.FCTextBox("TxtImporte").ClientID},{e.Row.DBCampo("Saldo").ToDouble}, this);") End If End Sub + Protected Sub GvRemisionesNCDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRemisionesNCDetalle.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("CveVentaDetalleRNC").ToEntero() = 0 Then + e.Row.CssClass = "Totales" + e.Row.FCCheckBox("ChkAplicar").Visible = False + e.Row.FCTextBox("TxtCantidadRNC").Visible = False + End If + End If + End Sub Protected Sub DdlNCNivelImporte_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ImporteReferencia As Double = 0, PorcentajeMaximo As Double = 0 @@ -23842,7 +23967,7 @@ Partial Class Ventas 'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR If UsuarioActual.CveEmpresa = 140 Then If GvCxC.Rows.Count = 0 OrElse GvCxC.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("ChkCxC").Checked) = 0 Then - Alert("No se ha seleccionado ninguna nota de crédito, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") + Alert("No se ha seleccionado ninguna factura, en caso de no seleccionar ninguna se creará una nueva nota de crédito. ¿Está seguro de realizar esta acción?", TipoMensaje.MsgConfirmacion, JSBtnAceptar:="BtnAplicaNuevaNC();", TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") Else AplicarNotaCreditoDesdeVenta() End If @@ -23898,6 +24023,7 @@ Partial Class Ventas Private Sub AplicarNC(CvePS As Integer, Optional NCDescuento As Boolean = False, Optional EsNCAmortizacion As Boolean = False, Optional AplicaImpuestosLocales As Boolean = True, Optional AplicaNuevoDocumento As Boolean = False, Optional AplicoNCFacturaActual As Boolean = False) Try + Me.AplicaDocumentoNuevoNC = AplicaNuevoDocumento Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If DrPS Is Nothing Then Alert("Ocurrió un error al cargar la información del producto. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError) @@ -24066,11 +24192,22 @@ Partial Class Ventas TmpDTDescNC.Clear() If UsuarioActual.CveEmpresa = 140 Then + If AplicaRNCXDetalle Then + CrearDTNCCargoDetalle(ListaNCDesc, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + Else + CrearDTNCCargo(ListaNCDesc, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + End If - CrearDTNCCargo(ListaNCDesc, DtImpuestos, TmpDTDescNC, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + + 'CONSULTA EL CONCEPTO DE NC + Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) + Dim NCBonificacion As Integer = 0 + If ArrayNC.Length > 4 Then + NCBonificacion = ArrayNC(4).ToEntero() + End If 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' - Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=360481).FiltroPrimero("") + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then CrearDTNCBonificacion(ListaNCDesc, DtImpuestosBonificacion, TmpDTDescNC, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) Else @@ -24107,9 +24244,20 @@ Partial Class Ventas 'DEBE AGREGAR LOS USADOS DE LA REMISION EN LA NOTA DE CREDITO If UsuarioActual.CveEmpresa = 140 AndAlso (ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0) Then - CrearDTNCCargo(ListaRemisionesNC, DtImpuestos, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + If AplicaRNCXDetalle Then + CrearDTNCCargoDetalle(ListaRemisionesNC, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + Else + CrearDTNCCargo(ListaRemisionesNC, TmpDT, DrPS, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) + End If + 'EN LA NC DE BONIFICACION EL CONCEPTO DEBE SER SIEMPRE 'BONIFICACION POR USADO' - Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=360481).FiltroPrimero("") + 'CONSULTA EL CONCEPTO DE NC + Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) + Dim NCBonificacion As Integer = 0 + If ArrayNC.Length > 4 Then + NCBonificacion = ArrayNC(4).ToEntero() + End If + Dim DrPSBonificacion = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCBonificacion).FiltroPrimero("") If DrPSBonificacion IsNot Nothing Then CrearDTNCBonificacion(ListaRemisionesNC, DtImpuestosBonificacion, TmpDT, DrPSBonificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto) Else @@ -24170,42 +24318,104 @@ Partial Class Ventas UPCondicionesPago.Update() End Sub - Private Sub CrearDTNCCargo(ListaNC As List(Of Modelos.Factura), DtImpuestos As DataTable, ByRef TmpDTCargo As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) - For Each Dr As DataRow In DtImpuestos.Rows - For Each RNC In ListaNC - Dim UltimoRenglonRNC As Integer = 1 - For Each RowUsado As DataRow In RNC.DtDetalle.Rows + Private Sub CrearDTNCCargo(ListaNC As List(Of Modelos.Factura), ByRef TmpDTCargo As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) + For Each RNC In ListaNC + Dim UltimoRenglonRNC As Integer = 1 + Dim TotalAcumuladoRNC As Decimal = 0 - Dim PorcentajeUsado = ((RowUsado("Total").ToString().ToDecimal() - RowUsado("Descuento").ToString().ToDecimal() + RowUsado("ImporteIVA").ToString().ToDecimal() + RowUsado("ImporteIEPS").ToString().ToDecimal() - RowUsado("ImporteRetIVA").ToString().ToDecimal() - RowUsado("ImporteRetISR").ToString().ToDecimal()) / RNC.Total) / ListaNC.Count - Dim Obs = RowUsado("CodigoPS").ToString() + For Each RowUsado As DataRow In RNC.DtDetalle.Rows - If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then - Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + Dim PorcentajeAplicado = (RNC.TotalRemNCAplicado / RNC.Total) + + Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal() * PorcentajeAplicado + + Dim Obs = RowUsado("CodigoPS").ToString() + + If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then + Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + End If + + Dim ImportePU = RowUsado("PU").ToString().ToDecimal + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * ImportePU) + + Dim ImporteIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteIEPS = (TotalCalculableImpuestos * RowUsado("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetISR = (TotalCalculableImpuestos * RowUsado("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + Dim ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE + If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count Then + Dim Ajuste As Decimal = 0 + If Math.Abs(RNC.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then + Ajuste = RNC.TotalRemNCAplicado - TotalAcumuladoRNC + + ImporteIVA += Ajuste End If + End If + UltimoRenglonRNC += 1 - Dim ImportePU = Dr("ImportePU").ToString().ToDecimal * PorcentajeUsado - Dim ImporteIVA = Dr("ImporteIVA").ToString().ToDecimal * PorcentajeUsado - Dim ImporteRetIVA = Dr("ImporteRetIVA").ToString().ToDecimal * PorcentajeUsado - Dim ImporteRetISR = Dr("ImporteRetISR").ToString().ToDecimal * PorcentajeUsado - Dim ImporteIEPS = Dr("ImporteIEPS").ToString().ToDecimal * PorcentajeUsado - Dim ImporteTotal = Dr("ImporteTotal").ToString().ToDecimal * PorcentajeUsado - - 'If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count Then - ' ImportePU += Ajuste - 'End If - - AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, - Obs, 1, ImportePU, Dr("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, Dr("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, - Dr("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, Dr("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, - DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) - - UltimoRenglonRNC += 1 - Next - + Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowUsado("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, + RowUsado("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, RowUsado("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1, CveVentaDetalleRNC:=RowUsado("CveVentaDetalle").ToString().ToEntero()) Next + Next End Sub + Private Sub CrearDTNCCargoDetalle(ListaNC As List(Of Modelos.Factura), ByRef TmpDTCargo As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) + For Each RNC In ListaNC + Dim UltimoRenglonRNC As Integer = 1 + Dim TotalAcumuladoRNC As Decimal = 0 + + For Each RowUsado As DataRow In Me.TmpDTRNCDetalleSelecciondas.FiltraParametros($"CveVenta={RNC.CveVenta}").Rows + + Dim Cantidad As Decimal = RowUsado("Cantidad").ToString().ToDecimal() + + Dim Obs = RowUsado("CodigoPS").ToString() + + If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then + Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + End If + + Dim ImportePU = RowUsado("PU").ToString().ToDecimal + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * ImportePU) + + Dim ImporteIVA = (TotalCalculableImpuestos * RowUsado("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteIEPS = 0 '(TotalCalculableImpuestos * RowUsado("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetIVA = 0 ' (TotalCalculableImpuestos * RowUsado("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetISR = 0 ' (TotalCalculableImpuestos * RowUsado("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + Dim ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA) + + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE + If UltimoRenglonRNC = RNC.DtDetalle.Rows.Count Then + Dim Ajuste As Decimal = 0 + If Math.Abs(RNC.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then + Ajuste = RNC.TotalRemNCAplicado - TotalAcumuladoRNC + + ImporteIVA += Ajuste + End If + End If + UltimoRenglonRNC += 1 + + AgregaTempDT(TmpDTCargo, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, + Obs, Cantidad, ImportePU, RowUsado("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, 0, ImporteRetIVA, + 0, ImporteRetISR, 0, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, + DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1, CveVentaDetalleRNC:=RowUsado("CveVentaDetalleRNC").ToString().ToEntero()) + Next + + Next + End Sub + + Private Sub CrearDTNCBonificacion(ListaNC As List(Of Modelos.Factura), DtImpuestosBonificacion As DataTable, ByRef TmpDTNC As DataTable, DrPS As DataRow, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String) 'SI TIENE DE BONIFICACION LOS AGREGA If DtImpuestosBonificacion IsNot Nothing AndAlso ListaNCBonificacion IsNot Nothing AndAlso ListaNCBonificacion.Count > 0 Then @@ -24213,39 +24423,54 @@ Partial Class Ventas TmpDTDescNCBonificacion = TmpDTNC.Clone() TmpDTDescNCBonificacion.Clear() - For Each Dr As DataRow In DtImpuestosBonificacion.Rows - For Each RNC In ListaNCBonificacion - Dim UltimoRenglonRNC As Integer = 1 + For Each RNCBonificacion In ListaNCBonificacion + Dim UltimoRenglonRNC As Integer = 1 + Dim TotalAcumuladoRNC As Decimal = 0 - Dim RNCCargo = ListaNC.Where(Function(f) f.CveVenta = RNC.CveVentaRNCCargo).FirstOrDefault() + Dim RNCCargo = ListaNC.Where(Function(f) f.CveVenta = RNCBonificacion.CveVentaRNCCargo).FirstOrDefault() - For Each RowCargo As DataRow In RNCCargo.DtDetalle.Rows + For Each RowCargo As DataRow In RNCCargo.DtDetalle.Rows - Dim PorcentajeCargo = ((RowCargo("Total").ToString().ToDecimal() - RowCargo("Descuento").ToString().ToDecimal() + RowCargo("ImporteIVA").ToString().ToDecimal() + RowCargo("ImporteIEPS").ToString().ToDecimal() - RowCargo("ImporteRetIVA").ToString().ToDecimal() - RowCargo("ImporteRetISR").ToString().ToDecimal()) / RNCCargo.Total) / ListaNCBonificacion.Count + Dim PorcentajeAplicado = (RNCBonificacion.TotalRemNCAplicado / RNCBonificacion.Total) - Dim Obs = RowCargo("CodigoPS").ToString() + Dim Cantidad As Decimal = RowCargo("Cantidad").ToString().ToDecimal() * PorcentajeAplicado - If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then - Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + Dim Obs = RowCargo("CodigoPS").ToString() + + If Not String.IsNullOrEmpty(TxtNCObservaciones.Text.Trim()) Then + Obs = String.Format("{0} - {1}", Obs, TxtNCObservaciones.Text.Trim()) + End If + + Dim ImportePU = RowCargo("PUBonificacion").ToString().ToDecimal + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * ImportePU) + + Dim ImporteIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteIEPS = (TotalCalculableImpuestos * RowCargo("PorcentajeIEPS").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetIVA = (TotalCalculableImpuestos * RowCargo("PorcentajeRetIVA").ToString().ToDecimal).RoundSQL(2) + Dim ImporteRetISR = (TotalCalculableImpuestos * RowCargo("PorcentajeRetISR").ToString().ToDecimal).RoundSQL(2) + Dim ImporteTotal = TotalCalculableImpuestos + + TotalAcumuladoRNC += (TotalCalculableImpuestos + ImporteIVA + ImporteIEPS - ImporteRetIVA - ImporteRetISR) + + 'SI ES EL ULTIMO REGLON REALIZA UN AJUSTE + If UltimoRenglonRNC = RNCCargo.DtDetalle.Rows.Count Then + Dim Ajuste As Decimal = 0 + If Math.Abs(RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC) > 0.00 Then + Ajuste = RNCBonificacion.TotalRemNCAplicado - TotalAcumuladoRNC + + ImporteIVA += Ajuste End If + End If + UltimoRenglonRNC += 1 - Dim ImportePU = Dr("ImportePU").ToString().ToDecimal * PorcentajeCargo - Dim ImporteIVA = Dr("ImporteIVA").ToString().ToDecimal * PorcentajeCargo - Dim ImporteRetIVA = Dr("ImporteRetIVA").ToString().ToDecimal * PorcentajeCargo - Dim ImporteRetISR = Dr("ImporteRetISR").ToString().ToDecimal * PorcentajeCargo - Dim ImporteIEPS = Dr("ImporteIEPS").ToString().ToDecimal * PorcentajeCargo - Dim ImporteTotal = Dr("ImporteTotal").ToString().ToDecimal * PorcentajeCargo - - AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), + AgregaTempDT(TmpDTDescNCBonificacion, DrPS("CvePS").ToString().ToEntero(), DrPS("PS").ToString(), DrPS("Codigo").ToString(), DrPS("PSCodigo").ToString(), DrPS("CveTipoPS").ToString().ToEntero(), DrPS("Inv_CveMetodoInventario").ToString().ToEntero(), DrPS("CveUM").ToString().ToEntero(), DrPS("UnidadMedida").ToString(), DrPS("CveClasificacion").ToString().ToEntero(), DrPS("Clasificacion").ToString(), CveProyecto, Proyecto, CveSubProyecto, SubProyecto, - Obs, 1, ImportePU, Dr("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, Dr("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, - Dr("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, Dr("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, + Obs, Cantidad, ImportePU, RowCargo("PorcentajeIVA").ToString().ToDecimal, ImporteIVA, RowCargo("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA, + RowCargo("PorcentajeRetISR").ToString().ToDecimal, ImporteRetISR, RowCargo("PorcentajeIEPS").ToString().ToDecimal, ImporteIEPS, -1, 0.0, ImporteTotal, "", "", -1, -1, DrPS("SATClavePS").ToString(), DrPS("SATClaveUnidadMedida").ToString(), -1, -1, -1, -1, -1, -1) - - UltimoRenglonRNC += 1 - Next - Next + Next End If End Sub @@ -24360,7 +24585,7 @@ Partial Class Ventas PorcentajeRetISR As Double, ImporteRetISR As Double, PorcentajeIEPS As Double, ImporteIEPS As Double, TipoDescuento As Integer, Descuento As Double, Total As Double, Serie As String, TiempoEntrega As String, CvePresupuestoIngreso As Integer, EntregaDirecta As Integer, SATClaveProdServ As String, SATClaveUM As String, CveContratoDetalle As Integer, CveVentaDetalle As Integer, CveMovimientoDetallePedido As Integer, CveOrdenCompraDetalle As Integer, - CveVentaDetalleRemision As Integer, CveVentaDetalleCotizacion As Integer, Optional CveTamaño As Integer = -1) + CveVentaDetalleRemision As Integer, CveVentaDetalleCotizacion As Integer, Optional CveTamaño As Integer = -1, Optional CveVentaDetalleRNC As Integer = -1) Dim Row As DataRow = Nothing Row = TmpDT.NewRow() @@ -24420,6 +24645,7 @@ Partial Class Ventas Row("CveVentaDetalleCotizacion") = CveVentaDetalleCotizacion Row("CveTamaño") = CveTamaño + Row("CveVentaDetalleRNC") = CveVentaDetalleRNC TmpDT.Rows.Add(Row) End Sub @@ -25467,7 +25693,8 @@ Partial Class Ventas If Not ObjVentas.AddVentaDetalle(CveVenta, Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDouble, Row("CveUM").ToString().ToEntero(), Row("PU").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("ImporteIVA").ToString().ToDouble, Math.Round((Row("Total").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)) * (1 + Row("PorcentajeIVA").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)))), 6), Row("Obs").ToString(), Row("Descuento").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), Row("TipoDescuento").ToString().ToEntero(), Row("CveSubProyecto").ToString().ToEntero(), Row("CvePresupuestoIngreso").ToString().ToEntero(), - PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString()) Then + PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, IEPS:=Row("ImporteIEPS").ToString().ToDouble(If(ChkConvertirDoctoPesos.Checked, TxtTipoCambio.Text.ToDecimal, 1)), PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDouble, TiempoEntrega:=Row("TiempoEntrega").ToString(), + PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal, ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal) Then MensajeError = "Ocurrió un error al guardar las partidas de la cotización" OcurrioError = True Exit For @@ -27235,6 +27462,8 @@ Partial Class Ventas #Region "D E S C U E N T O S X R E M I S I O N D E N O T A D E C R E D I T O" Protected Sub BtnAplicarRemisionNC_Click(sender As Object, e As EventArgs) + Me.AplicaRNCXDetalle = False + If ListaRemisionesNC Is Nothing Then ListaRemisionesNC = New List(Of Modelos.Factura) Else @@ -27248,69 +27477,139 @@ Partial Class Ventas End If Dim TotalRemNCAplicado As Decimal = 0 - For Each GvRow As GridViewRow In GvRemisionesNC.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() - TotalRemNCAplicado += RemNC.TotalRemNCAplicado - If RemNC.TotalRemNCAplicado <= 0 Then - Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) - ListaRemisionesNC.Clear() - Exit Sub + If ChkMostarProductosRNC.Checked Then + + Me.AplicaRNCXDetalle = True + + For Each GvRow As GridViewRow In GvRemisionesNCDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim Rows = TmpDTRNCDetalle.Select($"CveVentaDetalleRNC = {GvRow.DataKey("CveVentaDetalleRNC").ToEntero()}") + For Each row In Rows + row("Cantidad") = GvRow.FCTextBox("TxtCantidadRNC").Text.ToEntero() + TmpDTRNCDetalleSelecciondas.Rows.Add(row.ItemArray) + Next End If - - ListaRemisionesNC.Add(RemNC) - End If - End If - Next - - 'SI TIENE ALGUN AJUSTE O GARANTIA - If ListaRemisionesNC.Any(Function(RNC) RNC.Num2 = 1) Then - For Each RNC In ListaRemisionesNC.Where(Function(x) x.Num2 = 1) - Dim Salir As Boolean = False - Using ObjAcum As New ClsAcumuladores - If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then - 'SI ES GARANTIA TOTAL - If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then - DdlNCPS.SelectedValueExist(443174) - DdlNCPS.Enabled = False - Salir = True - Else - DdlNCPS.SelectedValueExist(443173) - DdlNCPS.Enabled = False - End If - End If - End Using - - If Salir Then - Exit For End If Next + + For Each Dr As DataRow In TmpDTRNCDetalleSelecciondas.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows + Dim RemNC As New Modelos.Factura(UsuarioActual, Dr("CveVenta").ToString().ToEntero(), UsuarioActual.CveEmpresa) + + Dim TotalRNC As Decimal = 0 + For Each GvRow As GridViewRow In GvRemisionesNCDetalle.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.FCCheckBox("ChkAplicar").Checked AndAlso GvRow.DataKey("CveVenta").ToEntero() = Dr("CveVenta").ToString().ToEntero() Then + + Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidadRNC").Text.ToDecimal() + Dim PU = GvRow.DataKey("PU").ToDecimal() + Dim PorcentajeIVA As Decimal = GvRow.DataKey("PorcentajeIVA").ToDecimal() + + Dim TotalCalculableImpuestos As Decimal = (Cantidad * PU) + Dim ImporteIVA As Decimal = (TotalCalculableImpuestos * PorcentajeIVA).RoundSQL(2) + + Dim TotalRNCDetalle As Decimal = (TotalCalculableImpuestos + ImporteIVA) + + TotalRNC += TotalRNCDetalle + + End If + + End If + Next + + RemNC.TotalRemNCAplicado = TotalRNC + 'MARCA LA VENTA QUE FUE USADA PARA EL FILTRO + RemNC.Num3 = DdlVentaUsado.SelectedValue.ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaRemisionesNC.Clear() + Exit Sub + End If + + ListaRemisionesNC.Add(RemNC) + Next + Else - DdlNCPS.Enabled = True - End If + For Each GvRow As GridViewRow In GvRemisionesNC.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + 'MARCA LA VENTA QUE FUE USADA PARA EL FILTRO + RemNC.Num3 = DdlVentaUsado.SelectedValue.ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado - For Each GvRow As GridViewRow In GvRemisionesNCBon.Rows - If GvRow.RowType = DataControlRowType.DataRow Then - If GvRow.FCCheckBox("ChkAplicar").Checked Then - Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) - RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() - RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() - TotalRemNCAplicado += RemNC.TotalRemNCAplicado + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaRemisionesNC.Clear() + Exit Sub + End If - If RemNC.TotalRemNCAplicado <= 0 Then - Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) - ListaNCBonificacion.Clear() - Exit Sub + ListaRemisionesNC.Add(RemNC) + End If + End If + Next + + 'SI TIENE ALGUN AJUSTE O GARANTIA + If ListaRemisionesNC.Any(Function(RNC) RNC.Num2 = 1) Then + For Each RNC In ListaRemisionesNC.Where(Function(x) x.Num2 = 1) + Dim Salir As Boolean = False + + Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) + Dim NCAjuste As Integer = -1 + Dim NCGarantiaTotal As Integer = -1 + If ArrayNC.Length > 2 Then + NCAjuste = ArrayNC(1).ToEntero() + NCGarantiaTotal = ArrayNC(2).ToEntero() End If - ListaNCBonificacion.Add(RemNC) - End If + Using ObjAcum As New ClsAcumuladores + If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then + 'SI ES GARANTIA TOTAL + If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then + DdlNCPS.SelectedValueExist(NCGarantiaTotal) + DdlNCPS.Enabled = False + Salir = True + Else + DdlNCPS.SelectedValueExist(NCAjuste) + DdlNCPS.Enabled = False + End If + End If + End Using + + If Salir Then + Exit For + End If + Next + Else + DdlNCPS.Enabled = True End If - Next + + + For Each GvRow As GridViewRow In GvRemisionesNCBon.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + If GvRow.FCCheckBox("ChkAplicar").Checked Then + Dim RemNC As New Modelos.Factura(UsuarioActual, GvRow.DataKey("CveVenta").ToEntero(), UsuarioActual.CveEmpresa) + RemNC.TotalRemNCAplicado = GvRow.FCTextBox("TxtImporte").Text.ToDecimal() + RemNC.CveVentaRNCCargo = GvRow.DataKey("CveVentaRNCCargo").ToEntero() + TotalRemNCAplicado += RemNC.TotalRemNCAplicado + + If RemNC.TotalRemNCAplicado <= 0 Then + Alert($"Debe asignar un importe en la siguiente remisión: {RemNC.SerieFolio}", TipoMensaje.MsgAdvertencia) + ListaNCBonificacion.Clear() + Exit Sub + End If + + ListaNCBonificacion.Add(RemNC) + End If + End If + Next + End If TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero @@ -27330,6 +27629,12 @@ Partial Class Ventas Dim CveSATNC = "84111506" Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0) + Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) + If ArrayNC.Length > 0 Then + Dim CvePSNC As Integer = ArrayNC(0).ToEntero() + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0) + End If + If DrPS Is Nothing Then Alert("Ocurrió un error al cargar la información del Producto. Por favor vuelva a intentar.", TipoMensaje.MsgError) Exit Sub @@ -27372,14 +27677,22 @@ Partial Class Ventas If ListaNCDesc.Any(Function(RNC) RNC.Num2 = 1) Then For Each RNC In ListaRemisionesNC.Where(Function(x) x.Num2 = 1) Dim Salir As Boolean = False + + Dim NCAjuste As Integer = -1 + Dim NCGarantiaTotal As Integer = -1 + If ArrayNC.Length > 2 Then + NCAjuste = ArrayNC(1).ToEntero() + NCGarantiaTotal = ArrayNC(2).ToEntero() + End If + Using ObjAcum As New ClsAcumuladores If ObjAcum.GetGarantiasDetalle(RNC.CveVenta) Then 'SI ES GARANTIA TOTAL If ObjAcum.DtResultados.MAX("PorcentajeAjuste") = "1" Then - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=443174, AplicaParaVenta:=1).Rows(0) + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCGarantiaTotal, AplicaParaVenta:=1).Rows(0) Salir = True Else - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=443173, AplicaParaVenta:=1).Rows(0) + DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=NCAjuste, AplicaParaVenta:=1).Rows(0) End If End If End Using @@ -27499,7 +27812,7 @@ Partial Class Ventas #End Region Protected Sub BtnModalAplicarRemisionesNC_Click(sender As Object, e As EventArgs) - CargaRNC() + ChkMostarProductosRNC_CheckedChanged(ChkMostarProductosRNC, EventArgs.Empty) RegistraScript("$('#ModalAplicarRemisionesNC').modal({backdrop: 'static', keyboard: false });") End Sub @@ -28096,4 +28409,5 @@ Partial Class Ventas Public ImporteBonificacion As Decimal = 0 Public IVABonificacion As Decimal = 0 End Class + End Class \ No newline at end of file