-- limpieza de opciones, como contabilziación de AC

-- comentado la get de docuemntación

Ventas/Ventas.aspx

@@ -320,8 +320,6 @@
                 <asp:LinkButton ID="LBDevolucionAlmacen" OnClick="LBDevolucionAlmacen_Click" runat="server" Text="<i class='fa fa-pencil'></i> Solicitar Devolución Almacén" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />
             </li>
 
-
-
             <%--   <li>
                 <asp:LinkButton ID="LbDescargarExcel" Visible="false" OnClick="LbDescargarExcel_Click" runat="server"><i class='fa fa-file-excel-o'></i> Descargar Formato</asp:LinkButton>
             </li>--%>
@@ -344,7 +342,7 @@
                 <asp:LinkButton ID="LnkGenerarOC" OnClick="LnkGenerarOC_Click" title="Generar Orden de Compra!" runat="server"><i class="fa fa-tags"></i> Generar Orden de Compra</asp:LinkButton>
             </li>
 
-            <asp:UpdatePanel ID="UPPDescontabilizar" runat="server" UpdateMode="Conditional">
+            <%--<asp:UpdatePanel ID="UPPDescontabilizar" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
                     <li>
                         <asp:LinkButton ID="BtnContabilizar" runat="server" Text="<i class='fa fa-plus-square'></i>Contabilizar" Visible="false" />
@@ -357,7 +355,7 @@
                 <Triggers>
                     <asp:PostBackTrigger ControlID="BtnDescontabilizar" />
                 </Triggers>
-            </asp:UpdatePanel>
+            </asp:UpdatePanel>--%>
 
             <li>
                 <asp:HyperLink ID="HLModalFletes" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#ModalFletes" runat="server"><i class='fa fa-truck'></i> Fletes</asp:HyperLink>
@@ -402,19 +400,14 @@
             <li>
                 <asp:LinkButton ID="LnkCancelarSoloCFDI" Visible="false" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea cancelar el CFDI?" data-btn-ok-label="si" OnClick="LnkCancelarSoloCFDI_Click"><i class="fa fa-plus"></i>Cancelar solo CFDI</asp:LinkButton>
             </li>
-
             <li>
                 <asp:HyperLink ID="HLFAgregarOS" Target="_blank" runat="server" Visible="false"> <i class="fa fa-plus"></i> Agregar Orden de Servicio</asp:HyperLink>
             </li>
         </ContentTemplate>
         <Triggers>
-            <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
-            <asp:PostBackTrigger ControlID="BtnContabilizar" />
-            <asp:PostBackTrigger ControlID="BtnContabilizar" />
+            <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />       
             <asp:PostBackTrigger ControlID="LnkImprimirFormatoCicovisa" />
-            <asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" />
-            <%-- <asp:PostBackTrigger ControlID="LnkDescargarFacturaPrueba" />--%>
-            <%--  <asp:PostBackTrigger ControlID="LbDescargarExcel" />--%>
+            <asp:PostBackTrigger ControlID="LnkImprimirFormatoTelcel" /> 
         </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
@@ -951,16 +944,7 @@
                                 <asp:Label ID="LblMotivoCancelacion" runat="server"></asp:Label>
 
                             </td>
-                        </tr>
-                        <tr align="left" id="trContabilizada" runat="server" visible="False">
-                            <td><b>Contabilizada:</b></td>
-                            <td>
-                                <asp:HyperLink ID="HLContabilizada" Target="_blank" runat="server" Text="No"></asp:HyperLink>
-                                <asp:HyperLink ID="HPLContaCancelacion" Target="_blank" runat="server" Text=""></asp:HyperLink>
-                                <%--  <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" Visible="false" CssClass="btn btn-success" />--%>
-                                <%--<asp:Button ID="BtnDescontabilizar" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la poliza?" data-btn-ok-label="si" Text="Descontabilizar" runat="server" OnClick="BtnDescontabilizar_Click" CssClass="btn btn-default" Style="margin-left: 20px;" Visible="false" />--%>
-                            </td>
-                        </tr>
+                        </tr>                        
                         <tr align="left">
                             <td><b>Se timbró:</b>&nbsp;</td>
                             <td>

Ventas/Ventas.aspx.vb

@@ -3293,7 +3293,7 @@ Partial Class Ventas
 
             CargaFormatoSucursal()
 
-            InicializaDevolucionAlmacen()
+            'InicializaDevolucionAlmacen()
             'CargaOtrosConceptos()
             CargaFacturaOC()
 
@@ -5826,30 +5826,6 @@ Partial Class Ventas
                     End If
                     IdPoliza = DbRowVenta("IdPoliza").ToString().ToEntero()
 
