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

Redondeo

Browse Source
This commit is contained in:
rrene
2021-03-03 18:34:58 -07:00
parent 811450e51c
commit da99135203
2 changed files with 1076 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1075
Empresas/141/Formatos/CHQ-7452.rdlc Normal file
View File

File diff suppressed because it is too large Load Diff

2
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -181,7 +181,7 @@ Partial Class Inventarios_PrestamosdeProveedor
'faltan las prepólizas 'faltan las prepólizas
If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If Not ErrorMovInv AndAlso ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/PrestamodeProvedor", 53, 0, 0, 1, Fecha, $" {TxtObservacionesEntrega.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3) Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/PrestamodeProvedor", 53, 0, 0, 1, Fecha, $" {TxtObservacionesEntrega.Text}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL() Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundAD()
Dim idCtaContable As Integer = 0 Dim idCtaContable As Integer = 0
Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
Dim TipoMovtoAlmacen As Boolean = False Dim TipoMovtoAlmacen As Boolean = False