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

--retenciones

Browse Source
This commit is contained in:
rrene
2023-09-04 21:17:05 -07:00
parent b0d3321027
commit 0b6f75c319
1 changed files with 77 additions and 104 deletions
Download Patch File Download Diff File Expand all files Collapse all files

181
Compras/Compras.aspx.vb
View File

@@ -1720,6 +1720,9 @@ Partial Class Compras_Compras
ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", drr("PS"))
Next
If TmpDT.MAX("RetISRPorcentaje").ToDecimal = 0.0125 Then RetISRResico = True
If TmpDT.MAX("RetIVAPorcentaje").ToDecimal = 0.04 Then RetIVAFlete = True
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
@@ -2065,10 +2068,12 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
End If
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
If RetIVAFlete Then DdlRetIVAConcepto.SelectedValueExist(2)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
End If
If RetIVAFlete Then
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
DdlRetIVAConcepto.SelectedValueExist(2)
End If
ElseIf RFCProveedor.Length = 12 Then ' persona moral
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
@@ -2085,11 +2090,14 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
End If
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
If RetIVAFlete Then DdlRetIVAConcepto.SelectedValueExist(3)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
End If
If RetIVAFlete Then
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
DdlRetIVAConcepto.SelectedValueExist(3)
End If
End If
End If
UpPS.Update()
@@ -2114,11 +2122,11 @@ Partial Class Compras_Compras
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2"))
End If
End If
If RetISRResico Then
DdlRetISRConcepto.Items.Insert(2, New ListItem("Resico", "3"))
DdlRetISRConcepto.SelectedValueExist(3)
End If
If RetISRResico Then
DdlRetISRConcepto.Items.Insert(0, New ListItem("Resico", "3"))
DdlRetISRConcepto.SelectedValueExist(3)
End If
End If
UpPS.Update()
@@ -2528,7 +2536,7 @@ Partial Class Compras_Compras
VisualizaEstatusCompraSaldo(dr("TipoDocto").ToString, dr("Saldo").ToString.ToDecimal, dr("Total").ToString.ToDecimal)
If dr("IdPoliza").ToString.ToEntero > 0 Then
HplCompraContabilizada.Text = "Si"
'HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}", dr("IdPoliza"))
If UsuarioActual.Empresa.TipoContabilidad = 2 Then HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
LblCompraEstatus.ForeColor = Drawing.Color.Navy
trContabilizada.Visible = True
If UsuarioActual.TienePermisoProceso(107) Then BtnDescontabilizar.Visible = True
@@ -2778,8 +2786,6 @@ Partial Class Compras_Compras
If DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then
DdlRetISRConcepto.Enabled = True
End If
End If
BtnGuardar.Visible = False
@@ -2795,7 +2801,6 @@ Partial Class Compras_Compras
TxtOtrosImpuestos.ReadOnly = True
TxtTotal.ReadOnly = True
'CargaLeyendasFiscales
ViewState("CompraFolio") = TxtFolio.Text.Trim
@@ -2816,11 +2821,10 @@ Partial Class Compras_Compras
End If
End If
'VINCULACIÓN OC - NUEVA DICIEMBRE 2015
If dr("OCVinculada").ToString() <> "" Then
Dim DtOCs As New DataTable
Dim OCS = "", CveOCS = ""
Dim OCS As String = "", CveOCS As String = ""
DtOCs.Columns.Add("FolioOC", GetType(Integer))
DtOCs.Columns.Add("CveOrdenCompra", GetType(Integer))
@@ -2828,7 +2832,7 @@ Partial Class Compras_Compras
For Each drt As DataRow In TmpDT.Rows
If drt("FolioOC").ToString <> "" Then
Dim DrOC = DtOCs.NewRow
Dim DrOC As DataRow = DtOCs.NewRow
DrOC("FolioOC") = drt("FolioOC").ToString
DrOC("CveOrdenCompra") = drt("CveOrdenCompra").ToString
DtOCs.Rows.Add(DrOC)
@@ -3040,7 +3044,7 @@ Partial Class Compras_Compras
End Sub
Private Sub CargarAlmacen()
Dim DtAlmacenes = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)")
Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2,7,14,19)")
If DdlTipoCompra.SelectedValue = "10" Then
ddlAlmacenAdd.DataSource = DtAlmacenes.FiltraParametros("Modalidad = 0")
@@ -3273,10 +3277,6 @@ Partial Class Compras_Compras
RFCProveedor = ObjProveedor.RFC
CveRegimenFiscalProveedor = ObjProveedor.CveRegimenFiscal
CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
If CveFactura > 0 Then
If RetIVAOriginal > 0 Then
@@ -3285,7 +3285,6 @@ Partial Class Compras_Compras
If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
End If
If RetIVAFlete Then '4 Fletes
If RFCProveedor.Length = 13 Then
DdlRetIVAConcepto.SelectedValueExist("2")
@@ -3296,7 +3295,6 @@ Partial Class Compras_Compras
End If
If RetISROriginal > 0 Then
Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal
If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales
@@ -3306,11 +3304,12 @@ Partial Class Compras_Compras
If RetISRResico OrElse (CalRetISRPor >= 0.01 AndAlso CalRetISRPor <= 0.02) Then '1.25 Recico regimen simplificado confianza
DdlRetISRConcepto.SelectedValueExist("3")
End If
End If
End If
CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion)
LbAgregar.Enabled = True
UpPSS.Update()
UpPS.Update()
@@ -5743,53 +5742,53 @@ Partial Class Compras_Compras
'If importeMovimiento <> 0 Then
For Each gvRowCredito As GridViewRow In GvCreditos.Rows
Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
Dim ImportePagoCredito As Decimal = If(gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal > 0, gvRowCredito.FCTextBox("TxtAmbos").Text.ToDecimal, (gvRowCredito.FCTextBox("TxtCapital").Text.ToDecimal + gvRowCredito.FCTextBox("TxtInteres").Text.ToDecimal))
Dim ImporteIEAnticipo As Decimal = gvRowCredito.DataKey("ImporteIE").ToDecimal '' Lo que se pago desde el movimiento Bancario
Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
Dim CveMonedaCredito As Integer = gvRowCredito.DataKey("CveMoneda").ToEntero
Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
Dim OtrosGastosIngresosCredito As Decimal = gvRowCredito.FCTextBox("TxtComision").Text.ToDecimal
Dim CveIECredito As Integer = gvRowCredito.DataKey("CveIE").ToEntero
Dim CveCreditoDetalleTemp As Integer = gvRowCredito.DataKey("CveCreditoDetalle").ToEntero
Dim CveCreditoTemp As Integer = gvRowCredito.DataKey("CveCredito").ToEntero
If ImportePagoCredito > 0 Then
Dim Pago As New CompraPago
Pago.ImportePago = ImportePagoCredito
Pago.CveIE = CveIECredito
Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1
Pago.CveProveedor = CveProveedor
Pago.CveCreditoDetalle = CveCreditoDetalleTemp
Pago.TipoPago = "Egsc"
If ImportePagoCredito > 0 Then
Dim Pago As New CompraPago
Pago.ImportePago = ImportePagoCredito
Pago.CveIE = CveIECredito
Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1
Pago.CveProveedor = CveProveedor
Pago.CveCreditoDetalle = CveCreditoDetalleTemp
Pago.TipoPago = "Egsc"
If OtrosGastosIngresosCredito <> 0 Then
Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
If OtrosGastosIngresosCredito <> 0 Then
Pago.OtroGastoIngreso = OtrosGastosIngresosCredito
End If
ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
If ErrorCreditosCompra Then
Exit For
End If
Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
If ImporteDifCredito > 0 Then
' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
ErrorCreditosCompra = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
If ErrorCreditosCompra Then
Exit For
End If
Dim ImporteDifCredito As Decimal = (ImporteIEAnticipo + OtrosGastosIngresosCredito) - ImportePagoCredito ' CompraActual.Total
If ImporteDifCredito > 0 Then
' Dim ImportePagoCreditoMN As Decimal = ImportePagoCredito * tipoCambioActual
Dim ImporteDifCreditoMN As Decimal = ImporteDifCredito * tipoCambioActual
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDifCredito, ImporteDifCreditoMN, 50, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCredito:=CveCreditoTemp, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDifCredito, ImporteDifCreditoMN, 21, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIECredito, CveCreditoDetalle:=CveCreditoDetalleTemp, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, ImporteDifCredito), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
End If
End If
Next
End If
Next
'End If
End If
importeMovimiento = 0 : importeMN = 0
@@ -6405,7 +6404,7 @@ Partial Class Compras_Compras
DT = DT.FiltraParametros("ISNULL(CveTipoPS,0) <> 2")
End If
Dim DTDistinct = DT.Copy
Dim DTDistinct As DataTable = DT.Copy
If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
For Each drowdis As DataRow In DTDistinct.Rows
If drowdis("CveTipoGasto").ToString = "" Then
@@ -7046,7 +7045,7 @@ Partial Class Compras_Compras
End If
'CREDITO COMPRA
Dim CvePrePolizaCredito = 0
Dim CvePrePolizaCredito As Integer = 0
If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
@@ -12027,9 +12026,9 @@ Partial Class Compras_Compras
ElseIf grp.CveActivoFijo > 0 Then
Dim CtaAF = -1
Dim AF = ""
Dim CuentaInicial = -1
Dim CtaAF As Integer = -1
Dim AF As String = ""
Dim CuentaInicial As Integer = -1
If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
CtaAF = ObjAF.Cuenta
@@ -12051,7 +12050,7 @@ Partial Class Compras_Compras
If drCuenta IsNot Nothing Then
CuentaAbono = drCuenta("Id").ToString.ToEntero
Dim FolioAF = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
@@ -12146,11 +12145,7 @@ Partial Class Compras_Compras
End If
End If
If ErrorAC Then
Alert("Ocurrió un error al contabilizar la compra. Comuniquese con soporte.", TipoMensaje.MsgError)
ObjContaAC.RollBack()
ObjCompras.RollBack()
@@ -12300,7 +12295,7 @@ Partial Class Compras_Compras
End Sub
Private Sub CargaConsignaciones2()
Dim ObjInventarios As New ClsInventarios
Dim TieneError = False
Dim TieneError As Boolean = False
CveConsignacion = -1
@@ -12327,7 +12322,7 @@ Partial Class Compras_Compras
End Sub
Protected Sub BtnVinculaConsignacion_Click(sender As Object, e As EventArgs)
Dim ObjInventarios As New ClsInventarios
Dim TieneError = False
Dim TieneError As Boolean = False
CveConsignacion = -1
@@ -12395,10 +12390,10 @@ Partial Class Compras_Compras
Exit Sub
End If
Dim Row = DtConsignaciones.Rows(Ddl.SelectedValue.ToEntero - 1)
Dim Row As DataRow = DtConsignaciones.Rows(Ddl.SelectedValue.ToEntero - 1)
'VALIDAMOS CANTIDAD
Dim Cantidad = Row("Cantidad").ToString.ToDecimal
Dim Cantidad As Decimal = Row("Cantidad").ToString.ToDecimal
For Each gvr1 As GridViewRow In GvInv.Rows
If gvr1.FCHiddenField("HdnNoConsignacion").Value.ToString = Ddl.SelectedValue Then
Cantidad = Cantidad - gvr1.DataKey("Cantidad").ToString.ToDecimal
@@ -12801,17 +12796,12 @@ Partial Class Compras_Compras
Else
GvOC1.Columns(0).Visible = False
End If
GvOC1.DataBind()
' TmpDT = OrdenarTablas("CvePS", DTOCTemp, TmpDT)
GvOC2.DataSource = TmpDT
GvOC2.DataBind()
UpGvOC1.Update()
NCDevolucion = True
@@ -12862,7 +12852,6 @@ Partial Class Compras_Compras
Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged
SubTotalRefacturacion = 0.0D
If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then
Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue))
If dr IsNot Nothing Then
@@ -12871,9 +12860,6 @@ Partial Class Compras_Compras
ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False)
SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal
End If
End If
End Sub
@@ -12913,8 +12899,8 @@ Partial Class Compras_Compras
Private Function GuardaRefacturacion(ByRef ObjCompra As ClsCompras, ByRef ObjEventos As ClsOIEventos, CvePrePoliza As Integer) As Boolean
Dim dr As DataRow = Nothing
Dim ErrorBitacora = False
Dim IdPolizaAnterior = -1
Dim ErrorBitacora As Boolean = False
Dim IdPolizaAnterior As Integer = -1
Dim TotalRefact As Decimal = 0
'GUARDA ADJUNTOS Y LIGA EN BITACORA (RELACION DE FACTURA NUEVA Y VIEJA)
@@ -13112,8 +13098,6 @@ Partial Class Compras_Compras
End If
End If
ObjComprasComprobacion.Dispose()
Dim ObjCompras As New ClsCompras
Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
Dim ObjInventario As New ClsInventarios(ObjCompras.IniciaTransacSQL())
@@ -13130,6 +13114,7 @@ Partial Class Compras_Compras
Dim CvePrePolizaNueva As Integer = -1
Try
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", 1, 0, 0, 1, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", Serie & "-" & Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
'DEVOLUCIÓN AUTOMATICA
If CheckDevAuto.Checked Then
@@ -13141,7 +13126,6 @@ Partial Class Compras_Compras
Dim TmpDT As DataTable = Nothing
Dim TipoCambioGuardar As Decimal = 1
If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
If ObjCompras.DtResultados.Rows.Count > 0 Then
TmpDT = ObjCompras.DtResultados.Copy()
@@ -13159,19 +13143,11 @@ Partial Class Compras_Compras
End If
TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio)
'For Each dtMovs As DataRow In TmpDT.Rows
' If TmpDT.Rows.Count > 0 Then
' tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero
' Exit For
' End If
'Next
Dim DtMovimientos As DataTable = tbmovs.FiltraParametros("Origen = 1", DistinctColumns:={"CveMovimiento", "CveConcepto", "CveAlmacen", "Origen"})
For Each RowMovto As DataRow In DtMovimientos.Rows
Dim CveMovimientoEntrada As Integer = -1
Dim Folio As Integer
Dim CveAlmacen As Integer = RowMovto("CveAlmacen").ToString().ToEntero()
Dim CveConceptoDevolucion As Integer = -1
@@ -13212,8 +13188,6 @@ Partial Class Compras_Compras
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
Dim DtPrePolizaAlmacen As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}")
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", DtPrePolizaAlmacen.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, DtPrePolizaAlmacen.Rows(0)("Cargos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("Abonos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", DtPrePolizaAlmacen.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePolizaNueva > 0 Then
Dim tTotal As Decimal = 0
For Each dr As DataRow In DtPrePolizaAlmacen.Rows
@@ -13290,7 +13264,6 @@ Partial Class Compras_Compras
If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then
dt = ObjCompras.DtResultados
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePolizaNueva > 0 Then
For Each dr As DataRow In dt.Rows
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
@@ -13315,7 +13288,7 @@ Partial Class Compras_Compras
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
dt = ObjContabilidad.DtResultados.FiltraParametros("ISNULL(CveMovimientoAlmacen,0) <=0")
CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
' CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar3", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
If CvePrePolizaNueva > 0 Then
For Each dr As DataRow In dt.Rows
If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Importe").ToString.ToDecimal * -1, dr("CveConceptoContable").ToString.ToEntero, dr("Referencia").ToString,
@@ -13386,7 +13359,7 @@ Partial Class Compras_Compras
Private Sub btnProrateo_Click(sender As Object, e As EventArgs) Handles btnProrateo.Click, btnProrateo2.Click
Dim IvaOriginal As Double = TxtIVA.Text.ToDouble
Dim CuentaContable = DirectCast(sender, Button).CommandArgument.ToString
Dim CuentaContable As String = DirectCast(sender, Button).CommandArgument.ToString
Select Case CuentaContable
Case "Compras"
StringProrrateo = UsuarioActual.Empresa.Funcionalidad(117)