Cambios en ventas para contratos de emd

Contratos/Contrato.aspx.vb

@@ -25,17 +25,17 @@ Partial Class Contratos_Default
             ViewState("CveContrato") = value
         End Set
     End Property
-    Private Property CveTipoContrato As Integer
+    Private Property CveContratoTipo As Integer
         Get
-            If ViewState("CveTipoContrato") Is Nothing Then
+            If ViewState("CveContratoTipo") Is Nothing Then
                 Return 0
             Else
-                Return ViewState("CveTipoContrato").ToString.ToEntero
+                Return ViewState("CveContratoTipo").ToString.ToEntero
             End If
 
         End Get
         Set(value As Integer)
-            ViewState("CveTipoContrato") = value
+            ViewState("CveContratoTipo") = value
         End Set
     End Property
     Private Property CveMovimiento As Integer
@@ -372,7 +372,7 @@ Partial Class Contratos_Default
                 CargaInventarios()
 
                 '12/04/2018 - Si el tipo de contrato es convenio de precio fijo configura campos
-                If CveTipoContrato = 28 Then
+                If CveContratoTipo = 28 Then
                     CargaConvenioPrecioFijo()
                 End If
 
@@ -664,7 +664,11 @@ Partial Class Contratos_Default
     Private Sub loadComboTipoContrato(venta As Boolean)
         Try
             If venta Then
-                DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1")
+                If UsuarioActual.CveEmpresa = 13 Then
+                    DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" CveEmpresa = 13")
+                Else
+                    DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 1")
+                End If
 
             Else
                 DdlTipoContrato.DataSource = GlobalDTContratosTipos(UsuarioActual.CveEmpresa).FiltraParametros(" TipoMovimiento = 0")
@@ -724,11 +728,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
 
 
-            If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then
+            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveTipoContrato = 25 Then
+            If CveContratoTipo = 25 Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -745,11 +749,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
             'TxtCantidad.Visible = False
 
-            If CveContrato > 0 AndAlso CveTipoContrato <> 25 Then
+            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveTipoContrato = 25 Then
+            If CveContratoTipo = 25 Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -776,13 +780,13 @@ Partial Class Contratos_Default
             Exit Sub
         End If
 
-        Me.CveTipoContrato = DdlTipoContrato.SelectedValue.ToEntero
+        Me.CveContratoTipo = DdlTipoContrato.SelectedValue.ToEntero
 
         'Dim TipoMov = GlobalDTContratosTipos.FiltroPrimeroValor("TipoMovimiento", $"CveContratoTipo='{CveTipoContrato}'").ToEntero
 
         If rpCompra.Checked Then
 
-            Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveTipoContrato}")
+            Response.Redirect($"/Contratos/Presupuestos.aspx?CveContrato=-1&CveContratoTipo={Me.CveContratoTipo}")
             'RegistraScript("window.location='/Contratos/Presupuestos.aspx")
         Else
 
@@ -853,7 +857,7 @@ Partial Class Contratos_Default
             '    'DvObservaciones.Visible = True
             'End If
 
-            Dim CveTipoContrato = DdlTipoContrato.SelectedValue
+            'Dim CveTipoContrato = DdlTipoContrato.SelectedValue
 
             'Dim TipoMov = GlobalDTContratosTipos.AsEnumerable().Where(Function(a) a("CveContratoTipo").ToString = CveTipoContrato).FirstOrDefault()("TipoMovimiento")
 
@@ -913,9 +917,28 @@ Partial Class Contratos_Default
                 TxtNumeroLicitacion.Text = ObjContratos.NumeroLicitacion
                 TipoContrato = ObjContratos.CveContratoTipo
                 TxtPorcentajeComision.Text = ObjContratos.PorcentajeComision.ToString
-                CveTipoContrato = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero
+                CveContratoTipo = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString.ToEntero
                 TxtCorreoNotificacion.Text = ObjContratos.DtResultados.Rows(0)("CorreoNotificacionPedDev").ToString
 
+                If CveContratoTipo = 33 Then
+                    TabContratosGastos.Visible = False
+                    TabAF.Visible = False
+                    TabReporteAvance.Visible = False
+                    TabAvanveDocumento.Visible = False
+                    TabContratosGastos.Visible = False
+                    TabAF.Visible = False
+                    TabPed.Visible = False
+                    TabAddendum.Visible = False
+                    TabFacCiclica.Visible = False
+
+                    TabPVInsumos.Visible = False
+
+                    thOcCliente.Visible = False
+                    tdOcCliente.Visible = False
+
+                    thLimitar.Visible = False
+                    tdLimitar2.Visible = False
+                End If
 
                 If ObjContratos.CveProveedor > 0 Then
                     TrProveedor.Visible = True
