Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsInventarios.vb

@@ -4663,6 +4663,55 @@ Public Class ClsInventarios
         End Try
         Return Retorno
     End Function
+    Public Function AddProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function GetProductosServiciosAlmacenSeccion(CvePS As Integer, CveAlmacen As Integer, CveAlmacenSeccion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+            .Add("@CveAlmacenSeccion", SqlDbType.Int).Value = CveAlmacenSeccion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function RemoveProductosServiciosAlmacenSeccion(CvePSAlmacenSeccion As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Inv_ProductosServiciosAlmacenSeccionRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePSAlmacenSeccion", SqlDbType.Int).Value = CvePSAlmacenSeccion
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el ps de la seccion de almacen", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
+
 
 
 #End Region

Bancos/IE.aspx

@@ -1,4 +1,4 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="IE.aspx.vb" Inherits="Bancos_IE" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="IE.aspx.vb" Inherits="Bancos_IE" ValidateRequest="false" %>
 
 
 

Compras/Compras.aspx.vb

@@ -1126,9 +1126,9 @@ Partial Class Compras_Compras
                 CveCuentaBancaria = 0
             End If
 
-            If UsuarioActual.TienePermisoProceso(259) Then
+            'If UsuarioActual.TienePermisoProceso(259) Then
-                DivEsNoDeducible.Visible = True
+            DivEsNoDeducible.Visible = True
-            End If
+            'End If
 
             If UsuarioActual.Empresa.Funcionalidad(125) = "1" Then 'Seleccionar a quien se abona la Prepoliza
                 'ddlCargoPrePoliza.Visible = True
@@ -4642,6 +4642,18 @@ Partial Class Compras_Compras
 
                                 If Not ErrorAC Then
 
+
+                                    Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+
+                                    If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                        AutoConta = False
+                                    End If
+
+                                    If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then
+                                        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                                        ObjContaAC.IniciaTransacSQL()
+                                    End If
+
                                     ''EMPIEZA: INSERTA DETALLES DE LA COMPRA
                                     Dim indiceTR = 0
                                     Dim Cont As Integer = 0
@@ -4747,7 +4759,7 @@ Partial Class Compras_Compras
 
                                         'verifica si fue vinculada con una OC, y si fue la opción de entrega por adelantado, que si hubo cambios de precios
                                         If DdlOCVinculaInv.SelectedValue.ToEntero.Contiene(176, 205) Then
-                                            If Not AjustarPrePolizaVinculacionOC(ObjOC, ObjEventos, ObjInventario, ObjConta) Then
+                                            If Not AjustarPrePolizaVinculacionOC(ObjOC, ObjEventos, ObjInventario, ObjConta, ObjContaAC) Then
                                                 ErrorPrepoliza = True
                                             End If
                                         End If
@@ -5218,16 +5230,7 @@ Partial Class Compras_Compras
                                                 IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
                                             End If
 
-                                            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
 
-                                            If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
-                                                AutoConta = False
-                                            End If
-
-                                            If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then
-                                                ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                                                ObjContaAC.IniciaTransacSQL()
-                                            End If
 
                                             '********************** Variables '**********************
 
@@ -6226,31 +6229,31 @@ Partial Class Compras_Compras
                                                                     End If
 
                                                                     Dim ContienePSNeteoBonif As Boolean = False
-                                                                        For Each Dr As DataRow In TmpDT.Rows
+                                                                    For Each Dr As DataRow In TmpDT.Rows
-                                                                            If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                        If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
-                                                                                ContienePSNeteoBonif = True
+                                                                            ContienePSNeteoBonif = True
-                                                                                Exit For
+                                                                            Exit For
-                                                                            End If
+                                                                        End If
-                                                                        Next
+                                                                    Next
 
-                                                                        If ContienePSNeteoBonif Then
+                                                                    If ContienePSNeteoBonif Then
-                                                                            importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
+                                                                        importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
-                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                            Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
+                                                                        Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-                                                                            Else
                                                                                 ErrorPrepoliza = True
                                                                             End If
+                                                                        Else
+                                                                            ErrorPrepoliza = True
                                                                         End If
-
                                                                     End If
 
+                                                                End If
 
 
-                                                                    If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
+
+                                                                If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
                                                                     'GASTO
                                                                     If UsuarioActual.CveEmpresa = 119 Then
                                                                         DT = TmpDT
@@ -18467,7 +18470,7 @@ Partial Class Compras_Compras
 
 #End Region
 
-    Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean
+    Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi) As Boolean
 
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1
@@ -18687,6 +18690,12 @@ Partial Class Compras_Compras
                                     Retorno = False
                                 End If
                             End If
+
+                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ObjAC IsNot Nothing Then
+                                If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+                                    Retorno = False
+                                End If
+                            End If
                         End If
                     End If
                 Next

OC/OC.aspx.vb

@@ -2249,7 +2249,7 @@ Partial Class OC
         Dim ObjConta As New ClsContabilidad(OC.IniciaTransacSQL())
 
         Dim Conta As ClsContPAQi = Nothing
-        If UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto Then
+        If (UsuarioActual.Empresa.UsaAC AndAlso VerificaPresupuesto) Or UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
             Conta = New ClsContPAQi(UsuarioActual.Empresa)
             Conta.IniciaTransacSQL()
         End If
@@ -2647,6 +2647,13 @@ Partial Class OC
                                                 End If
                                             End If
 
+
+                                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso Conta IsNot Nothing Then
+                                                If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=Conta) Then
+                                                    TieneError = False
+                                                End If
+                                            End If
+
                                         End If
                                     End If
                                 Next

