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

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -24,7 +24,7 @@
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD" 
-                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA" AutoGenerateColumns="False" 
+                DataKeyNames="CveCuentaAsignacion,CveConceptoContable,CveCuenta,IdCuenta,CveProveedor,CveCliente,CvePersonal,CveClasificacion,CveAlmacen,PorcentajeIVA,CveConceptoNomina" AutoGenerateColumns="False" 
                 Style="margin-top: -10px; text-align: center;width:100%" GridLines="None">
                 <Columns>
                     <asp:BoundField DataField="ConceptoContable" HeaderText="Concepto Contable" ItemStyle-HorizontalAlign="Left"/>
@@ -106,6 +106,10 @@
                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtPorcentajeIVA" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨PorcentajeIVA''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
                                             <label for="<%= TxtPorcentajeIVA.ClientID.ToString()%>">PorcentajeIVA:</label>
                                         </div>
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlConceptoNomina" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
+                                            <label for="<%= DdlConceptoNomina.ClientID.ToString()%>">Concepto nómina: </label>
+                                        </div>
                                     </div>
                                 </div>
                             </div>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -31,6 +31,9 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Private Sub CargaDatosModal()
+
+        DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
+        DdlConceptoNomina.DataBind()
         Dim ObjConta As New ClsContabilidad
 
         If ObjConta.GetConta_ConceptosContables() Then
@@ -60,6 +63,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlClasificacion.DataBind()
         DdlAlmacen.DataBind()
 
+        DdlConceptoNomina.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCconceptosContables.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -72,6 +76,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
         DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
         DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
+        DdlConceptoNomina.SelectedValue = GvRow.DataKey("CveConceptoNomina").ToEntero
         DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
         DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
         DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
@@ -123,6 +128,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlProveedor.SelectedValue = -1
         DdlClasificacion.SelectedValue = -1
         DdlAlmacen.SelectedValue = -1
+        DdlConceptoNomina.SelectedValue = -1
         TxtIdCuentaContable.Text = ""
         TxtPorcentajeIVA.Text = ""
         DdlClientes.ddl.DataSource = ""
@@ -143,13 +149,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Agregar"
+                ErrorString = "Error al agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
             If Not ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
                                                DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
                                                DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal) Then
-                ErrorString = "Error al Actualizar"
+                ErrorString = "Error al actualizar"
             End If
         End If
         ObjConta.Dispose()

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -270,19 +270,19 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
         End If
     End Sub
 
-    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
-        If Not IsNothing(DtDatos) Then
-            ImprimirReporte()
-        End If
-    End Sub
+    'Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
+    '    If Not IsNothing(DtDatos) Then
+    '        ImprimirReporte()
+    '    End If
+    'End Sub
 
-    Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
-        If Not IsNothing(DtDatos) Then
-            ImprimirReporte("Excel")
-            'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
-            'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
-        End If
-    End Sub
+    'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
+    '    If Not IsNothing(DtDatos) Then
+    '        ImprimirReporte("Excel")
+    '        'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+    '        'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
+    '    End If
+    'End Sub
     Private Sub ImprimirReporte(Optional Formato As String = "PDF")
         'ubicacion del rdlc
         Dim reportpath As String = "Contabilidad/Reportes/RepAnexoCatalogo.rdlc"

Contabilidad2/RepAnexoCatalogoVertical.aspx.vb

@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12) Then
+        If Conta.GetAnexoCatalagoCC(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, 12, UsuarioActual.CveUsuario) Then
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvCC.DataSource = Conta.DSResultados.Tables(1)