@@ -1379,7 +1402,7 @@ Partial Class Contratos_Default
                 If ObjContratos.UpdateContratos(CveContrato, TxtNumeroContrato.Text, TxtDescripcionContrato.Text, TxtNumeroLicitacion.Text.Trim, DdlContratista.SelectedValue.ToEntero, DdlCliente.SelectedValue.ToEntero, -1, TxtFechaInicial.Text.ToDate, TxtFechaFinal.Text.ToDate,
                                                 TxtUbicacion.Text, TxtResponsable.Text, DdlSubProyectoContrato.SelectedValue.ToEntero, TxtPorIVA.Text.ToDouble, TxtPorAnticipo.Text.ToDouble, TxtPorAmortizacionAnticipo.Text.ToDouble,
                                                 TxtPorGarantia.Text.ToDouble, ArchivoUpdate, "", DdlContratoPadre.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, Minimo, Maximo, Total, DdlMoneda.SelectedValue.ToEntero,
-                                                ModalidadDetalle, If(UsuarioActual.Empresa.CvePlataforma = 3 OrElse CveTipoContrato = 25, 1, DdlEstatus.SelectedValue.ToEntero), TipoContrato, TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero,
+                                                ModalidadDetalle, If(UsuarioActual.Empresa.CvePlataforma = 3 OrElse CveContratoTipo = 25, 1, DdlEstatus.SelectedValue.ToEntero), TipoContrato, TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero,
                                                 CveAlmacenOrigen:=DdlAlmacenOrigen.SelectedValue.ToEntero, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, PorcentajeComision:=TxtPorcentajeComision.Text.ToEntero,
                                                 TipoGarantia:=DdlTipoGarantia.SelectedValue.ToEntero, Folio:=TxtFolio.Text.ToEntero, FechaVenc:=txtFechaVenc.Text.ToDate, EstatusFianza:=DdlEstatusFianza.SelectedValue.ToEntero, CveContratoPlantilla:=DdlPlantillaContrato.SelectedValue.ToEntero,
                                                 CveCuentaEquipo:=DdlCuentaEquipo.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=DdlClienteDireccionEnvio.SelectedValue.ToEntero, AplicaImpuestosLocales:=ChkImpuestosLocales.Checked,
@@ -1887,7 +1910,7 @@ Partial Class Contratos_Default
         Gv.DataSource = DtTemp
         DtPresupuestos = DtTemp
         Gv.DataBind()
-        If CveTipoContrato = 25 Then
+        If CveContratoTipo = 25 Then
             Gv.Columns(0).Visible = False
             Gv.Columns(2).Visible = False
             Gv.Columns(3).Visible = False
@@ -2045,7 +2068,7 @@ Partial Class Contratos_Default
                 e.Row.FCLinkButton("imgE").Visible = False
                 e.Row.FCLinkButton("imgD").Visible = False
             End If
-            If CveTipoContrato = 25 Then
+            If CveContratoTipo = 25 Then
                 e.Row.Cells(1).Width = Unit.Pixel(10)
                 e.Row.Cells(6).Width = Unit.Pixel(250)
             End If
@@ -2474,38 +2497,41 @@ Partial Class Contratos_Default
     Private Sub CargaDatosAvance()
         If CveContrato <= 0 Then
             Exit Sub
+        End If
+
+        If CveContratoTipo <> 33 Then
+            TabReporteAvance.Visible = True
+            lbImprimirAvance.Visible = True
+
+            Dim Modalidad = IfNull(Request("Tipo"), 1, 2)
+
+            If Modalidad.ToString.ToEntero = 2 Then
+                Tab.ActiveTabIndex = 2
+            End If
+
+            Dim ObjContratos As New ClsContratos
+
+            If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
+                GvDatosAvance.DataSource = ObjContratos.DtResultados
+                SumaAvance = ObjContratos.DtResultados.SUM("AvanceImporte", "CveClasificacion IS NULL")
+                SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
+                DtAvance = ObjContratos.DtResultados
+            Else
+                Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            End If
+
+            ObjContratos.Dispose()
+            GvDatosAvance.DataBind()
+
+            If (GvDatosAvance.Rows.Count > 0) Then
+                GvDatosAvance.UseAccessibleHeader = True
+                GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader
+                RegistraScript("OrdenarGV();")
+            End If
+
+            UpGral.Update()
         End If
 
-        TabReporteAvance.Visible = True
-        lbImprimirAvance.Visible = True
-
-        Dim Modalidad = IfNull(Request("Tipo"), 1, 2)
-
-        If Modalidad.ToString.ToEntero = 2 Then
-            Tab.ActiveTabIndex = 2
-        End If
-
-        Dim ObjContratos As New ClsContratos
-
-        If ObjContratos.GetReporteContratosAvancesDetalleCP(CveContrato, UsuarioActual.CveEmpresa) Then
-            GvDatosAvance.DataSource = ObjContratos.DtResultados
-            SumaAvance = ObjContratos.DtResultados.SUM("AvanceImporte", "CveClasificacion IS NULL")
-            SumaUtilidad = ObjContratos.DtResultados.SUM("AvanceUtilidad", "CveClasificacion IS NULL")
-            DtAvance = ObjContratos.DtResultados
-        Else
-            Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError)
-        End If
-
-        ObjContratos.Dispose()
-        GvDatosAvance.DataBind()
-
-        If (GvDatosAvance.Rows.Count > 0) Then
-            GvDatosAvance.UseAccessibleHeader = True
-            GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader
-            RegistraScript("OrdenarGV();")
-        End If
-
-        UpGral.Update()
     End Sub
 
     Protected Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound

