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

-mejora en la hora de movimiento

Browse Source 
- sino tiene prepoliza que no consulte
This commit is contained in:
rrene
2022-12-23 16:56:38 -07:00
parent 6a822a93f0
commit 7245db8540
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1048,16 +1048,18 @@ Partial Class Inventarios_EntradasSalidas
TxtObservaciones.Enabled = True TxtObservaciones.Enabled = True
End If End If
Dim ObjContabilidad As New ClsContabilidad If CvePrePoliza > 0 Then
If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then Dim ObjContabilidad As New ClsContabilidad
Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("") If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
If dr IsNot Nothing Then Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
If dr("IdPoliza").ToString.ToEntero > 0 Then If dr IsNot Nothing Then
BtnEliminar.Visible = False If dr("IdPoliza").ToString.ToEntero > 0 Then
BtnEliminar.Visible = False
End If
End If End If
End If End If
ObjContabilidad.Dispose()
End If End If
ObjContabilidad.Dispose()
'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR 'SI TIENE PREPOLIZA NO SE DEBE PODER EDITAR
If Mov.TienePrePoliza > 0 Then If Mov.TienePrePoliza > 0 Then
@@ -4273,7 +4275,7 @@ Partial Class Inventarios_EntradasSalidas
Dim ValorSalida As Decimal = 0 Dim ValorSalida As Decimal = 0
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
Dim tConcepto As String = TxtIFDescripcion.Text.Trim Dim tConcepto As String = TxtIFDescripcion.Text.Trim
Dim Fecha = TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd").ToDate Dim Fecha As Date = (TxtFechaInvFisico.Text.ToDate.ToString("yyyy/MM/dd ") & Now.ToShortTimeString).ToDate
Dim tCveSubProyectoEntrada As Integer = -1 Dim tCveSubProyectoEntrada As Integer = -1
Dim tCveSubProyectoSalida As Integer = -1 Dim tCveSubProyectoSalida As Integer = -1
Dim TipoMovto As Boolean = False Dim TipoMovto As Boolean = False
@@ -4414,6 +4416,8 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If ValorEntrada >= ValorSalida Then If ValorEntrada >= ValorSalida Then
'si el valor entrada es igual al valorsalida, y este sea cero.
If tCveSubProyectoEntrada = -1 Then tCveSubProyectoEntrada = tCveSubProyectoSalida
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then
ErrorMovInv = True ErrorMovInv = True
Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso" Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"