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