diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index fb7ca7697..74b4d1432 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -146,6 +146,7 @@ Public Class ClsContratos
Public Property Ubicacion As String
Public Property Responsable As String
Public Property Lugar As String
+ Public Property LimiteDeGasto As Double
Public Property CveSubProyecto As Integer
Public Property SubProyectoContrato As String
Public Property CveProyecto As Integer
@@ -291,7 +292,8 @@ Public Class ClsContratos
Me.FechaVenc = Data.Rows(0)("FechaVenc").ToString.ToDate
Me.CveVendedor = Data.Rows(0)("CveVendedor").ToString.ToEntero
Me.ImporteTotal = Data.Rows(0)("ImporteTotal").ToString.ToDecimal
- Me.Lugar = Data.Rows(0)("Lugar").ToString
+ Me.Lugar = Data.Rows(0)("Lugar").ToString
+ Me.LimiteDeGasto = Data.Rows(0)("LimiteDeGasto").ToString.ToDouble
Observaciones = Data.Rows(0)("Observaciones").ToString
CveDireccionEnvio = Data.Rows(0)("CveDireccionEnvio").ToString.ToEntero
@@ -543,7 +545,7 @@ Public Class ClsContratos
Geom As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer,
Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1,
Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
- Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "") As Integer
+ Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Con_ContratosObraAdd")
@@ -595,6 +597,7 @@ Public Class ClsContratos
.Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0)
.Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev
.Add("@Lugar", SqlDbType.VarChar).Value = Lugar
+ .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto
.Add("@CveContrato", SqlDbType.Int).Direction = ParameterDirection.Output
@@ -621,7 +624,7 @@ Public Class ClsContratos
CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer,
Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1,
Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1,
- Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "") As Boolean
+ Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "", Optional LimiteDeGasto As Double = 0) As Boolean
Dim Retorno = False
DataAdapter("PA_Con_ContratosObraUpdate")
@@ -671,7 +674,8 @@ Public Class ClsContratos
.Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio
.Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0)
.Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev
- .Add("@Lugar", SqlDbType.VarChar).Value = Lugar
+ .Add("@Lugar", SqlDbType.VarChar).Value = Lugar
+ .Add("@LimiteDeGasto", SqlDbType.Money).Value = LimiteDeGasto
End With
@@ -824,6 +828,74 @@ Public Class ClsContratos
#End Region
+#Region "GASTOS OBRA"
+
+
+
+
+ Public Function GetContratosObragGastosVeiculos(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Con_ContratosObraGastosVeiculosGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar los gastos de veiculos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+
+
+ Public Function GetContratosObragGastosCompras(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Con_ContratosObraGastosComprasGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar los gastos de compra.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+
+ Public Function GetContratosObragGastosNomina(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Con_ContratosObraGastosNominaGet")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al consultar los gastos de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+#End Region
+
+
#Region "C I C L O C O M E R C I A L"
Public Function CicloComercialAdd(CveContrato As Integer, CveCotizacion As Integer, CveCliente As Integer, FueFacturado As Boolean, CveFactura As Integer, Estatus As Integer, CveEmpresa As Integer, FechaVenc As Date) As Boolean
Dim Retorno As Boolean = False
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index b710ac331..e3ccfab73 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -97,6 +97,11 @@
Agregar Presupuesto Interno
+
+
+
+
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 3faf3afe5..50310de8a 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -409,6 +409,14 @@ Partial Class Contratos_ContratoObra
TabEstadoCuenta.Visible = True
+
+ If TxtLimiteGastos.Text.ToDecimal > 0 Then
+ TabGastos.Visible = True
+ LnkModalAddGastos.Visible = True
+ CargaGastos()
+
+ End If
+
Else
'Configuración de Modalidad Insert
LblFechaCaptura.Text = Now.ToShortDateString()
@@ -745,8 +753,10 @@ Partial Class Contratos_ContratoObra
TxtPorIVA.Text = ObjContratos.PorIVA.ToString
+ TxtLimiteGastos.Text = ObjContratos.LimiteDeGasto.ToString
TxtTotal.Text = ObjContratos.Importe.FormatoNumero
+
DdlEstatus.SelectedValueExist(ObjContratos.CveContratosEstatus.ToString)
CargarFianzas()
@@ -819,14 +829,14 @@ Partial Class Contratos_ContratoObra
ObjContratos.Dispose()
End Sub
Private Sub CargaContratoAddendum()
- Dim ObjContratos As New ClsContratos
- If ObjContratos.GetContratosAddendum(CveContrato) Then
- If ObjContratos.DtResultados.Rows.Count > 0 Then
- TabAddendum.Visible = True
- GvAddendum.DataSource = ObjContratos.DtResultados
- GvAddendum.DataBind()
- End If
- End If
+ 'Dim ObjContratos As New ClsContratos
+ 'If ObjContratos.GetContratosAddendum(CveContrato) Then
+ ' If ObjContratos.DtResultados.Rows.Count > 0 Then
+ ' TabAddendum.Visible = True
+ ' GvAddendum.DataSource = ObjContratos.DtResultados
+ ' GvAddendum.DataBind()
+ ' End If
+ 'End If
End Sub
Private Sub CargaPresupuesto()
Dim ObjContratos As New ClsContratos
@@ -856,7 +866,7 @@ Partial Class Contratos_ContratoObra
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()
+ 'LblImporte.Text = "$" & TmpDT.FiltraParametros("CveTipoPresupuesto=2").SUM("Total").FormatoNumero()
End If
End Sub
@@ -932,7 +942,7 @@ Partial Class Contratos_ContratoObra
TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1,
PorcentajeComision:=0, TipoGarantia:=-1, Folio:=0, FechaVenc:=Nothing, EstatusFianza:=1,
CvePeriodo:=-1, CveCuentaEquipo:=-1, CveContratoPlantilla:=-1, CveVendedor:=-1,
- Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim)
+ Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble)
TieneError = Not GuardaFianzas(ObjContratos)
@@ -995,7 +1005,7 @@ Partial Class Contratos_ContratoObra
CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0,
TipoGarantia:=-1, Folio:=-1, FechaVenc:=Nothing, EstatusFianza:=-1, CveContratoPlantilla:=-1,
CveCuentaEquipo:=-1, CveVendedor:=-1, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False,
- CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim) Then
+ CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim, LimiteDeGasto:=TxtLimiteGastos.Text.ToDouble) Then
TieneError = Not GuardaFianzas(ObjContratos)
@@ -3055,173 +3065,173 @@ Partial Class Contratos_ContratoObra
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
+ '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
+ ' '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"
+ ' 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)
+ ' 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
+ ' 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 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 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
+ ' 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
+ ' 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()
+ ' 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
+ ' 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
Private Function GetPS(Opt As String, Valor As String) As String
Dim StrReturn As String = String.Empty
@@ -3240,8 +3250,8 @@ Partial Class Contratos_ContratoObra
If TxtExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
- Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
- CargarArchivo(Directorio, file.filename, Tipo)
+ Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ ' CargarArchivo(Directorio, file.filename, Tipo)
Else
Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
End If
@@ -4398,7 +4408,7 @@ Partial Class Contratos_ContratoObra
DTCargaPresupuesto = CargaPreSupuestoExcel()
If DTCargaPresupuesto.Rows.Count > 0 Then
- ProcesaDatosCargaPresupuesto(DTCargaPresupuesto)
+ ' ProcesaDatosCargaPresupuesto(DTCargaPresupuesto)
Else
Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia)
End If
@@ -4452,179 +4462,179 @@ Partial Class Contratos_ContratoObra
End Function
- Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable)
+ 'Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable)
- Dim DTPS = New DataTable
- DTPS.Columns.Add("CveContratoDetalle", GetType(Integer))
- DTPS.Columns.Add("Cantidad", GetType(Double))
- DTPS.Columns.Add("CantidadContratada", GetType(Double))
- DTPS.Columns.Add("CveUM", GetType(Integer))
- DTPS.Columns.Add("UM", GetType(String))
- DTPS.Columns.Add("CveClasificacion", GetType(Integer))
- DTPS.Columns.Add("Clasificacion", GetType(String))
- DTPS.Columns.Add("CvePS", GetType(Integer))
- DTPS.Columns.Add("PS", GetType(String))
- DTPS.Columns.Add("CodigoPS", GetType(String))
- DTPS.Columns.Add("PU", GetType(Double))
- DTPS.Columns.Add("Total", GetType(Double))
- DTPS.Columns.Add("CveTipoPresupuesto", GetType(Integer))
- DTPS.Columns.Add("PermitirAvance", GetType(Integer))
- DTPS.Columns.Add("PermitirEstimacion", GetType(Integer))
- DTPS.Columns.Add("UsuarioAvance", GetType(Integer))
- DTPS.Columns.Add("Cantidad_Original", GetType(Double))
- DTPS.Columns.Add("PU_Original", GetType(Double))
- DTPS.Columns.Add("Total_Original", GetType(Double))
- DTPS.Columns.Add("NoIdentificacion", GetType(String))
- DTPS.Columns.Add("LimitarCantidad", GetType(Integer))
- DTPS.Columns.Add("OCInterna", GetType(String))
- DTPS.Columns.Add("Observacion", GetType(String))
+ ' Dim DTPS = New DataTable
+ ' DTPS.Columns.Add("CveContratoDetalle", GetType(Integer))
+ ' DTPS.Columns.Add("Cantidad", GetType(Double))
+ ' DTPS.Columns.Add("CantidadContratada", GetType(Double))
+ ' DTPS.Columns.Add("CveUM", GetType(Integer))
+ ' DTPS.Columns.Add("UM", GetType(String))
+ ' DTPS.Columns.Add("CveClasificacion", GetType(Integer))
+ ' DTPS.Columns.Add("Clasificacion", GetType(String))
+ ' DTPS.Columns.Add("CvePS", GetType(Integer))
+ ' DTPS.Columns.Add("PS", GetType(String))
+ ' DTPS.Columns.Add("CodigoPS", GetType(String))
+ ' DTPS.Columns.Add("PU", GetType(Double))
+ ' DTPS.Columns.Add("Total", GetType(Double))
+ ' DTPS.Columns.Add("CveTipoPresupuesto", GetType(Integer))
+ ' DTPS.Columns.Add("PermitirAvance", GetType(Integer))
+ ' DTPS.Columns.Add("PermitirEstimacion", GetType(Integer))
+ ' DTPS.Columns.Add("UsuarioAvance", GetType(Integer))
+ ' DTPS.Columns.Add("Cantidad_Original", GetType(Double))
+ ' DTPS.Columns.Add("PU_Original", GetType(Double))
+ ' DTPS.Columns.Add("Total_Original", GetType(Double))
+ ' DTPS.Columns.Add("NoIdentificacion", GetType(String))
+ ' DTPS.Columns.Add("LimitarCantidad", GetType(Integer))
+ ' DTPS.Columns.Add("OCInterna", GetType(String))
+ ' DTPS.Columns.Add("Observacion", GetType(String))
- Dim RowNoEncontrados As String = ""
+ ' Dim RowNoEncontrados As String = ""
- For Each DrowPS As DataRow In DTPresupuesto.Rows
+ ' For Each DrowPS As DataRow In DTPresupuesto.Rows
- Dim StrArray() As String = GetPS("PS", DrowPS("PS").ToString).Split("|"c)
- Dim CvePS As Integer
- Dim CveUM As Integer
+ ' Dim StrArray() As String = GetPS("PS", DrowPS("PS").ToString).Split("|"c)
+ ' Dim CvePS As Integer
+ ' Dim CveUM As Integer
- If StrArray.Length > 0 Then
- If CBool(StrArray(0)) = True Then
- CvePS = StrArray(1).ToEntero
- Else
- RowNoEncontrados &= StrArray(1) & "<\BR>"
- End If
- End If
+ ' If StrArray.Length > 0 Then
+ ' If CBool(StrArray(0)) = True Then
+ ' CvePS = StrArray(1).ToEntero
+ ' Else
+ ' RowNoEncontrados &= StrArray(1) & "<\BR>"
+ ' End If
+ ' End If
- If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then
+ ' If CvePS > 0 And DrowPS("Cantidad").ToString.ToDouble > 0 Then
- CveUM = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveUnidadMedida", "").ToString.ToEntero
+ ' CveUM = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveUnidadMedida", "").ToString.ToEntero
- Dim Row As DataRow = DTPS.NewRow()
- Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble
- Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble
- Row("CveUM") = CveUM
- Row("UM") = ""
- Row("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion", "").ToString.ToEntero
- Row("Clasificacion") = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = '{ Row("CveClasificacion").ToString }'").ToString
- Row("CvePS") = CvePS
- Row("PS") = DrowPS("PS").ToString
- Row("CodigoPS") = DrowPS("PS").ToString
- Row("PU") = DrowPS("PU").ToString.ToDouble
- Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble
+ ' Dim Row As DataRow = DTPS.NewRow()
+ ' Row("Cantidad") = DrowPS("Cantidad").ToString.ToDouble
+ ' Row("CantidadContratada") = DrowPS("Cantidad").ToString.ToDouble
+ ' Row("CveUM") = CveUM
+ ' Row("UM") = ""
+ ' Row("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimeroValor("CveClasificacion", "").ToString.ToEntero
+ ' Row("Clasificacion") = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Clasificacion", $"CveClasificacion = '{ Row("CveClasificacion").ToString }'").ToString
+ ' Row("CvePS") = CvePS
+ ' Row("PS") = DrowPS("PS").ToString
+ ' Row("CodigoPS") = DrowPS("PS").ToString
+ ' Row("PU") = DrowPS("PU").ToString.ToDouble
+ ' Row("Total") = DrowPS("Cantidad").ToString.ToDouble * DrowPS("PU").ToString.ToDouble
- Select Case TipoCargaPresupuesto
- Case EnumTipoCargaPresupuesto.Ventas
- Row("CveTipoPresupuesto") = 2
- Exit Select
- Case EnumTipoCargaPresupuesto.Control
- Row("CveTipoPresupuesto") = 1
- Exit Select
- Case Else
- Row("CveTipoPresupuesto") = 1
- End Select
+ ' Select Case TipoCargaPresupuesto
+ ' Case EnumTipoCargaPresupuesto.Ventas
+ ' Row("CveTipoPresupuesto") = 2
+ ' Exit Select
+ ' Case EnumTipoCargaPresupuesto.Control
+ ' Row("CveTipoPresupuesto") = 1
+ ' Exit Select
+ ' Case Else
+ ' Row("CveTipoPresupuesto") = 1
+ ' End Select
- Row("NoIdentificacion") = ""
- Row("OCInterna") = ""
- Row("LimitarCantidad") = 0
- Row("Observacion") = ""
+ ' Row("NoIdentificacion") = ""
+ ' Row("OCInterna") = ""
+ ' Row("LimitarCantidad") = 0
+ ' Row("Observacion") = ""
- DTPS.Rows.Add(Row)
+ ' DTPS.Rows.Add(Row)
- End If
- Next
+ ' End If
+ ' Next
- Dim ErrorProceso = False
- Dim ObjContratos As New ClsContratos
- Dim TotalRow As Double = 0
- ObjContratos.IniciaTransacSQL()
+ ' Dim ErrorProceso = False
+ ' Dim ObjContratos As New ClsContratos
+ ' Dim TotalRow As Double = 0
+ ' ObjContratos.IniciaTransacSQL()
- For Each Row As DataRow In DTPS.Rows
+ ' For Each Row As DataRow In DTPS.Rows
- If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), Row("OCInterna").ToString, Observacion:=Row("Observacion").ToString) Then
+ ' If ObjContratos.AddContratosDetalle(CveContrato, Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, UsuarioActual.CveUsuario, Row("CveTipoPresupuesto").ToString.ToEntero, Row("NoIdentificacion").ToString, Convert.ToBoolean(Row("LimitarCantidad")), Row("OCInterna").ToString, Observacion:=Row("Observacion").ToString) Then
- If Autorizado Then
- Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
- guardarBitacora(msj)
- End If
+ ' If Autorizado Then
+ ' Dim msj As String = String.Format("Se agregaron {0} {1} del producto {2} con un precio ${3}.", Row("Cantidad"), Row("UM"), Row("PS"), Row("PU"))
+ ' guardarBitacora(msj)
+ ' End If
- Dim NrowTmpDT As DataRow = TmpDT.NewRow
+ ' Dim NrowTmpDT As DataRow = TmpDT.NewRow
- NrowTmpDT("Cantidad") = Row("Cantidad")
- NrowTmpDT("CantidadContratada") = Row("CantidadContratada")
- NrowTmpDT("CveUM") = Row("CveUM")
- NrowTmpDT("UM") = Row("UM")
- NrowTmpDT("CveClasificacion") = Row("CveClasificacion")
- NrowTmpDT("Clasificacion") = Row("Clasificacion")
- NrowTmpDT("CvePS") = Row("CvePS")
- NrowTmpDT("PS") = Row("PS")
- NrowTmpDT("CodigoPS") = Row("CodigoPS")
- NrowTmpDT("PU") = Row("PU")
- NrowTmpDT("Total") = Row("Total")
- NrowTmpDT("CveTipoPresupuesto") = Row("CveTipoPresupuesto")
- NrowTmpDT("NoIdentificacion") = Row("NoIdentificacion")
- NrowTmpDT("OCInterna") = Row("OCInterna")
- NrowTmpDT("LimitarCantidad") = Row("LimitarCantidad")
- NrowTmpDT("Observacion") = Row("Observacion")
+ ' NrowTmpDT("Cantidad") = Row("Cantidad")
+ ' NrowTmpDT("CantidadContratada") = Row("CantidadContratada")
+ ' NrowTmpDT("CveUM") = Row("CveUM")
+ ' NrowTmpDT("UM") = Row("UM")
+ ' NrowTmpDT("CveClasificacion") = Row("CveClasificacion")
+ ' NrowTmpDT("Clasificacion") = Row("Clasificacion")
+ ' NrowTmpDT("CvePS") = Row("CvePS")
+ ' NrowTmpDT("PS") = Row("PS")
+ ' NrowTmpDT("CodigoPS") = Row("CodigoPS")
+ ' NrowTmpDT("PU") = Row("PU")
+ ' NrowTmpDT("Total") = Row("Total")
+ ' NrowTmpDT("CveTipoPresupuesto") = Row("CveTipoPresupuesto")
+ ' NrowTmpDT("NoIdentificacion") = Row("NoIdentificacion")
+ ' NrowTmpDT("OCInterna") = Row("OCInterna")
+ ' NrowTmpDT("LimitarCantidad") = Row("LimitarCantidad")
+ ' NrowTmpDT("Observacion") = Row("Observacion")
- NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle")
+ ' NrowTmpDT("CveContratoDetalle") = ObjContratos.DtResultados.Rows(0)("CveContratoDetalle")
- TmpDT.Rows.Add(NrowTmpDT)
- TmpDT.AcceptChanges()
+ ' TmpDT.Rows.Add(NrowTmpDT)
+ ' TmpDT.AcceptChanges()
- TotalRow = TotalRow + NrowTmpDT("Total").ToString.ToDouble
- Else
- ErrorProceso = True
- Exit For
- End If
- Next
+ ' TotalRow = TotalRow + NrowTmpDT("Total").ToString.ToDouble
+ ' Else
+ ' ErrorProceso = True
+ ' Exit For
+ ' End If
+ ' Next
- If ErrorProceso Then
- ObjContratos.RollBack()
- Alert("Se presento un error al cargar el presupuesto.", TipoMensaje.MsgError)
- Else
+ ' If ErrorProceso Then
+ ' ObjContratos.RollBack()
+ ' Alert("Se presento un error al cargar el presupuesto.", TipoMensaje.MsgError)
+ ' Else
- ObjContratos.Commit()
- Alert("Presupuesto Cargado correctamente")
+ ' ObjContratos.Commit()
+ ' Alert("Presupuesto Cargado correctamente")
- Select Case TipoCargaPresupuesto
- Case EnumTipoCargaPresupuesto.Ventas
- CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
- UpGV.Update()
- Exit Select
- Case EnumTipoCargaPresupuesto.Control
- CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1"))
- UpGVInsumos.Update()
- Exit Select
- Case Else
+ ' Select Case TipoCargaPresupuesto
+ ' Case EnumTipoCargaPresupuesto.Ventas
+ ' CargaGVPresupuestos(TmpDT.FiltraParametros("CveTipoPresupuesto=2"))
+ ' UpGV.Update()
+ ' Exit Select
+ ' Case EnumTipoCargaPresupuesto.Control
+ ' CargaGVPresupuestosInsumos(TmpDT.FiltraParametros("CveTipoPresupuesto=1"))
+ ' UpGVInsumos.Update()
+ ' Exit Select
+ ' Case Else
- End Select
+ ' End Select
- LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero
- LblImporte.Text = LbTotalGeneral.Text
- UpGral.Update()
+ ' LbTotalGeneral.Text = (LbTotalGeneral.Text.ToDouble + TotalRow).ToString.FormatoNumero
+ ' LblImporte.Text = LbTotalGeneral.Text
+ ' UpGral.Update()
- End If
+ ' End If
- ObjContratos.Dispose()
+ ' ObjContratos.Dispose()
- If RowNoEncontrados.Length > 0 Then
- Alert($"Productos no encontrados {RowNoEncontrados} ")
- End If
+ ' If RowNoEncontrados.Length > 0 Then
+ ' Alert($"Productos no encontrados {RowNoEncontrados} ")
+ ' End If
- End Sub
+ 'End Sub
@@ -4689,6 +4699,165 @@ Partial Class Contratos_ContratoObra
End Sub
+
+
+ Private Sub CargaGastos()
+
+ Dim GastosCompras As Double = 0
+ Dim GastosVeiculos As Double = 0
+ Dim GatosNominas As Double = 0
+ Dim GastosProcentaje As Double = 0
+
+
+ Dim ObjContratos As New ClsContratos
+
+ If ObjContratos.GetContratosObragGastosVeiculos(CveContrato, UsuarioActual.CveEmpresa) Then
+ GvGastosVeiculos.DataSource = ObjContratos.DtResultados
+ GastosVeiculos = ObjContratos.DtResultados.SUM("Importe")
+
+ Else
+ GvGastosVeiculos.DataSource = Nothing
+ End If
+
+ If ObjContratos.GetContratosObragGastosCompras(CveContrato, UsuarioActual.CveEmpresa) Then
+ GvGastosCompras.DataSource = ObjContratos.DtResultados
+ GastosCompras = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0")
+ Else
+ GvGastosCompras.DataSource = Nothing
+ End If
+
+ If ObjContratos.GetContratosObragGastosNomina(CveContrato, UsuarioActual.CveEmpresa) Then
+ GvGastosNomina.DataSource = ObjContratos.DtResultados
+ GatosNominas = ObjContratos.DtResultados.SUM("Importe", "CveContrato > 0")
+ Else
+ GvGastosNomina.DataSource = Nothing
+ End If
+
+ ObjContratos.Dispose()
+
+ GvGastosVeiculos.DataBind()
+ GvGastosCompras.DataBind()
+ GvGastosNomina.DataBind()
+
+ LblGastoContrato.Text = LblImporte.Text
+ LblGastoNomina.Text = "$ " & GatosNominas.ToString("###,###,###.00")
+ LblGastoGastos.Text = "$ " & GastosCompras.ToString("###,###,###.00")
+ LblGastoIndirectos.Text = "$ " & GastosVeiculos.ToString("###,###,###.00")
+
+ UpGastos.Update()
+
+ GastosProcentaje = (GastosVeiculos + GatosNominas + GastosCompras) * 100 / (LblGastoContrato.Text.ToDecimal)
+ LblGastoPorcentaje.Text = GastosProcentaje.ToString("###.00") & " %"
+
+ End Sub
+
+
+ Private Sub GvGastosVeiculos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosVeiculos.RowDataBound
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ If e.Row.DataKey("ORDEN").ToEntero = 1 Then
+ e.Row.CssClass = "Totales"
+ e.Row.Cells(1).Text = "Total"
+ Dim LnkEliminarGasto As LinkButton = e.Row.FCLinkButton("LnkEliminarGasto")
+ LnkEliminarGasto.Visible = False
+
+
+ End If
+
+ End If
+ End Sub
+
+
+ Private Sub GvGastosCompras_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosCompras.RowDataBound
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ If e.Row.DataKey("CveContrato").ToEntero > 0 Then
+ e.Row.CssClass = "Totales"
+ e.Row.Cells(1).Text = "Total"
+
+ ElseIf e.Row.DataKey("CveContrato").ToEntero = 0 And e.Row.DataKey("CveClasificacion").ToEntero > 0 And e.Row.DataKey("ORDEN").ToEntero = 1 Then
+ e.Row.CssClass = "SubTotales"
+ e.Row.Cells(0).Text = e.Row.DataKey("Clasificacion")
+ e.Row.Cells(0).Width = 250
+ End If
+
+ End If
+
+
+ End Sub
+
+ Private Sub GvGastosNomina_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvGastosNomina.RowDataBound
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ If e.Row.DataKey("CvePersonal").ToEntero = 0 Then
+ e.Row.CssClass = "Totales"
+ e.Row.Cells(1).Text = "Total"
+ End If
+
+ End If
+
+ End Sub
+
+ Protected Sub LnkModalAddGastos_Click(sender As Object, e As EventArgs)
+
+
+ RegistraScript("$('#ModalControlAddGastoVeiculo').modal('show');")
+
+ End Sub
+
+ Protected Sub LnkEliminarGasto_Click(sender As Object, e As EventArgs)
+
+ Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+ Dim CveContratoGasto As Integer = GvRow.DataKey("CveContratoGasto").ToString.ToEntero
+
+ Dim ObjContratos As New ClsContratos
+ Dim ErrorProceso As Boolean = True
+
+
+ If ObjContratos.RemoveContratoGasto(CveContratoGasto) Then
+ ErrorProceso = False
+ End If
+
+ If Not ErrorProceso Then
+ CargaGastos()
+ Alert("Gasto eliminado correctamente.")
+ End If
+
+
+ ObjContratos.Dispose()
+
+
+ End Sub
+
+ Protected Sub BtnModalAgreagrGasto_Click(sender As Object, e As EventArgs)
+
+ Dim ErrorProceso As Boolean = True
+
+ Dim ObjContratos As New ClsContratos
+
+ If ObjContratos.AddContratoGasto(CveContrato, TxtGastosDescripcion.Text, TxtGastosImporte.Text.ToDecimal, Now, UsuarioActual.CveUsuario) Then
+ ErrorProceso = False
+ End If
+
+ ObjContratos.Dispose()
+
+ If Not ErrorProceso Then
+ CargaGastos()
+ RegistraScript("$('#ModalControlAddGastoVeiculo').modal('hide');")
+ End If
+
+
+ End Sub
+
+
+
+
+
+
End Class