From 33a0a717ab3ca884b8434faa3807ef79668eed51 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 30 Mar 2020 09:18:24 -0700 Subject: [PATCH 1/2] Permiso para cancelar traspasos --- Inventarios/TraspasoAlmacen.aspx.vb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 5544fcf6a..34ef3d6fa 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1456,7 +1456,9 @@ Partial Class Inventarios_TraspasoAlmacen BtnCancelarTraspaso.Visible = False Else BtnRecibir.Visible = True - BtnCancelarTraspaso.Visible = True + If UsuarioActual.TienePermisoProceso(290) Then + BtnCancelarTraspaso.Visible = True + End If End If From 73d41caa65b610adb27065b629489ad38c97b52d Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 30 Mar 2020 10:21:32 -0700 Subject: [PATCH 2/2] catalogo terminado, esperando retroalimentacion sobre los ddl de cliente y personal --- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 48 +++++++++++++++++--- 1 file changed, 42 insertions(+), 6 deletions(-) diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index dab34ed30..e2c98ae18 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -51,9 +51,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlClientes.setEsWebService(True) - If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then - DdlPersonal.DataSource = ObjRH.DtResultados - End If + 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 @@ -73,7 +74,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlCconceptosContables.DataBind() DdlCuenta.DataBind() DdlProveedor.DataBind() - DdlPersonal.DataBind() + 'DdlPersonal.DataBind() DdlClasificacion.DataBind() DdlAlmacen.DataBind() @@ -94,6 +95,29 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta") TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA") + Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero + Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero + + If CveCliente > 0 Then + DdlClientes.setEsWebService(False) + Dim ObjCliente As New ClsClientes + If ObjCliente.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then + DdlClientes.ddl.DataSource = ObjCliente.DtResultados + End If + DdlClientes.ddl.DataBind() + DdlClientes.ddl.SelectedValue = CveCliente + End If + + If CvePersonal > 0 Then + DdlPersonal.setEsWebService(False) + Dim ObjPersonal As New ClsRH + If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then + DdlPersonal.ddl.DataSource = ObjPersonal.DtResultados + End If + DdlPersonal.ddl.DataBind() + DdlPersonal.ddl.SelectedValue = CvePersonal + End If + LbAgregar.Text = "Actualizar" UpModalModulos.Update() RegistraScript("$('#ModalCat').modal();") @@ -105,6 +129,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then Alert("se elimino correctamente") End If + CargaDatos() + UpDatos.Update() ObjConta.Dispose() End Sub @@ -117,6 +143,12 @@ Partial Class Contabilidad2_CatCuentasAsignaciones DdlAlmacen.SelectedValue = -1 TxtIdCuentaContable.Text = "" TxtPorcentajeIVA.Text = "" + DdlClientes.ddl.DataSource = "" + DdlClientes.ddl.DataBind() + DdlClientes.setEsWebService(True) + DdlPersonal.ddl.DataSource = "" + DdlPersonal.ddl.DataBind() + DdlPersonal.setEsWebService(True) LbAgregar.Text = "Agregar" UpModalModulos.Update() RegistraScript("$('#ModalCat').modal();") @@ -126,13 +158,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjConta As New ClsContabilidad Dim ErrorString As String = "" If LbAgregar.Text = "Agregar" Then - If ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, + 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" End If ElseIf LbAgregar.Text = "Actualizar" Then - If ObjConta.UpdateCuentasAsignaciones(CveConceptoAsignacion, DdlCconceptosContables.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero, + 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" @@ -142,6 +174,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones RegistraScript("$('#ModalCat').modal('hide');") If ErrorString.Length > 0 Then Alert(ErrorString) + Else + Alert("Agregado correctamente") End If + CargaDatos() + UpDatos.Update() End Sub End Class