Ventas/Ventas.aspx

@@ -554,11 +554,11 @@
                                     </div>
                                 </td>
                             </tr>
-
-
-
-
-
+                            <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
+                            <td><b>Descripción de factura:</b></td>
+                            <td>
+                                <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
+                            </tr>
                         </table>
                     </div>
                 </div>
@@ -907,32 +907,6 @@
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
-
-        <asp:UpdatePanel ID="UpDescripcionVenta" runat="server" class="portlet light xspadding bordered whitoutcol" style="margin-left: auto" UpdateMode="Conditional" Visible="false">
-            <ContentTemplate>
-                <div class="portlet-title">
-                    <div class="caption font-green">
-                        <i class="icon-pin font-green"></i>
-                        <span id="Span1" runat="server" class="caption-subject bold uppercase">Descripción </span>
-                    </div>
-                    <div class="actions">
-                        <div class="btn-group">
-                        </div>
-                    </div>
-                    <div class="tools">
-                        <a href="javascript:;" class="collapse"></a>
-                    </div>
-                </div>
-                <div class="portlet-body formnombottom">
-                    <table border="0" width="250px">
-                        <tr align="left">
-                            <td>
-                                <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
-                        </tr>
-                    </table>
-                </div>
-            </ContentTemplate>
-        </asp:UpdatePanel>
     </div>
 
     <asp:UpdatePanel ID="Updatetabs" runat="server" UpdateMode="Conditional">
@@ -3165,7 +3139,7 @@
 
 
                                     <asp:HyperLink ID="HLContrato" Target="_blank" CssClass="Texto" runat="server" Text="" Font-Bold="true"></asp:HyperLink>
-                                    <asp:GridView ID="GvEst" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron Estimaciones para este cliente" Width="100%" DataKeyNames="CveContrato,CveFamilias,CveSubFamilias,CveContratoAvance,Name,Importe,NumeroContrato,CveSubProyecto,FechaInicial" SelectedRowStyle-BackColor="#CCFF66" CssClass="table GvEst table-advance table-hover" Style="text-align: center;" GridLines="None">
+                                    <asp:GridView ID="GvEst" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron estimaciones para este cliente" Width="100%" DataKeyNames="CveContrato,CveFamilias,CveSubFamilias,CveContratoAvance,Name,Importe,NumeroContrato,CveSubProyecto,FechaInicial" SelectedRowStyle-BackColor="#CCFF66" CssClass="table GvEst table-advance table-hover" Style="text-align: center;" GridLines="None">
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
@@ -4552,7 +4526,7 @@
                     <asp:Label runat="server" Text="Descripción:" Font-Bold="true" Width="120px" />
                 </td>
                 <td colspan="1">
-                    <asp:TextBox runat="server" ID="TxtDescripcionCaja" TextMode="MultiLine" Width="170px" />
+                    <asp:TextBox runat="server" ID="TxtDescripcionCaja" TextMode="MultiLine" Width="100%" />
                 </td>
             </tr>
             <tr>

Ventas/Ventas.aspx.vb

@@ -2315,6 +2315,15 @@ Partial Class Ventas
         End Set
     End Property
 
