diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index c62834433..cc89dc837 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -320,8 +320,6 @@ - - <%--
  • Descargar Formato
    • --%> @@ -344,7 +342,7 @@ Generar Orden de Compra - + <%--
  • @@ -357,7 +355,7 @@ - + --%>
  • Fletes @@ -402,19 +400,14 @@
  • Cancelar solo CFDI
    • -
  • Agregar Orden de Servicio
    • - - - + - - <%-- --%> - <%-- --%> +     @@ -951,16 +944,7 @@ - - - Contabilizada: - - - - <%-- --%> - <%----%> - - + Se timbró:  diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index bcd0bf04e..ab91c7372 100644 --- a/Ventas/Ventas.aspx.vb +++ b/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:

    " - - '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