Ventas/ProductosServicios.aspx

@@ -140,7 +140,7 @@
                                                 </div>
                                             </div>
                                         </div>
-                                        <div class="row">
+                                        <div class="row DIVTIPO">
                                             <div class="col-md-4">
                                                 <div class="form-group form-md-line-input input-iconright" id="DivDdlTipo" runat="server" visible="false">
                                                     <asp:DropDownList ID="DdlTipoPSDes" CssClass="form-control input-sm select2me " Width="70%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
@@ -201,7 +201,7 @@
                                             </asp:DropDownList>
                                             <label for="<%= DdlUsoClasificacion.ClientID.ToString()%>">Uso Clasificación:</label>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright" id="DivDdlClasificacion" runat="server">
+                                        <div class="form-group form-md-line-input input-iconright DIVCLASIFICACIONCONTABLE" id="DivDdlClasificacion" runat="server">
                                             <asp:DropDownList ID="DdlClasificacion" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlClasificacion_SelectedIndexChanged" AutoPostBack="true" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="350px">
                                             </asp:DropDownList>
                                             <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación Contable:</label>
@@ -209,15 +209,9 @@
                                             <ajax:ValidatorCalloutExtender ID="VCClasificacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVClasificacion" Width="300px"></ajax:ValidatorCalloutExtender>
                                             <i></i>
                                         </div>
-                                       
+
-                                                <div class="form-group form-md-line-input input-iconright" id="DivClasificacionDetalle" runat="server" visible="false">
+
-                                                    <asp:DropDownList ID="DropDownList1" CssClass="form-control input-sm select2me " Width="70%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ClasificacionDetalle" DataValueField="CveClasificacionDetalle" Enabled="true">
+
-                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                    </asp:DropDownList>
-                                                    <label for="<%= DdlTipoPSDes.ClientID.ToString()%>">Tipo:</label>
-                                                    <asp:LinkButton ID="LinkButton1" runat="server" OnClick="BtnAddClasificacionDetalle_Click" CssClass="btn btn-default btn-circle btn-xs " data-toggle="tooltip" title="Registrar un Tipo"><i class='fa fa-plus' style="color:black" ></i></asp:LinkButton>
-                                                </div>
-                                            
                                         <div class="form-group form-md-line-input input-iconright" id="DvTamanio" runat="server" visible="false">
                                             <asp:DropDownList ID="DdlTamanio" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Tamaño" DataValueField="CveTamaño" Width="350px">
                                                 <asp:ListItem Value="-1">Seleccione</asp:ListItem>
@@ -554,10 +548,12 @@
                                             <label class="col-md-4">¿Aplica IEPS?</label>
                                             <div class="col-md-1">
                                                 <asp:CheckBox ID="ChkAplicaIeps" CssClass="" AutoPostBack="true" data-size="small" runat="server" Text=" " /></td>
+                                           
                                             </div>
                                             <label class="col-md-4">¿Graba en IVA?</label>
                                             <div class="col-md-1">
                                                 <asp:CheckBox ID="ChkIepsIVA" CssClass="" Enabled="false" data-size="small" runat="server" Text=" " /></td>
+                                           
                                             </div>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
@@ -721,6 +717,7 @@
 
                                             <div class="col-md-6" style="text-align: left">
                                                 <input id="ChkSeleccionarTodos" type="checkbox" title="Seleccionar Todos" onclick="SeleccionarTodosChkGvSucursa()" />Seleccionar Todos
