diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index f89194e4b..6a57ffc44 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -234,8 +234,7 @@ <%--INICIA: CANCELAR - NC - DEVOLUCION [NEW]--%>
  • - +
  • - + @@ -4007,8 +4006,8 @@ -
    - +
    +
    @@ -4024,13 +4023,13 @@
    - +
    + +
    Observaciones Generales: 
    -
    Orden de Compra:   @@ -4053,7 +4052,7 @@
    -
    Kilometraje  @@ -4130,10 +4129,10 @@ -
    +
    - + @@ -4208,58 +4207,18 @@ - + + + + +
    -
    -
    -
    - - - -
    -
    - - Adjuntos -
    -
    -
    -
    -
    -
    - -
    -
    -
    - - - - - - -
    - -
    -
    -     - - - - -     -
    - +
    diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 747a7d7e9..06b52e552 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -23,6 +23,7 @@ Partial Class Ventas Dim ColumnaDescuento As Integer = 10 Dim ColumnaPredial As Integer = 11 + Dim ColumnaSubProyecto As Integer = 8 Dim ColumnaIVA As Integer = 12 Dim ColumnaIEPS As Integer = 13 Dim ColumnaRetIVA As Integer = 14 @@ -2293,31 +2294,6 @@ Partial Class Ventas End Property #End Region - '#Region "AuxiliarConta" - ' Property CvePrePolizaNegativa As Integer - ' Get - ' If ViewState("CvePrePolizaNegativa") Is Nothing Then - ' Return -1 - ' Else - ' Return ViewState("CvePrePolizaNegativa").ToString.ToEntero - ' End If - - ' End Get - ' Set(value As Integer) - ' ViewState("CvePrePolizaNegativa") = value - ' End Set - ' End Property - - ' Private Property DTDatos As DataTable - ' Get - ' Return CType(ViewState("DTDatos"), DataTable) - ' End Get - ' Set(value As DataTable) - ' ViewState("DTDatos") = value - ' End Set - ' End Property - '#End Region - #Region " A C U M U L A D O R E S" Private Property ClienteEsDistribuidor As Boolean @@ -2477,9 +2453,16 @@ Partial Class Ventas DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Autorización", "PA")) End If - If Not UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If Not (UsuarioActual.Empresa.Funcionalidad(558) = "1") Then ' LnkAgregarCliente.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + LnkAgregarCliente.Visible = True + 'ocultar la columna de subproyecto + GvPS.Columns(ColumnaSubProyecto).Visible = False + ThProyecto.Visible = False + ThProyecto2.Visible = False + End If DdlTipoComprobante.Items.Insert(DdlTipoComprobante.Items.Count, New ListItem("Pedido", "Ped")) @@ -2600,12 +2583,10 @@ Partial Class Ventas CargaMonedas() CargaVendedores() CargarAlmacenes() - CargaFormaEntrega() + 'CargaFormaEntrega() CargaCuentasTerminal() - CargaDdlNCPS() + 'CargaDdlNCPS() CargarCamiones() - - CargaMedicos() CargaProcedimientos() CargaDdlClientes() @@ -2775,17 +2756,9 @@ Partial Class Ventas ImgAddObs.Visible = True CargaEventoBitacora() - ConfiguraTipoDocto() - TrFolioFiscal.Visible = True - ' Si esta cancelado el compromiso/Pedido no se puede editar el estatus - 'If DdlEstatus.SelectedValue.Contiene({"9", "14", "17"}) Then - ' DdlEstatus.Enabled = False - 'End If - - 'CargaDetalle de Almacen 'PERMISO PARA CANCELAR PEDIDO If GvInv.Rows.Count = 0 Then If DdlTipoComprobante.SelectedValue.Contiene("Ped") And Not CveEstatus = 14 Then @@ -2809,16 +2782,6 @@ Partial Class Ventas LnkImprimirFormatoTelcel.Visible = True End If - 'If UsuarioActual.TienePermisoProceso(269) AndAlso Not DevolucionAlmacen = 2 Then - ' Dim ObjInventario As New ClsInventarios - ' If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then - ' If ObjInventario.DtResultados.Rows.Count > 0 Then - ' DivDevAlm.Visible = True - ' End If - ' End If - ' ObjInventario.Dispose() - 'End If - If DdlTipoComprobante.SelectedValue = "Ing" Then CargaVentaCortePorte(Me.CveVenta) End If @@ -3026,6 +2989,7 @@ Partial Class Ventas CveEstatus = 2 End If End If + BtnAdjuntar.Visible = True End If End If @@ -3212,7 +3176,7 @@ Partial Class Ventas TabDetalleVentas.Visible = False 'TabE.Visible = False LnkOCs.Visible = False - GvPS.Columns(8).Visible = False + GvPS.Columns(ColumnaSubProyecto).Visible = False DdlSubProyecto.Visible = False TrEdit.Visible = True @@ -3236,7 +3200,6 @@ Partial Class Ventas ThProyecto.Visible = False For Each Gvr As GridViewRow In GvPS.Rows Gvr.FCLinkButton("imgE").Visible = False - Gvr.FCLinkButton("imgEPyME").Visible = True Next LnkAddVenta.Visible = True End If @@ -4753,12 +4716,6 @@ Partial Class Ventas BtnArchivoAdjunto.Visible = True BtnEliminarAdjunto.Visible = False BtnAdjuntar.Visible = False - - tdAdjuntar.Style.Item("display") = "none" - tdAdjunto.Style.Item("display") = "block" - - Else - DivAdjuntar.Visible = False End If ViewState("CveSubProyectoVenta") = DbRowVenta("CveSubProyecto").ToString().ToEntero() @@ -7806,19 +7763,19 @@ Partial Class Ventas End Sub Private Sub CargaProcedimientos() - DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlMedico.DataBind() - - DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") - DdlMedicoModal.DataBind() - End Sub - - Private Sub CargaMedicos() DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlProcedimiento.DataBind() DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlProcedimientoModal.DataBind() + End Sub + + Private Sub CargaMedicos() + DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedico.DataBind() + + DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedicoModal.DataBind() End Sub @@ -7954,7 +7911,7 @@ Partial Class Ventas Dim CveSATNC As String = "84111506" Dim dtt As New DataTable - dtt = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC + dtt = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CodigoSATPS:=CveSATNC, AplicaParaVenta:=1) ', SATClavePS:=CveSATNC If dtt IsNot Nothing Then DdlNCPS.DataSource = dtt @@ -15177,21 +15134,27 @@ Partial Class Ventas If ObjInventario.GetMovimientosDetalle(CveMovimientoInventario, UsuarioActual.CveEmpresa) Then DtCostos = ObjInventario.DtResultados TotalCosto = DtCostos.SUMD("Total").RoundSQL - Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion"}) + 'Dim tmpCostos As DataTable = DtCostos.FiltraParametros("", "", {"CveClasificacion", "CveSubProyecto", "SubProyecto"}) + Dim GroupBycostos As String() = {"CveClasificacion", "CveSubProyecto", "SubProyecto"} + Dim tmpCostos As DataTable = DtCostos.GroupByDT("", "", {GroupBycostos}, SumColumns:={"Total"}).FiltraParametros("GroupADSType = 1") + If tmpCostos.Rows.Count > 0 Then Dim TotalCostoAcumulado As Decimal = 0 Dim cont As Integer = 1 + Dim tCveSubProyecto As Integer = factura.CveSubProyecto 'Se agrega movimiento separado por la cuenta de ventas (ER) For Each RowInv As DataRow In tmpCostos.Rows - ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL + ValorInventario = RowInv("Total").ToString.ToDecimal.RoundSQL + 'ValorInventario =tmpCostos.SUMD("") 'DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL TotalCostoAcumulado += ValorInventario + If UsuarioActual.CveEmpresa <> 119 Then tCveSubProyecto = RowInv("CveSubProyecto").ToString.ToEntero() 'cuando es el último movimiento y hay diferencias en los importes If cont = tmpCostos.Rows.Count AndAlso TotalCosto <> TotalCostoAcumulado Then ValorInventario = ValorInventario + (TotalCosto - TotalCostoAcumulado) End If - If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, factura.SerieFolio, factura.SerieFolio, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=factura.CveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString().ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario) Then + If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto69, ValorInventario, ValorInventario, 69, factura.SerieFolio, factura.SerieFolio, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero(), CveMovimientoAlmacen:=CveMovimientoInventario) Then OcurrioError = True End If @@ -26938,11 +26901,6 @@ Partial Class Ventas LnkAplicarRNCDevolucion.Visible = True End If 'LkNotaCredito.Visible = False - DivGvCxC.Visible = True - CargaCxC() - 'CARGAR RNC - RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty) - TxtNCPorcentaje.Attributes.Add("onkeyup", "CalculaImporteNCMasivo();") TxtNCImporte.Text = "0.00" TxtNCImporte.Enabled = False @@ -26964,6 +26922,7 @@ Partial Class Ventas End If ObjMovtos.Dispose() GvCxC.DataBind() + UpAplicarNC.Update() End Sub Protected Sub RblRNCTipo_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -31984,27 +31943,16 @@ Partial Class Ventas HabilitarControlesCartaPorte(True) End If - If DivAdjuntar.Visible Then - Dim FolioNuevo As String = TxtFolio.Text - If FolioNuevo <> FolioOriginal Then - If Adjunto <> "" Then - Adjunto = "" - BtnArchivoAdjunto.Text = "" - BtnArchivoAdjunto.Visible = False - BtnEliminarAdjunto.Visible = False - BtnAdjuntar.Visible = True - tdAdjuntar.Style.Item("display") = "block" - tdAdjunto.Style.Item("display") = "none" - Else - DivAdjuntar.Visible = True - End If - Else - DivAdjuntar.Visible = False + Dim FolioNuevo As String = TxtFolio.Text + If FolioNuevo <> FolioOriginal Then + If Adjunto <> "" Then + Adjunto = "" + BtnArchivoAdjunto.Text = "" + BtnArchivoAdjunto.Visible = False + BtnEliminarAdjunto.Visible = False + BtnAdjuntar.Visible = True End If - UpAdjuntar.Update() - Else - DivAdjuntar.Visible = True End If 'REMOVER EVENTO PARA RECARGAR ALMACEN @@ -32836,10 +32784,10 @@ Partial Class Ventas Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) If ArrayNC.Length >= 4 Then Dim CvePSNC As Integer = ArrayNC(3).ToEntero() - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("") + DrPS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("") Else Dim CveSATNC As String = "84111506" - DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0) + DrPS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CodigoSATPS:=CveSATNC, AplicaParaVenta:=1).Rows(0) End If If DrPS Is Nothing Then @@ -34408,9 +34356,6 @@ Partial Class Ventas BtnArchivoAdjunto.Text = Adjunto BtnArchivoAdjunto.Visible = True BtnEliminarAdjunto.Visible = True - tdAdjuntar.Style.Item("display") = "none" - tdAdjunto.Style.Item("display") = "block" - UpAdjuntar.Update() Alert("Documento cargado", TipoMensaje.MsgInformacion) objVentas.Dispose() @@ -34462,12 +34407,9 @@ Partial Class Ventas File.Delete(Path) End If BtnAdjuntar.Visible = True - tdAdjuntar.Style.Item("display") = "block" BtnArchivoAdjunto.Text = "" BtnArchivoAdjunto.Visible = False - tdAdjunto.Style.Item("display") = "none" BtnEliminarAdjunto.Visible = False - UpAdjuntar.Update() End Sub Protected Sub LnkSolicitarCredito_Click(sender As Object, e As EventArgs) Handles LnkSolicitarCredito.Click If CveCliente <= 0 Then @@ -36256,7 +36198,13 @@ Partial Class Ventas 'End Sub - - + Protected Sub LBNotaCredito_Click(sender As Object, e As EventArgs) + CargaDdlNCPS() + DivGvCxC.Visible = True + CargaCxC() + 'CARGAR RNC + RblRNCTipo_SelectedIndexChanged(RblRNCTipo, EventArgs.Empty) + RegistraScript("$('#ModalAplicarNC').modal('show');", "ModalNC") + End Sub End Class