+    Private Property CveContratoTipo As Integer
+        Get
+            Return IfNull(ViewState("CveContratoTipo"), "-1", ViewState("CveContratoTipo")).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoTipo") = value
+        End Set
+    End Property
+
 #End Region
 
     '#Region "AuxiliarConta"
@@ -3464,7 +3473,7 @@ Partial Class Ventas
             End If
 
             If UsuarioActual.CveEmpresa = 13 Then
-                UpDescripcionVenta.Visible = True
+                TrDescripcionVenta.Visible = True
                 If CveVenta <= 0 Then
                     TxtDescripcionVenta.Enabled = True
                 End If
@@ -3742,6 +3751,7 @@ Partial Class Ventas
         End Try
     End Sub
     Private Sub VerificarContrato(Optional AfterPageLoad As Boolean = False)
+
         Dim ObjContratos As New ClsContratos
 
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente, -1, 1) Then
@@ -3823,6 +3833,17 @@ Partial Class Ventas
 
         End If
 
+
+        If UsuarioActual.CveEmpresa = 13 Then
+            DivEstimaciones.Visible = True
+            GvEst.Visible = False
+            ContratoDetalles.Visible = False
+            GvContratoDetalles.Visible = True
+
+            BtnEstimacion.Visible = False
+
+        End If
+
         PresionarBotonModal("C_BtnCerrarContrato")
     End Sub
     Private Sub BtnCancelarContratoDetalles_Click(sender As Object, e As EventArgs) Handles BtnCancelarContratoDetalles.Click
@@ -4067,9 +4088,17 @@ Partial Class Ventas
         '    ObjClientes.Dispose()
         'End If
 
+        Dim CveContratoSeleccionado As Integer = -1
+        If DdlContratosModal.SelectedValue.ToEntero() > 0 Then
+            CveContratoSeleccionado = DdlContratosModal.SelectedValue.ToEntero()
+        End If
+
+        If Me.CveContratoTipo = 33 AndAlso DdlContrato.SelectedValue.ToEntero() > 0 Then
+            CveContratoSeleccionado = DdlContrato.SelectedValue.ToEntero()
+        End If
+
+        Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {CveContratoSeleccionado}")
 
-        Dim DrContrato As DataRow = DtContratos.FiltroPrimero($"CveContrato = {DdlContratosModal.SelectedValue.ToEntero()}")
-        Dim ps As New ClsInventarios
 
         CveContrato = DdlContratosModal.SelectedValue.ToEntero()
         AplicaGastoContrato = If(DrContrato("CveContratoTipo").ToString().Contiene("9", "10", "13"), True, False) 'Arrendamiento, Servicios De Impresion, Financiamiento
@@ -4083,6 +4112,7 @@ Partial Class Ventas
         TxtIVA.Text = "0"
         TxtRetIVA.Text = "0"
 
+        Dim ps As New ClsInventarios
         For Each Row As GridViewRow In GvContratoDetalles.Rows
             If Row.FCTextBox("TxtCant").Text.ToEntero() > 0 Then
 
@@ -4107,8 +4137,8 @@ Partial Class Ventas
 
                         SeleccionadoContrato += Row.FCTextBox("TxtCant").Text.ToEntero() * Row.FCLiteral("LtlPU").Text.ToDouble
                         AgregarProductoServicio(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(),
-                                                Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, ObsPlantilla, $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0,
-                                                DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero())
+                                                    Row.DataKey("Clasificacion"), Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, ObsPlantilla, $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDecimal, 0,
+                                                    DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero())
                         'AddPS(Row.FCTextBox("TxtCant").Text.ToEntero(), Row.DataKey("CveUM").ToEntero(), Row.FCLiteral("LtlUM").Text, Row.DataKey("CveClasificacion").ToEntero(), Row.DataKey("Clasificacion"),
                         '  Row.DataKey("CvePS").ToEntero(), Row.FCLiteral("LtlPS").Text, If(CveCicloComercial > 0, Row.DataKey("Observaciones"), $"/ {Row.FCLiteral("LtCveInterna").Text}"), Row.FCLiteral("LtlPU").Text.ToDouble, If(Row.DataKey("IVA").ToDouble = -1, ViewState("IVA").ToString().ToDouble, Row.DataKey("IVA").ToDouble), 0, 0, 1, 0, True, "",
                         '  DrContrato("CveProyecto").ToString().ToEntero(), DrContrato("ProyectoContrato").ToString(), DrContrato("CveSubProyecto").ToString().ToEntero(), DrContrato("SubProyectoContrato").ToString(), CveTipoPS, CveTipoInv, CveContratoDetalle:=Row.DataKey("CveContratoDetalle").ToEntero(), CodigoPS:=Row.FCLiteral("LtlPS").Text)