+                                           
                                             </div>
                                             <div class="col-md-6" style="text-align: right">
                                                 <label>Aplicar precio minimo</label>
@@ -938,8 +935,47 @@
                                         </div>
                                     </div>
                                 </div>
+                                <br />
+                                <div class="row">
+                                    <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
+                                        <ContentTemplate>
+                                            <div class="col-md-12" id="DivSeccionAlmacen" runat="server" visible="false">
+                                                <div class="portlet xspadding light bordered">
+                                                    <div class="portlet-title">
+                                                        <div class="caption font-green">
+                                                            <i class="icon-briefcase font-green"></i>
+                                                            <span class="caption-subject bold uppercase">Secciones de Almacen</span>
+                                                        </div>
+                                                        <div class="actions">
+                                                            <div class="btn-group">
+                                                                <asp:LinkButton ID="LnkSeccionAlmacenAdd" OnClick="LnkSeccionAlmacenAdd_Click" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar Seccion de Almacen" CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                    <div class="portlet-body">
+                                                        <asp:GridView ID="GvSeccionAlmacen" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePSAlmacenSeccion,CvePS,CveAlmacen,CveAlmacenSeccion" EmptyDataText="No se encontraron Productos/Servicios Adicionales" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                                            <Columns>
+                                                                <asp:BoundField DataField="Almacen" HeaderText="Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                                <asp:BoundField DataField="AlmacenSeccion" HeaderText="Sección Almacen" ItemStyle-HorizontalAlign="Left" />
+                                                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Editar">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkEditarSeccionAlmacen" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="LnkEditarSeccionAlmacen_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Eliminar">
+                                                                    <ItemTemplate>
+                                                                        <asp:LinkButton ID="LnkRemoveSeccionAlmacen" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="LnkRemoveSeccionAlmacen_Click" CssClass="btn btn-circle btn-xs red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                                                                    </ItemTemplate>
+                                                                </asp:TemplateField>
+                                                            </Columns>
+                                                        </asp:GridView>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                        </ContentTemplate>
+                                    </asp:UpdatePanel>
+                                </div>
                             </div>
-                        </div>
                     </ContentTemplate>
                 </ajax:TabPanel>
 
@@ -1011,25 +1047,29 @@
                                             <th width="20%">
                                                 <asp:LinkButton ID="LbCaracteristica1" runat="server" CausesValidation="false" Text="" CommandArgument="Caracteristica1;1" OnClick="LbOrden_Click">
                                                     Característica
-                                                                                        <asp:Literal ID="ImgCaracteristica1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                       
+                                                    <asp:Literal ID="ImgCaracteristica1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
                                             <th width="20%">
                                                 <asp:LinkButton ID="LbOpcion1" runat="server" CausesValidation="false" Text="" CommandArgument="Opcion1;1" OnClick="LbOrden_Click">
                                                     Opción
-                                                                                        <asp:Literal ID="ImgOpcion1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                       
+                                                    <asp:Literal ID="ImgOpcion1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
                                             <th width="20%">
                                                 <asp:LinkButton ID="LbFechaIng1" runat="server" CausesValidation="false" Text="" CommandArgument="FechaIng1;1" OnClick="LbOrden_Click">
                                                     Fecha Ing.
-                                                                                        <asp:Literal ID="ImgFechaIng1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                       
+                                                    <asp:Literal ID="ImgFechaIng1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
                                             <th width="20%">
                                                 <asp:LinkButton ID="LbUsuario1" runat="server" CausesValidation="false" Text="" CommandArgument="Usuario1;1" OnClick="LbOrden_Click">
                                                     Usuario
-                                                                                        <asp:Literal ID="ImgUsuario1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
+                                                                                       
+                                                    <asp:Literal ID="ImgUsuario1" runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                                                 </asp:LinkButton>
                                             </th>
 
@@ -1670,6 +1710,7 @@
                                         <div>
                                             <p>
                                                 El producto seleccionado en el recuadro de arriba sera unificado en el producto actual 
+                                               
                                                 <b>
                                                     <asp:Literal Text="" ID="LtProductoUnificar" runat="server" /></b>
                                             </p>
@@ -1901,6 +1942,7 @@
                 <div id="DivTipoCla" runat="server">
                     <p>
                         Tipo de Clasificación:
+                   
                     </p>
                     <asp:RadioButtonList ID="RblTipoClasificación" runat="server" CssClass="rbl" RepeatDirection="Vertical" RepeatLayout="Table">
                         <asp:ListItem Text="Todas" Value="-1" Selected="True"></asp:ListItem>
