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 #End Region
#Region " PROPIEDADES DE TOTALES " #Region " PROPIEDADES DE TOTALES "
Private Property SubTotalOriginal As Double Private Property SubTotalOriginal As Decimal
Get Get
Return ViewState("SubTotalOriginal").ToString.ToDouble Return ViewState("SubTotalOriginal").ToString.ToDecimal
End Get End Get
Set(value As Double) Set(value As Decimal)
ViewState("SubTotalOriginal") = value ViewState("SubTotalOriginal") = value
End Set End Set
End Property End Property
Private Property SubTotal2Original As Double Private Property SubTotal2Original As Decimal
Get Get
Return ViewState("SubTotal2Original").ToString.ToDouble Return ViewState("SubTotal2Original").ToString.ToDecimal
End Get End Get
Set(value As Double) Set(value As Decimal)
ViewState("SubTotal2Original") = value ViewState("SubTotal2Original") = value
End Set End Set
End Property End Property
@@ -6077,8 +6077,7 @@ Partial Class Compras_Compras
If importeMN <> 0 Then If importeMN <> 0 Then
If Not UsuarioActual.CveEmpresa.Contiene(7, 11, 12, 122, 145) AndAlso (TxtFecha.Text.ToDate.LastDayOfMonth <> NowADS.LastDayOfMonth And Not EntradaComoGastoConAlmacen Then
If (TxtFecha.Text <> NowADS().ToString("dd/MM/yyyy")) 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 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 ErrorPrepoliza = True