-mejoras

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -143,7 +143,7 @@
                                             <label for="<%= TxtIdCuentaContable.ClientID.ToString()%>">IdCuentaContable:</label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divProveedor" runat="server" visible="false">
-                                            <asp:DropDownList ID="DdlProveedor" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" Enabled="false"></asp:DropDownList>
+                                            <ADS:Dropdownlost ID="DdlProveedor" CssClassDdl="select2me" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" data-metodo="getproveedores" CssStyle="width: 100%;" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="240px" ValidationGroup="GrpModulo" ></ADS:Dropdownlost>
                                             <label for="<%= DdlProveedor.ClientID.ToString()%>">Proveedor: </label>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="divCliente" runat="server" visible="false">

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -26,14 +26,14 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     End Sub
 
-    Private Sub CargaDatos()
-        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
-            GvDatos.DataSource = ObjConta.DtResultados
-        End If
-        ObjConta.Dispose()
-        GvDatos.DataBind()
-    End Sub
+    'Private Sub CargaDatos()
+    '    Dim ObjConta As New ClsContabilidad
+    '    If ObjConta.GetCuentasAsignaciones(UsuarioActual.CveEmpresa) Then
+    '        GvDatos.DataSource = ObjConta.DtResultados
+    '    End If
+    '    ObjConta.Dispose()
+    '    GvDatos.DataBind()
+    'End Sub
 
     Private Sub CargaDatosSistema()
         Dim ObjConta As New ClsContabilidad
@@ -67,8 +67,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCuentaGlobal.DataSource = ObjConta.DtResultados
         End If
         ObjConta.Dispose()
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-
+        DdlProveedor.setEsWebService(True) 'GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+
         DdlClientes.setEsWebService(True)
 
         DdlPersonal.setEsWebService(True)
@@ -102,7 +102,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         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"))
+        'DdlProveedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
@@ -123,7 +123,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
             DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta"))
             DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
-            DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
+            DdlProveedor.ddl.SelectedValueExist(GvRow.DataKey("CveProveedor"))
             DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
             DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen"))
             TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
@@ -151,41 +151,22 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
         If Dr IsNot Nothing Then
 
-            If Dr("AplicaCliente").ToString = "True" Then
-                divCliente.Visible = True
-                DdlClientes.setEsWebService(True)
-            End If
 
-            If Dr("AplicaProveedor").ToString = "True" Then
-                divProveedor.Visible = True
-            End If
+            divCliente.Visible = Dr("AplicaCliente").ToString = "True"
 
-            If Dr("AplicaPersonal").ToString = "True" Then
-                divPersonal.Visible = True
-                DdlPersonal.setEsWebService(True)
+            divProveedor.Visible = Dr("AplicaProveedor").ToString = "True"
 
-            End If
+            divPersonal.Visible = Dr("AplicaPersonal").ToString = "True"
 
-            If Dr("AplicaImpuesto").ToString = "True" Then
-                divPorcentajeIVA.Visible = True
-            End If
+            divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True"
 
+            divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True"
 
-            If Dr("AplicaClasificacion").ToString = "True" Then
-                divClasificacion.Visible = True
-            End If
+            divBancos.Visible = Dr("AplicaBancos").ToString = "True"
 
-            If Dr("AplicaBancos").ToString = "True" Then
-                divBancos.Visible = True
-            End If
+            divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True"
 
-            If Dr("AplicaAlmacen").ToString = "True" Then
-                divAlmacen.Visible = True
-            End If
-
-            If Dr("AplicaSubProyecto").ToString = "True" Then
-                divSubProyectos.Visible = True
-            End If
+            divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True"
 
             If Dr("AplicaActivoFijo").ToString = "True" Then
                 divActivoFijo.Visible = True
@@ -194,9 +175,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
                 ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
             End If
 
-            If Dr("AplicaNomina").ToString = "True" Then
-                divConceptoNomina.Visible = True
-            End If
+            divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
         End If
 
     End Sub