", Encripta(String.Format("OP=FactVta&CVEVENTA={0}&EXT={1}&SERIEFOLIO={2}&TIPODOCTO={3}", CveVenta, "XML", Me.SerieFolio, Me.TipoDocto)))
End If
End If
@@ -1204,6 +1237,10 @@ Namespace Modelos
MensajeAlert.AppendFormat("
Se generó una Nota de crédito Folio: {0} amortizando el anticipo ", FacturaDevolucion.Folio)
End If
+ If SeTimbro AndAlso CveFacturacionAcarreo > 0 Then
+ MensajeAlert.AppendFormat("
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 1c91c0c4b..ae7a6221f 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2,6 +2,7 @@
Option Explicit On
Imports System.Data
+Imports System.Data.SqlClient
Imports System.Diagnostics
Imports System.Globalization
Imports System.IO
@@ -10,17 +11,17 @@ Imports System.Net.Http
Imports System.Net.Http.Headers
Imports System.Threading
Imports System.Threading.Tasks
+Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports System.Xml
Imports ADSistemaLibrary.SatXml
Imports ADSistemaLibrary.SatXml.XmlSatCFDI
-'Imports ADSNetLibrary.SIGAPI.Helpers
Imports ClsPaginas
-'Imports DocumentFormat.OpenXml.Spreadsheet
-'Imports DocumentFormat.OpenXml.Wordprocessing
Imports Extensiones
+Imports HigLabo
+Imports Microsoft.Owin.Security.Provider
Imports Microsoft.Reporting.WebForms
Imports Newtonsoft.Json.Linq
-Imports Telerik.Web.Apoc
+
Partial Class Compras_eFacturas
@@ -5085,7 +5086,6 @@ Partial Class Compras_eFacturas
cargasolicitudes()
End If
-
End Sub
@@ -5172,8 +5172,8 @@ Partial Class Compras_eFacturas
End Sub
Private Sub CargaClasificaciones()
- DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
- DdlClasificacion.DataBind()
+ 'DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+ 'DdlClasificacion.DataBind()
End Sub
Private Sub CargaPS(CveClasificacion As Integer)
@@ -5181,7 +5181,8 @@ Partial Class Compras_eFacturas
DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
- DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+ 'DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+ DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
DdlPS.SelectedText = ""
DdlPS.SelectedValue = "-1"
Else
@@ -5244,11 +5245,11 @@ Partial Class Compras_eFacturas
Case "2" ' F y E
DivPersonalReembolso.Visible = True
RfvTxtNumeroReembolso.Enabled = True
- TxtNumeroReembolso.Text = ""
+
Case "6" ' Caja Chica
DivCuentaCajaChicaReembolso.Visible = True
RfvTxtNumeroReembolso.Enabled = True
- TxtNumeroReembolso.Text = ""
+
End Select
UpRegistroFacturas.Update()
@@ -5304,9 +5305,6 @@ Partial Class Compras_eFacturas
#End Region
-
-
-
Protected Sub LnkRegistarFactura_Click(sender As Object, e As EventArgs)
DVRegistraFacturas.Visible = True
GvD.Columns(0).Visible = True
@@ -5317,87 +5315,67 @@ Partial Class Compras_eFacturas
Protected Sub BtnGuardarFacturas_Click(sender As Object, e As EventArgs)
+ Dim ErrorProceso As Boolean = False
+ Dim Contador As Integer = 0
+ Dim ErrorProcesoStr As String = ""
+ If Not DdlPS.SelectedValue.ToEntero > 0 Then
+ Alert("Debe seleccionar un producto", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
For Each GvRow As GridViewRow In GvD.Rows
- If GvRow.FCCheckBox("").Checked Then
+ If GvRow.FCCheckBox("chkRegistraFactura").Checked Then
Dim CFDIXmlPath As String = $"{UsuarioActual.Empresa.Ruta}Compras\{GvRow.DataKey("RFCDe")}\{GvRow.DataKey("XML")}"
If Not File.Exists(CFDIXmlPath) Then
+ ErrorProceso = True
Exit For
End If
Dim CompraActual As New Compra2(CFDIXmlPath, Compra2.EnumCargaCompra.DesdeArchivo, GlobalDTTiposGastos(UsuarioActual.CveEmpresa), UsuarioActual)
+ CompraActual.CveFactura = GvRow.DataKey("CveFactura").ToEntero
CompraActual.CveProveedor = GvRow.DataKey("CveProveedor").ToEntero
CompraActual.CveTipoProveedor = GvRow.DataKey("CveTipoProveedor").ToEntero
- CompraActual.CveEstatusFactura = -1
- CompraActual.CvePrePoliza = -1
+ CompraActual.CveTipoConceptoProveedor = GvRow.DataKey("CveTipoProveedor").ToEntero
CompraActual.TipoCompra = Compra2.EnumTipoCompra.Sin_definir
CompraActual.IEPSGasto = True
+ CompraActual.Descripcion = TxtDescripcionCompra.Text.Trim
+ CompraActual.NombreProveedor = GvRow.DataKey("NombreProveedor")
+ Dim CvePersonal As Integer = -1 'DdlPersonalReembolso.SelectedValue.ToEntero
+ Dim CveCajachica As Integer = -1 'DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
+ If RBLContado.SelectedValue.ToEntero = 6 Then
+ CveCajachica = DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero
+ Else
+ CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
+ End If
- Dim ObjCompras As New ClsCompras
- Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL)
-
- Dim ConceptoPoliza As String = String.Format("{0} - {1} - {2}", GvRow.DataKey("NombreProveedor"), GvRow.DataKey("SerieFolio"), "")
-
- CompraActual.CvePrePoliza = ObjConta.AddPrePolizas("eFacturas/Registrar", 1, CompraActual.Total, CompraActual.Total, CompraActual.CveMoneda, CompraActual.Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", CveTipoPoliza:=3)
-
- CompraActual.ConfiguraRegistroRapidoReembolso(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, DdlPersonalReembolso.SelectedValue.ToEntero,
- DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero)
-
- 'CompraActual.AddCompra()
-
-
-
-
- 'If ObjCompras.AddCompra"Fac", TxtDescripcion.Text.Trim, CompraActual.SerieFolio, CompraActual.Folio, CompraActual.FolioSecundario, CompraActual.CveProveedor, CompraActual.SubTotal, CompraActual.Descuentos,
- ' CompraActual.Amortizacion, CompraActual.IVA, CompraActual.RetIVA, CompraActual.RetISR, CompraActual.IEPS, CompraActual.OtrosImpuestos,
- ' CompraActual.Redondeo, CompraActual.Total, CompraActual.Fecha, CompraActual.CveMoneda, CompraActual.TipoCambio, If(CompraActual.FechaPago = Nothing, CompraActual.Fecha, CompraActual.FechaPago), CompraActual.AplicaNotaCredito, CompraActual.Observaciones, CompraActual.CveEstatusFactura,
- ' CompraActual.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CompraActual.IdPoliza, CveCajaChica:=CompraActual.CveCajaChica, CvePersonal:=CompraActual.CvePersonal, NumeroReembolso:=CompraActual.NumeroReembolso, CveProveedorSucursal:=CompraActual.CveProveedorSucursal,
- ' AplicoPromocion:=CompraActual.AplicoPromocion, PorcentajeIVA:=CompraActual.PorcentajeIVA, CveMetodoPago:=CompraActual.CveMetodoPago, CveRetIVAConcepto:=CompraActual.CveRetIVAConcepto,
- ' CveConceptoContableAlmacen:=CompraActual.CveConceptoContableAlmacen,
- ' CveRetISRConcepto:=CompraActual.CveRetISRConcepto, NoDeducible:=CompraActual.NoDeducible, CveTipoCompra:=CompraActual.CveTipoCompra, TotalOriginal:=CompraActual.TotalOriginal, CveTipoConcepto:=CompraActual.CveTipoConcepto,
- ' EsImportacion:=CompraActual.EsImportacion, CveFactura:=CompraActual.CveFactura, CveSubProyecto:=CompraActual.CveSubProyectoPrincipal, DoctosRelacionados:=CompraActual.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=CompraActual.CveFolioGarantia) Then
-
-
- ' CompraActual.CveCompra = ObjCompras.CveCompra
-
- ' If CompraActual.CveCompra > 0 Then
-
-
- ' 'For Each Row As DataRow In CompraActual.TmpDT.Rows
- ' ' If Not ObjCompras.AddCompraDetalle(CompraActual.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
- ' ' Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
- ' ' Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
- ' ' AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
- ' ' CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
- ' ' RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
- ' ' IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
- ' ' IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
- ' ' CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
-
- ' ' ErrorDetalles = True
- ' ' Exit For
- ' ' End If
- ' 'Next
-
-
-
- ' End If
-
-
- 'End If
-
-
-
- ObjCompras.RollBack()
+ CompraActual.ConfiguraRegistroRapidoReembolso(DdlPS.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, CveCajachica, CvePersonal,
+ DdlRetIVAConcepto.SelectedValue.ToEntero, DdlRetISRConcepto.SelectedValue.ToEntero, NumeroReembolso:=TxtNumeroReembolso.Text)
+ If CompraActual.AddCompra() Then
+ Contador = Contador + 1
+ Else
+ ErrorProceso = True
+ ErrorProcesoStr = CompraActual.MensajeError
+ Exit For
+ End If
End If
Next
+ If Not ErrorProceso Then
+ CargaDatos()
+ If Contador > 0 Then
+ Alert($"Se registraron {Contador} Compras")
+ End If
+ Else
+ Alert($"Se registraron {Contador} Compras. error {ErrorProcesoStr}", TipoMensaje.MsgAdvertencia)
+ End If
+
End Sub
+
End Class
Public Class Compra2
@@ -5458,7 +5436,7 @@ Public Class Compra2
Public Property TC As Decimal = 1
Public Property SubTotal As Decimal = 0D
Public Property SubTotal2 As Decimal = 0D
- Public Property Descuentos As Decimal = 0D
+ Public Property Descuento As Decimal = 0D
Public Property Total As Decimal = 0D
Public Property Moneda As String = ""
Public Property TipoComprobante As String
@@ -5584,14 +5562,14 @@ Public Class Compra2
Public Property CveMetodoPago As Integer
Public Property MetodoPago As String
- Public Property DocumentosRelacionadosUUIDSList As List(Of String)
+ Public Property DocumentosRelacionadosUUIDSList As List(Of String) = New List(Of String)
Public ReadOnly Property DocumentosRelacionadosUUIDSString As String
Get
Return GeneraStringDoctosRelacionados()
End Get
End Property
- Public Property DocumentosRelacionadosAnticiposUUIDList As List(Of String)
+ Public Property DocumentosRelacionadosAnticiposUUIDList As List(Of String) = New List(Of String)
Public Property TieneAnticiposXML As Boolean = False
Public Property EmisorRFC As String
Public Property ReceptorRFC As String
@@ -5603,7 +5581,6 @@ Public Class Compra2
Public Property TotalTraslados As Decimal = 0D
Public Property TrasladoIVA As Decimal = 0D
Public Property TrasladoIEPS As Decimal = 0D
- Public Property TrasladoIEP As Decimal = 0D
Public Property SumaTotalTraslados As Decimal = 0D
Public Property OtrosImpuestos As Decimal = 0D
Private Property OtrosImpuestosRetenciones As Decimal = 0D
@@ -5614,9 +5591,8 @@ Public Class Compra2
Public Property XMlStr As String
Public Property XMLCargaExistosa As Boolean = True
-
Public Property Observaciones As String = ""
- Public Property CveEstatusFactura As Integer = -1
+ Public Property CveEstatusFactura As Integer = 1
Public Property CvePrePoliza As Integer = -1
Public Property Redondeo As Decimal = 0
Public Property IdPoliza As Integer = -1
@@ -5636,9 +5612,9 @@ Public Class Compra2
Public Property TmpDT As DataTable = New DataTable
Public Property SubTotalConceptos As Decimal = 0D
- Private Errores As StringBuilder
+ Private Errores As StringBuilder = New StringBuilder
- Public ReadOnly Property MSG_Error As String
+ Public ReadOnly Property MensajeError As String
Get
Return Errores.ToString()
End Get
@@ -5660,6 +5636,11 @@ Public Class Compra2
Public Property OtrosImpuestosGasto As Boolean = False
Public Property OCVinculada As Boolean = False
Public Property NumNoDed As Integer = 0
+ Public Property CveTipoPoliza As Integer = -1
+ Public Property NombreProveedor As Object
+ Public Property CveCreditoDetalle As Integer = -1
+ Public Property CveIE As Integer = -1
+ Public Property CveCompraAmortizacion As Integer = -1
Public Sub New(XmlFuente As String, OpcionCarga As EnumCargaCompra, DTTiposGastos As DataTable, UsuarioActual As Usuario)
@@ -5704,7 +5685,6 @@ Public Class Compra2
CargaComprobanteXML(XMLDoc)
End If
-
End Sub
Private Sub CargaDesdeString(XmlFuente As String)
XMlStr = XmlFuente.Replace("<br>", "").Replace("<", "").Replace("o;?", "")
@@ -5722,10 +5702,8 @@ Public Class Compra2
CargaComprobanteXML(XMLDoc)
End If
-
End Sub
-
Private Sub CargaComprobanteXML(XMLDoc As XmlDocument)
Dim nodo As XmlNode = XMLDoc.DocumentElement
@@ -5733,7 +5711,6 @@ Public Class Compra2
Dim StrCFDIVerion As String = ValorXML(nodo, "version")
-
If StrCFDIVerion = "3.2" Then
CFDIVersion = EnumCFDIVersion.v32
ElseIf StrCFDIVerion = "3.3" Then
@@ -5752,7 +5729,7 @@ Public Class Compra2
Fecha = ValorXML(nodo, "fecha").ToDate
SubTotal = ValorXML(nodo, "subTotal").ToDecimal
Total = ValorXML(nodo, "total").ToDecimal
- Descuentos = ValorXML(nodo, "descuento").ToDecimal
+ Descuento = ValorXML(nodo, "descuento").ToDecimal
Moneda = ValorXML(nodo, "Moneda")
CveMoneda = GlobalDTMonedas().FiltroPrimeroValor("CveMoneda", $" AbreviaturaSAT = '{Moneda}' ").ToEntero
@@ -5921,7 +5898,6 @@ Public Class Compra2
#Region "DETALLES"
-
Dim ObjeFacturas As New ClsCompras
Dim AjustaUltimoConcepto = False
@@ -5955,8 +5931,8 @@ Public Class Compra2
Next
If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
- Dim mensajeAdvertencia As String = String.Format("El comprobante contiene productos con código SAT '01010101', revise los productos:{0}", ProductosCodigoSATNoPermitidos.ToString)
- Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+ Errores.AppendLine($"El comprobante contiene productos con código SAT '01010101', revise los productos:{ProductosCodigoSATNoPermitidos.ToString}")
+
End If
Else
GuardaLog($"Error al cargar detalles GetFacturasComparacionXML.")
@@ -5972,24 +5948,24 @@ Public Class Compra2
End If
TmpDT.AcceptChanges()
ValidacionesTotalesXml()
-
-
End If
-
-
+ Me.PorcentajeIVA = TmpDT.MAX("IVAPorcentaje").ToDecimal
#End Region
End Sub
- Public Function ConfiguraRegistroRapidoReembolso(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer) As Boolean
+ Public Function ConfiguraRegistroRapidoReembolso(CvePS As Integer, CveSubProyecto As Integer, CveCajaChica As Integer, CvePersonal As Integer, CveRetIVAConcepto As Integer, CveRetISRConcepto As Integer, NumeroReembolso As String) As Boolean
Dim respuesta As Boolean = True
Me.CveSubProyecto = CveSubProyecto
+ Me.CveSubProyectoPrincipal = CveSubProyecto
Me.CveCajaChica = CveCajaChica
Me.CvePersonal = CvePersonal
Me.CveRetIVAConcepto = CveRetIVAConcepto
Me.CveRetISRConcepto = CveRetISRConcepto
+ Me.CveTipoPoliza = 3
+ Me.NumeroReembolso = NumeroReembolso
Dim dRowSubProyecto As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("")
@@ -6015,32 +5991,40 @@ Public Class Compra2
If respuesta AndAlso IEPS > 0 Then
If Not AgregaIEPSReembolso(CvePS:=CvePS) Then
respuesta = False
+ Else
+ IEPS = 0
End If
End If
- If respuesta Then
+ If Not AjustesValidacion() Then
+ respuesta = False
+ End If
- 'VALIDA IMPORTES
- If Not ValidaTotalesGuardar() Then
- respuesta = False
- End If
+ Return respuesta
- If Not AjustaCombustibles() Then
- respuesta = False
- End If
+ End Function
- If Not AjustaIVA() Then
- respuesta = False
- End If
+ Private Function AjustesValidacion() As Boolean
+ Dim respuesta = True
+ 'VALIDA IMPORTES
+ If Not ValidaTotalesGuardar() Then
+ respuesta = False
+ End If
- If Not AjustaRetIVA() Then
- respuesta = False
- End If
+ If Not AjustaCombustibles() Then
+ respuesta = False
+ End If
- If Not AjustaRetISR() Then
- respuesta = False
- End If
+ If Not AjustaIVA() Then
+ respuesta = False
+ End If
+ If Not AjustaRetIVA() Then
+ respuesta = False
+ End If
+
+ If Not AjustaRetISR() Then
+ respuesta = False
End If
Return respuesta
@@ -6074,7 +6058,7 @@ Public Class Compra2
TempSubTotal = SubTotal
SubTotalOriginal = SubTotal
SubTotal2Original = SubTotal2
- TempDescuentos = Descuentos + Amortizacion
+ TempDescuentos = Descuento + Amortizacion
TempSubTotal2 = TempSubTotal - TempDescuentos
TempIVA = IVA
TempIEPS = IEPS
@@ -6108,7 +6092,7 @@ Public Class Compra2
DiferenciaSubtotales = SubTotal2Original.ToString.ToDecimal - TmpDT.SUM("Total").ToString.ToDecimal
'[IPP] PARCHE: Factura TELMEX para APH 12/ENERO/2018
If CveFactura = 286290 Then
- DiferenciaSubtotales += Descuentos
+ DiferenciaSubtotales += Descuento
End If
If Math.Abs(DiferenciaSubtotales) > 1 And Not CompraNoDeducible = 1 Then 'EsNoDeducible
Errores.AppendLine("Los importes de los conceptos (Productos/Servicios) no cuadran con el total. Por favor verifique y vuelva a intentar.")
@@ -6563,6 +6547,9 @@ Public Class Compra2
Errores.AppendLine("Debe seleccionar al menos un impuesto. ")
End If
+
+ CalculaTotales()
+
Return respuesta
End Function
@@ -6635,10 +6622,7 @@ Public Class Compra2
Me.SubTotal = Math.Round(SubTotalIEPS, 2)
Me.SubTotalConceptos = Math.Round(SubTotalIEPS, 2)
- 'If SubTotalR <> SubTotalIEPS Then
- ' Dim IA As Decimal = SubTotalR - SubTotalIEPS
- ' AjustaImporteUltimoConcepto(IA)
- 'End If
+
PSS.Dispose()
End Sub
@@ -6747,7 +6731,7 @@ Public Class Compra2
Row("TipoAF") = -1
Row("CveOrdenCompraDetalle") = CveOrdenCompraDetalle
Row("EntregaDirecta") = EntregaDirecta
- 'If GlobalDTProductosServiciosEquivalencias(CvePS, CveUM).Rows.Count = 0 Then Row("CveEq") = 1 Else Row("CveEq") = 0
+
Row("NoDeducible") = NoDeducible
@@ -6780,7 +6764,6 @@ Public Class Compra2
Row("IVAPorcentaje") = IVA
End If
-
Row("RetIVA") = (RetIVA * Total).RoundSQL
Row("RetIVAPorcentaje") = RetIVA
Row("RetISR") = (RetISR * Total).RoundSQL
@@ -6813,17 +6796,11 @@ Public Class Compra2
Row("CveTipoGastoAC") = CveTipoGastoAC
Row("CveClasificacionOG") = CveClasificacionOG
End If
-
- ' CveProgramaOperativo AS Integer = -1, Optional CveUnidadAdministrativa, Optional CveUnidadAdministrativa AS Integer = -1,, Optional CveFuenteFinanciamiento AS Integer = -1, Optional CveTipoGastoAC AS Integer = -1, Optional CveClasificacionOG AS Integer = -1,
-
'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere
If (CveFactura > 0 Or CveCompra > 0) And IEPS = 0 Then
Row("IEPSPS") = 0
Row("IEPSPSPorcentaje") = 0
End If
-
-
-
TmpDT.Rows.Add(Row)
TmpDT.Rows.IndexOf(Row)
@@ -6852,11 +6829,8 @@ Public Class Compra2
LocalIVA = If(TmpDT.SUM("IVA") > 0, LocalSubTotalIVA + LocalSubTotalIEPSIVA, 0)
End If
-
- 'If CalculaIVA Then IVA = TxtIVA.Text.ToDouble
LocalDescuentos = TmpDT.SUMD("Descuento")
- '[IPP] SI YA ES COMPRA REGISTRADA NO CONSIDERA LA AMORTIZACIÓN PARA EL CALCULO DE TOTAL
If Not CveCompra > 0 Then
LocalAmortizacion = Me.Amortizacion
End If
@@ -6867,14 +6841,14 @@ Public Class Compra2
Retenciones += LocalRetISR
- LocalSubTotal2 = LocalSubTotal - LocalDescuentos ' - Amortizacion '[IPP] COMENTADO CASO JAM 12653 CON NC 27122 | 23/MAYO/2018
+ LocalSubTotal2 = LocalSubTotal - LocalDescuentos
LocalTotal = LocalSubTotal2 + LocalIVA + LocalIEPSPS - Retenciones
'ASIGNAMOS VALORES A VISTA
If CveCompra > 0 Or CveFactura > 0 Or Me.OCVinculada Then
SubTotal = LocalSubTotal
SubTotal2 = LocalSubTotal2
- Descuentos = LocalDescuentos
+ Descuento = LocalDescuentos
If EsNoDeducible Then
IVA = LocalIVA
@@ -6888,7 +6862,7 @@ Public Class Compra2
SubTotal = LocalSubTotal
SubTotal2 = LocalSubTotal2
IVA = LocalIVA
- Descuentos = LocalDescuentos
+ Descuento = LocalDescuentos
RetIVA = LocalRetIVA
RetISR = LocalRetISR
IEPS = LocalIEPSPS
@@ -6897,40 +6871,8 @@ Public Class Compra2
CompraSaldo = LocalTotal
End If
-
- 'CUANDO SEA COMPRA, FACTURA O VENGA DE VINCULACIÓN OC NO SE MODIFICAN VALORES
- 'SE VERIFICA SI ALGUN DATO ES DIFERENTE PARA MOSTRAR COLUMNA CON VALORES ORIGINALES
- 'If (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) And Not EsNoDeducible Then
- ' If LocalSubTotal <> SubTotalOriginal Then
- ' OriginalesVisible(True)
- ' LbSubTotalOriginal.Text = SubTotalOriginal.ToString.FormatoNumero(2)
- ' Else
- ' OriginalesVisible(False)
- ' End If
- 'End If
-
- 'If Not CveCompra > 0 Then 'cuando se está registrando manualmente y se va amortizar
- ' LblSaldoFactura.Text = TxtTotal.Text.FormatoNumero
- ' UpAnticipos.Update()
- 'End If
-
- 'LblRetIVA.Text = If(TxtRetIVA.Text.ToDecimal > 0, (TmpDT.MAX("RetIVAPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
- 'LblRetISR.Text = If(TxtRetISR.Text.ToDecimal > 0, (TmpDT.MAX("RetISRPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
-
- 'IMPORTES DE RESTRICCION
- 'TxtDocumentoImporteFE.Text = LocalTotal.ToString.FormatoNumero(2)
- 'RVDocumentoImporte.MaximumValue = LocalTotal.ToString.FormatoNumero(2)
- 'RVDocumentoImporteFE.MaximumValue = RVDocumentoImporte.MaximumValue
- 'RVDocumentoImporteCaja.MaximumValue = RVDocumentoImporte.MaximumValue
-
- 'CargaRetIVAConcepto()
- 'CargaRetISRConcepto()
-
Me.NumNoDed = TmpDT.COUNT("CvePS", "NoDeducible = True ")
- 'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
- ' InicializaAplicaNCFact()
- 'End If
End Sub
@@ -6950,10 +6892,6 @@ Public Class Compra2
Return False
End Try
-
- 'BANDERA
- 'Dim AplicaCalculaTotales = False
-
'DATOS GENERALES
DrPS("Obs") = ""
DrPS("Proyecto") = Proyecto
@@ -7000,95 +6938,14 @@ Public Class Compra2
DrPS("CveCultivoCuadroDetalle") = -1
DrPS("TemporadaCuadro") = ""
- 'RESPETAR VALORES DE LA PANTALLA
- 'IVA = PSRow("IVA").ToString.ToDouble
- 'If IVA = -1 Then
- ' IVA = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero()).FiltroPrimeroValor("IVA").ToDouble
- 'End If
- 'RetIVA = If(PSRow("RetIVA").ToString = "-1", ViewState("RetIVA"), PSRow("RetIVA").ToString).ToString.ToDouble
- 'RetISR = If(PSRow("RetISR").ToString = "-1", ViewState("RetISR"), PSRow("RetISR").ToString).ToString.ToDouble
- 'IEPSPS = If(PSRow("IEPSPorcentaje").ToString = "-1", ViewState("IEPSPS"), PSRow("IEPSPorcentaje").ToString).ToString.ToDouble
- 'IEPSPSIVA = If(PSRow("IEPSGrabaIVA").ToString = "True", PSRow("IEPSPorcentaje").ToString.ToDouble, 0)
Else
Errores.AppendLine($"No se encontrol el producto con CvePS {CvePS}")
Respuesta = False
End If
-
-
- 'UM
-
-
- 'TIPO DE GASTO
-
-
-
-
- 'IMPUESTOS: SI ES COMPRA, FACUTRA O CON OC, NO MODIFICA IMPUESTOS!!
- 'Dim IVA = (TxtIVAModal.Text.ToDouble / 100)
- 'Dim IVA = Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2)
- 'Dim RetISR = (TxtRetISRModal.Text.ToDecimal / 100)
- 'Dim RetIVA = (TxtRetIVAModal.Text.ToDecimal / 100)
- 'Dim IEPSPS = (TxtIEPSModal.Text.ToDecimal / 100)
- 'Dim IEPSPSIVA = 0
-
- 'I f Not (CveCompra > 0 Or CveFactura > 0 Or OCVinculada) Then
- 'If DdlIVA.SelectedValue.ToDouble = 0 Then DrPS("IVA") = 0 Else DrPS("IVA") = IVA * Total
-
- 'If CveFactura > 0 And TxtIVA.Text.ToDecimal = 0 Then
- ' DrPS("IVA") = 0
- ' DrPS("IVAPorcentaje") = 0
- 'Else
-
- ' If ActualizarIva Then
- ' DrPS("IVA") = (IVA * Total).RoundSQL
- ' End If
-
- ' DrPS("IVAPorcentaje") = IVA
- 'End If
-
- 'DrPS("RetIVA") = (RetIVA * Total).RoundSQL
- 'DrPS("RetIVAPorcentaje") = RetIVA
- 'DrPS("RetISR") = RetISR * Total
- 'DrPS("RetISRPorcentaje") = RetISR
- 'DrPS("IEPSPS") = (IEPSPS * Total).RoundSQL
- 'DrPS("IEPSPSPorcentaje") = IEPSPS
- 'DrPS("IEPSPSIVA") = (IEPSPSIVA * Total).RoundSQL
- 'DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA
-
-
-
- 'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere
- 'If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then
- ' DrPS("IEPSPS") = 0
- ' DrPS("IEPSPSPorcentaje") = 0
- 'End If
-
-
-
-
- 'AplicaCalculaTotales = True
TmpDT.AcceptChanges()
Return Respuesta
End Function
-
-
-
- 'Private Function AsignarPSReembolso(CvePS As Integer) As Boolean
-
- ' Dim respuesta As Boolean
-
- ' If Not CvePS > 0 Then
- ' Errores.AppendLine("AsignarPSReembolso el CvePS debe de ser matoy a 0,")
- ' Return False
- ' End If
-
-
- ' Return respuesta
-
- 'End Function
-
-
Private Sub ValidacionesTotalesXml()
If Not TmpDT.Columns.Contains("Amortizacion") Then
@@ -7105,8 +6962,7 @@ Public Class Compra2
Dim RetISRTemp = TmpDT.SUMD("RetISR")
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(Descuento, 6)) > 0.01 Then
Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general ")
End If
@@ -7133,8 +6989,8 @@ Public Class Compra2
If Msg <> "" Then
Errores.AppendLine($" El comprobante XML presenta las siguientes inconsistencias:{Msg}. ")
Else
- '[IPP] IGUALAMOS VALORES PARA RESPETAR LOS DEL XML EN CASO DE DIF DE 0.01
- DescuentosTemp = Descuentos
+
+ DescuentosTemp = Descuento
IVATemp = TrasladoIVA
TotalTemp = Total
RetIVATemp = RetencionIVA
@@ -7142,87 +6998,16 @@ Public Class Compra2
IEPSTemp = TrasladoIEPS
End If
- If TrasladoIEPS > 0 Or OtrosImpuestos > 0 Then
-
- If OtrosImpuestos > 0 Or TrasladoIEPS > 0 Then
-
- 'If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
- ' 'Si tiene funcionalidad y es Acreedor se muestra modal
- ' If CveTipoProveedor.Contiene(2, 3) Then ' Acreedor
- ' RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
- ' End If
- 'Else
- ' 'Si no tiene funcionalidad y es proveedor se muestra
- ' RegistraScript("$('#ModalIEPS').modal({ backdrop: 'static', keyboard: false },'show');")
-
- 'End If
-
- 'Else
- ' RegistraScript("$('#ModalIEPS').modal('show');")
- 'BtnCancelarotrosImpuestos.Visible = True
- End If
-
-
- If TrasladoIEPS > 0 Then
- 'ChkIEPS.Visible = True
- 'ChkIEPS.Checked = True
- 'DdlConceptoIEPS.Visible = True
- 'CargaProductos(DdlConceptoIEPS, If(UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero, -1))
- 'LbImporte.Text = "$" + TrasladoIEPS.ToString
- End If
- If OtrosImpuestos > 0 Then
- 'ChkOtrosI.Visible = True
- 'ChkOtrosI.Checked = True
- 'DdlConceptoOI.Visible = True
- 'CargaProductos(DdlConceptoOI, If(UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero, -1))
- 'LbImporte2.Text = "$" + OtrosImpuestos.ToString
- End If
- End If
-
- 'TxtSubTotal.Text = SubtotalTemp.FormatoNumero
- 'TxtDescuento.Text = DescuentosTemp.FormatoNumero
- 'TxtSubTotal2.Text = Subtotal2Temp.FormatoNumero
- 'TxtIVA.Text = IVATemp.FormatoNumero
- 'TxtTotal.Text = TotalTemp.FormatoNumero
- 'TxtRetIVA.Text = RetIVATemp.FormatoNumero
- 'TxtRetISR.Text = RetISRTemp.FormatoNumero
- 'TxtIEPS.Text = IEPSTemp.FormatoNumero
-
- 'TrDescuento.Visible = DescuentosTemp > 0
- 'TrIEPS.Visible = IEPSTemp > 0
- 'TrRetIVA.Visible = RetIVATemp > 0
- 'TrRetISR.Visible = RetISRTemp > 0
-
- 'TxtSubTotal.Enabled = False
- 'TxtDescuento.Enabled = False
- 'TxtSubTotal2.Enabled = False
- 'TxtIVA.Enabled = False
- 'TxtTotal.Enabled = False
- 'TxtRetIVA.Enabled = False
- 'TxtRetISR.Enabled = False
- 'TxtIEPS.Enabled = False
-
- 'HfTotalCompra.Value = TotalTemp.ToString
- 'CompraSaldo = TotalTemp
- 'CalculaTotalPorDevengar()
- 'TxtDocumentoImporteFE.Text = TotalTemp.ToString
- 'RVDocumentoImporte.MaximumValue = Math.Round(TotalTemp, 2).ToString
- 'RVDocumentoImporteFE.MaximumValue = RVDocumentoImporte.MaximumValue
- 'RVDocumentoImporteCaja.MaximumValue = RVDocumentoImporte.MaximumValue
- 'TxtDocumentoImporte.Text = TotalTemp.FormatoNumero
- 'TxtDocumentoImporteCaja.Text = TotalTemp.FormatoNumero
- 'TxtOtrosImpuestos.Text = OtrosImpuestos.FormatoNumero
- 'If OtrosImpuestos > 0 Then TrOtrosImpuestos.Visible = True
- 'If OtrosImpuestosRetenciones > 0 Then TrOtrosImpuestos.Visible = True : TxtOtrosImpuestos.Text = (-OtrosImpuestosRetenciones).FormatoNumero
- 'HFDiferenciaCompra.Value = TxtTotal.Text
- 'HdnCompraSaldo.Value = TotalTemp.ToString
-
+ Me.SubTotal = SubtotalTemp
+ Me.Descuento = DescuentosTemp
+ Me.SubTotal2 = Subtotal2Temp
+ Me.IVA = IVATemp
+ Me.Total = TotalTemp
+ Me.RetIVA = RetIVATemp
+ Me.RetISR = RetISRTemp
+ Me.IEPS = IEPSTemp
CompraSaldo = TotalTemp
- 'LblRetIVA.Text = If(RetIVATemp > 0, (TmpDT.MAX("RetIVAPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
- 'LblRetISR.Text = If(RetISRTemp > 0, (TmpDT.MAX("RetISRPorcentaje").ToDecimal() * 100).FormatoNumero(4), "")
-
- 'ASIGNA VALORES ORIGINALES PARA GUARDAR
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
End Sub
@@ -7241,9 +7026,6 @@ Public Class Compra2
If ImporteAjuste = 0 Then Exit Sub
Dim Amortizacion As Decimal = 0
- 'If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then
- ' Amortizacion = LblAmortizacion.Text.ToDecimal
- 'End If
If TmpDT.Rows.Count > 0 Then ' si hay movimientos y si esta afectando al total, que se haga el ajuste
Dim Indice As Integer = If(TmpDT.Rows(TmpDT.Rows.Count - 1)("CvePS").ToString = UsuarioActual.Empresa.Funcionalidad(112).ToString, TmpDT.Rows.Count - 2, TmpDT.Rows.Count - 1)
@@ -7267,25 +7049,19 @@ Public Class Compra2
TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste
TmpDT.Rows(Indice)("IEPSPS") = (TmpDT.Rows(Indice)("Total").ToString.ToDecimal() * TmpDT.Rows(Indice)("IEPSPSPorcentaje").ToString.ToDecimal()).RoundAD(2)
- 'TmpDT.Rows(Indice)("IVA") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
TmpDT.Rows(Indice)("IVA") = (TmpDT.Rows(Indice)("PU").ToString.ToDecimal * TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal - TmpDT.Rows(Indice)("Descuento").ToString.ToDecimal) * TmpDT.Rows(Indice)("IVAPorcentaje").ToString.ToDecimal
- 'Row("IEPSPS") = Math.Round(IEPSPS, DecimalesPermitidos)
- 'Row("IEPSPSPorcentaje") = PorcentajeIEPS
TmpDT.AcceptChanges()
End If
SubTotal = TmpDT.SUMD("Total")
If Not EsCarga Then
- Descuentos = TmpDT.SUMD("Descuento")
+ Descuento = TmpDT.SUMD("Descuento")
End If
SubTotalConceptos = SubTotal
-
End Sub
-
-
Public Function ValidateUUID(ByVal uuid As String) As Boolean
Dim pattern As String = "^[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}$"
Dim regex As New Regex(pattern)
@@ -7321,6 +7097,177 @@ Public Class Compra2
End If
End Function
+ Public Function AddCompra() As Boolean
+
+ If Not AjustesValidacion() Then Return False
+
+ Dim respuesta As Boolean = True
+ Dim ObjCompras As New ClsCompras
+ Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
+
+ If Not AddPrepolizaCabecera(ObjConta) Then
+ respuesta = False
+ End If
+
+ If respuesta AndAlso ObjCompras.AddCompra(If(Me.TipoComprobante = "I", "Fac", "NC"), Me.Descripcion, Me.Serie, Me.Folio, Me.FolioSecundario, Me.CveProveedor, Me.SubTotal, Me.Descuento,
+ Me.Amortizacion, Me.IVA, Me.RetIVA, Me.RetISR, Me.IEPS, Me.OtrosImpuestos,
+ Me.Redondeo, Me.Total, Me.Fecha, Me.CveMoneda, Me.TipoCambio, If(Me.FechaPago = Nothing, Me.Fecha, Me.FechaPago), Me.AplicaNotaCredito, Me.Observaciones, Me.CveEstatusFactura,
+ Me.CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.IdPoliza, CveCajaChica:=Me.CveCajaChica, CvePersonal:=Me.CvePersonal, NumeroReembolso:=Me.NumeroReembolso, CveProveedorSucursal:=Me.CveProveedorSucursal,
+ AplicoPromocion:=Me.AplicoPromocion, PorcentajeIVA:=Me.PorcentajeIVA, CveMetodoPago:=Me.CveMetodoPago, CveRetIVAConcepto:=Me.CveRetIVAConcepto,
+ CveConceptoContableAlmacen:=Me.CveConceptoContableAlmacen,
+ CveRetISRConcepto:=Me.CveRetISRConcepto, NoDeducible:=Me.NoDeducible, CveTipoCompra:=Me.CveTipoCompra, TotalOriginal:=Me.TotalOriginal, CveTipoConcepto:=Me.CveTipoConcepto,
+ EsImportacion:=Me.EsImportacion, CveFactura:=Me.CveFactura, CveSubProyecto:=Me.CveSubProyectoPrincipal, DoctosRelacionados:=Me.DocumentosRelacionadosUUIDSString, CveFolioGarantia:=Me.CveFolioGarantia) Then
+ Me.CveCompra = ObjCompras.CveCompra
+ Else
+ respuesta = False
+ End If
+
+ If respuesta AndAlso Me.CveCompra > 0 Then
+
+ For Each Row As DataRow In Me.TmpDT.Rows
+
+ Dim TipoRecepcion As Integer = -1
+ Dim Referencia = ""
+ Dim EsNoDeducible As Boolean = False
+ Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
+ Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
+
+ If Not ObjCompras.AddCompraDetalle(Me.CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
+ Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal, Row("Descuento").ToString.ToDecimal,
+ Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
+ AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
+ CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
+ RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
+ IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
+ IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
+ CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
+
+ respuesta = False
+ Exit For
+ End If
+ Next
+ End If
+
+ If respuesta Then
+ If Not AddPrepolizaDetalles(ObjConta) Then respuesta = False
+ End If
+
+ If respuesta AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, 4) Then
+ If ObjConta.ValorPolizaDescuadre > 0 Then
+ Errores.AppendLine($"eFacturas/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}.")
+ GuardaLogAD($"eFacturas/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+ respuesta = False
+ End If
+ End If
+
+ If respuesta Then
+ If Not ObjCompras.UpdateCompraFactura(Me.CveCompra, Me.CveFactura, Me.Serie, Me.Folio) Then respuesta = False
+ End If
+
+ If respuesta Then
+ ObjCompras.Commit()
+ Else
+ ObjCompras.RollBack()
+ End If
+
+ ObjCompras.Dispose()
+ ObjConta.Dispose()
+
+ Return respuesta
+ End Function
+
+ Private Function AddPrepolizaCabecera(ByRef ObjConta As ClsContabilidad) As Boolean
+
+ Dim respuesta As Boolean = False
+ Dim ConceptoPoliza As String = String.Format("{0} - {1} - {2}", NombreProveedor, SerieFolio, "")
+ Me.CvePrePoliza = ObjConta.AddPrePolizas("eFacturas/Registrar", 1, Me.Total, Me.Total, Me.CveMoneda, Me.Fecha, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "", CveTipoPoliza:=Me.CveTipoPoliza)
+ respuesta = If(Me.CvePrePoliza > 0, True, False)
+
+ Return respuesta
+ End Function
+
+ Private Function AddPrepolizaDetalles(ByRef ObjConta As ClsContabilidad) As Boolean
+ Dim respuesta As Boolean = True
+ Dim Concepto As String = $"{Me.NombreProveedor} {Me.SerieFolio}"
+ Dim Referencia As String = Me.SerieFolio
+ Dim importeMovimiento As Decimal
+ Dim importeMN As Decimal
+ '6
+ For Each RowDetalle As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "CveSubProyecto"}).Rows
+
+ importeMovimiento = TmpDT.SUMD("Total", $" CveClasificacion = {RowDetalle("CveClasificacion").ToString} AND CveSubProyecto = {RowDetalle("CveSubProyecto").ToString}")
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+
+ If importeMN <> 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 6, Referencia, Concepto, -1, CveCompra:=CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=Me.CveCreditoDetalle, ImporteME:=If(TipoCambio = 1, 0, importeMovimiento), TipoCambio:=TipoCambio,
+ CveClasificacion:=RowDetalle("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=RowDetalle("CveSubProyecto").ToString().ToEntero(), Contabilizable:=True) Then
+ respuesta = False
+ Exit For
+ End If
+ End If
+ Next
+ '14
+ If respuesta AndAlso Me.IVA > 0 Then
+ importeMovimiento = Me.IVA
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMN, 14, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=Me.PorcentajeIVA, Contabilizable:=True) Then
+ respuesta = False
+ End If
+ End If
+ '25
+ If respuesta AndAlso Me.IEPS > 0 Then
+ importeMovimiento = Me.IEPS
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, 25, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+ respuesta = False
+ End If
+ End If
+ '
+ If respuesta AndAlso Me.RetIVA > 0 Then
+ importeMovimiento = Me.RetIVA
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+ Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetIVA
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+ respuesta = False
+ End If
+ End If
+ '
+ If respuesta AndAlso Me.RetISR > 0 Then
+ importeMovimiento = Me.RetISR
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+ Dim ret As ConceptosRetenciones = ConceptoPrePolizaRetISR
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ret.CveConceptoxAcreditar, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+ respuesta = False
+ End If
+ End If
+ '5
+ If respuesta Then
+ importeMovimiento = Me.Total
+ importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
+ Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
+ Dim ImporteME = importeMovimiento
+ Dim UsaComplementaria As Boolean = True
+ If Me.CveMoneda > 1 Then ImporteME = importeMovimiento
+
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) Then 'caso excepcional de complementarias
+ UsaComplementaria = False
+ importeMN = importeMovimiento * Me.TipoCambio
+ Else
+ importeMN = importeMovimiento
+ End If
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, importeMN, ConPreP.CveConcepto, Referencia, Concepto, -1, CveCompra:=CveCompra, CveSubProyecto:=Me.CveSubProyectoPrincipal, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(Me.TipoCambio = 1, 0, importeMovimiento), TipoCambio:=Me.TipoCambio, PorcentajeImpuesto:=0, Contabilizable:=True) Then
+ respuesta = False
+ End If
+ If respuesta AndAlso Me.CveMoneda > 1 AndAlso UsaComplementaria Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, (importeMovimiento * Me.TipoCambio - importeMovimiento).RoundSQL, ConPreP.CveConceptoComplementario, Referencia, Concepto, -1, CveCompra:=Me.CveCompra, CveProveedor:=Me.CveProveedor, CveIE:=Me.CveIE, CvePersonal:=Me.CvePersonal, CveCompraAmortizacion:=Me.CveCompraAmortizacion, TipoCambio:=Me.TipoCambio, TipoCambioPago:=1, ImporteME:=ImporteME, CveSubProyecto:=Me.CveSubProyecto) Then
+ respuesta = False
+ End If
+ End If
+ End If
+
+ Return respuesta
+ End Function
+
End Class
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx
index 0b43246e7..d459f114b 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx
@@ -63,52 +63,62 @@
-
- Ejercicio:
+
+ Fecha Inicio:
+
+
+
+
+
+
+
-
-
-
-
- Periodo:
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+ Fecha Fin:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
>
+
+
+
+
+
+
Divisor:
-
-
-
-
-
-
-
+
+
+
+
+
+
+
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index c2a05511a..acd3de93f 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -95,12 +95,10 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
InicializaValores()
- CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
-
- DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
+ CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
+
DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
- DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
- DdlPeriodo.SelectedValueExist(Periodo)
+ DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
If CveCuenta > 0 Then
@@ -117,46 +115,17 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
CargaCombos()
+ txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
+ txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
End Sub
- Private Sub CargaCombos()
-
- Dim Conta As New ClsContabilidad
- If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
- DdlEjercicio.DataSource = Conta.DtResultados
- Else
- DdlEjercicio.DataSource = Nothing
- End If
-
- Dim strGlobal As String = ""
-
- If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
- Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
- If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
- DdlCuentas.DataSource = Conta.DtResultados
- End If
-
-
- Conta.Dispose()
-
- DdlEjercicio.DataBind()
- DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+ Private Sub CargaCombos()
+ DdlCuentas.DataSource = GlobalDTContaCuentasContables(UsuarioActual.CveEmpresa).FiltraParametros("Codigo NOT IN ('_ACTIVO', '_PASIVO', '_CAPITAL', '_CUADRE', '_ESTADISTICAS', '_ORDEN', '_RACREEDOR', '_RDEUDOR', '_UTILIDAD')")
DdlCuentas.DataBind()
- 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
- 'DdlSubProyecto.DataBind()
- 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
- 'DdlSubProyecto.SelectedValue = "-1"
-
-
-
-
-
End Sub
-
-
#End Region
@@ -177,7 +146,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
DTDatos = New DataTable
Dim Conta As New ClsContabilidad
- If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
+ If Conta.GetAnexoCatalagoCC(DdlCuentas.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
DTHeaders = Conta.DSResultados.Tables(0)
DTDatos = Conta.DSResultados.Tables(1)
@@ -279,7 +248,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
End If
If Importe <> 0 Then
- e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
+ '' pendiente.. ' e.Row.Cells(Index).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }"
End If
Index += 1
@@ -309,7 +278,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
- SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
+ 'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx
index 073d6cec2..fbebd008b 100644
--- a/Contratos/Presupuestos.aspx
+++ b/Contratos/Presupuestos.aspx
@@ -34,7 +34,7 @@
diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb
index 15b704ed9..4573c51e7 100644
--- a/Contratos/Presupuestos.aspx.vb
+++ b/Contratos/Presupuestos.aspx.vb
@@ -147,16 +147,8 @@ Partial Class Contratos_Presupuestos
Dim DrContrato = ObjContrato.DtResultados.Copy(0)
If DrContrato IsNot Nothing Then
- Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal
- 'Dim ImporteVigente = DrContrato("ImporteVigente").ToString.ToDecimal
- 'Dim CveMoneda = DrContrato("CveMoneda").ToString.ToEntero
-
- 'DdlMoneda.SelectedValueExist(CveMoneda)
-
- 'HdnTotal.Value = ImporteVigente.FormatoNumero
-
-
- 'LblTotal.Text = String.Format("{0:C}", ImporteVigente)
+ Dim ImporteOriginal = DrContrato("Importe").ToString.ToDecimal
+
TxtPresupuesto.Text = DrContrato("Nombre").ToString
TxtDescripcion.Text = DrContrato("Observacion").ToString
@@ -471,34 +463,8 @@ Partial Class Contratos_Presupuestos
ObjPres.IniciaTransacSQL()
Dim TieneError As Boolean = False
- TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal)
- 'If ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal) Then
- ' If ObjPres.GetPresupuestosDetalle(CvePresupuesto, -1, UsuarioActual.CveEmpresa) Then
- ' DtClasificaciones = ObjPres.DtResultados
- ' End If
-
- ' If DtClasificaciones IsNot Nothing Then
- ' Dim DtDetalle = DtClasificaciones.FiltraParametros("CvePresupuestoDetalle > 0", DistinctColumns:={"CvePresupuestoDetalle", "ImporteVigente"})
- ' If DtDetalle.Rows.Count > 0 Then
-
- ' For Each Dr As DataRow In DtDetalle.Rows
- ' Dim CvePresupuestoDetalle As Integer = Dr("CvePresupuestoDetalle").ToString.ToEntero
- ' Dim Importe As Decimal = Dr("ImporteVigente").ToString.ToDecimal
- ' Dim Fecha = Now
- ' Dim Tipo = 1
- ' Dim CveCompra As Integer = -1
- ' Dim Justificacion = "-1"
- ' TieneError = Not ObjPres.AddPresupuestoMovimiento(CvePresupuesto, CveCompra, Tipo, Importe, Fecha, Justificacion)
- ' If TieneError Then
- ' Exit For
- ' End If
- ' Next
- ' End If
- ' End If
- 'Else
- ' TieneError = True
- 'End If
-
+ TieneError = Not ObjPres.UpdateEstatusPresupuesto(CvePresupuesto, EstatusFinal)
+
If TieneError Then
ObjPres.RollBack()
Alert("Ocurrió un error al autorizar el presupuesto.", TipoMensaje.MsgError)
@@ -552,7 +518,6 @@ Partial Class Contratos_Presupuestos
Dim DTExcel As New DataTable
Dim ErrorArchivo = False
Dim ErrorExcel = False
-
DTExcel = ReadExcelFile(Ruta + FileName, True)
If Not ErrorArchivo Then
@@ -574,16 +539,13 @@ Partial Class Contratos_Presupuestos
End If
End If
- Try
- Dim txtImporte As TextBox = Nothing
- Dim txtObservacion As TextBox = Nothing
+ Try
+
Dim i As Integer = 0
For Each row As GridViewRow In GvPresupuestos.Rows
- If (i < DTExcel.Rows.Count) Then
- txtImporte = row.FCTextBox("TxtImporteClasi")
- txtObservacion = row.FCTextBox("TxtObservacion")
- txtImporte.Text = DTExcel.Rows(i).Field(Of String)(1).ToString
- txtObservacion.Text = DTExcel.Rows(i).Field(Of String)(2).ToString
+ If (i < DTExcel.Rows.Count) Then
+ If DTExcel.Rows(i)("Importe").ToString.Trim <> "" Then row.FCTextBox("TxtImporteClasi").Text = DTExcel.Rows(i)("Importe").ToString.FormatoNumero
+ row.FCTextBox("TxtObservacion").Text = DTExcel.Rows(i)("Observaciones").ToString
i += 1
End If
Next
diff --git a/Contratos/RepPresupuestos.aspx b/Contratos/RepPresupuestos.aspx
index 500e6ef34..e62242dae 100644
--- a/Contratos/RepPresupuestos.aspx
+++ b/Contratos/RepPresupuestos.aspx
@@ -180,9 +180,9 @@
Fecha Inicio:
-
+
-
+
@@ -193,9 +193,9 @@
Fecha Fin:
-
+
-
+
diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb
index 4800f3850..990a416df 100644
--- a/Contratos/RepPresupuestos.aspx.vb
+++ b/Contratos/RepPresupuestos.aspx.vb
@@ -30,8 +30,8 @@ Partial Class Contratos_RepPresupuestos
#Region " INICIALIZA VALORES "
Private Sub InicializaValores()
- TxtFiltrosFechaInicio.Text = $"01/09/{Now.Year - 1}"
- TxtFiltrosFechaFin.Text = $"31/08/{Now.Year}"
+ TxtFiltrosFechaInicio.Text = $"01/08/{Now.Year - 1}"
+ TxtFiltrosFechaFin.Text = $"31/07/{Now.Year}"
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind()
diff --git a/Empresas/119/Formatos/RepIVAAcreditable.rpt b/Empresas/119/Formatos/RepIVAAcreditable.rpt
index 518015e2d..40d4a2e0d 100644
Binary files a/Empresas/119/Formatos/RepIVAAcreditable.rpt and b/Empresas/119/Formatos/RepIVAAcreditable.rpt differ
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5b36fbde1..370bffb48 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2437,11 +2437,11 @@ Partial Class Inventarios_EntregaAlmacen
If CvePrePolizaTraspaso > 0 Then
Dim TotalGarantiaValor As Decimal = 0 ' el valor en almacen es cero, por tema contable
- If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, False, TotalGarantiaValor, TxtObservaciones.Text, 68, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=False, ImporteMX:=TotalGarantia) Then
ErrorMovInv = True
End If
- If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=True, ImporteMX:=TotalGarantia) Then
+ If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTraspaso, True, TotalGarantiaValor, TxtObservaciones.Text, 331, TxtObservaciones.Text, TxtFecha.Text.ToDate, -1, -1, CveMovimientoAlmacen:=CveMovimientoGarantia, Contabilizable:=False, ImporteMX:=TotalGarantia) Then
ErrorMovInv = True
End If
Else
@@ -3137,30 +3137,30 @@ Partial Class Inventarios_EntregaAlmacen
ErrorMovInv = True
End If
- If Not ErrorMovInv AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
+ If Not ErrorMovInv AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventario/EntregaAlmacen | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
End If
End If
- Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+ 'Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
- If AutoConta And Not ErrorMovInv Then
- Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
+ 'If AutoConta And Not ErrorMovInv Then
+ ' Dim ObjContPaq = New ClsContPAQi(UsuarioActual.Empresa)
- If IdCtaContable > 0 Then
- If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
- Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
- ErrorMovInv = True
- TextoError.AppendFormat("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
- End If
- Else
- Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
- End If
+ ' If IdCtaContable > 0 Then
+ ' If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+ ' Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
+ ' ErrorMovInv = True
+ ' TextoError.AppendFormat("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico")
+ ' End If
+ ' Else
+ ' Alert(String.Format("No se puede contabilizar ya que falta asignación de las cuentas contables"), TipoMensaje.MsgAdvertencia)
+ ' End If
- ObjContPaq.Dispose()
- End If
+ ' ObjContPaq.Dispose()
+ 'End If
Else
ErrorMovInv = True
TextoError.AppendFormat("Ocurrió un Error al ingresar la prepoliza.1")
diff --git a/OC/OC.aspx b/OC/OC.aspx
index 17223f5e2..8d7a2d171 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -15,7 +15,6 @@
diff --git a/Planeacion/CatSubProyectos.aspx.vb b/Planeacion/CatSubProyectos.aspx.vb
index a5ee41164..6dedc434c 100644
--- a/Planeacion/CatSubProyectos.aspx.vb
+++ b/Planeacion/CatSubProyectos.aspx.vb
@@ -127,7 +127,7 @@ Partial Class CatSubProyectos
Dim ObjSub As New ClsSubProyectos
If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
- GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+ GvDatos.DataSource = ObjSub.DtResultados
GvDatos.DataBind()
End If
ObjSub.Dispose()
@@ -445,11 +445,8 @@ Partial Class CatSubProyectos
Alert("Los valores de horario no deben ser superiores a '12' o menor a '-12'", TipoMensaje.MsgAdvertencia)
TieneError = True
End If
- End If
-
-
-
-
+ End If
+
If Not TieneError Then
ObjSubproyectos.Commit()
If HdnModalidad.Value = "I" Then
@@ -464,25 +461,14 @@ Partial Class CatSubProyectos
Else
ObjSubproyectos.RollBack()
RecargaGlobal()
- End If
-
- 'se regeneran los subproyectos
- 'If Not TieneError Then
- ' If UsuarioActual.Empresa.GralSoloProyecto Then
- ' If ObjSubproyectos.GetSubProyectos() Then
- ' GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
- ' UpDatos.Update()
- ' Else
- ' TieneError = True
- ' End If
- ' End If
- 'End If
+ End If
+
If DdlSegmentoNegocio.Visible = True Then
CargaSegmentosNegocio()
End If
ObjSubproyectos.Dispose()
- If HdnModalidad.Value = "I" Then
+ If HdnModalidad.Value = "I" AndAlso Not TieneError Then
If UsuarioActual.Empresa.Funcionalidad(523) <> "" Then
Dim ObjOC As New ClsOC
ObjOC.IniciaTransacSQL()
diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx
index 45c6ecfe8..9514e0602 100644
--- a/PortalProveedor/PortalProveedor.aspx
+++ b/PortalProveedor/PortalProveedor.aspx
@@ -73,8 +73,8 @@
-
-