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

Contabilidad2/CatCuentas.aspx

@@ -191,7 +191,7 @@
                         <div class="catcuentas left">
                             <asp:Label runat="server" Text="Porcentaje IVA():"></asp:Label></div>
                         <div class="catcuentas right">
-                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>
+                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
                         </div>
                     </asp:Panel>
                     <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
@@ -205,8 +205,9 @@
                     </asp:Panel>
                     <asp:Panel runat="server" ID="pnlOpcion4" Visible="false" CssClass="form-line">
                         <div class="catcuentas left">
-                            <asp:Label runat="server" Text=" "></asp:Label></div>
+                            <asp:Label runat="server" Text="Cuenta Bancaria "></asp:Label></div>
                         <div class="catcuentas right">
+                            <asp:DropDownList ID="ddlBancos" Width="100%" CssClass="select2me"  DataValueField="CveCuenta" DataTextField="NumCuenta" runat="server"></asp:DropDownList>
                         </div>
                     </asp:Panel>
                     <asp:Panel runat="server" ID="pnlOpcion5" Visible="false" CssClass="form-line">

Contabilidad2/CatCuentas.aspx.vb

@@ -83,6 +83,7 @@ Partial Class Contabilidad2_CatCuentas
             '  If UsuarioActual.Empresa.UsaContabilidad Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             DdlAlmacen.DataBind()
+            DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             CargaMonedas()
             CargaAgrupadorSAT()
             CargaDatos()
@@ -90,6 +91,15 @@ Partial Class Contabilidad2_CatCuentas
                 objconta.GetConta_ConceptosContables(1)
                 DtConceptosconta = objconta.DtResultados
             End Using
+            Using ObjBancos As New ClsBancos
+                If ObjBancos.GetBancosCuentas(-1) Then
+                    ddlBancos.DataSource = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                    ddlBancos.DataBind()
+                    ddlBancos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                End If
+            End Using
+
+
             DdlConcepto.DataSource = DtConceptosconta
             DdlConcepto.DataBind()
             DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -224,7 +234,7 @@ Partial Class Contabilidad2_CatCuentas
                 objconta.GetConta_CuentasDataContabilidad(IDSelected, UsuarioActual.CveEmpresa)
                 If objconta.DtResultados.Rows.Count > 0 Then
                     Dim rowcc As DataRow = objconta.DtResultados.Rows(0)
-
+                    DdlConcepto.SelectedValue = -1
                     DdlConcepto.SelectedValueExist(rowcc("CveConceptoAdmin").ToString().ToEntero())
                     onconceptochange()
                     CveProveedor = rowcc("CveProveedor").ToString().ToEntero()
@@ -238,7 +248,10 @@ Partial Class Contabilidad2_CatCuentas
                     CveClasificacion = rowcc("CveClasificacion").ToString().ToEntero()
                     DdlClasificacion.SelectedValueExist(CveClasificacion)
                     CveBancoCuenta = rowcc("CveBancoCuenta").ToString().ToEntero()
+                    ddlBancos.SelectedValue = -1
+                    ddlBancos.SelectedValueExist(CveBancoCuenta)
                     CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
+                    DdlAlmacen.SelectedValue = -1
                     DdlAlmacen.SelectedValueExist(CveAlmacen)
                 End If
 
@@ -286,7 +299,7 @@ Partial Class Contabilidad2_CatCuentas
         Dim CveCliente As Integer = DdlClientesWS.SelectedValue.ToEntero()
         Dim CveClasificacion As Integer = DdlClasificacion.SelectedValue.ToEntero()
         Dim PorcentajeImpuesto As Decimal = TxtPorcentaje.Text.ToDecimal() / 100
-        Dim CveBancoCuenta As Integer = -1
+        Dim CveBancoCuenta As Integer = ddlBancos.SelectedValue.ToEntero
         Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero()
         If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString,
                                 CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then