diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index e7b9a2971..a8235bf19 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -3493,10 +3493,63 @@ Public Class ClsContratos
End Try
Return Retorno
- End Function
+ End Function
+
+
+
+#Region " MAQUINARIA FLOTILLA HERRAMIENTA "
+
+
+ Public Function AddContratosMaquinariaFlotilla(CveActivoFijo As Integer, Fecha As Date, CvePersonal As Integer, Importe As Decimal, CveContratoDetalle As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ Dataset = New DataSet()
+ DataAdapter("PA_Con_ContratosMaquinariaFlotillaAdd")
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
+ .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ .Add("@Importe", SqlDbType.Money).Value = Importe
+ .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
+ End With
+
+ Try
+ SqlAdapter.Fill(Dataset)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al agregar el registro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+
+ Public Function GetContratosMaquinariaFlotillaSubTipoAF(CveContrato As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ Dataset = New DataSet()
+ DataAdapter("PA_Con_ContratosMaquinariaFlotillaSuibTipoAFGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener el registro.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
+
+#End Region
+
#Region " IDisposable Support "
- ' IDisposable
+ ' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index be81c310e..b05a5614f 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -7052,6 +7052,28 @@ Public Class ClsPaginas
RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
+ Case "RNC"
+
+
+ NombreArchivo = "RemisionNC"
+ NombreArchivoDescarga = "RemisionNC"
+ TipoDocumento = "REMISION"
+
+ params.Add(New ReportParameter("TipoDocumento", NombreArchivoDescarga))
+ params.Add(New ReportParameter("Tipo", TipoDocumento))
+ params.Add(New ReportParameter("Ref", TipoDocumentoRef))
+ params.Add(New ReportParameter("AplicaPagare", AplicaPagare))
+
+ 'ALAN YEPIZ
+ If UsuarioActual.CveEmpresa.Contiene(123) Then
+ params.Add(New ReportParameter("DiaExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Day)))
+ params.Add(New ReportParameter("MesExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Month)))
+ params.Add(New ReportParameter("AñoExpedicion", String.Format("{0}", Vta.Fecha.ToDate.Year)))
+ End If
+
+ RutaFormato = String.Format("{0}Formatos\{1}.rdlc", UsuarioActual.Empresa.Ruta, NombreArchivo)
+ RutaFormatoDefault = String.Format("Empresas\Grales\Formatos\{0}.rdlc", NombreArchivo)
+
Case Else
NombreArchivo = ""
TipoDocumento = ""
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 4f8101173..63d502979 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1366,7 +1366,15 @@ Partial Class Compras_Compras
Dim ObjPersonal As New ClsRH
ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa)
DdlPersonal.DataSource = ObjPersonal.DtResultados
- DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+
+ If UsuarioActual.CveEmpresa = 119 Then
+ DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados
+ Else
+ DdlPersonalReembolso.DataSource = ObjPersonal.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+ End If
+
+
+
ObjPersonal.Dispose()
DdlPersonal.DataBind()
DdlPersonalReembolso.DataBind()
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 58e9dd59c..3b39e3541 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2710,7 +2710,7 @@ Partial Class Compras_eFacturas
Dim PrefijoPagos As String = ""
For Each nodoPrefijo As XmlNode In nodeComp.ChildNodes
- If nodoPrefijo.Prefix <> "tfd" Then
+ If nodoPrefijo.Prefix <> "tfd" And nodoPrefijo.Prefix.ToUpper.Contains("PAGO") Then
PrefijoPagos = nodoPrefijo.Prefix
End If
Next
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index ea4c94e5d..bea7e596d 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -102,6 +102,10 @@
Agregar Gasto
+
+ Agregar Maquionaria Flotilla Herramienta
+
+
@@ -1011,19 +1015,7 @@
- <%--
-
-
-
-
-
-
- --%>
+
Insumos
Mano de Obra
- Flotillas
+ Maquinaria Herramienta Flotilla
@@ -2764,18 +2756,30 @@
+
+
+
+
+
+
+
+
+
+ <%--MODAL CONTROL PRESUPUESTOS AGREGAR--%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
+
+
+
+