-                    'Carga si es Contabilizada
-                    If IdPoliza > 0 Then
-                        HLContabilizada.Text = "Si"
-                        HLContabilizada.NavigateUrl = $"/Contabilidad/RegPoliza.aspx?IdPoliza={DbRowVenta("IdPoliza")}"
-                        trContabilizada.Visible = True
-                        If UsuarioActual.TienePermisoProceso(107) Then BtnDescontabilizar.Visible = True
-
-                    Else
-                        'cuando no este contabilizada y usa AC, habilita el boton para generar la poliza
-                        If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.CveRol = 1 Then
-                            BtnGenerarPoliza.Visible = True
-                        End If
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
-                            BtnContabilizar.Visible = True
-                        End If
-                    End If
-
-                    If DbRowVenta("IdPolizaCancelacion").ToString().ToEntero() > 0 Then
-                        HPLContaCancelacion.Text = "Cancelación"
-                        HPLContaCancelacion.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", DbRowVenta("IdPolizaCancelacion"))
-                        trContabilizada.Visible = True
-                    End If
-
-
                     If UsuarioActual.Empresa.UsaOS AndAlso DbRowVenta("CveOS").ToString().ToEntero() = 0 Then
                         BtnGenerarOS.Visible = True
                         BtnGenerarOS.OnClientClick = String.Format("javascriptwindow.location.href = '/OS/OrdenesServicios.aspx?CveVenta={0}'; return false;", CveVenta)
@@ -7297,7 +7273,8 @@ Partial Class Ventas
 
                 CargarAlmacenes()
 
-                CargaDocumentacionCliente()
+                'RMF. 2024.12.07, verificar cuando se debe de cargar.
+                'CargaDocumentacionCliente()
 
                 If UsuarioActual.CveEmpresa.Contiene(72, 80, 1, 119) Then
                     BtnEmitirImprimir.OnClientClick = $"ValidaGuardar({ If(ImprimeNombreSucursal = True, 1, 0)});"
@@ -21752,9 +21729,9 @@ Partial Class Ventas
         If DdlTipoComprobante.SelectedValue = "Cot" AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             HLCargaCotizaciones.Visible = True
             HlAgregarExcel.Visible = False
-        Else
-            HLCargaCotizaciones.Visible = False
-            HlAgregarExcel.Visible = True
+            'Else
+            '    HLCargaCotizaciones.Visible = False
+            '    HlAgregarExcel.Visible = True
         End If
 
         Dim PuedeVerCosto As Boolean = UsuarioActual.TienePermisoProceso(201) OrElse UsuarioActual.TienePermisoProceso(385)
@@ -23636,36 +23613,7 @@ Partial Class Ventas
         RegistraScript("$('#DivMotivoRefacturacion').modal({ backdrop: 'static', keyboard: false });", "R1")
         'CancelarDocumento(True)
     End Sub
-    Private Sub BtnContabilizar_Click(sender As Object, e As System.EventArgs) Handles BtnContabilizar.Click
-        'Dim ObjMov As New ClsContabilidad
-        'Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
 
-
-        'If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, 2) Then
-        '    Alert(alertaContabilizacion & ObjMov.AlertaMensaje, ModExtensiones.TipoMensaje.MsgInformacion)
-        'Else
-        '    Alert(String.Format("Ocurrio un error al contabilizar {0}", ObjMov.AlertaMensaje))
-        'End If
-
-        'ObjMov.Dispose()
-
-    End Sub
-    Protected Sub BtnDescontabilizar_Click(sender As Object, e As EventArgs)
-        'Alert("Hola entre", TipoMensaje.MsgError)
-        'Exit Sub
-
-        Dim ObjConta As New ClsContabilidad
-        Dim Movimientos As Integer = ObjConta.GetMovimientosPoliza(IdPoliza, UsuarioActual.CveEmpresa)
-
-        'Verifica que solo exista 1 compra asociada
-        If Movimientos = 1 Then
-            EliminaPoliza()
-        Else
-            RegistraScript("ConfirmEliminarPolizaMultiple();")
-        End If
-
-        ObjConta.Dispose()
-    End Sub
     Private Sub BtnMateriales_Click(sender As Object, e As EventArgs) Handles BtnMateriales.Click
         Dim OS As New ClsOS
         Dim DtDetalle As DataTable = Nothing
@@ -25468,7 +25416,9 @@ Partial Class Ventas
         '    Exit Sub
         'End If
 
-        If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = NowADS().Month And TxtFecha.Text.ToDate.Year = NowADS().Year)) Then
+        If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse
+                                     DdlTipoComprobante.SelectedValue = "Dev" OrElse
+                                     (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = NowADS().Month And TxtFecha.Text.ToDate.Year = NowADS().Year)) Then
 
             If Not DevolucionAlmacen = 2 Then
                 'If UsuarioActual.Empresa.Funcionalidad(555) = "1" Then
@@ -28355,7 +28305,7 @@ Partial Class Ventas
         Dim TipoDocumento As Integer = If(CveVenta <= 0, 14, -1)
 
         If CveVenta <= 0 AndAlso TempCliente <= 0 Then
-            Dim a As String = "carga de docuemntacion del cleinte, masivo, corregir"
+            Dim a As String = "carga de documentacion del cliente, masivo, corregir"
             a.GuardaLog()
         End If
 
@@ -28392,7 +28342,6 @@ Partial Class Ventas
         UpModalButtonUploadDocumentoCliente.Update()
         RegistraScript("$('#DivDocsClienteUpload').modal({ backdrop: 'static',  keyboard: false});")
 
-
     End Sub
 
     Protected Sub BtnModalClienteDocumentoUpload_Click(sender As Object, e As EventArgs) Handles BtnModalClienteDocumentoUpload.Click