From 0b6f75c319779adbc0868afc3db0f49118cd2448 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 4 Sep 2023 21:17:05 -0700 Subject: [PATCH] --retenciones --- Compras/Compras.aspx.vb | 181 +++++++++++++++++----------------------- 1 file changed, 77 insertions(+), 104 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 5f2f2ca32..6a7819344 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1720,6 +1720,9 @@ Partial Class Compras_Compras ProductosCodigoSATNoPermitidos.AppendFormat("{0}
", 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:

{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)