@@ -4125,6 +4155,7 @@ Partial Class Ventas
 
             End If
         Next
+        ps.Dispose()
 
         'SI EL CONTRATO TIENE IMPUESTOS LOCALES SE CARGAN LOS DEL CONTRATO AHUEVO
         If RBLTipoContrato.SelectedValue = "2" Then
@@ -4175,7 +4206,15 @@ Partial Class Ventas
         CalculaUsados()
 
         CalculaTotalesVenta()
-        LbAgregar.Visible = False
+
+        If Me.CveContratoTipo <> 33 Then
+            LbAgregar.Visible = False
+        Else
+            Me.CveContrato = DdlContrato.SelectedValue.ToEntero()
+            LbAgregar.Visible = True
+        End If
+
+
         UpPS.Update()
 
         'restricciones para evitar cambios una vez seleccionado el contrato
@@ -4192,7 +4231,7 @@ Partial Class Ventas
 
         PresionarBotonModal("C_BtnCerrarContrato")
 
-        ps.Dispose()
+
         UpFacturar.Update()
     End Sub
     Private Sub CargarContratoUrl()
@@ -4366,6 +4405,11 @@ Partial Class Ventas
                 e.Row.FCTextBox("TxtCant").Enabled = False
             End If
 
+            If Me.CveContratoTipo = 33 Then
+                e.Row.FCTextBox("TxtCant").Enabled = False
+                e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("Cantidad")
+            End If
+
             ''Si viene de una OC Sin Facturar y tiene contrato
             'If TieneContrato AndAlso ContratosConOC IsNot Nothing AndAlso ContratosConOC.ToString().Length > 0 Then
             '    e.Row.FCTextBox("TxtCant").Text = e.Row.DBCampo("CantidadOC").ToString()
@@ -4821,7 +4865,7 @@ Partial Class Ventas
                         End If
 
                         If UsuarioActual.CveEmpresa = 13 Then
-                            UpDescripcionVenta.Visible = True
+                            TrDescripcionVenta.Visible = True
                             TxtDescripcionVenta.Text = DbRowVenta("DescripcionVenta").ToString()
                         End If
 
@@ -6682,7 +6726,11 @@ Partial Class Ventas
 
                 'CargaFolios()
 
-                CargaDatosEstimaciones(CveCliente)
+                If UsuarioActual.CveEmpresa = 13 Then
+                    CargaContratosCliente(CveCliente)
+                Else
+                    CargaDatosEstimaciones(CveCliente)
+                End If
 
                 If ObjCliente.GetClienteImpuestosLocales(CveCliente) Then
                     'se cargan impuestos locales
@@ -13452,11 +13500,13 @@ Partial Class Ventas
             End If
 
             'Contratos 
-            If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
-                GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1)
-                'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN
-            ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
-                GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1)
+            If factura.CveContrato > 0 AndAlso Me.CveContratoTipo <> 33 Then
+                If factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") Then
+                    GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, 1)
+                    'CUANDO ES NOTA DE CRÉDITO, NO DEBE DE CONSIDERAR AVANCE, CUANDO ES NOTA DE CRÉDITO POR AMORTIZACIÓN
+                ElseIf factura.CveContrato > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev") AndAlso Not EsNCAmortizacion Then
+                    GuardarContratoAvanceEstimaciones(ObjContr, factura, ErrorList, -1)
+                End If
             End If
 
             'Impuestos Locales
@@ -13626,7 +13676,9 @@ Partial Class Ventas
 
                     If ErrorList.Count = 0 Then
                         'estimaciones
-                        GuardarVentaEstimaciones(ObjContr, factura)
+                        If Me.CveContratoTipo <> 33 Then
+                            GuardarVentaEstimaciones(ObjContr, factura)
+                        End If
                         If ErrorList.Count = 0 Then
                             'armonizaccionContable
                             GuardarVentaAC(ObjVentas, factura, Msgok, objContPaqi)
@@ -21410,18 +21462,39 @@ Partial Class Ventas
 
     Protected Sub DdlContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContrato.SelectedIndexChanged
         Dim valueselect = DdlContrato.SelectedValue
