-- cambios

Ventas/Ventas.aspx

@@ -234,8 +234,7 @@
 
             <%--INICIA: CANCELAR - NC - DEVOLUCION [NEW]--%>
             <li>
-                <asp:LinkButton ID="LBNotaCredito" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar Nota de Crédito"
+                <asp:LinkButton ID="LBNotaCredito" runat="server" OnClick="LBNotaCredito_Click" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar Nota de Crédito" Visible="false" />
-                    data-toggle="modal" data-target="#ModalAplicarNC" Visible="false" />
             </li>
             <li>
                 <asp:LinkButton ID="LnkAplicarRNCDevolucion" runat="server" Visible="false" CausesValidation="False" Text="<i class='fa fa-pencil'></i> Aplicar RNC por devolución"
@@ -1103,7 +1102,7 @@
                                                 </th>
                                                 <th id="ThCantidadFacturada2" runat="server" visible="false"></th>
                                                 <th id="ThCantidadFacturadaRem2" runat="server" visible="false"></th>
-                                                <th>
+                                                 <th id="ThProyecto2" runat="server">
                                                     <asp:UpdatePanel ID="UPPProy" runat="server" UpdateMode="Conditional">
                                                         <ContentTemplate>
                                                             <asp:DropDownList ID="DdlProyecto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
@@ -4007,8 +4006,8 @@
         </div>
 
 
-        <div class="col-md-3">
+        <div class="col-md-4">
-            <asp:UpdatePanel ID="UPObservaciones" runat="server" class="portlet light xspadding bordered " align="center" style="width: 300px;" UpdateMode="Conditional">
+            <asp:UpdatePanel ID="UPObservaciones" runat="server" class="portlet light xspadding bordered " align="center" style="min-width: 300px;" UpdateMode="Conditional">
                 <ContentTemplate>
                     <div class="portlet-title">
                         <div class="caption font-green">
@@ -4024,13 +4023,13 @@
                         </div>
                     </div>
                     <div class="portlet-body formnombottom">
-                        <table border="0" width="250px">
+                        <table border="0" width="100%">
                             <tr align="left">
                                 <td id="TrObsGenerales" runat="server">Observaciones Generales:&nbsp;</td>
                             </tr>
                             <tr align="left">
                                 <td>
-                                    <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="100%" MaxLength="800" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
                             <tr id="TrOC" runat="server">
                                 <td>Orden de Compra: &nbsp;
@@ -4053,7 +4052,7 @@
                             </tr>
                             <tr align="left" id="TrTxtObsAlmacen" runat="server">
                                 <td>
-                                    <asp:TextBox ID="TxtObsAlmacen" runat="server" Rows="2" TextMode="MultiLine" Width="250px" CssClass="form-control input-sm"></asp:TextBox></td>
+                                    <asp:TextBox ID="TxtObsAlmacen" runat="server" Rows="2" TextMode="MultiLine" Width="100%" CssClass="form-control input-sm"></asp:TextBox></td>
                             </tr>
                             <tr align="left" id="TrKilometraje" runat="server" visible="false">
                                 <td>Kilometraje&nbsp;                                        
@@ -4130,10 +4129,10 @@
             </asp:UpdatePanel>
         </div>
 
-        <div class="col-md-4" align="right">
+        <div class="col-md-3" align="right">
             <div class="row">
                 <div class="col-md-12" align="right" style="padding-bottom: 15px;">
-                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style="width: 300px;" align="right" UpdateMode="Conditional">
+                    <asp:UpdatePanel ID="UpFacturar" runat="server" class="portlet light xspadding bordered " style=" max-width: 300px;" align="right" UpdateMode="Conditional">
                         <Triggers>
                             <asp:PostBackTrigger ControlID="BtnVistaPrevia" />
                         </Triggers>
@@ -4208,58 +4207,18 @@
                                             <asp:Button ID="BtnCrearApartirDe" runat="server" Text="Crear a partir de" CssClass="btn myventasbutton btn-primary" Visible="false" />
 
                                             <asp:Button ID="BtnEditar" runat="server" Text="Editar" CssClass="btn myventasbutton btn-primary" Visible="false" />
-
+                                            
+                                                <asp:LinkButton ID="BtnAdjuntar" runat="server" Visible="false" Text="<i class='fa-upload fa' style=' color: white;'></i>  Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
+                                                <asp:LinkButton ID="BtnArchivoAdjunto" runat="server"  Visible="false" Text="" Font-Size="14px" />
+                                                <asp:LinkButton ID="BtnEliminarAdjunto" runat="server"  Visible="false" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si"  />
+                                                   
                                         </td>
                                     </tr>
                                 </table>
                             </div>
                         </ContentTemplate>
                     </asp:UpdatePanel>
-                </div>
+                </div>               
-                <br />
-                <div class="col-md-12" align="right" runat="server" id="DivAdjuntar">
-                    <asp:UpdatePanel ID="UpAdjuntar" runat="server" class="portlet light xspadding bordered " style="width: 300px;" align="right" UpdateMode="Conditional">
-                        <ContentTemplate>
-
-                            <div class="portlet-title">
-                                <div class="caption font-green">
-                                    <i class="icon-pin font-green"></i>
-                                    <span class="caption-subject bold uppercase">Adjuntos </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" style="text-align: center; width: 100%;">
-
-                                    <tr runat="server" id="Tr3">
-                                        <td align="center" style="" runat="server" id="tdAdjuntar">
-                                            <asp:LinkButton ID="BtnAdjuntar" runat="server" Text="Adjuntar" data-toggle="modal" data-target="#ModalAdjuntar" CssClass="btn myventasbutton btn-primary" />
-                                        </td>
-                                        <td align="left" style="display: none;" runat="server" id="tdAdjunto">
-                                            <div class="col-md-6">
-                                                <asp:LinkButton ID="BtnArchivoAdjunto" runat="server" Text="" Font-Size="14px" />
-                                            </div>
-                                            <div class="col-md-6" style="text-align: right;">
-                                                <asp:LinkButton ID="BtnEliminarAdjunto" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" Visible="false" />
-                                            </div>
-                                        </td>
-                                    </tr>
-                                </table>
-                            </div>
-                        </ContentTemplate>
-                        <Triggers>
-                            <asp:PostBackTrigger ControlID="BtnArchivoAdjunto" />
-                        </Triggers>
-
-                    </asp:UpdatePanel>
-                </div>
-
             </div>
         </div>
     </div>

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"
+        Dim FolioNuevo As String = TxtFolio.Text
-                    tdAdjunto.Style.Item("display") = "none"
+        If FolioNuevo <> FolioOriginal Then
-                Else
+            If Adjunto <> "" Then
-                    DivAdjuntar.Visible = True
+                Adjunto = ""
-                End If
+                BtnArchivoAdjunto.Text = ""
-            Else
+                BtnArchivoAdjunto.Visible = False
-                DivAdjuntar.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