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

-

Browse Source
This commit is contained in:
rrene
2023-11-16 08:30:25 -07:00
parent bbb0ef0476
commit 4c224d2a35
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/Compras.aspx.vb
View File

@@ -871,19 +871,19 @@ Partial Class Compras_Compras
#End Region
#Region " PROPIEDADES DE TOTALES "
Private Property SubTotalOriginal As Double
Private Property SubTotalOriginal As Decimal
Get
Return ViewState("SubTotalOriginal").ToString.ToDouble
Return ViewState("SubTotalOriginal").ToString.ToDecimal
End Get
Set(value As Double)
Set(value As Decimal)
ViewState("SubTotalOriginal") = value
End Set
End Property
Private Property SubTotal2Original As Double
Private Property SubTotal2Original As Decimal
Get
Return ViewState("SubTotal2Original").ToString.ToDouble
Return ViewState("SubTotal2Original").ToString.ToDecimal
End Get
Set(value As Double)
Set(value As Decimal)
ViewState("SubTotal2Original") = value
End Set
End Property
@@ -6077,8 +6077,7 @@ Partial Class Compras_Compras
If importeMN <> 0 Then
If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) And Not EntradaComoGastoConAlmacen Then
If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso (TxtFecha.Text.ToDate.LastDayOfMonth <> NowADS.LastDayOfMonth And Not EntradaComoGastoConAlmacen Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 205, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
ErrorPrepoliza = True