-        CargaDatosEstimaciones(CveCliente)
-        DdlContrato.SelectedValue = valueselect
-        If DdlContrato.SelectedValue.ToEntero() > 0 Then
-            For Each gvr As GridViewRow In GvEst.Rows
-                If gvr.DataKey("CveContratoAvance").ToEntero() > 0 Then
-                    gvr.FCCheckBox("Chk").Checked = True
-                    gvr.FCCheckBox("Chk").Visible = True
-                End If
-            Next
-            BtnEstimacion.Visible = True
+
+        Dim CveContrato As Integer = valueselect.ToEntero()
+        Using ObjContratos As New ClsContratos
+            If ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa, CveCliente:=CveCliente) Then
+                Me.CveContratoTipo = ObjContratos.DtResultados.Rows(0)("CveContratoTipo").ToString().ToEntero()
+            End If
+        End Using
+
+
+        If CveContratoTipo <> 33 Then
+            CargaDatosEstimaciones(CveCliente)
+            DdlContrato.SelectedValue = valueselect
+            If DdlContrato.SelectedValue.ToEntero() > 0 Then
+                For Each gvr As GridViewRow In GvEst.Rows
+                    If gvr.DataKey("CveContratoAvance").ToEntero() > 0 Then
+                        gvr.FCCheckBox("Chk").Checked = True
+                        gvr.FCCheckBox("Chk").Visible = True
+                    End If
+                Next
+                BtnEstimacion.Visible = True
+            End If
+        Else
+            CargaDatosContratoDetalle()
+            GvEst.Visible = False
+            ContratoDetalles.Visible = False
+            GvContratoDetalles.Visible = True
+
+            DdlContrato.SelectedValue = valueselect
+            BtnEstimacion.Visible = False
+            UPEstimaciones.Update()
         End If
 
+
         'If RblOpcionContrato.SelectedValue = "3" Then
 
 
@@ -21441,34 +21514,62 @@ Partial Class Ventas
         If CveVenta > 0 Then
             Exit Sub
         End If
-        Dim Con As New ClsContratos
 
-
-
-
-
-        If Con.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then
-            GvEst.DataSource = Con.DtResultados
-            If Con.DtResultados.Rows.Count > 0 Then
+        Dim ObjContrato As New ClsContratos
+        If ObjContrato.GetEstimacionesPorFacturar(-1, CveCliente, DdlContrato.SelectedValue.ToEntero(), 0, UsuarioActual.CveEmpresa) Then
+            GvEst.DataSource = ObjContrato.DtResultados
+            If ObjContrato.DtResultados.Rows.Count > 0 Then
                 'BtnEstimacion.Visible = True
                 DdlContrato.Items.Clear()
                 DdlContrato.Items.Add(New ListItem("Todos", "-1"))
-                DdlContrato.DataSource = Con.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
+                DdlContrato.DataSource = ObjContrato.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
             End If
         End If
 
+        ObjContrato.Dispose()
 
-        UPEstimaciones.Update()
-        Con.Dispose()
         DdlContrato.DataBind()
         GvEst.DataBind()
 
+        UPEstimaciones.Update()
+    End Sub
 
+    Private Sub CargaDatosContratoDetalle()
+        If CveVenta > 0 Then
+            Exit Sub
+        End If
 
+        Dim ObjContrato As New ClsContratos
+        If DdlContrato.SelectedValue.ToEntero() > 0 Then
+            If ObjContrato.GetContratosDetalle(DdlContrato.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+                GvContratoDetalles.DataSource = ObjContrato.DtResultados
+            End If
+        Else
+            GvContratoDetalles.DataSource = Nothing
+        End If
+        ObjContrato.Dispose()
 
+        GvContratoDetalles.DataBind()
+        GvContratoDetalles.EmptyDataText = "No se encontraron productos/servicios para este contrato"
 
+        UPEstimaciones.Update()
+    End Sub
 
+    Private Sub CargaContratosCliente(CveCliente As Integer)
+        If CveVenta > 0 Then
+            Exit Sub
+        End If
+        DdlContrato.Items.Clear()
+        DdlContrato.Items.Add(New ListItem("Todos", "-1"))
 
+        Dim ObjContratos As New ClsContratos
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente:=CveCliente, CveEstatus:=-1) Then
+            DdlContrato.DataSource = ObjContratos.DtResultados.FiltraParametros("CveContrato > 0", "NumeroContrato", DistinctColumns:={"CveContrato", "NumeroContrato"})
+        End If
+        ObjContratos.Dispose()
+
+        DdlContrato.DataBind()
+        UPEstimaciones.Update()
     End Sub
     Protected Sub GVEst_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEst.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then