From be0114609fea8d1cdf8f0dcf9096e6e67d479160 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 20 Dec 2023 18:28:50 -0700 Subject: [PATCH] -- globaldt ventas complementocfdi --ventas, klimpieza de propiedades --- App_Code/ClsPaginas.vb | 16 +++++ Ventas/Ventas.aspx | 33 ++++----- Ventas/Ventas.aspx.vb | 150 +++++++++++++++++++---------------------- 3 files changed, 99 insertions(+), 100 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 156d4f212..8f1a42729 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -2502,6 +2502,22 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property + + Public Shared Property GlobalDTVtaComplementoCFDI() As DataTable + Get + Dim AppNombre As String = "GlobalDTVtaComplementoCFDI" + If DirectCast(HttpContext.Current.Application(AppNombre), DataTable) Is Nothing Then + Dim ObjVentas As New ClsVentas + If ObjVentas.GetVentaComplementos() Then HttpContext.Current.Application(AppNombre) = ObjVentas.DtResultados + ObjVentas.Dispose() + End If + GlobalDTVtaComplementoCFDI = DirectCast(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDTVtaComplementoCFDI" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property #Region "***********************************************************************DT EVENTOS****************************************************************************************" Property GlobalDTTiposEventos() As DataTable Get diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 38e80a887..1212cac5d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -2391,42 +2391,35 @@
+ Emitir: +
- -
- -
- -
-
-
-
+ +
-
-
-
+
+
-
-
-
+
+
-
    +
    • @@ -2436,7 +2429,7 @@
      -
        +
        • @@ -2444,8 +2437,7 @@
      -
-
+
@@ -3498,6 +3490,9 @@ + + Contabilidad + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f3f3c291f..e9f137ff9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -64,23 +64,6 @@ Partial Class Ventas Return CBool(ViewState("ExFolioFactura")) End Get End Property - Private Property CveFactura As Integer - Get - Return ViewState("CveFactura").ToString().ToEntero() - End Get - Set(value As Integer) - ViewState("CveFactura") = value - End Set - End Property - - Private Property CuentasContablesInvalidas As StringBuilder - Get - Return CType(ViewState("CuentasContablesInvalidas"), StringBuilder) - End Get - Set(value As StringBuilder) - ViewState("CuentasContablesInvalidas") = value - End Set - End Property 'Local Private Property DtPorcentajeMarcas As DataTable @@ -625,14 +608,7 @@ Partial Class Ventas ViewState("CveEstatusFacturaPadre") = value End Set End Property - Private Property CveMovimientoDetalle As Integer - Get - Return If(IsNothing(ViewState("CveMovimientoDetalle")), -1, ViewState("CveMovimientoDetalle").ToString().ToEntero()) - End Get - Set(value As Integer) - ViewState("CveMovimientoDetalle") = value - End Set - End Property + Private ReadOnly Property CveDevolucion As Integer Get Return ViewState("CveDevolucion").ToString().ToEntero() @@ -680,16 +656,7 @@ Partial Class Ventas Return ViewState("VentaFolio").ToString() End Get End Property - Private ReadOnly Property SelloCancelacion As String - Get - Return ViewState("SelloCancelacion").ToString() - End Get - End Property - Private ReadOnly Property FechaCancelacion As DateTime - Get - Return ViewState("FechaCancelacion").ToString().ToDateTime - End Get - End Property + Private ReadOnly Property EstablecioFolio As Boolean Get Return CBool(ViewState("EstablecioFolio")) @@ -1657,15 +1624,6 @@ Partial Class Ventas End Set End Property - 'Private Property CveMetodoPagoCliente As Integer - ' Get - ' Return ViewState("CveMetodoPagoCliente").ToString().ToEntero() - ' End Get - ' Set(value As Integer) - ' ViewState("CveMetodoPagoCliente") = value - ' End Set - 'End Property - Private Property Modalidad As String Get Return ViewState("Modalidad").ToString() @@ -2388,7 +2346,6 @@ Partial Class Ventas CotizacionesLista = New List(Of Integer) ListaDescuentos = New List(Of Modelos.VentaDescuentos) - CuentasContablesInvalidas = New StringBuilder CvePrePoliza = 0 TotalOtrosConceptos = 0 CveUsuarioActual = UsuarioActual.CveUsuario @@ -2598,7 +2555,7 @@ Partial Class Ventas 'CargaFormaEntrega() CargaCuentasTerminal() 'CargaDdlNCPS() - CargarCamiones() + 'CargarCamiones() If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then CargaMedicos() @@ -2868,11 +2825,8 @@ Partial Class Ventas End If 'regenrea el tipo de cambio CargaNuevaFactura(Nothing) - CambiaMoneda() - - 'NOTA DE CREDITO If NuevaFactura = 2 Then DdlTipoComprobante.Items.Insert(0, New ListItem("Nota de Crédito", "Egs")) @@ -3120,18 +3074,20 @@ Partial Class Ventas '********************************** 'Complementos de Timbrado - Dim ObjVenta As New ClsVentas - If ObjVenta.GetVentaComplementos() Then - RblComplementos.DataSource = ObjVenta.DtResultados - RblComplementos.DataBind() - UpComplementos.Update() - End If - ObjVenta.Dispose() + 'Dim ObjVenta As New ClsVentas + 'If ObjVenta.GetVentaComplementos() Then + ' RblComplementos.DataSource = ObjVenta.DtResultados + ' RblComplementos.DataBind() + ' UpComplementos.Update() + 'End If + 'ObjVenta.Dispose() + RblComplementos.DataSource = GlobalDTVtaComplementoCFDI + RblComplementos.DataBind() CargaFormatoSucursal() InicializaDevolucionAlmacen() - CargaOtrosConceptos() + 'CargaOtrosConceptos() CargaFacturaOC() 'SELECCIONA SUCURSAL DEL USUARIO CUANDO SEA VENTA NUEVA Y SIN CLIENTE @@ -4836,7 +4792,7 @@ Partial Class Ventas HLPagar.NavigateUrl = $"/Bancos/PopIEVentas.aspx?CveVenta={CveVenta}&TB_iframe=true&height=500&width=675" HlCuentaTerminal.Visible = True End If - CargarSaldoAuxiliar(CveCliente) + 'CargarSaldoAuxiliar(CveCliente) TabAuxiliarConta.Visible = UsuarioActual.TienePermisoProceso(306) Dim TienePermiso As String = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, -1).FiltroPrimeroValor("CveSubProyecto", String.Format("CveSubProyecto = {0}", DbRowVenta("CveSubProyecto"))) If TienePermiso <> "" Then ' si tiene acceso en el subproyecto @@ -10097,11 +10053,11 @@ Partial Class Ventas End If End If - If CveFactura > 0 AndAlso ErrorList.Count = 0 Then - If Not ObjVentas.UpdateVentaFacturas(CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then - ErrorList.Add("No se pudo actualizar la Factura") - End If - End If + 'If CveFactura > 0 AndAlso ErrorList.Count = 0 Then + ' If Not ObjVentas.UpdateVentaFacturas(CveFactura, ObjVentas.CveVenta, UsuarioActual.CveEmpresa) Then + ' ErrorList.Add("No se pudo actualizar la Factura") + ' End If + 'End If If CveCicloComercial > 0 AndAlso ErrorList.Count = 0 Then If Not ObjContr.CicloComercialUpdate(CveCicloComercial, True, UsuarioActual.CveEmpresa, CveVenta:=ObjFactura.CveVenta) Then @@ -34659,17 +34615,20 @@ Partial Class Ventas DdlChofer.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) - Using ObjInv As New ClsInventarios + DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa) + DdlUnidadCamion.DataSource = GlobalDTInvCamiones(UsuarioActual.CveEmpresa) - If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then - DdlUnidadCamion.DataSource = ObjInv.DtResultados - End If + 'Using ObjInv As New ClsInventarios - If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then - DdlRemolque1.DataSource = ObjInv.DtResultados - End If + ' If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 1, Estatus:=1) Then + ' DdlUnidadCamion.DataSource = ObjInv.DtResultados + ' End If - End Using + ' If ObjInv.GetCamiones(-1, UsuarioActual.CveEmpresa, 2, Estatus:=1) Then + ' DdlRemolque1.DataSource = ObjInv.DtResultados + ' End If + + 'End Using DdlUnidadCamion.DataBind() DdlUnidadCamion.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) @@ -34807,7 +34766,6 @@ Partial Class Ventas End Sub Private Sub HabilitarControlesCartaPorte(Habilitar As Boolean) - ChkEmitirCartaPorte.Enabled = Habilitar TxtFechaEntregaCP.Enabled = Habilitar TxtFechaLlegadaCP.Enabled = Habilitar DdlChofer.Enabled = Habilitar @@ -35349,6 +35307,9 @@ Partial Class Ventas DdlDireccionDestino.DataSource = TmpDTDireccionCP DdlDireccionDestino.DataBind() + CargarCamiones() + HabilitarControlesCartaPorte(ChkEmitirCartaPorte.Checked) + End Sub 'Protected Sub ChkAgregarFlete_CheckedChanged(sender As Object, e As EventArgs) @@ -35985,12 +35946,30 @@ Partial Class Ventas TxtFechaModal.Text = NowADS.ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T") LnkDvModalTipoVentaAceptar.Visible = True - 'si es A - Vista o ,Fuera De Linea requiere tecnico - If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then - ChkRequiereTecnicoModal.Checked = True - ChkRequiereTecnicoModal.Enabled = False - DvModalRequiereOSFecha.Visible = True - End If + + Select Case RBLTipoVenta.SelectedValue + Case "1" ' Fuera de linea + ChkRequiereTecnicoModal.Checked = True + ChkRequiereTecnicoModal.Enabled = False + DvModalRequiereOSFecha.Visible = True + Case "2" ' Pago Directo + ChkRequiereTecnicoModal.Checked = True + ChkRequiereTecnicoModal.Enabled = False + DvModalRequiereOSFecha.Visible = True + Case "3" 'A-Vista + ChkRequiereTecnicoModal.Checked = False + DvModalTipoVentaPasoRequiereOS.Visible = False + DvModalRequiereOSFecha.Visible = False + DvModalTipoVentaPasoMedicoProcedimiento.Visible = False + DVGvProductosProcedimiento.Visible = False + Case "4" 'Consigna + ChkRequiereTecnicoModal.Checked = False + DvModalTipoVentaPasoRequiereOS.Visible = False + DvModalRequiereOSFecha.Visible = False + DvModalTipoVentaPasoMedicoProcedimiento.Visible = False + DVGvProductosProcedimiento.Visible = False + End Select + End If @@ -36102,7 +36081,7 @@ Partial Class Ventas DdlProcedimiento.SelectedValueExist(DdlProcedimientoModal.SelectedValue) 'si es A - Vista o ,Fuera De Linea requiere tecnico - If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 3) Then + If RBLTipoVenta.SelectedValue.ToEntero.Contiene(1, 2) Then TdFechaOS1.Visible = True TdFechaOS2.Visible = True ChkRequiereTecnico.Checked = True @@ -36279,11 +36258,20 @@ Partial Class Ventas Protected Sub LBNotaCredito_Click(sender As Object, e As EventArgs) CargaDdlNCPS() - DivGvCxC.Visible = True - CargaCxC() + + If CveVenta <= 0 Then 'cuando es nueva la factura + DivGvCxC.Visible = True + CargaCxC() + End If + UpAplicarNC.Update() 'CARGAR RNC RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty) RegistraScript("$('#ModalAplicarNC').modal('show');", "ModalNC") End Sub + + Protected Sub LnkTabContabilidad_Click(sender As Object, e As EventArgs) + Tab.ActiveTabIndex = 6 + CargarSaldoAuxiliar(CveCliente) + End Sub End Class