@@ -1910,6 +1952,7 @@
                     </asp:RadioButtonList>
                     <asp:LinkButton ID="BtnTipoCla" OnClick="BtnTipoCla_Click" runat="server" CssClass="btn btn-success" Text="Aceptar" />
                     &nbsp;
+               
                 </div>
             </ContentTemplate>
         </asp:UpdatePanel>
@@ -1978,6 +2021,46 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+    <%-- MODAL PS ADICIONALES --%>
+    <div id="DivAddSeccionAlmacen" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpModalSeccionAlmacen" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="h4SccionAlmacen">Sección Almacen</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveAlmacen" DataTextField="Almacen"></asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RfvAlmacen" runat="server" ControlToValidate="DdlAlmacen" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpModalSeccionAlmacen"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VceAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacen"></ajax:ValidatorCalloutExtender>
+                            <label for="<%= DdlAlmacen.ClientID.ToString()%>">Almacen:</label>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright">
+                            <asp:DropDownList ID="DdlSeccionAlmacen" Width="50%" runat="server" CssClass="form-control select2me" DataValueField="CveSeccion" DataTextField="Seccion"></asp:DropDownList>
+                            <asp:RequiredFieldValidator ID="RfvSeccionAlmacen" runat="server" ControlToValidate="DdlSeccionAlmacen" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sección Almacen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpModalSeccionAlmacen"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VceSeccionAlmacen" runat="server" HighlightCssClass="vco" TargetControlID="RfvSeccionAlmacen"></ajax:ValidatorCalloutExtender>
+                            <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacen:</label>
+                        </div>
+                        <div class="modal-footer" style="display: block">
+                            <asp:UpdatePanel ID="UpFooterSeccionAlmacen" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnAddSeccionAlmacen" runat="server" OnClick="BtnAddSeccionAlmacen_Click" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpModalSeccionAlmacen"></asp:Button>
+                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
+    <asp:Literal ID="LtlScripts" runat="server"></asp:Literal>
     <%-- FIN MODAL PS ADICIONALES --%>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
@@ -2154,7 +2237,9 @@
 
         var initcarusel2 = initcarusel;
 
-
+        function ADSReady() {
+            setPoscicion();
+        }
         //TERMINA: ECOMMERCE
 
 

Ventas/ProductosServicios.aspx.vb

@@ -97,6 +97,15 @@ Partial Class ProductosyServicios
             ViewState("CvePSAdicional") = value
         End Set
     End Property
