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 10:46:39 -07:00
parent 12f3a00820
commit 00bfedf785
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Compras/Compras.aspx.vb
View File

@@ -2471,7 +2471,7 @@ Partial Class Compras_Compras
If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("<br/>TC Original: {0}", TipoCambioOriginal.ToString("N4")) If TipoCambio <> TipoCambioOriginal Then LblTCO.Text = String.Format("<br/>TC Original: {0}", TipoCambioOriginal.ToString("N4"))
AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal) AsignaValoresOriginales(TxtSubTotal.Text.ToDecimal, TxtSubTotal2.Text.ToDecimal, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
CalculaTotalPorDevengar() CalculaTotalPorDevengar()
TxtDocumentoImporteFE.Text = dr("Total").ToString TxtDocumentoImporteFE.Text = dr("Total").ToString
RVDocumentoImporte.MaximumValue = dr("Total").ToString.FormatoNumero(2) RVDocumentoImporte.MaximumValue = dr("Total").ToString.FormatoNumero(2)
@@ -6077,7 +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 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 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
@@ -14285,7 +14285,7 @@ Partial Class Compras_Compras
OCVinculada = True OCVinculada = True
UpPSS.Update() UpPSS.Update()
AsignaValoresOriginales(TxtSubTotal.Text.ToDouble, TxtSubTotal2.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal) AsignaValoresOriginales(TxtSubTotal.Text.ToDecimal, TxtSubTotal2.Text.ToDecimal, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtTotal.Text.ToDecimal)
If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero) If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero)
@@ -15630,8 +15630,8 @@ Partial Class Compras_Compras
TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero TxtTotal.Text = (TmpDT.SUMD("Total") + TmpDT.SUMD("IVA") + TmpDT.SUMD("IEPSPS") - TmpDT.SUMD("RetIVA") - TmpDT.SUMD("RetISR")).FormatoNumero
SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDecimal
If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero If TrDescuento.Visible Then TxtDescuento.Text = (TmpDT.SUMD("Descuento")).ToString.FormatoNumero
If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero If TrRetIVA.Visible Then TxtRetIVA.Text = (TmpDT.SUMD("RetIVA")).ToString.FormatoNumero
@@ -15651,7 +15651,7 @@ Partial Class Compras_Compras
#End Region #End Region
#Region " TOTALES: VALIDA Y CALCULA " #Region " TOTALES: VALIDA Y CALCULA "
Private Sub AsignaValoresOriginales(SubTotal As Double, SubTotal2 As Double, IVA As Double, RetIVA As Double, RetISR As Double, Total As Decimal) Private Sub AsignaValoresOriginales(SubTotal As Decimal, SubTotal2 As Decimal, IVA As Double, RetIVA As Double, RetISR As Double, Total As Decimal)
SubTotalOriginal = SubTotal SubTotalOriginal = SubTotal
SubTotal2Original = SubTotal2 SubTotal2Original = SubTotal2
IVAOriginal = IVA IVAOriginal = IVA
@@ -15814,8 +15814,8 @@ Partial Class Compras_Compras
TempSubTotal = TxtSubTotal.Text.ToDouble TempSubTotal = TxtSubTotal.Text.ToDouble
SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDecimal
TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion TempDescuentos = TxtDescuento.Text.Trim.ToDouble + Amortizacion
TempSubTotal2 = TempSubTotal - TempDescuentos TempSubTotal2 = TempSubTotal - TempDescuentos
TempIVA = TxtIVA.Text.ToDouble TempIVA = TxtIVA.Text.ToDouble
@@ -15832,8 +15832,8 @@ Partial Class Compras_Compras
ElseIf DifTotales <> 0 Then ElseIf DifTotales <> 0 Then
TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString TxtSubTotal2.Text = (TxtSubTotal2.Text.ToDouble + DifTotales).ToString
TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + DifTotales).ToString
SubTotalOriginal = TxtSubTotal.Text.ToDouble SubTotalOriginal = TxtSubTotal.Text.ToDecimal
SubTotal2Original = TxtSubTotal2.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDecimal
End If End If
Dim DiferenciaSubtotales As Decimal = 0.0D Dim DiferenciaSubtotales As Decimal = 0.0D