AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cuentas asignaciones, cambios en globalDT

Browse Source
This commit is contained in:
rrene
2020-07-02 19:51:41 -07:00
parent 7c5014fb16
commit a59dca4cdb
6 changed files with 37 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Contabilidad2/CatCuentasAsignaciones.aspx
View File

@@ -71,8 +71,8 @@
<label for="<%= DdlCconceptosContables.ClientID.ToString()%>">Concepto Contable: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Concepto Contable: </label>
<asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="240px" ValidationGroup="GrpModulo"></asp:DropDownList>
<label for="<%= DdlCuenta.ClientID.ToString()%>">Cuenta Contable: </label>
</div>
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtIdCuentaContable" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" style="width:100%"></asp:TextBox>
@@ -112,6 +112,7 @@
<div class="modal-footer">
<asp:LinkButton ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpModulo" />
<button id="BtnCancelarProyecto" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
<asp:CheckBox ID="ChkSeguirRegistrando" Checked="true" Text="Seguir Registrando" runat="server" />
</div>
</ContentTemplate>
</asp:UpdatePanel>

27
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -32,10 +32,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Private Sub CargaDatosModal()
Dim ObjConta As New ClsContabilidad
Dim ObjProveedores As New ClsCompProveedores
Dim ObjRH As New ClsRH
Dim ObjClasificaciones As New ClsClasificaciones
Dim ObjInv As New ClsInventarios
If ObjConta.GetConta_ConceptosContables() Then
DdlCconceptosContables.DataSource = ObjConta.DtResultados
@@ -45,31 +41,17 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlCuenta.DataSource = ObjConta.DtResultados
End If
If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlClientes.setEsWebService(True)
DdlPersonal.setEsWebService(True)
'If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
' DdlPersonal.DataSource = ObjRH.DtResultados
'End If
If ObjClasificaciones.GetClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa) Then
DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
End If
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
If ObjInv.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
DdlAlmacen.DataSource = ObjInv.DtResultados
End If
DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
ObjConta.Dispose()
ObjProveedores.Dispose()
ObjRH.Dispose()
ObjClasificaciones.Dispose()
ObjInv.Dispose()
DdlCconceptosContables.DataBind()
DdlCuenta.DataBind()
@@ -171,7 +153,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End If
End If
ObjConta.Dispose()
RegistraScript("$('#ModalCat').modal('hide');")
If Not ChkSeguirRegistrando.Checked Then RegistraScript("$('#ModalCat').modal('hide');")
If ErrorString.Length > 0 Then
Alert(ErrorString)
Else