+    Public Property DtSeccionAlmacen() As DataTable
+        Get
+            Return CType(ViewState("DtSeccionAlmacen"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtSeccionAlmacen") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -137,6 +146,7 @@ Partial Class ProductosyServicios
 
                 CargarAlias()
                 CargaExistencias()
+                CargaGvSeccionAlmacen()
             Else
                 'Configuración de Modalidad Insert
                 RegistraScript("$('#C_Tab_TabPaquetes_tab').css('display' , 'none')")
@@ -216,7 +226,7 @@ Partial Class ProductosyServicios
                 'DivDatos.Attributes("class") = "col-md-12"
 
                 DivDdlTipo.Visible = True
-                DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
+                'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
 
             End If
 
@@ -235,16 +245,11 @@ Partial Class ProductosyServicios
             If ddlMetodos.SelectedValue.ToEntero = 5 And Not UsuarioActual.TienePermisoProceso(255) Then
                 ddlMetodos.Enabled = False
             End If
+            Dim posiciontipo As String = If(UsuarioActual.Empresa.Funcionalidad(558).ToString = "1", "$('.DIVCLASIFICACIONCONTABLE').after( $('.DIVTIPO') );", "")
 
+            LtlScripts.Text = $"<script>function setPoscicion(){{{posiciontipo}}}</script>"
             If Not CvePS > 0 Then MuestraPanel(True)
 
-
-
-
-
-
-
-
         End If
     End Sub
 
@@ -280,6 +285,11 @@ Partial Class ProductosyServicios
         CargaDdlFraccionArancelaria()
         CveSATPS = -1
 
+        CargaCombosSeccionAlmacen()
+        DivSeccionAlmacen.Visible = UsuarioActual.Empresa.Funcionalidad(563).ToString = "1"
+
+        CreaDtSeccionAlmacen()
+
         If UsuarioActual.Empresa.UsaContabilidad Then
             CargaCuentasContables()
             If Not (Request("CvePS") IsNot Nothing AndAlso IsNumeric(Request("CvePS")) AndAlso Request("CvePS").ToEntero > 0) Then DivUsoClasificacion.Visible = True
@@ -2467,4 +2477,71 @@ Partial Class ProductosyServicios
             DdlCategoriaToxicidad.SelectedValue = "000"
         End If
     End Sub
+
+#Region "SECCION ALMACEN"
+
+    Private Sub CreaDtSeccionAlmacen()
+        DtSeccionAlmacen = New DataTable
+        DtSeccionAlmacen.Columns.Add("CvePSAlmacenSeccion", GetType(Integer))
+        DtSeccionAlmacen.Columns.Add("CvePS", GetType(Integer))
+        DtSeccionAlmacen.Columns.Add("CveAlmacen", GetType(Integer))
+        DtSeccionAlmacen.Columns.Add("Almacen", GetType(String))
+        DtSeccionAlmacen.Columns.Add("CveAlmacenSeccion", GetType(Integer))
+        DtSeccionAlmacen.Columns.Add("AlmacenSeccion", GetType(String))
+    End Sub
+    Private Sub CargaGvSeccionAlmacen()
+        Dim ObjInv As New ClsInventarios
+        If ObjInv.GetProductosServiciosAlmacenSeccion(CvePS, -1, -1) Then
+            GvSeccionAlmacen.DataSource = ObjInv.DtResultados
+            DtSeccionAlmacen = ObjInv.DtResultados
+        End If
+        ObjInv.Dispose()
+        GvSeccionAlmacen.DataBind()
+        UpSeccionAlmacen.Update()
+    End Sub
+
+
+    Private Sub CargaCombosSeccionAlmacen()
+        DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveAlmacen)
+        DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
+        DdlAlmacen.DataBind()
+
+        DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveAlmacen)
+        DdlSeccionAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
+        DdlSeccionAlmacen.DataBind()
+
+    End Sub
+
+    Protected Sub LnkSeccionAlmacenAdd_Click(sender As Object, e As EventArgs)
+        DdlAlmacen.SelectedIndex = 0
+        DdlSeccionAlmacen.SelectedIndex = 0
+        RegistraScript("$('#DivAddSeccionAlmacen').modal();")
+        UpModalSeccionAlmacen.Update()
+    End Sub
+    Protected Sub LnkEditarSeccionAlmacen_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        DdlAlmacen.SelectedValueExist(gvRow.DataKey("CvAlmacen"))
+        DdlSeccionAlmacen.SelectedValueExist(gvRow.DataKey("CveAlmacenSeccion"))
+        RegistraScript("$('#DivAddSeccionAlmacen').modal();")
+        UpModalSeccionAlmacen.Update()
+    End Sub
+    Protected Sub LnkRemoveSeccionAlmacen_Click(sender As Object, e As EventArgs)
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        If gvRow.DataKey("CvePSAlmacenSeccion").ToEntero > 0 Then
+            DtSeccionAlmacen.Rows(gvRow.RowIndex)("CvePS") = -1
+        Else
+            DtSeccionAlmacen.Rows(gvRow.RowIndex.ToEntero).Delete()
+        End If
+        DtSeccionAlmacen.AcceptChanges()
+        GvSeccionAlmacen.DataSource = DtSeccionAlmacen
+        GvSeccionAlmacen.DataBind()
+    End Sub
+
+    Protected Sub BtnAddSeccionAlmacen_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+#End Region
+
+
 End Class

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -132,7 +132,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                         CancelacionFecha = xmlAcuse.SelectSingleNode("Acuse").Attributes["Fecha"].Value.ToDate();
                     }
 
-                    var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC).Mensaje;
+                   // var FueCancelado = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC).Mensaje;
 
                     sb.AppendFormat("{0} <br/>", FueCancelado);
                     if (CveEstatus.Contiene(4, 5) && EsRefacturacion)
@@ -170,12 +170,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 
         return sb.ToString();
     }
-    private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion)
+
-    {
+    //private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion)
-        var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa);
+    //{
-        var retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse);
+    //    //var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa);
-        return retorno;
+    //    //var retorno = factura.EjecutarCancelacionPendiente(CveEstatus, CancelacionFecha, CancelacionAcuse);
-    }
+    //    return retorno;
+    //}
 
     private int GenerarPolizaAC(ClsContPAQi ObjAC, int CveVenta, string Folio, int CveCliente, string TipoComprobante, DateTime Fecha, bool CancelacionIngreso = false)
     {