diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 1621c3921..289b3981f 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -950,7 +950,7 @@ Public Class ClsContabilidad
OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
- OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -5747,6 +5747,26 @@ Public Class ClsContabilidad
Return Retorno
End Function
+ Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer) As Boolean
+ Dim Retorno = False
+
+ DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Tipo", SqlDbType.Int).Value = Tipo
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ Me.OnError("Ocurrió un error al obtener el catálogo de cuentas asignación2", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ End Try
+
+ Return Retorno
+ End Function
+
Public Function AddCuentasAsignaciones(Optional CveConceptoContable As Integer = -1, Optional CveEmpresa As Integer = -1, Optional CveCuenta As Integer = -1, Optional IdCtaContable As Integer = -1,
Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveClasificacion As Integer = -1,
Optional CveAlmacen As Integer = -1, Optional PorcentajeIVA As Decimal = -1, Optional CveConceptoNomina As Decimal = -1, Optional CveBancoCuenta As Integer = -1) As Boolean
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index bf5d3e6f6..cb66a38d5 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -3079,16 +3079,17 @@ Public Class ClsPaginas
- Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable
+ Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
Get
- If CvePlantillaPoliza <> -1 Then
- Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CvePlantillaPoliza = {0}", CvePlantillaPoliza), "", DataViewRowState.CurrentRows)
+ If CveConceptoContable <> -1 Then
+ Dim Dv As New DataView(DirectCast(Application("GlobalDTContaConceptosContables"), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
GlobalDTContaConceptosContables = Dv.ToTable
Dv.Dispose()
Else
GlobalDTContaConceptosContables = DirectCast(Application("GlobalDTContaConceptosContables"), DataTable)
End If
+
End Get
Set(value As DataTable)
Application("GlobalDTContaConceptosContables") = value
diff --git a/Ashx/E48.ashx b/Ashx/E48.ashx
index ae7947be3..a3d8a1d15 100644
--- a/Ashx/E48.ashx
+++ b/Ashx/E48.ashx
@@ -34,9 +34,9 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Private Function Salida(ByVal context As HttpContext) As String
Dim retorno As String = ""
- Dim ObjInv As New ClsInventarios
- Dim Respuesta As New FidelityAppsResponse
- Dim RespuestaError As New FidelityAppsResponseError
+
+ Dim Respuesta As New APHAppsResponse
+ Dim RespuestaError As New APHAppResponseError
Dim TieneError As Boolean = False
Dim JsonRequest As JObject = Nothing
Dim ObjInventario As New ClsInventarios
@@ -46,8 +46,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Dim SinExistencia As String = "No hay existencias suficientes del producto: "
Dim ObjUsuarios As New ClsSisUsuarios
Dim CveUsuario As Integer
- Dim UsuarioActual As Usuario = ValidaUsuarioSistema(100, CveEmpresa)
-
+ Dim UsuarioActual As Usuario = Nothing 'ValidaUsuarioSistema(100, CveEmpresa)
+ Dim FolioSalida As Integer = 0
Dim ErrorAC As Boolean = False
Dim ErrorMovInv As Boolean = False
@@ -72,12 +72,10 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
End If
If Not TieneError AndAlso Not String.IsNullOrEmpty(JsonRequest("fecha")) Then
- Dim Inv As New ClsInventarios
- Dim ObjProductosServicios As New ClsProductosServicios()
Dim ObjContaAC As ClsContPAQi = Nothing
- Dim tFolio As Integer = Inv.GetFolioSiguiente(3, CveEmpresa)
+
Dim observaciones As String = IIf(JsonRequest("observaciones").ToString() <> "", JsonRequest("observaciones").ToString(), "Salida Almacen")
- Dim CveAlmacen As Integer = 7
+
Dim IDPoliza As Integer = 0
Dim usuario As String = JsonRequest("usuario").ToString()
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
@@ -88,14 +86,24 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
Mensaje = "No se encontro el usuario ingresado"
TieneError = True
End If
+ Else
+ Mensaje = "No se encontro el usuario ingresado"
+ TieneError = True
End If
- Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate
- Dim almacen As String = JsonRequest("almacen").ToString()
- Dim Recibe As String = JsonRequest("entrega").ToString()
- Dim GlobalDTInvConceptos As DataTable
- Dim EsContabilizable As Boolean = True
- If Inv.GetConceptos Then GlobalDTInvConceptos = Inv.DtResultados Else GlobalDTInvConceptos = Nothing
+
If Not TieneError Then
+
+ Dim GlobalDTInvConceptos As DataTable
+ If ObjInventario.GetConceptos Then GlobalDTInvConceptos = ObjInventario.DtResultados Else GlobalDTInvConceptos = Nothing
+
+ Dim Fecha As Date = JsonRequest("fecha").ToString().ToDate
+ Dim almacen As String = JsonRequest("almacen").ToString()
+ Dim Recibe As String = JsonRequest("entrega").ToString()
+ Dim CveAlmacen As Integer = GlobalDTAlmacen(CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format(" Almacen = '{0}'", almacen)).ToEntero
+
+ Dim EsContabilizable As Boolean = True
+ Dim tFolio As Integer = ObjInventario.GetFolioSiguiente(3, CveEmpresa)
+
Try
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("ASHX/E48", 53, 0, 0, 1, Fecha, observaciones, UsuarioActual.CveUsuario, CveEmpresa, CveTipoPoliza:=3)
CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, 3, 1, Fecha, tFolio, UsuarioActual.CveUsuario, CveEmpresa, -1, -1, -1, -1, Observaciones:=observaciones, Recibio:=Recibe, Modulo:="ASHX/E48")
@@ -115,26 +123,16 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
For Each JsonPS As JObject In ListaPS
Dim Cantidad As Double = JsonPS("cantidad").ToString.ToDouble()
- Dim CvePS As Integer = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString()).FiltroPrimeroValor("CvePS").ToEntero()
- Dim DrPS As DataRow = GlobalDTPS(CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
- Dim CveUM As Integer
- If ObjProductosServicios.GetPS(CvePS, -1, CveEmpresa) Then
- If ObjProductosServicios.DtResultados.Rows.Count > 0 Then
- CveUM = ObjProductosServicios.CveUnidadMedida.ToString.ToEntero
- End If
- End If
- If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then
+ Dim dtt As DataTable = GlobalDTPSSimplificado(Codigo:=JsonPS("codigo").ToString())
+ Dim CvePS As Integer = dtt.FiltroPrimeroValor("CvePS").ToEntero()
+ Dim CveUM As Integer = dtt.FiltroPrimeroValor("CveUnidadMedida").ToEntero()
- If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, 0, Observaciones:=observaciones, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
- Mensaje = "Error al guardar los movimientos"
+ If CvePS > 0 Then
+ If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then
- ErrorMovInv = True
- Exit For
- End If
- Else
- If UsuarioActual.TienePermisoProceso(114) Then
- If ObjInventario.GetExistenciasPS(CvePS, CveUM, CveEmpresa, CveAlmacen, FechaMovto:=String.Format("{0} 00:00", Fecha.ToString("yyyy/MM/dd"))) >= Cantidad Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, 0, Observaciones:=observaciones, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
Mensaje = "Error al guardar los movimientos"
+
ErrorMovInv = True
Exit For
End If
@@ -142,7 +140,11 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
SinExistencia += String.Format("{0}, ", JsonPS("codigo").ToString())
ErrorMovInv = True
End If
+ Else
+ SinExistencia += String.Format("{0}, ", JsonPS("codigo").ToString())
+ ErrorMovInv = True
End If
+
Cont += 1
Next
Mensaje = SinExistencia
@@ -162,8 +164,6 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
End If
-
-
Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 3).ToEntero
If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True
TipoMovtoOtro = Not TipoMovtoAlmacen
@@ -247,15 +247,12 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
End If
End If
End If
-
-
End If
End If
If IDPoliza > 0 Then
ObjInventario.UpdateMovimientoPoliza(IDPoliza, CveMovimiento, UsuarioActual.CveEmpresa)
End If
-
Else
ErrorAC = True
Mensaje = "No se pudo insertar la poliza"
@@ -265,6 +262,7 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder
+ FolioSalida = ObjInventario.Folio
Msg.AppendFormat(" El Movimiento se registro con el Folio: {0}", ObjInventario.Folio)
Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
@@ -304,6 +302,8 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
TieneError = True
End Try
+ Else
+
End If
ObjInventario.Dispose() 'elimino la instancia
@@ -321,7 +321,9 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
retorno = JsonConvert.SerializeObject(RespuestaError).ToString
Else
context.Response.StatusCode = 200
- Respuesta.Message = "La existencia se obtuvo correctamente"
+ Respuesta.Message = "La salida se registró correctamente"
+ Respuesta.Folio = folioSalida
+
retorno = JsonConvert.SerializeObject(Respuesta).ToString
End If
@@ -331,25 +333,27 @@ Public Class E48 : Implements IHttpHandler, IRequiresSessionState
End Function
- Private Class FidelityAppsResponse
+ Private Class APHAppsResponse
Sub New()
- isSuccess = "true"
+ IsSuccess = "true"
End Sub
Public Property IsSuccess As String
Public Property Message As String
+ Public Property Folio As String
End Class
- Private Class FidelityAppsResponseError
+ Private Class APHAppResponseError
Sub New()
- isSuccess = "false"
+ IsSuccess = "false"
End Sub
Public Property IsSuccess As String
+ Public Property Folio As String
Public Property Message As String
End Class
Private Class AuthMessage
Public Property IsSucces As Boolean
- Public Property ErrorMessage As FidelityAppsResponseError
+ Public Property ErrorMessage As APHAppResponseError
Public Property StatusCode As Integer
End Class
diff --git a/Contabilidad/RepGastosCC.aspx.vb b/Contabilidad/RepGastosCC.aspx.vb
index 492a0beaf..2222739d5 100644
--- a/Contabilidad/RepGastosCC.aspx.vb
+++ b/Contabilidad/RepGastosCC.aspx.vb
@@ -82,7 +82,7 @@ Partial Class RepGastosCC
Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
Cells.Text = Cells.Text.FormatoNumero(2)
-
+ Cells.HorizontalAlign = HorizontalAlign.Right
End If
End If
Next
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index e27cdb81e..5d785e43e 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -21,29 +21,58 @@
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 5564dc374..301e181af 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -15,10 +15,15 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
- If Not Page.IsPostBack Then
- CargaDatos()
+ If Not Page.IsPostBack Then
+
CargaDatosModal()
End If
+ End Sub
+
+ Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+ CargaDatosSistema()
+
End Sub
Private Sub CargaDatos()
@@ -28,8 +33,19 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End If
ObjConta.Dispose()
GvDatos.DataBind()
+ End Sub
+
+ Private Sub CargaDatosSistema()
+ Dim ObjConta As New ClsContabilidad
+ If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.selectedvalue.toentero) Then
+ GvDatos.DataSource = ObjConta.DtResultados
+ End If
+ ObjConta.Dispose()
+ GvDatos.DataBind()
+ UpDatos.Update()
End Sub
+
Private Sub CargaDatosModal()
DdlConceptoNomina.DataSource = GlobalDTNomConceptos(UsuarioActual.CveEmpresa)
DdlConceptoNomina.DataBind()
@@ -53,7 +69,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-
+ DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -79,46 +95,79 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
End Sub
Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
- LimpiarDatos()
-
- Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
- CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
- DdlCconceptosContables.SelectedValue = GvRow.DataKey("CveConceptoContable").ToEntero
- DdlCuenta.SelectedValue = GvRow.DataKey("CveCuenta").ToEntero
- DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
- DdlProveedor.SelectedValue = GvRow.DataKey("CveProveedor").ToEntero
- DdlClasificacion.SelectedValue = GvRow.DataKey("CveClasificacion").ToEntero
- DdlAlmacen.SelectedValue = GvRow.DataKey("CveAlmacen").ToEntero
- TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
- TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
- DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
-
- 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();")
+ LimpiarDatos()
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("")
+ Dim CveConceptoContable As Integer = GvRow.DataKey("CveConceptoContable").ToString.ToEntero
+ HdnCveCuentaAsignacion.Value = GvRow.DataKey("CveCuentaAsignacion").ToString
+
+ If Dr IsNot Nothing Then
+ CveConceptoAsignacion = GvRow.DataKey("CveCuentaAsignacion").ToEntero
+ DdlCconceptosContables.SelectedValueExist(GvRow.DataKey("CveConceptoContable"))
+ DdlCuenta.SelectedValueExist(GvRow.DataKey("CveCuenta"))
+ DdlConceptoNomina.SelectedValueExist(GvRow.DataKey("CveConceptoNomina").ToEntero)
+ DdlProveedor.SelectedValueExist(GvRow.DataKey("CveProveedor"))
+ DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
+ DdlAlmacen.SelectedValueExist(GvRow.DataKey("CveAlmacen"))
+ TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
+ TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
+ DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+
+ Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
+ Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
+
+ If Dr("AplicaCliente").ToString = "True" Then
+ divCliente.Visible = True
+ 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
+ End If
+ If Dr("AplicaProveedor").ToString = "True" Then
+ divProveedor.Visible = True
+ End If
+
+ If Dr("AplicaPersonal").ToString = "True" Then
+ divPersonal.Visible = True
+ 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.SelectedValueExist(CvePersonal)
+ End If
+ End If
+
+ If Dr("AplicaClasificacion").ToString = "True" Then
+ divClasificacion.Visible = True
+ End If
+
+ If Dr("AplicaBancos").ToString = "True" Then
+ divBancos.Visible = True
+ End If
+
+ If Dr("AplicaAlmacen").ToString = "True" Then
+ divAlmacen.Visible = True
+ End If
+
+ If Dr("AplicaActivoFijo").ToString = "True" Then
+ divActivoFijo.Visible = True
+ End If
+
+
+ LbAgregar.Text = "Actualizar"
+ UpModalModulos.Update()
+ RegistraScript("$('#ModalCat').modal();")
+ End If
+
+
End Sub
Protected Sub EliminarRow(sender As Object, e As EventArgs)
@@ -127,7 +176,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
If ObjConta.RemoveCuentasAsignaciones(GvRow.DataKey("CveCuentaAsignacion").ToEntero) Then
Alert("se elimino correctamente")
End If
- CargaDatos()
+ CargaDatosSistema()
UpDatos.Update()
ObjConta.Dispose()
End Sub
@@ -162,13 +211,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
Dim ObjConta As New ClsContabilidad
Dim ErrorString As String = ""
- If LbAgregar.Text = "Agregar" Then
+ If HdnCveCuentaAsignacion.Value.ToEntero <= 0 Then
If Not ObjConta.AddCuentasAsignaciones(DdlCconceptosContables.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlCuenta.SelectedValue.ToEntero, TxtIdCuentaContable.Text.ToEntero,
DdlProveedor.SelectedValue.ToEntero, DdlClientes.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero,
DdlClasificacion.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, TxtPorcentajeIVA.Text.ToDecimal, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
ErrorString = "Error al agregar"
End If
- ElseIf LbAgregar.Text = "Actualizar" Then
+ ElseIf HdnCveCuentaAsignacion.Value.ToEntero > 0 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, CveBancoCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveConceptoNomina:=DdlConceptoNomina.SelectedValue.ToEntero()) Then
@@ -183,7 +232,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Else
Alert("Agregado correctamente")
End If
- CargaDatos()
+ CargaDatosSistema()
UpDatos.Update()
End Sub
End Class
diff --git a/SCT/RepLicencias.aspx.vb b/SCT/RepLicencias.aspx.vb
index 163a7cd94..d37e92502 100644
--- a/SCT/RepLicencias.aspx.vb
+++ b/SCT/RepLicencias.aspx.vb
@@ -2,11 +2,7 @@
'Option Strict On
Imports System.Data
-Imports AspMap
-Imports System.Drawing
Imports Extensiones
-Imports System.IO
-Imports AspMap.Web
Partial Class SCT_RepLicencias
Inherits ClsPaginas
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index 72683623b..2ed1f151e 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -4756,7 +4756,7 @@ Partial Class Sistemas_UsuarioDetalle
Private Sub CargaGvBitacora()
If CveUsuario > 0 Then
Dim ObjGral As New ClsGenerales()
- If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveUsuario:=CveUsuario) Then
+ If ObjGral.GetHistorialBitacora(-1, -1, -1, -1, -1, -1, -1, -1, CveUsuario:=CveUsuario) Then ' UsuarioActual.CveEmpresa, se manda empresa -1
GvBitacoraHistorial.DataSource = ObjGral.DtResultados
ObjGral.Dispose()
End If
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 88f10f22b..c9d4bb2ae 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -882,7 +882,7 @@
-
+
diff --git a/Ventas/RepConciliacionSat.aspx.cs b/Ventas/RepConciliacionSat.aspx.cs
index 9bf833b30..6d282df49 100644
--- a/Ventas/RepConciliacionSat.aspx.cs
+++ b/Ventas/RepConciliacionSat.aspx.cs
@@ -55,7 +55,7 @@ public partial class Ventas_RepConciliacionSat : ClsPaginas
RfechaF = txtFechaF.Text.Length > 0 ? txtFechaF.Text.ToDateTime().ToString("yyyy/MM/dd") : "";
using (ClsGenerales ObjRepC = new ClsGenerales())
{
- ObjRepC.RepConciliacionSatGET(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF);
+ ObjRepC.RepConciliacionSATGet(UsuarioActual.CveEmpresa, RtipoDocto, RfechaI, RfechaF);
GVRepConciliacionSatGET.DataSource = ObjRepC.DtResultados;
ObjRepC.Dispose();
diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx
index 9aaca8891..4f0113534 100644
--- a/asmx/WSSIGApp.asmx
+++ b/asmx/WSSIGApp.asmx
@@ -1548,7 +1548,7 @@ Public Class WSSIGApp
#Region "P R O D U C T O S - S E R V I C I O S"
Public Function AddPS(parametros As String) As Boolean
- 'Dim TieneError As Boolean = False
+ Dim TieneError As Boolean = False
'Dim ObjPS As New ClsProductosServicios
'ObjPS.IniciaTransacSQL()
'Try
@@ -1571,7 +1571,7 @@ Public Class WSSIGApp
' End If
' ObjPS.Dispose()
'End Try
- 'Return Not TieneError
+ Return Not TieneError
End Function
Public Function GetPS(CveEmpresa As Integer) As String
@@ -1598,7 +1598,7 @@ Public Class WSSIGApp
End Function
Public Function AddClasificaciones(parametros As String) As Boolean
- 'Dim TieneError As Boolean = False
+ Dim TieneError As Boolean = False
'Dim ObjClasi As New ClsClasificaciones
'ObjClasi.IniciaTransacSQL()
'Try
@@ -1620,7 +1620,7 @@ Public Class WSSIGApp
' End If
' ObjClasi.Dispose()
'End Try
- 'Return Not TieneError
+ Return Not TieneError
End Function
Public Function GetRepPS(params As String) As String