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

-varios

Browse Source
This commit is contained in:
Rene Molina
2020-02-06 19:58:47 -07:00
parent 1244c02320
commit 21a78853df
7 changed files with 38 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContabilidad.vb
View File

@@ -1477,7 +1477,7 @@ Public Class ClsContabilidad
Catch ex As Exception Catch ex As Exception
ObjConta.RollBack() If Not ContaCompartida Then ObjConta.RollBack()
OnError("Ocurrió un error al intentar contabilizar la PrePoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) OnError("Ocurrió un error al intentar contabilizar la PrePoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
'Alert("Ocurrió un error al guardar la póliza", TipoMensaje.MsgAdvertencia) 'Alert("Ocurrió un error al guardar la póliza", TipoMensaje.MsgAdvertencia)
Retorno = False Retorno = False

4
App_Code/Modelos.vb
View File

@@ -3061,7 +3061,7 @@ Namespace Modelos
CveCuentaContabilizacion = 0 CveCuentaContabilizacion = 0
End If End If
If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio) Then If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto, TipoCambio:=tipoCambio, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
Else Else
ObjFactura.SeGuardoPrePoliza = True ObjFactura.SeGuardoPrePoliza = True
@@ -4375,7 +4375,7 @@ Namespace Modelos
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "NC") Then If UsuarioActual.CveEmpresa = 119 AndAlso ObjFactura.TipoDocto.Contiene("Ant", "Rem", "RNC", "Cot", "Ped", "Pd2", "PA", "Egs", "Dev") Then
AutoConta = False AutoConta = False
End If End If

3
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -430,6 +430,7 @@ Partial Class Bancos_FluctuacionCambiaria
If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
SeContabilizo = True SeContabilizo = True
Else Else
ErrorRegistrar = True
Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
End If End If
End If End If
@@ -437,10 +438,12 @@ Partial Class Bancos_FluctuacionCambiaria
If Not ErrorRegistrar And SeContabilizo Then If Not ErrorRegistrar And SeContabilizo Then
Conta.Commit() Conta.Commit()
ObjContPaq.Commit()
Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion) Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
CargaDatosCuentas() CargaDatosCuentas()
Else Else
Conta.RollBack() Conta.RollBack()
ObjContPaq.Dispose()
End If End If
Conta.Dispose() Conta.Dispose()
End Sub End Sub

4
Contabilidad/RegPoliza.aspx.vb
View File

@@ -1702,7 +1702,9 @@ Partial Class RegPoliza
If ObjConta.RemovePoliza(IDPoliza) Then If ObjConta.RemovePoliza(IDPoliza) Then
If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then
If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then
Else
ErrorTrans = True ErrorTrans = True
End If End If
Else Else

21
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -1341,11 +1341,30 @@ Partial Class ContabilidadC_RegPrePoliza
Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
Dim ObjContabilidad As New ClsContabilidad Dim ObjContabilidad As New ClsContabilidad
ObjContabilidad.IniciaTransacSQL()
Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
ObjConta.IniciaTransacSQL()
Dim TieneError As Boolean = False
If ObjContabilidad.RemovePrePolizas(CvePrePoliza, UsuarioActual.CveEmpresa) Then If ObjContabilidad.RemovePrePolizas(CvePrePoliza, UsuarioActual.CveEmpresa) Then
If IdPoliza > 0 Then
If Not ObjConta.RemovePoliza(IdPoliza) Then
TieneError = True
End If
End If
Alert("La Prepóliza ha sido eliminada", TipoMensaje.MsgInformacion) Alert("La Prepóliza ha sido eliminada", TipoMensaje.MsgInformacion)
Else Else
Alert("La Prepóliza ha podido ser eliminada", TipoMensaje.MsgError) Alert("La Prepóliza ha podido ser eliminada", TipoMensaje.MsgError)
TieneError = True
End If
If Not TieneError Then
ObjContabilidad.Commit()
ObjConta.Commit()
Else
ObjContabilidad.RollBack()
ObjConta.RollBack()
End If End If
ObjContabilidad.Dispose() ObjContabilidad.Dispose()

2
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -1175,7 +1175,7 @@ Partial Class Inventarios_RecepcionUsados
DdlSubProyecto.SelectedValueExist("-1") DdlSubProyecto.SelectedValueExist("-1")
End If End If
EnvioCorreo() ' EnvioCorreo()
CargaPendientesRecibir() CargaPendientesRecibir()
UPDatos.Update() UPDatos.Update()

12
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -913,14 +913,18 @@ Partial Class Inventarios_TraspasoAlmacen
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim resultado As DataTable = ObjInventario.DtResultados Dim resultado As DataTable = ObjInventario.DtResultados
Dim importe As Decimal = resultado.SUM("Total").ToDecimal Dim importe As Decimal = resultado.SUMD("Total")
Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero Dim IdCtaContableSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenOrigen.SelectedValue.ToEntero)).ToEntero
Dim IdCtaContableEntrada As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenDestino.SelectedValue.ToEntero)).ToEntero
Dim Contabilizable As Boolean = True
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida) Then If IdCtaContableSalida = IdCtaContableEntrada Then Contabilizable = False
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableSalida, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContableEntrada, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If