-
-
+
+
+ <%# Eval("Abreviatura")%>
+
+
+
+
+
+ <%# Eval("Cantidad", "{0:N2}")%>
+
+
+
+
+
+ <%# Eval("Importe", "{0:N2}")%>
+
+
+
+
+ <%# Eval("Cantidad_Ultima", "{0:N2}")%>
+
+
+
+
+ <%# Eval("Importe_Ultima", "{0:N2}")%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
- <%# Eval("Cantidad", "{0:N2}")%>
-
-
-
-
- <%# Eval("Importe", "{0:N2}")%>
-
-
-
-
- <%# Eval("Cantidad_Ultima", "{0:N2}")%>
-
-
-
-
- <%# Eval("Importe_Ultima", "{0:N2}")%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%-- --%>
-
-
-
-
-
-
+
+
+
+
+
+
-
+
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
@@ -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:
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
- - -
-
-
-
-
+
+
+
+
+
+
+
+
+ <%--
-
+ --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Total Contratado
+
+ $
+
+
+
+ $
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Ventas
+
+
+
+
+ |
+
+ Porcentaje
+
+
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Avance
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Interno
+
+
+
+
+ |
+
+ Porcentaje
+
+
+
+
+ |
+
+
+
+
+
+
+
+
+
+
+ Faltante
+
+
+ | Importe Contratado: $
- |
+ Facturado: $
|
@@ -219,14 +298,20 @@
-
+
-
-
-
-
-
-
-
@@ -236,6 +321,12 @@
Datos del Contrato
+
+
+
+
+
+
- <%--
-
@@ -306,187 +397,8 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
--%>
-
-
-
-
-
-
-
-
-
-
+
+
+
+
-
-
-
-
-
-
-<%--
-
-
- --%>
-
-
- <%--
-
-
-
-
-
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
--%>
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -526,6 +438,81 @@
+
+ Proyecto:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index f06097173..cb2f16ade 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -294,7 +294,6 @@ Partial Class Inventarios_EntradasSalidas
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not IsPostBack Then
-
CveMovimiento = -1
CveMovimientoRelacionado = -1
TieneRelacionado = -1
@@ -996,9 +995,6 @@ Partial Class Inventarios_EntradasSalidas
TxtFechaInvFisico.Enabled = False
ImgFechaInvFisico.Visible = False
-
-
-
End If
UpModalInventarioFisico.Update()
@@ -2358,6 +2354,8 @@ Partial Class Inventarios_EntradasSalidas
'TrSerieLote.Visible = False
'TrSerieLote2.Visible = False
+ If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvM.Columns(11).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
+
GvM.Columns(9).Visible = False
'PERMISO SOLO PARA EDITAR SERIELOTE
If UsuarioActual.TienePermisoProceso(245) Then
@@ -2403,7 +2401,7 @@ Partial Class Inventarios_EntradasSalidas
GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0
End If
-
+ 'UppGrid.Update()
End Sub
Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound
Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
@@ -3731,7 +3729,7 @@ Partial Class Inventarios_EntradasSalidas
GvEntradas.Columns(4).Visible = DtTemp.MAX("Serie") <> ""
GvEntradas.Columns(5).Visible = DtTemp.MAX("Lote") <> ""
GvEntradas.Columns(6).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha
- GvEntradas.Columns(6).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
+ If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvEntradas.Columns(6).HeaderText = UsuarioActual.Empresa.Funcionalidad(147)
End If
End Sub
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 08a39f76b..293ab379a 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -519,7 +519,7 @@
+
+
Sección Almacen
Serie
Lote
- Caducidad
+ Fecha Caducidad
Comandos
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 8f0dc0e82..f15bbd1d6 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1072,21 +1072,21 @@ Partial Class Inventarios_TraspasoAlmacen
LimpiaMovimiento()
- Else
+ Else
ObjInventario.RollBack()
Alert(TextoError, TipoMensaje.MsgError)
RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
- End If
+ End If
- ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
+ ' If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
- 'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
- If ErrorExistencia Then
- CargaGvDatos()
- End If
- ObjConta.Dispose()
- ObjInventario.Dispose()
- End Sub
+ 'SI OCURRIO UN ERROR EN LA EXISTENCIA RECARGAMOS EL GRID PARA COLOREAR LOS DETALLES CON ERROR
+ If ErrorExistencia Then
+ CargaGvDatos()
+ End If
+ ObjConta.Dispose()
+ ObjInventario.Dispose()
+ End Sub
Function ConsumoInterno(TipoAlmacenOrigen As Integer, TipoAlmacenDestino As Integer) As Boolean
Dim Retorno As Boolean = False
@@ -1265,7 +1265,8 @@ Partial Class Inventarios_TraspasoAlmacen
TxtnFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
ThFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
- ThFechaCaducidad.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
+ If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then ThFechaCaducidad.InnerText = UsuarioActual.Empresa.Funcionalidad(147)
+ 'ThFechaCaducidad.InnerText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
TdFechaCaducidad.Visible = CBool(drP("AplicaCaducidad"))
'GvDatos.Columns(8).Visible = CBool(drP("AplicaCaducidad"))
diff --git a/RH/CatDocumentos.aspx b/RH/CatDocumentos.aspx
index 064ddb9d3..624cb39de 100644
--- a/RH/CatDocumentos.aspx
+++ b/RH/CatDocumentos.aspx
@@ -424,6 +424,13 @@
{Puesto} {FechaActual} {FechaActualDF} {TiempoContrato} {HoraInicioJornada} Hora de inicio de jornada entre semana {HoraFinJornada} Hora de fin de jornada entre semana {HoraInicioJornadaSabado} Hora de inicio de jornada en sábado {HoraFinJornadaSabado} Hora de fin de jornada en sábado {Salario} Salario del personal {MetodoPago} Metodo de pago {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} ")
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/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index fbcb8a6be..90038885c 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5266,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
@@ -5896,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
diff --git a/vwd.webinfo b/vwd.webinfo
index 1391aa8cf..ce767c892 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -132,6 +132,12 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- <%--
-
+
+
+
+
+
+
+
+
+
+
+
+
@@ -563,18 +550,7 @@
-
-
-
-
-
-
-
--%>
+
-
-
@@ -604,9 +580,17 @@
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
- <%--
@@ -679,59 +615,25 @@
- <%-- AGREGAR FIANZA --%>
- <%--
@@ -624,54 +608,6 @@
-
-
--%>
-
-
- <%--
-
- --%>
-
-
-
-
-
" & 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..f22ccaceb --- /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" %> + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb
new file mode 100644
index 000000000..bec497e3b
--- /dev/null
+++ b/Contratos/ContratoObraAutorizacion.aspx.vb
@@ -0,0 +1,659 @@
+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
+
+
+ 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
+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/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index d9806259f..9fc766030 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -25,8 +25,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
DdlClasificaciones.DataBind()
DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
- GvD.Columns(4).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
- GvD.Columns(10).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Nueva Fecha Elaboración", "Nueva Fecha Caducidad")
+ If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvD.Columns(4).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) : GvD.Columns(10).HeaderText = String.Format("Nueva {0}", UsuarioActual.Empresa.Funcionalidad(147))
End Sub
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index a58d3a14d..5ab3e99df 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -1,1754 +1,1755 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasSalidas.aspx.vb" Inherits="Inventarios_EntradasSalidas" EnableEventValidation="false" %>
-
-
-<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %>
-
-
-
-
-
-
-
-
- Registro de movimientos
-
-
-
-
-
- PDF
-
-
- Descargar XML SAT
-
-
- Descargar PDF SAT
-
-
- Descargar Carta Porte
-
-
- Traspaso Almacen
-
-
-
-
- Ver PrePóliza
-
-
-
-
-
-
-
-
- Cargar Concepto
-
-
-
-
-
-
-
-
-
-
- <%--FILTROS--%>
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
<%--
--%> - -
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
--%> + +
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%--
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
- - <%-- EMPIEZA: BITACORA --%> -
-
-
-
- -
-
- <%-- TERMINA: BITACORA --%>
-
-
-
-
-
-
-
-
-
-
-
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..f22ccaceb --- /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}")%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+ |
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%----%>
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
+
+
-
-
-
+
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasSalidas.aspx.vb" Inherits="Inventarios_EntradasSalidas" EnableEventValidation="false" %>
+
+
+<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %>
+
+
+
+
+
+
+
+
+ Registro de movimientos
+
+
+
+
+
+ PDF
+
+
+ Descargar XML SAT
+
+
+ Descargar PDF SAT
+
+
+ Descargar Carta Porte
+
+
+ Traspaso Almacen
+
+
+
+
+ Ver PrePóliza
+
+
+
+
+
+
+
+
+ Cargar Concepto
+
+
+
+
+
+
+
+
+
+
+ <%--FILTROS--%>
+
+
+
+
-
-
-
-
- -
+
+
+
+ +
-
-
-
-
-
-
-
+
+
+
+
-
+
-
+
+
+
-
<%--
-
-
-
-
-
- - -
-
-
-
-
-
+
+
-
+
-
+
+ + +
+
+
+
+
+
+
+
+ <%--INVENTARIO INICIAL--%>
+
+
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
+
-
-
+
+
+
-
-
-
-
- <%--INVENTARIO INICIAL--%>
-
+
-
+ ">
+
+
Información del movimiento
-
-
- >
-
-
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+ >
+
-
+
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Proyecto:
-
-
-
-
-
-
-
-
-
-
+
-
+
+
+
-
+
-
+
-
+ ">
+
+
Agregar Producto
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
+
-
+
-
+
- ">
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ +
+
+
+
+
+
+
-
+
-
-
+
-
+ ">
+
+
Información de registro
-
-
-
-
+
-
+
+
-
-
+
-
-
-
-
-
-
+
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
- Ver Compra
- Ver Venta
- Ver Póliza
- Ver Orden Compra
-
-
-
+
+
+ Ver Compra
+ Ver Venta
+ Ver Póliza
+ Ver Orden Compra
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
-
-
-
+
+
+
+
+
-
-
- ver
-
-
-
+
+
-
+
+
- ">
-
-
+
+
+
+
+ ver
+
+
+
-
-
-
+
-
+ ">
+
+
Tipo de Cambio
-
-
-
-
-
-
- | Moneda: | -
- |
-
| Tipo de Cambio: | -
- |
-
|
- |
- |
-
-
-
-
-
- | - |
- |
-
- |
-
- |
-
+
+
+
+ | Moneda: | +
+ |
+
| Tipo de Cambio: | +
+ |
+
|
+ |
+ |
+
+
+
+
+
+ | + |
+ |
+
+ |
+
+ |
+
--%> - -
-
-
-
-
- --%> + +
+
+
+
+
+ - -
-
-
-
-
- -
-
-
-
- -
- -
-
-
-
-
-
- - <%-- EMPIEZA: BITACORA --%> -
-
-
-
-
-
- Bitácora
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- - -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- - - - - - -
-
- - - - - - - -
-
-
-
-
- 
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ + + + + + +
+
+ + + + + + + +
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+