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

-- ret iva, ret isr, auto sugiera E119

Browse Source
This commit is contained in:
rrene
2023-08-31 21:55:10 -07:00
parent f4d4d5f264
commit 735cf69561
1 changed files with 147 additions and 211 deletions
Download Patch File Download Diff File Expand all files Collapse all files

340
Compras/Compras.aspx.vb
View File

@@ -693,9 +693,8 @@ Partial Class Compras_Compras
Private Property Fecha As String Private Property Fecha As String
Private Property SubTotal As Decimal Private Property SubTotal As Decimal
Private Property Total As Decimal = 0 Private Property Total As Decimal = 0
Private Property RetISRResico As Boolean = False
Private Property RetIVAFlete As Boolean = False
Private Property Descuentos As Decimal = 0 Private Property Descuentos As Decimal = 0
Private Property Amortizaciones As Decimal = 0 Private Property Amortizaciones As Decimal = 0
Private Property EmisorRFC As String Private Property EmisorRFC As String
@@ -1432,8 +1431,6 @@ Partial Class Compras_Compras
End If End If
CargaFletes() CargaFletes()
If UsuarioActual.Empresa.CvePlataforma = 2 Then If UsuarioActual.Empresa.CvePlataforma = 2 Then
TabActivosFijos.Visible = False TabActivosFijos.Visible = False
VerRefacturacion.Visible = False VerRefacturacion.Visible = False
@@ -1658,7 +1655,7 @@ Partial Class Compras_Compras
If NuevaValidacionXML = 1 OrElse (Version = "3.3" OrElse Version = "4.0") Then If NuevaValidacionXML = 1 OrElse (Version = "3.3" OrElse Version = "4.0") Then
Dim Xml As String Dim Xml As String
Dim nodo As XmlNode = XMLDoc.DocumentElement Dim nodo As XmlNode = XMLDoc.DocumentElement
Dim Version = ValorXML(nodo, "version") Dim Version As String = ValorXML(nodo, "version")
Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix) Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
Dim cfdVer As String = "" Dim cfdVer As String = ""
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
@@ -1714,7 +1711,7 @@ Partial Class Compras_Compras
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)
If UsuarioActual.CveEmpresa.Contiene(119, 158) Then BtnGuardar.Enabled = False If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.CveUsuario <> 1719 Then BtnGuardar.Enabled = False
BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante." BtnGuardar.ToolTip = "No se permite registrar facturas con conceptos con código '01010101'. Solicite al proveedor un nuevo comprobante."
End If End If
@@ -1831,7 +1828,7 @@ Partial Class Compras_Compras
'tTotal = Math.Round(SubTotal2 + IVA - RetencionIVA - RetencionISR + IEPS + OtrosImpuestos, 2) 'tTotal = Math.Round(SubTotal2 + IVA - RetencionIVA - RetencionISR + IEPS + OtrosImpuestos, 2)
HdnCompraSaldo.Value = Total.ToString HdnCompraSaldo.Value = Total.ToString
CompraSaldo = Total CompraSaldo = Total
Dim AjustaUltimoConcepto = False Dim AjustaUltimoConcepto As Boolean = False
'AGREGA IEPS COMO CONCEPTO 'AGREGA IEPS COMO CONCEPTO
If TrasladoIEPS > 0 And UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then If TrasladoIEPS > 0 And UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0 Then
@@ -2052,23 +2049,15 @@ Partial Class Compras_Compras
End If End If
If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros If DIOTCveTipoOperacion.Contiene(0, 3) Then ' 85 - Otros
If UsuarioActual.CveEmpresa <> 119 Then
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
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2"))
DdlRetIVAConcepto.Items.Add(New ListItem("General", "6")) If RetIVAFlete Then DdlRetIVAConcepto.SelectedValueExist(2)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
If CveRegimenFiscalProveedor = 23 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5"))
End If End If
If LblRetIVA.Text.ToEntero = 4 Then
DdlRetIVAConcepto.SelectedValueExist(2)
End If
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
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1"))
@@ -2079,24 +2068,16 @@ Partial Class Compras_Compras
End If End If
If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
If UsuarioActual.CveEmpresa <> 119 Then
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
DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3"))
DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) If RetIVAFlete Then DdlRetIVAConcepto.SelectedValueExist(3)
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DdlRetIVAConcepto.Items.Add(New ListItem("General.", "6")) 'emp acumuladoras
If CveRegimenFiscalProveedor = 23 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Resico", "5"))
End If
If LblRetIVA.Text.ToEntero = 4 Then
DdlRetIVAConcepto.SelectedValueExist(3)
End If
End If End If
End If End If
End If End If
UpPS.Update() UpPS.Update()
@@ -2110,30 +2091,24 @@ Partial Class Compras_Compras
If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales
DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1"))
'DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
End If End If
If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles
DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2")) DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2"))
' DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3"))
End If End If
If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros If DIOTCveTipoOperacion.Contiene(3) Then ' 85 - Otros
If UsuarioActual.CveEmpresa <> 119 Then
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
If CveRegimenFiscalProveedor = 23 Then If RetISRResico Then
DdlRetISRConcepto.Items.Insert(2, New ListItem("Resico", "3")) DdlRetISRConcepto.Items.Insert(2, New ListItem("Resico", "3"))
If LblRetISR.Text.ToDecimal().ToString("#.00") = "1.25" Then
DdlRetISRConcepto.SelectedValueExist(3) DdlRetISRConcepto.SelectedValueExist(3)
End If End If
End If End If
End If End If
End If
UpPS.Update() UpPS.Update()
End Sub End Sub
@@ -2144,14 +2119,14 @@ Partial Class Compras_Compras
End If End If
Dim Msg As String = "" Dim Msg As String = ""
Dim SubtotalTemp = TmpDT.SUM("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2) Dim SubtotalTemp As Decimal = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUMD("Descuento") + Math.Round(TmpDT.SUMD("Amortizacion")), 2)
Dim DescuentosTemp = TmpDT.SUM("Descuento") Dim DescuentosTemp As Decimal = TmpDT.SUMD("Descuento")
Dim Subtotal2Temp = TmpDT.SUM("Total") Dim Subtotal2Temp As Decimal = TmpDT.SUMD("Total")
Dim IVATemp = TmpDT.SUM("IVA") Dim IVATemp As Decimal = TmpDT.SUMD("IVA")
Dim IEPSTemp = TmpDT.SUM("IEPSPS") Dim IEPSTemp As Decimal = TmpDT.SUMD("IEPSPS")
Dim RetIVATemp = TmpDT.SUM("RetIVA") Dim RetIVATemp As Decimal = TmpDT.SUMD("RetIVA")
Dim RetISRTemp = TmpDT.SUM("RetISR") Dim RetISRTemp As Decimal = TmpDT.SUMD("RetISR")
Dim TotalTemp As Decimal = (Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones).ToDecimal Dim TotalTemp As Decimal = (Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones)
If Math.Abs(Math.Round(DescuentosTemp, 6) - Math.Round(Descuentos, 6)) > 0.01 Then If Math.Abs(Math.Round(DescuentosTemp, 6) - Math.Round(Descuentos, 6)) > 0.01 Then
@@ -3299,15 +3274,13 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profesionales
End If End If
If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes If RetIVAFlete Then '4 Fletes
If RFCProveedor.Length = 13 Then If RFCProveedor.Length = 13 Then
DdlRetIVAConcepto.SelectedValueExist("2") DdlRetIVAConcepto.SelectedValueExist("2")
Else Else
DdlRetIVAConcepto.SelectedValueExist("3") DdlRetIVAConcepto.SelectedValueExist("3")
End If End If
End If End If
End If End If
If RetISROriginal > 0 Then If RetISROriginal > 0 Then
@@ -3318,7 +3291,7 @@ Partial Class Compras_Compras
DdlRetISRConcepto.SelectedValueExist("1") DdlRetISRConcepto.SelectedValueExist("1")
End If End If
'permitido en un margen de 1% a 2% 'permitido en un margen de 1% a 2%
If (CalRetISRPor).RoundSQL(4) = 0.0125 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
@@ -3369,8 +3342,6 @@ Partial Class Compras_Compras
End If End If
Else Else
Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia) Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
End If End If
@@ -3455,17 +3426,12 @@ Partial Class Compras_Compras
End If End If
Next Next
Next Next
DdlPSAlias2.DataSource = DTTemp DdlPSAlias2.DataSource = DTTemp
DdlPSAlias2.DataBind() DdlPSAlias2.DataBind()
Else Else
DdlPSAlias2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) DdlPSAlias2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
DdlPSAlias2.DataBind() DdlPSAlias2.DataBind()
End If End If
End If End If
End Sub End Sub
@@ -3512,7 +3478,7 @@ Partial Class Compras_Compras
Dim tPSDescripcion As String = "-" Dim tPSDescripcion As String = "-"
Dim PSS As String = "" Dim PSS As String = ""
Dim Obs As String = "" Dim Obs As String = ""
Dim SubTotalTemp = 0.0D Dim SubTotalTemp As Decimal = 0.0D
Dim IVA As Decimal = 0 Dim IVA As Decimal = 0
Dim IEPS As Decimal = 0 Dim IEPS As Decimal = 0
Dim RetISR As Decimal = 0 Dim RetISR As Decimal = 0
@@ -3521,15 +3487,15 @@ Partial Class Compras_Compras
Dim PorcentajeIEPS As Decimal = 0 Dim PorcentajeIEPS As Decimal = 0
Dim PorcentajeRetISR As Decimal = 0 Dim PorcentajeRetISR As Decimal = 0
Dim PorcentajeRetIVA As Decimal = 0 Dim PorcentajeRetIVA As Decimal = 0
Dim DtTemporalGuardados = New DataTable Dim DtTemporalGuardados As DataTable = New DataTable
DtTemporalGuardados.Columns.Add("Contador", GetType(Integer)) DtTemporalGuardados.Columns.Add("Contador", GetType(Integer))
DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer)) DtTemporalGuardados.Columns.Add("Tipo", GetType(Integer))
'GLOBALS 'GLOBALS
Dim DtUM = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).AsEnumerable Dim DtUM As EnumerableRowCollection(Of DataRow) = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).AsEnumerable
Dim DtUMAlias = GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa).AsEnumerable Dim DtUMAlias As EnumerableRowCollection(Of DataRow) = GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa).AsEnumerable
Dim DtPS = GlobalDTPS(UsuarioActual.CveEmpresa).AsEnumerable Dim DtPS As EnumerableRowCollection(Of DataRow) = GlobalDTPS(UsuarioActual.CveEmpresa).AsEnumerable
Dim DtPSAlias = GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa).AsEnumerable Dim DtPSAlias As EnumerableRowCollection(Of DataRow) = GlobalDTProductosServiciosAlias(UsuarioActual.CveEmpresa).AsEnumerable
Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable) Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
Dim nodo As XmlNode = XMLDoc.DocumentElement Dim nodo As XmlNode = XMLDoc.DocumentElement
@@ -3676,7 +3642,7 @@ Partial Class Compras_Compras
If Version = "3.3" Or Version = "4.0" Then If Version = "3.3" Or Version = "4.0" Then
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
'OBTENER TRASLADOS POR DETALLES 'OBTENER TRASLADOS POR DETALLES
Dim ContadorTraslado = 0 Dim ContadorTraslado As Integer = 0
Dim nodosConceptosTraslado As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces) Dim nodosConceptosTraslado As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
For Each nodeTraslado As XmlNode In nodosConceptosTraslado For Each nodeTraslado As XmlNode In nodosConceptosTraslado
@@ -3715,7 +3681,7 @@ Partial Class Compras_Compras
Next Next
'OBTENER RETENCIONES POR DETALLES 'OBTENER RETENCIONES POR DETALLES
Dim ContadorRetenciones = 0 Dim ContadorRetenciones As Integer = 0
Dim nodosConceptosRetenciones As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces) Dim nodosConceptosRetenciones As XmlNodeList = node.SelectNodes(String.Format("//{0}:Impuestos/{0}:Retenciones/{0}:Retencion", Prefijo), namespaces)
For Each nodeRetencion As XmlNode In nodosConceptosRetenciones For Each nodeRetencion As XmlNode In nodosConceptosRetenciones
@@ -3730,10 +3696,12 @@ Partial Class Compras_Compras
Dr("Tipo") = 2 Dr("Tipo") = 2
DtTemporalGuardados.Rows.Add(Dr) DtTemporalGuardados.Rows.Add(Dr)
DtTemporalGuardados.AcceptChanges() DtTemporalGuardados.AcceptChanges()
If PorcentajeRetISR = 0.0125 Then RetISRResico = True
Exit For Exit For
ElseIf ValorXML(nodeRetencion, "Impuesto") = "002" Then ElseIf ValorXML(nodeRetencion, "Impuesto") = "002" Then
RetIVA = ValorXML(nodeRetencion, "Importe").Trim.ToDecimal RetIVA = ValorXML(nodeRetencion, "Importe").Trim.ToDecimal
PorcentajeRetIVA = ValorXML(nodeRetencion, "TasaOCuota").Trim.ToDecimal PorcentajeRetIVA = ValorXML(nodeRetencion, "TasaOCuota").Trim.ToDecimal
If PorcentajeRetIVA = 0.04 Then RetIVAFlete = True
Dim Dr As DataRow Dim Dr As DataRow
Dr = DtTemporalGuardados.NewRow() Dr = DtTemporalGuardados.NewRow()
Dr("Contador") = ContadorRetenciones Dr("Contador") = ContadorRetenciones
@@ -3754,7 +3722,7 @@ Partial Class Compras_Compras
If Version = "3.2" Then If Version = "3.2" Then
Try Try
If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
Dim ContadorTraslado = 0 Dim ContadorTraslado As Integer = 0
Dim nodosConceptosTraslado As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces) Dim nodosConceptosTraslado As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
For Each nodeTraslado As XmlNode In nodosConceptosTraslado For Each nodeTraslado As XmlNode In nodosConceptosTraslado
@@ -4163,8 +4131,8 @@ Partial Class Compras_Compras
End If End If
End If End If
Dim TotalPorDevengar = Math.Round(TxtTotal.Text.ToDouble, 2) Dim TotalPorDevengar As Decimal = Math.Round(TxtTotal.Text.ToDecimal, 2)
Dim TotalDetalle = 0.0 Dim TotalDetalle As Decimal = 0
Dim RequiereCentroCosto As Boolean = False Dim RequiereCentroCosto As Boolean = False
'If Not (UsuarioActual.Empresa.Funcionalidad(102) = "") Then 'If Not (UsuarioActual.Empresa.Funcionalidad(102) = "") Then
@@ -4292,7 +4260,7 @@ Partial Class Compras_Compras
'OBJETOS PROVISIONALES 'OBJETOS PROVISIONALES
Dim UM As New ClsUnidadesMedida Dim UM As New ClsUnidadesMedida
Dim PSS As New ClsProductosServicios Dim PSS As New ClsProductosServicios
Dim Correcto = True Dim Correcto As Boolean = True
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
@@ -4393,9 +4361,6 @@ Partial Class Compras_Compras
'------------------TERMINA VALIDACIONES------------------ '------------------TERMINA VALIDACIONES------------------
'si hay necesidad de actualizar el globaldtps 'si hay necesidad de actualizar el globaldtps
If RegeneraPS Then If RegeneraPS Then
'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT) 'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDT)
@@ -4461,12 +4426,12 @@ Partial Class Compras_Compras
Dim ErrorMovtosIE As Boolean = False Dim ErrorMovtosIE As Boolean = False
Dim ErrorMovInv As Boolean Dim ErrorMovInv As Boolean
Dim ErrorMovDev As Boolean = False Dim ErrorMovDev As Boolean = False
Dim ErrorOC = False Dim ErrorOC As Boolean = False
Dim TieneError As Boolean = False Dim TieneError As Boolean = False
Dim ErrorAC As Boolean = False Dim ErrorAC As Boolean = False
Dim ErrorAF As Boolean = False Dim ErrorAF As Boolean = False
Dim ErrorReembolso As Boolean = False Dim ErrorReembolso As Boolean = False
Dim ErrorBitacora = False Dim ErrorBitacora As Boolean = False
Dim ErrorAddAcarreos As Boolean = False Dim ErrorAddAcarreos As Boolean = False
Dim ErrorCreditosCompra As Boolean = False Dim ErrorCreditosCompra As Boolean = False
Dim ErrorOtrosGastos As Boolean = False Dim ErrorOtrosGastos As Boolean = False
@@ -4479,11 +4444,10 @@ Partial Class Compras_Compras
Dim PolizaFolio As Integer = 0 Dim PolizaFolio As Integer = 0
Dim CvePrePoliza As Integer Dim CvePrePoliza As Integer
Dim ImporteCompra As Decimal = TxtTotal.Text.ToDecimal Dim ImporteCompra As Decimal = TxtTotal.Text.ToDecimal
Dim MultiplicadorNC = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) Dim MultiplicadorNC As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1)
Dim CveMovimientoInventario As Integer = -1 Dim CveMovimientoInventario As Integer = -1
Dim IVA As Decimal = 1.16D Dim IVA As Decimal = 1.16D
Dim ListaMovimientosAlmacen As New List(Of Integer) Dim ListaMovimientosAlmacen As New List(Of Integer)
Dim Devolucion As MMensajeDevolucion = Nothing Dim Devolucion As MMensajeDevolucion = Nothing
Dim ErrorCreditoCapitalIntres As Boolean = False Dim ErrorCreditoCapitalIntres As Boolean = False
@@ -4492,7 +4456,7 @@ Partial Class Compras_Compras
If ChkProgramarPago.Checked Then If ChkProgramarPago.Checked Then
CveEstatusFactura = 2 CveEstatusFactura = 2
End If End If
Dim EntregaDirecta = False Dim EntregaDirecta As Boolean = False
Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim) Dim ConceptoPoliza As String = String.Format("{0} - {1}{2} - {3}", NombreProveedor, TxtSerie.Text, TxtFolio.Text, TxtDescripcion.Text.Trim)
Dim EsImportacion As Boolean = chkImportacion.Checked 'funcion para empresas llanteras Dim EsImportacion As Boolean = chkImportacion.Checked 'funcion para empresas llanteras
@@ -4565,7 +4529,7 @@ Partial Class Compras_Compras
If Not ErrorMovtosIE Then If Not ErrorMovtosIE Then
'REEMBOLSOS NO USA AC 'REEMBOLSOS NO USA AC
Dim NumeroReembolso = "-1" Dim NumeroReembolso As String = "-1"
If TxtNumeroReembolso IsNot Nothing And RBLPago.SelectedValue = "3" Then If TxtNumeroReembolso IsNot Nothing And RBLPago.SelectedValue = "3" Then
NumeroReembolso = TxtNumeroReembolso.Text NumeroReembolso = TxtNumeroReembolso.Text
@@ -4597,7 +4561,7 @@ Partial Class Compras_Compras
'METODO DE PREPOLIZA DE ALMACEN 'METODO DE PREPOLIZA DE ALMACEN
If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal Dim ImporteAlmacen As Decimal = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
If ImporteAlmacen > 0 Then If ImporteAlmacen > 0 Then
If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
If (CveImportacion > 0 Or CveFlete > 0) Then If (CveImportacion > 0 Or CveFlete > 0) Then
@@ -4663,8 +4627,8 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
Dim ErrorDetalles As Boolean = False Dim ErrorDetalles As Boolean = False
' Dim IDPoliza As Integer ' Dim IDPoliza As Integer
Dim IDPolizaComprometido = 0 Dim IDPolizaComprometido As Integer = 0
Dim ErrorComprometido = False Dim ErrorComprometido As Boolean = False
Dim CompraActual As New Compra Dim CompraActual As New Compra
CompraActual.CveCompra = ObjCompras.CveCompra CompraActual.CveCompra = ObjCompras.CveCompra
@@ -4893,9 +4857,9 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
' CuentaMatrizAlmacen = CtaAlmacen ' CuentaMatrizAlmacen = CtaAlmacen
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
@@ -4918,7 +4882,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If drCuenta IsNot Nothing Then If drCuenta IsNot Nothing Then
ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nula") ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nula")
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)
@@ -5034,7 +4998,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
''EMPIEZA: INSERTA DETALLES DE LA COMPRA ''EMPIEZA: INSERTA DETALLES DE LA COMPRA
Dim indiceTR = 0 Dim indiceTR As Integer = 0
Dim Cont As Integer = 0 Dim Cont As Integer = 0
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
Dim TipoRecepcion As Integer = -1 Dim TipoRecepcion As Integer = -1
@@ -5048,8 +5012,8 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
End If End If
Dim CvePersonal = -1 Dim CvePersonal As Integer = -1
Dim Referencia = "" Dim Referencia As String = ""
If GvPersonal.Rows.Count > Cont Then If GvPersonal.Rows.Count > Cont Then
CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
@@ -5058,10 +5022,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Cont = Cont + 1 Cont = Cont + 1
'Si es AF-INSUMO se guarda CveAF en CompraDetalle 'Si es AF-INSUMO se guarda CveAF en CompraDetalle
Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1) Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
'Si es AF-COMPRA se guarda CveAF en la Columna CveAFCompra 'Si es AF-COMPRA se guarda CveAF en la Columna CveAFCompra
Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1) Dim CveAFC As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
'AGREGA COMPRA DETALLE 'AGREGA COMPRA DETALLE
If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF, If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
@@ -5081,7 +5045,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If Row("EntregaDirecta").ToString.ToEntero > 0 Then If Row("EntregaDirecta").ToString.ToEntero > 0 Then
EntregaDirecta = True EntregaDirecta = True
End If End If
Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0) Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0)
TmpDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle TmpDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle
@@ -5096,7 +5059,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'Vincula Vales 'Vincula Vales
If IdVale.Count > 0 Then If IdVale.Count > 0 Then
For Each cve In IdVale For Each cve As Integer In IdVale
If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then
ErrorAF = True ErrorAF = True
Exit For Exit For
@@ -5190,12 +5153,12 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
x = x + 1 x = x + 1
Next Next
Dim cvemovimientosalida = 0 Dim cvemovimientosalida As Integer = 0
Dim cvemovimientoentrada = 0 Dim cvemovimientoentrada As Integer = 0
Dim cvemovimientosalidagasto = 0 Dim cvemovimientosalidagasto As Integer = 0
Dim folio = 0 Dim folio As Integer = 0
Dim fecha As Date = TxtFecha.Text.ToDate Dim fecha As Date = TxtFecha.Text.ToDate
Dim indice = 0 Dim indice As Integer = 0
Dim importeconcepto As Decimal = 0 Dim importeconcepto As Decimal = 0
Dim listalmacenes = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList Dim listalmacenes = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList
@@ -5278,7 +5241,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim i As Integer = 0 Dim i As Integer = 0
Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
Dim indice = 0 Dim indice As Integer = 0
Dim ImporteConcepto As Decimal = 0 Dim ImporteConcepto As Decimal = 0
Dim tCveFolioGarantia As Integer = -1 Dim tCveFolioGarantia As Integer = -1
Dim CveConceptoMovimiento As Integer = 2 Dim CveConceptoMovimiento As Integer = 2
@@ -5493,7 +5456,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim CveCreditoDetalleTemp As Integer = GvRow.DataKey("CveCreditoDetalle").ToEntero Dim CveCreditoDetalleTemp As Integer = GvRow.DataKey("CveCreditoDetalle").ToEntero
Dim CveCreditoTemp As Integer = GvRow.DataKey("CveCredito").ToEntero Dim CveCreditoTemp As Integer = GvRow.DataKey("CveCredito").ToEntero
Dim EstusTemp = GvRow.DataKey("Estatus").ToEntero Dim EstusTemp As Integer = GvRow.DataKey("Estatus").ToEntero
' Dim ImporteOpcionCompra As Decimal = GvRow.DataKey("ImporteOpcionCompra").ToDecimal ' Dim ImporteOpcionCompra As Decimal = GvRow.DataKey("ImporteOpcionCompra").ToDecimal
Dim Marcador As Decimal = GvRow.DataKey("Marcador").ToEntero Dim Marcador As Decimal = GvRow.DataKey("Marcador").ToEntero
Dim CreditoEstatus As Integer = -1 Dim CreditoEstatus As Integer = -1
@@ -5571,7 +5534,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim tipoCambioActual As Decimal Dim tipoCambioActual As Decimal
Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>" Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
Dim idCuentaContabilizacion As Long = 1 Dim idCuentaContabilizacion As Long = 1
Dim CveCuentaContabilizacion As Long = 1
Dim FechaMovimiento As Date = TxtFecha.Text.ToDate Dim FechaMovimiento As Date = TxtFecha.Text.ToDate
Dim DT As DataTable = Nothing Dim DT As DataTable = Nothing
Dim CuentasContablesInvalidas As New StringBuilder Dim CuentasContablesInvalidas As New StringBuilder
@@ -6029,7 +5991,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
importeMovimiento = 0 importeMovimiento = 0
'COSTO ALMACEN 'COSTO ALMACEN
Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
@@ -6101,9 +6063,9 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And (ISNULL(CveTipoPS,0) = 2 Or (ISNULL(CveTipoPS,0) = 1 And ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And (ISNULL(CveTipoPS,0) = 2 Or (ISNULL(CveTipoPS,0) = 1 And ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
Dim ConceptoContabilizacion = 205 Dim ConceptoContabilizacion As Integer = 205
Dim ConceptoContabilizacionME = -1 Dim ConceptoContabilizacionME As Integer = -1
Dim ConceptoContabilizacionMEComp = -1 Dim ConceptoContabilizacionMEComp As Integer = -1
If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then
ConceptoContabilizacion = CveConceptoContableAlmacen ConceptoContabilizacion = CveConceptoContableAlmacen
@@ -6144,7 +6106,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'If importeMovimiento <> 0 Then 'If importeMovimiento <> 0 Then
Select Case ConceptoContabilizacion Select Case ConceptoContabilizacion
Case 176 Case 176
Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D Dim SumatoriaOCINV As Decimal = 0.0D, Importe176 As Decimal = 0.0D, ImporteME176 As Decimal = 0.0D, ImporteMN176 As Decimal = 0.0D, Importe228 As Decimal = 0.0D, ImporteME228 As Decimal = 0.0D, ImporteMN228 As Decimal = 0.0D, Importe229 As Decimal = 0.0D, ImporteME229 As Decimal = 0.0D, ImporteMN229 As Decimal = 0.0D, ImporteCI176 As Decimal = 0.0D
Dim SumatoriaInventario As Decimal = 0 Dim SumatoriaInventario As Decimal = 0
Dim TCO As Decimal = 1 Dim TCO As Decimal = 1
For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows
@@ -6203,7 +6165,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
' se abona el costo, cambiamos su naturaleza ' se abona el costo, cambiamos su naturaleza
'SumatoriaOCINV = -SumatoriaOCINV 'SumatoriaOCINV = -SumatoriaOCINV
Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero Dim CveClasificacionCostoOC As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero Dim CveSubProyecto69 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
If CveSubProyecto69 <= 0 Then If CveSubProyecto69 <= 0 Then
@@ -6275,7 +6237,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
'no es necesario, ya se está interpretandoe l usado como producto 'no es necesario, ya se está interpretandoe l usado como producto
Dim ConceptoContabilizacionNC = 225 Dim ConceptoContabilizacionNC As Integer = 225
Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero Dim tCveClasif As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero
Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero Dim tCveSubProyecto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero
Dim CveMovimientoDevolucion As Integer = -1 Dim CveMovimientoDevolucion As Integer = -1
@@ -6322,10 +6284,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal) 'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * tipoCambioActual).RoundSQL
ImporteTransito += importeMNTemp ImporteTransito += importeMNTemp
'se registra por cada compra relacionada 'se registra por cada compra relacionada
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, importeMNTemp, ConceptoContabilizacionNC, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
@@ -6622,7 +6584,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'AMORTIZACIÓN EN EL REGISTRO 'AMORTIZACIÓN EN EL REGISTRO
For Each Gvr As GridViewRow In GvFacturaNC.Rows For Each Gvr As GridViewRow In GvFacturaNC.Rows
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
Dim Pago As New CompraPago Dim Pago As New CompraPago
Pago.ImportePago = importeMovimientoNC Pago.ImportePago = importeMovimientoNC
@@ -6663,8 +6625,8 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
For Each Gvr As GridViewRow In GvFacturaNC.Rows For Each Gvr As GridViewRow In GvFacturaNC.Rows
If Gvr.FCCheckBox("ChkFacturaNC").Checked Then If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa)) 'Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal Dim importeMovimientoNC As Decimal = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador Dim importeMNNC As Decimal = importeMovimientoNC * tipoCambioActual * Multiplicador
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, importeMNNC, 272, Referencia, Concepto, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimientoNC, importeMNNC, 272, Referencia, Concepto, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, importeMNNC, 60, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimientoNC, importeMNNC, 60, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
@@ -6705,7 +6667,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If ArrAnticipos.Count > 0 Then If ArrAnticipos.Count > 0 Then
Dim PorcentajeImpuestoAnticipo = PorcentajeIVA Dim PorcentajeImpuestoAnticipo As Decimal = PorcentajeIVA
For Each Ant As Compras_Compras.Anticipos In ArrAnticipos For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
@@ -6738,9 +6700,9 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If importeMovimiento <> 0 Then If importeMovimiento <> 0 Then
'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA 'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
Dim importeMovimientoNC = Ant.Importe Dim importeMovimientoNC As Decimal = Ant.Importe
Dim importeMNNC = 0.0D Dim importeMNNC As Decimal = 0.0D
Dim TipoCambioNC = Ant.TCCompra Dim TipoCambioNC As Decimal = Ant.TCCompra
importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 60, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 60, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
@@ -6791,9 +6753,9 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
Dim importeMovimientoNC = Ant.Importe Dim importeMovimientoNC As Decimal = Ant.Importe
Dim importeMNNC = 0.0D Dim importeMNNC As Decimal = 0.0D
Dim TipoCambioNC = Ant.TCCompra Dim TipoCambioNC As Decimal = Ant.TCCompra
importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 265, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 265, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
@@ -7207,7 +7169,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza) ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
End If End If
End If End If
'AJUSTA POLIZA 'AJUSTA POLIZA
@@ -7219,13 +7180,13 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza) Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>&nbsp;&nbsp; ", CvePrePoliza)
Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza)) Dim TempParametros As String = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>") Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> <i class='fa fa-file-pdf-o' aria-hidden='true'></i> Imprimir </a>")
End If End If
If CveMovimientoInventario > 0 Then If CveMovimientoInventario > 0 Then
Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario)) Dim TempParametros As String = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario) Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros) Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
End If End If
@@ -8203,10 +8164,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim Retorno As Boolean = True Dim Retorno As Boolean = True
Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero
Dim MultiplicadorNC = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1) Dim MultiplicadorNC As Decimal = If(DdlTipoComprobante.SelectedValue = "NC", -1, 1)
Dim ErrorAC = False Dim ErrorAC As Boolean = False
Dim IDPolizaComprometido = 0 Dim IDPolizaComprometido As Integer = 0
If ChkProgramarPago.Checked AndAlso CveEstatusFactura = 1 Then If ChkProgramarPago.Checked AndAlso CveEstatusFactura = 1 Then
CveEstatusFactura = 2 CveEstatusFactura = 2
@@ -8553,7 +8514,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If Not ErrorAC Then If Not ErrorAC Then
Dim Cont As Integer = 0 Dim Cont As Integer = 0
Dim indiceTR = 0 Dim indiceTR As Integer = 0
For Each Row As DataRow In TmpDT.Rows For Each Row As DataRow In TmpDT.Rows
'actualizar las clasificaciones, que se hallan hecho 'actualizar las clasificaciones, que se hallan hecho
@@ -8795,7 +8756,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Private Function ActualizarPrePoliza(ObjConta As ClsContabilidad, ObjCompra As ClsCompras) As Boolean Private Function ActualizarPrePoliza(ObjConta As ClsContabilidad, ObjCompra As ClsCompras) As Boolean
Dim Retorno = True, ErrorPrepoliza = False Dim Retorno As Boolean = True, ErrorPrepoliza As Boolean = False
Dim CvePlantillaPrePoliza As Integer Dim CvePlantillaPrePoliza As Integer
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
CvePlantillaPrePoliza = 60 CvePlantillaPrePoliza = 60
@@ -8858,7 +8819,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
For Each Row As DataRow In ObjConta.DtResultados.Rows For Each Row As DataRow In ObjConta.DtResultados.Rows
Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False) Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
Dim importeMovimiento As Decimal = 0 Dim importeMovimiento As Decimal = 0
Dim importeMN As Decimal = 0 Dim importeMN As Decimal = 0
@@ -8916,7 +8877,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
Dim CveConceptoContableAlmacen = 0 Dim CveConceptoContableAlmacen As Integer = 0
If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero CveConceptoContableAlmacen = ObjCompra.DtResultados.FiltroPrimeroValor("CveConceptoContableAlmacen").ToEntero
@@ -8957,7 +8918,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'LIMPIA 'LIMPIA
importeMovimiento = 0 importeMovimiento = 0
'COSTO ALMACEN 'COSTO ALMACEN
Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa) Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"}) DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
@@ -8980,7 +8941,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
Next Next
End If End If
@@ -9000,7 +8960,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
ErrorPrepoliza = True ErrorPrepoliza = True
End If End If
End If End If
End If End If
'NC CON PRODUCTOS - CUENTA PUENTE 'NC CON PRODUCTOS - CUENTA PUENTE
@@ -9039,13 +8998,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
End If End If
Dim DTDistinct As DataTable = DT.Copy
Dim DTDistinct = DT.Copy
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"}) DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
Else Else
If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"}) DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
Else Else
@@ -9053,7 +9009,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
End If End If
If DTDistinct.Rows.Count > 0 Then If DTDistinct.Rows.Count > 0 Then
For Each Row2 As DataRow In DTDistinct.Rows For Each Row2 As DataRow In DTDistinct.Rows
@@ -9067,8 +9022,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If DdlTipoCompra.SelectedValue.ToEntero = 10 Then If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
End If End If
importeMN = importeMovimiento * tipoCambioActual * Multiplicador importeMN = importeMovimiento * tipoCambioActual * Multiplicador
'AGREGA MOVIMIENTO 'AGREGA MOVIMIENTO
@@ -9094,7 +9047,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If DtPrePolizas IsNot Nothing Then If DtPrePolizas IsNot Nothing Then
For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows For Each RowPrePoliza As DataRow In DtPrePolizas.FiltraParametros("", DistinctColumns:={"CvePrePoliza"}).Rows
If ObjConta.ValidacionPrePolizaCuadre(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), 4) Then If ObjConta.ValidacionesPrePoliza(RowPrePoliza("CvePrePoliza").ToString().ToEntero(), UsuarioActual, Opcion:=4, AutoConta:=False) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorPrepoliza = True ErrorPrepoliza = True
Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia)
@@ -9207,10 +9160,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
_TipoComprobante = ValorXML(nodo, "tipoDeComprobante") _TipoComprobante = ValorXML(nodo, "tipoDeComprobante")
TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal TipoCambio = ValorXML(nodo, "TipoCambio", "1").ToDecimal
If Version = "3.3" Or Version = "4.0" Then If Version = "3.3" Or Version = "4.0" Then
Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago"))) Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
If drm IsNot Nothing Then If drm IsNot Nothing Then
@@ -9237,7 +9186,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal") namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal") namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
If _TipoComprobante.ToUpper = "E" And (Version = "3.3" Or Version = "4.0") Then If _TipoComprobante.ToUpper = "E" And (Version = "3.3" Or Version = "4.0") Then
Dim UUIDS As String = "" Dim UUIDS As String = ""
@@ -9251,7 +9199,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Next Next
End If End If
UUIDSList = UUIDSLista UUIDSList = UUIDSLista
End If End If
Dim node As XmlNode Dim node As XmlNode
@@ -9290,7 +9237,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal
If Version = "3.3" OrElse Version = "4.0" Then If Version = "3.3" OrElse Version = "4.0" Then
For Each retencion As XmlNode In nodeRetenciones For Each retencion As XmlNode In nodeRetenciones
If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal If retencion.Attributes("Impuesto").Value = "002" Then RetencionIVA += retencion.Attributes("Importe").Value.ToDecimal
If retencion.Attributes("Impuesto").Value = "001" Then RetencionISR += retencion.Attributes("Importe").Value.ToDecimal If retencion.Attributes("Impuesto").Value = "001" Then RetencionISR += retencion.Attributes("Importe").Value.ToDecimal
@@ -9298,7 +9244,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
GvOC1.Columns(6).Visible = True GvOC1.Columns(6).Visible = True
GvOC2.Columns(4).Visible = True GvOC2.Columns(4).Visible = True
Else Else
For Each retencion As XmlNode In nodeRetenciones For Each retencion As XmlNode In nodeRetenciones
If retencion.Attributes("impuesto").Value = "IVA" Then RetencionIVA += retencion.Attributes("importe").Value.ToDecimal If retencion.Attributes("impuesto").Value = "IVA" Then RetencionIVA += retencion.Attributes("importe").Value.ToDecimal
If retencion.Attributes("impuesto").Value = "ISR" Then RetencionISR += retencion.Attributes("importe").Value.ToDecimal If retencion.Attributes("impuesto").Value = "ISR" Then RetencionISR += retencion.Attributes("importe").Value.ToDecimal
@@ -9313,14 +9258,12 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
If Version = "3.3" OrElse Version = "4.0" Then If Version = "3.3" OrElse Version = "4.0" Then
For Each traslado As XmlNode In nodeTraslados For Each traslado As XmlNode In nodeTraslados
If traslado.Attributes("Importe") IsNot Nothing Then If traslado.Attributes("Importe") IsNot Nothing Then
If traslado.Attributes("Impuesto").Value = "002" Then TrasladoIVA += traslado.Attributes("Importe").Value.ToDecimal If traslado.Attributes("Impuesto").Value = "002" Then TrasladoIVA += traslado.Attributes("Importe").Value.ToDecimal
If traslado.Attributes("Impuesto").Value = "003" Then TrasladoIEPS += traslado.Attributes("Importe").Value.ToDecimal If traslado.Attributes("Impuesto").Value = "003" Then TrasladoIEPS += traslado.Attributes("Importe").Value.ToDecimal
End If End If
Next Next
Else Else
For Each traslado As XmlNode In nodeTraslados For Each traslado As XmlNode In nodeTraslados
If traslado.Attributes("Importe") IsNot Nothing Then If traslado.Attributes("Importe") IsNot Nothing Then
If traslado.Attributes("impuesto").Value = "IVA" Then TrasladoIVA += traslado.Attributes("importe").Value.ToDecimal If traslado.Attributes("impuesto").Value = "IVA" Then TrasladoIVA += traslado.Attributes("importe").Value.ToDecimal
@@ -9329,7 +9272,6 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
Next Next
End If End If
SumaTotalTraslados += TrasladoIVA SumaTotalTraslados += TrasladoIVA
SumaTotalTraslados += TrasladoIEPS SumaTotalTraslados += TrasladoIEPS
End If End If
@@ -11902,20 +11844,19 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
ObjConta.Dispose() ObjConta.Dispose()
End Sub End Sub
Protected Sub LBContabilizarAC_Click(sender As Object, e As EventArgs) Protected Sub LBContabilizarAC_Click(sender As Object, e As EventArgs)
Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
Dim ObjProveedores As New ClsCompProveedores(ObjCompras.IniciaTransacSQL()) Dim ObjProveedores As New ClsCompProveedores(ObjCompras.IniciaTransacSQL())
Dim ObjAF As New ClsAF(ObjCompras.IniciaTransacSQL()) Dim ObjAF As New ClsAF(ObjCompras.IniciaTransacSQL())
Dim ErrorAC = False Dim ErrorAC As Boolean = False
Dim IDPolizaComprometido = If(TxtOC.Text.Length > 0, 1, 0) Dim IDPolizaComprometido As Integer = If(TxtOC.Text.Length > 0, 1, 0)
''EMPIEZA: SI USA AC ''EMPIEZA: SI USA AC
If UsuarioActual.Empresa.UsaAC Then If UsuarioActual.Empresa.UsaAC Then
ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
ObjContaAC.IniciaTransacSQL() ObjContaAC.IniciaTransacSQL()
'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA 'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA
If IdPoliza > 0 Then If IdPoliza > 0 Then
ObjContaAC.RemoveAllMovimientos(IdPoliza) ObjContaAC.RemoveAllMovimientos(IdPoliza)
@@ -12223,7 +12164,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
ObjConta.IniciaTransacSQL() ObjConta.IniciaTransacSQL()
Dim ErrorCompra = False Dim ErrorCompra As Boolean = False
'Elimina la poliza 'Elimina la poliza
If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then
@@ -12987,11 +12928,11 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean
Dim dr As DataRow = Nothing Dim dr As DataRow = Nothing
Dim ErrorBitacora = False Dim ErrorBitacora As Boolean = False
Dim Archivo = "" Dim Archivo As String = ""
Dim Folio = "" Dim Folio As String = ""
Dim Extension = "" Dim Extension As String = ""
Dim Ruta = "" Dim Ruta As String = ""
'CARGA COMPRA REFACTURADA 'CARGA COMPRA REFACTURADA
If CveCompra > 0 AndAlso ObjCompra.GetCompras(CveCompraRefacturacion, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then If CveCompra > 0 AndAlso ObjCompra.GetCompras(CveCompraRefacturacion, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
@@ -13168,10 +13109,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
ObjAC.IniciaTransacSQL() ObjAC.IniciaTransacSQL()
End If End If
Dim ErrorCancelar = False Dim ErrorCancelar As Boolean = False
Dim IdPolizaNueva = -1 Dim IdPolizaNueva As Integer = -1
Dim FolioPolizaNueva = -1 Dim FolioPolizaNueva As Integer = -1
Dim CvePrePolizaNueva = -1 Dim CvePrePolizaNueva As Integer = -1
Try Try
@@ -13210,7 +13151,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
' End If ' End If
'Next 'Next
Dim DtMovimientos = 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
@@ -13219,7 +13160,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
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
Dim CveConcetoEntrada = RowMovto("CveConcepto").ToString().ToEntero() Dim CveConcetoEntrada As Integer = RowMovto("CveConcepto").ToString().ToEntero()
Dim CveMovimientoReferencia As Integer = RowMovto("CveMovimiento").ToString().ToEntero() Dim CveMovimientoReferencia As Integer = RowMovto("CveMovimiento").ToString().ToEntero()
Select Case CveConcetoEntrada Select Case CveConcetoEntrada
@@ -13254,7 +13195,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
Dim DtPrePolizaAlmacen = 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) 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)
@@ -15602,7 +15543,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
#Region " CONVERTIR PESOS " #Region " CONVERTIR PESOS "
Protected Sub BtnConvertirPesos_Click(sender As Object, e As EventArgs) Protected Sub BtnConvertirPesos_Click(sender As Object, e As EventArgs)
Dim TipoCambioTemp = TxtConvertirPesos.Text.ToDouble Dim TipoCambioTemp As Double = TxtConvertirPesos.Text.ToDouble
If TipoCambioTemp <= 0 Then If TipoCambioTemp <= 0 Then
Exit Sub Exit Sub
@@ -15617,7 +15558,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp Dr("Descuento") = Dr("Descuento").ToString.ToDecimal * TipoCambioTemp
Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp Dr("OtrosGastos") = Dr("OtrosGastos").ToString.ToDecimal * TipoCambioTemp
Dim Total = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal Dim Total As Decimal = (Dr("Cantidad").ToString.ToDecimal * Dr("PU").ToString.ToDecimal) - Dr("Descuento").ToString.ToDecimal + Dr("OtrosGastos").ToString.ToDecimal
Dr("Total") = Total Dr("Total") = Total
Next Next
@@ -15701,7 +15642,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
'RETENCIONES 'RETENCIONES
Dim Retenciones = 0D Dim Retenciones As Decimal = 0D
Retenciones = RetIVA.ToDecimal Retenciones = RetIVA.ToDecimal
Retenciones += RetISR.ToDecimal Retenciones += RetISR.ToDecimal
@@ -15796,7 +15737,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End Sub End Sub
Private Function ValidaTotalesGuardar() As Boolean Private Function ValidaTotalesGuardar() As Boolean
Dim EsValido = True Dim EsValido As Boolean = True
'VALIDA IMPORTES 'VALIDA IMPORTES
'VALIDA TOTAL CON LOS IMPORTES TOTALES 'VALIDA TOTAL CON LOS IMPORTES TOTALES
@@ -15829,7 +15770,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
TempRetISR = TxtRetISR.Text.ToDouble TempRetISR = TxtRetISR.Text.ToDouble
TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2) TempTotal = Math.Round(TempSubTotal2 + TempIVA + TempIEPS - TempRetIVA - TempRetISR + TxtOtrosImpuestos.Text.ToDouble - Amortizacion, 2)
DifTotales = TxtTotal.Text.ToDouble - TempTotal DifTotales = TxtTotal.Text.ToDouble - TempTotal
Dim DiferenciaPermitida = 0.6 Dim DiferenciaPermitida As Decimal = 0.6D
If Math.Abs(DifTotales) > DiferenciaPermitida Then If Math.Abs(DifTotales) > DiferenciaPermitida Then
Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia) Alert(String.Format("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.[{0}]", Math.Abs(DifTotales) - DiferenciaPermitida), TipoMensaje.MsgAdvertencia)
@@ -15841,7 +15782,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
SubTotal2Original = TxtSubTotal2.Text.ToDouble SubTotal2Original = TxtSubTotal2.Text.ToDouble
End If End If
Dim DiferenciaSubtotales = 0.0D Dim DiferenciaSubtotales As Decimal = 0.0D
If CveCompra > 0 Or CveFactura > 0 Or OCVinculada Then If CveCompra > 0 Or CveFactura > 0 Or OCVinculada Then
If SubTotalOriginal = Nothing Then If SubTotalOriginal = Nothing Then
@@ -16218,16 +16159,11 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
End If End If
Next Next
Next Next
DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp) DdlPS.DataSource = If(CveClasificacion > 0, DTTemp.FiltraParametros($"CveClasificacion = {CveClasificacion}"), DTTemp)
Else Else
DdlPS.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)) DdlPS.DataSource = If(CveClasificacion > 0, GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros($"CveClasificacion = {CveClasificacion}"), GlobalDTPSSimplificado(UsuarioActual.CveEmpresa))
End If End If
DdlPS.ddl.DataBind() DdlPS.ddl.DataBind()
DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
End If End If
@@ -16374,7 +16310,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
CargaSubProyecto() CargaSubProyecto()
End Sub End Sub
Private Sub CargaSubProyecto() Private Sub CargaSubProyecto()
Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1) Dim CveProyecto As Integer = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
DdlSubProyecto.Items.Clear() DdlSubProyecto.Items.Clear()
'SI NO SE VE EL PROYECTO NO FILTRAR POR PROYECTO 'SI NO SE VE EL PROYECTO NO FILTRAR POR PROYECTO
@@ -16479,7 +16415,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
dttemp.Columns.Add("Cantidad", GetType(Decimal)) dttemp.Columns.Add("Cantidad", GetType(Decimal))
dttemp.Columns.Add("PU", GetType(Decimal)) dttemp.Columns.Add("PU", GetType(Decimal))
Dim DrPS = dttemp.NewRow Dim DrPS As DataRow = dttemp.NewRow
DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero DrPS("CveSubProyecto") = DdlSubProyecto.SelectedValue.ToString.ToEntero
DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero DrPS("CvePS") = DdlPS.SelectedValue.ToString.ToEntero
DrPS("Cantidad") = TxtCantidad.Text.Trim.ToDecimal DrPS("Cantidad") = TxtCantidad.Text.Trim.ToDecimal
@@ -17194,7 +17130,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
#Region " PS ALIAS " #Region " PS ALIAS "
Protected Sub DdlPSAlias_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSAlias2.selectedindexchange Protected Sub DdlPSAlias_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPSAlias2.selectedindexchange
If Not DdlPSAlias2.SelectedValue = "" Then If Not DdlPSAlias2.SelectedValue = "" Then
Dim DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSAlias2.SelectedValue.ToEntero).FiltroPrimero("") Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSAlias2.SelectedValue.ToEntero).FiltroPrimero("")
If DrPS IsNot Nothing Then If DrPS IsNot Nothing Then
DdlUnidadAlias.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSAlias2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) DdlUnidadAlias.DataSource = GlobalDTProductosServiciosEquivalencias(DdlPSAlias2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
DdlUnidadAlias.DataBind() DdlUnidadAlias.DataBind()
@@ -17224,7 +17160,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim dttemp As New DataTable Dim dttemp As New DataTable
dttemp.Columns.Add("CveSubProyecto", GetType(Integer)) dttemp.Columns.Add("CveSubProyecto", GetType(Integer))
dttemp.Columns.Add("CvePS", GetType(Integer)) dttemp.Columns.Add("CvePS", GetType(Integer))
Dim DrPS = dttemp.NewRow Dim DrPS As DataRow = dttemp.NewRow
DrPS("CveSubProyecto") = CveSubProyecto DrPS("CveSubProyecto") = CveSubProyecto
DrPS("CvePS") = CvePS DrPS("CvePS") = CvePS
dttemp.Rows.Add(DrPS) dttemp.Rows.Add(DrPS)
@@ -17316,11 +17252,11 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Dim ObjUM As New ClsUnidadesMedida Dim ObjUM As New ClsUnidadesMedida
Dim ObjPS As New ClsProductosServicios(ObjUM.IniciaTransacSQL()) Dim ObjPS As New ClsProductosServicios(ObjUM.IniciaTransacSQL())
Dim TieneError = False Dim TieneError As Boolean = False
Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Dim DtEquivalencia As DataTable = GlobalDTProductosServiciosEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
Dim CveUM = -1 Dim CveUM As Integer = -1
Dim UM = "" Dim UM As String = ""
Dim Equivalencia = 0.0 Dim Equivalencia As Decimal = 0
Select Case HdnUMAliasModalidad.Value.ToEntero Select Case HdnUMAliasModalidad.Value.ToEntero
@@ -17342,14 +17278,14 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
'UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1") 'UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1")
CveUM = DdlUMAlias.SelectedValue.ToEntero CveUM = DdlUMAlias.SelectedValue.ToEntero
UM = TxtUMAlias.Text.Trim UM = TxtUMAlias.Text.Trim
Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal
Case 2 Case 2
Case 3 'AGREGA EQUIVALENCIA Case 3 'AGREGA EQUIVALENCIA
CveUM = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1").ToEntero CveUM = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1").ToEntero
UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1") UM = DtEquivalencia.FiltroPrimeroValor("UM", "UnidadBase = 1")
Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal
If Not TieneError Then If Not TieneError Then
If Not ObjPS.AddPSEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CveUM").ToString.ToEntero, TxtUMEquivalenciaCantidad.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then If Not ObjPS.AddPSEquivalencias(TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CvePS").ToString.ToEntero, TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)("CveUM").ToString.ToEntero, TxtUMEquivalenciaCantidad.Text.ToDecimal, False, 0, UsuarioActual.CveUsuario) Then
TieneError = True TieneError = True
@@ -17359,7 +17295,7 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
CveUM = ObjUM.AddUnidadMedida(TxtUMAlias.Text.Trim, TxtUMAbreviatura.Text.Trim, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(HdnUMAliasCveSATUM.Value.ToEntero > 0, HdnUMAliasCveSATUM.Value.ToEntero, -1)) CveUM = ObjUM.AddUnidadMedida(TxtUMAlias.Text.Trim, TxtUMAbreviatura.Text.Trim, "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, If(HdnUMAliasCveSATUM.Value.ToEntero > 0, HdnUMAliasCveSATUM.Value.ToEntero, -1))
UM = TxtUMAlias.Text.Trim UM = TxtUMAlias.Text.Trim
Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDouble Equivalencia = TxtUMEquivalenciaCantidad.Text.ToDecimal
If Not CveUM > 0 Then If Not CveUM > 0 Then
TieneError = True TieneError = True
@@ -17391,10 +17327,10 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
Alert("Unidad de medida actualizada correctamente.", TipoMensaje.MsgInformacion) Alert("Unidad de medida actualizada correctamente.", TipoMensaje.MsgInformacion)
'ACTUALIZA DIRECTO DT 'ACTUALIZA DIRECTO DT
Dim Dr = TmpDT.Rows(HdnUMAliasInd.Value.ToEntero) Dim Dr As DataRow = TmpDT.Rows(HdnUMAliasInd.Value.ToEntero)
Dim CvePSModificado = Dr("CvePS").ToString.ToEntero Dim CvePSModificado As Integer = Dr("CvePS").ToString.ToEntero
Dim CveUMModificada = Dr("CveUM").ToString.ToEntero Dim CveUMModificada As Integer = Dr("CveUM").ToString.ToEntero
Dim UMModificada = Dr("UM").ToString Dim UMModificada As String = Dr("UM").ToString
For Each DrUM As DataRow In TmpDT.Rows For Each DrUM As DataRow In TmpDT.Rows
If DrUM("CveUM").ToString.ToEntero = CveUMModificada And DrUM("UM").ToString = UMModificada Then If DrUM("CveUM").ToString.ToEntero = CveUMModificada And DrUM("UM").ToString = UMModificada Then
@@ -17425,9 +17361,9 @@ LblAmortizacion.Text.ToDecimal, TxtIVA.Text.ToDecimal, TxtRetIVA.Text.ToDecimal,
ObjPS.Dispose() ObjPS.Dispose()
End Sub End Sub
Protected Sub LBAplicarEquivalencia_Click(sender As Object, e As EventArgs) Protected Sub LBAplicarEquivalencia_Click(sender As Object, e As EventArgs)
Dim Dr = TmpDT.Rows(CType(CType(sender, LinkButton).NamingContainer, GridViewRow).RowIndex) Dim Dr As DataRow = TmpDT.Rows(CType(CType(sender, LinkButton).NamingContainer, GridViewRow).RowIndex)
Dim DtEquivalencia = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Dim DtEquivalencia As DataTable = GlobalDTProductosServiciosEquivalencias(Dr("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
Dim Equivalencia = DtEquivalencia.FiltroPrimeroValor("Cantidad", $"CveUM = {Dr("CveUM")}").ToDouble Dim Equivalencia As Double = DtEquivalencia.FiltroPrimeroValor("Cantidad", $"CveUM = {Dr("CveUM")}").ToDouble
If Equivalencia > 0 Then If Equivalencia > 0 Then
Dr("CveUM") = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1") Dr("CveUM") = DtEquivalencia.FiltroPrimeroValor("CveUM", "UnidadBase = 1")