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

Correciones Compras, Foramto OC 189, Formato CFDI GRales,RepContato detale correciones

Browse Source
This commit is contained in:
rakcsle
2024-11-14 08:15:52 -07:00
parent 6710b55c6c
commit a4c844dcf9
9 changed files with 395 additions and 368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

536
Compras/Compras.aspx.vb
View File

@@ -1962,10 +1962,12 @@ Partial Class Compras_Compras
Dim BaseIVA As Decimal = 0 Dim BaseIVA As Decimal = 0
Dim TasaIEPS As String = "" Dim TasaIEPS As String = ""
Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces) Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces)
Dim tieneIEPS As Boolean = False
For Each traslado As XmlNode In traslados For Each traslado As XmlNode In traslados
' Obtener los valores de los atributos Base e Importe ' Obtener los valores de los atributos Base e Importe
Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2) Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2)
Dim impuesto As String = ValorXML(traslado, "Impuesto") Dim impuesto As String = ValorXML(traslado, "Impuesto")
Dim importeImpuesto As Decimal = ValorXML(traslado, "Importe").ToDecimal.RoundSQL(2)
If impuesto = "001" Then If impuesto = "001" Then
impuesto = "ISR" impuesto = "ISR"
@@ -1975,12 +1977,12 @@ Partial Class Compras_Compras
ElseIf impuesto = "003" Then ElseIf impuesto = "003" Then
impuesto = "IEPS" impuesto = "IEPS"
TasaIEPS = ValorXML(traslado, "TasaOCuota") TasaIEPS = ValorXML(traslado, "TasaOCuota")
BaseIEPS += baseValue BaseIEPS = baseValue + importeImpuesto
tieneIEPS = True
End If End If
Next Next
' Validar si Base coincide con Importe ' Validar si Base coincide con Importe
If BaseIVA <> BaseIEPS AndAlso BaseIEPS > 0 Then If tieneIEPS AndAlso Math.Abs(BaseIVA - BaseIEPS) > 0.01 Then 'subTotal + IEPS
'SbValRet.Append($"La base e importe de la retención del impuesto {impuesto} no coinciden para {descripcion}. Base: {baseValue.ToString()}, Importe: {importeValue.ToString()} <br>")
SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>") SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>")
End If End If
End If End If
@@ -2447,11 +2449,12 @@ Partial Class Compras_Compras
Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>") Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>")
End If End If
If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then
Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>") Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>")
End If End If
If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)) > 0.01 Then If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)).RoundAD(2) > 0.01 Then
Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>") Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>")
End If End If
@@ -5098,306 +5101,306 @@ Partial Class Compras_Compras
End If End If
End If End If
'-------INICIA U S A A C ------------------------------------------------------------------- '-------INICIA U S A A C -------------------------------------------------------------------
'If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then 'If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
' If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then ' If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ' ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
' ObjContaAC.IniciaTransacSQL() ' ObjContaAC.IniciaTransacSQL()
' ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC ' ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
' If HdnVCveOC.Value.ToEntero > 0 Then ' If HdnVCveOC.Value.ToEntero > 0 Then
' IDPolizaComprometido = 1 ' IDPolizaComprometido = 1
' TotalPorDevengar = TotalPorDevengar * 2 ' TotalPorDevengar = TotalPorDevengar * 2
' Else ' Else
' TotalPorDevengar = TotalPorDevengar * 3 ' TotalPorDevengar = TotalPorDevengar * 3
' End If ' End If
' IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate) ' IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
' 'Dim filtro As New StringBuilder ' 'Dim filtro As New StringBuilder
' If IdPoliza > 0 Then ' If IdPoliza > 0 Then
' PolizaFolio = ObjContaAC.Folio ' PolizaFolio = ObjContaAC.Folio
' 'Dim RegistroMatriz As DataRow ' 'Dim RegistroMatriz As DataRow
' 'Dim CuentaCargo As Integer ' 'Dim CuentaCargo As Integer
' Dim CuentaAbono As Integer ' Dim CuentaAbono As Integer
' Dim Importe As Decimal ' Dim Importe As Decimal
' 'CUENTA PROVEEDOR ' 'CUENTA PROVEEDOR
' 'If tIdContaProveedor <= 0 Then ' 'If tIdContaProveedor <= 0 Then
' ' 'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119 ' ' 'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119
' ' If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then ' ' If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then
' ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") ' ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
' ' If drCuenta IsNot Nothing Then ' ' If drCuenta IsNot Nothing Then
' ' CuentaAbono = drCuenta("Id").ToString.ToEntero ' ' CuentaAbono = drCuenta("Id").ToString.ToEntero
' ' Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString ' ' Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString
' ' ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono) ' ' ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
' ' ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor) ' ' ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
' ' Else ' ' Else
' ' ErrorAC = True ' ' ErrorAC = True
' ' ErrorACMEnsaje.Append(" - DrCuenta Nula") ' ' ErrorACMEnsaje.Append(" - DrCuenta Nula")
' ' End If ' ' End If
' ' Else ' ' Else
' ' ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ") ' ' ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ")
' ' ErrorAC = True ' ' ErrorAC = True
' ' End If ' ' End If
' 'End If ' 'End If
' Dim ConceptoRenglon As String = "" ' Dim ConceptoRenglon As String = ""
' If Not ErrorAC Then ' If Not ErrorAC Then
' 'INVENTARIOS EN AC ' 'INVENTARIOS EN AC
' Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) ' Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
' Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal ' Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
' Dim ipresup As Integer = 0 ' Dim ipresup As Integer = 0
' 'COMIENZA: PRUEBA AGRUPACION CONCEPTOS ' 'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
' Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)() ' Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
' Group gvr By Grp = New With { ' Group gvr By Grp = New With {
' Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero, ' Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
' Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1), ' Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1),
' Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1) ' Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
' } Into Group ' } Into Group
' Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle, ' Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle,
' TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal) ' TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
' Dim Fecha As Date = TxtFecha.Text.ToDate ' Dim Fecha As Date = TxtFecha.Text.ToDate
' 'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double ' 'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
' tTotalIVA = TxtIVA.Text.ToDecimal ' tTotalIVA = TxtIVA.Text.ToDecimal
' tRetIVA = TxtRetIVA.Text.ToDecimal ' tRetIVA = TxtRetIVA.Text.ToDecimal
' tRetISR = TxtRetISR.Text.ToDecimal ' tRetISR = TxtRetISR.Text.ToDecimal
' 'tTotalIVA = tTotalIVA - tRetIVA - tRetISR ' 'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
' tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA ' tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
' tDiferenciaIVA = tTotalIVA ' tDiferenciaIVA = tTotalIVA
' ipresup = 0 ' ipresup = 0
' Dim CuentaMatrizAlmacen As Integer ' Dim CuentaMatrizAlmacen As Integer
' 'PresupuestoEgresos ' 'PresupuestoEgresos
' Dim DtPresupuestosTemp As DataTable ' Dim DtPresupuestosTemp As DataTable
' Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer ' Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
' ' Dim DescuentoConIVA As Decimal ' ' Dim DescuentoConIVA As Decimal
' Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA) ' Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
' Dim tAjusteTotal As Decimal ' Dim tAjusteTotal As Decimal
' For Each grp In Presup ' For Each grp In Presup
' Importe = grp.TotalImporte ' Importe = grp.TotalImporte
' TotalDetalle += Importe ' TotalDetalle += Importe
' ipresup += 1 ' ipresup += 1
' If Importe > 0 Then ' If Importe > 0 Then
' 'saco la proporcion de iva que le corresponde ' 'saco la proporcion de iva que le corresponde
' tIVA = Math.Round(Importe * tPorIVA, 2) ' tIVA = Math.Round(Importe * tPorIVA, 2)
' tDiferenciaIVA -= tIVA ' tDiferenciaIVA -= tIVA
' 'identifico si es el ultimo registro, para ver si es necesario un ajuste ' 'identifico si es el ultimo registro, para ver si es necesario un ajuste
' If ipresup = Presup.Count Then ' If ipresup = Presup.Count Then
' If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then ' If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
' tIVA += tDiferenciaIVA ' tIVA += tDiferenciaIVA
' End If ' End If
' End If ' End If
' 'le sumo el iva al concepto ' 'le sumo el iva al concepto
' Importe += tIVA ' Importe += tIVA
' 'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF ' 'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
' If TxtDescuento.Text.ToDouble > 0 Then ' If TxtDescuento.Text.ToDouble > 0 Then
' Importe = grp.TotalImporte * 1.16D ' Importe = grp.TotalImporte * 1.16D
' End If ' End If
' tAjusteTotal += Importe ' tAjusteTotal += Importe
' 'valido que la sumas de lo detalles no exceda al totalgeneral ' 'valido que la sumas de lo detalles no exceda al totalgeneral
' If Math.Round(tAjusteTotal, 2) > tTotalGral Then ' If Math.Round(tAjusteTotal, 2) > tTotalGral Then
' 'le resto la diferencia ' 'le resto la diferencia
' Importe -= (tAjusteTotal - tTotalGral) ' Importe -= (tAjusteTotal - tTotalGral)
' End If ' End If
' 'Presupuesto Egresos ' 'Presupuesto Egresos
' DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso)) ' DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
' If DtPresupuestosTemp.Rows.Count <> 1 Then ' If DtPresupuestosTemp.Rows.Count <> 1 Then
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ") ' ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ")
' Exit For ' Exit For
' End If ' End If
' IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero ' IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
' IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero ' IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
' IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero ' IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
' IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero ' IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
' 'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA ' 'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
' If grp.CveOrdencompraDetalle = -1 Then ' If grp.CveOrdencompraDetalle = -1 Then
' ConceptoRenglon = String.Format("GC Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ConceptoRenglon = String.Format("GC Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1")
' Exit For ' Exit For
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' End If ' End If
' ConceptoRenglon = String.Format("GD Fact:{0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ConceptoRenglon = String.Format("GD Fact:{0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' 'DEVENGADO ' 'DEVENGADO
' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4") ' ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' If ContadorInventario > 0 Then ' If ContadorInventario > 0 Then
' ' CuentaMatrizAlmacen = CtaAlmacen ' ' CuentaMatrizAlmacen = CtaAlmacen
' ElseIf grp.CveActivoFijo > 0 Then ' ElseIf grp.CveActivoFijo > 0 Then
' Dim CtaAF As Integer = -1 ' Dim CtaAF As Integer = -1
' Dim AF As String = "" ' Dim AF As String = ""
' Dim CuentaInicial As Integer = -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
' AF = ObjAF.Descripcion ' AF = ObjAF.Descripcion
' CuentaInicial = ObjAF.CuentaInicial ' CuentaInicial = ObjAF.CuentaInicial
' Else ' Else
' ErrorAC = True ' ErrorAC = True
' ErrorACMEnsaje.Append(" - Error al obtener activos fijos ") ' ErrorACMEnsaje.Append(" - Error al obtener activos fijos ")
' Exit For ' Exit For
' End If ' End If
' If Not CuentaInicial > 0 Then ' If Not CuentaInicial > 0 Then
' CuentaInicial = 1241 ' CuentaInicial = 1241
' End If ' End If
' 'CUENTA AF ' 'CUENTA AF
' If CtaAF <= 0 Then ' If CtaAF <= 0 Then
' If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then ' If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") ' Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
' 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 As String = 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)
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo") ' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000") ' ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' End If ' End If
' CuentaMatrizAlmacen = CtaAF ' CuentaMatrizAlmacen = CtaAF
' Else ' Else
' CuentaMatrizAlmacen = IdCuentaMatriz ' CuentaMatrizAlmacen = IdCuentaMatriz
' End If ' End If
' ''AFECTAR MATRIZ EGRESOS ' ''AFECTAR MATRIZ EGRESOS
' If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then ' If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
' ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION) ' ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
' 'If TxtDescuento.Text.ToDouble > 0 Then ' 'If TxtDescuento.Text.ToDouble > 0 Then
' ' DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16 ' ' DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16
' ' 'Valida que el descuento con iva cuadre en los totales ' ' 'Valida que el descuento con iva cuadre en los totales
' ' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then ' ' If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
' ' DescuentoConIVA = Importe - TxtTotal.Text.ToDouble ' ' DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
' ' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then ' ' ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' ' 'actualizo el idcuenta del presupuesto ' ' 'actualizo el idcuenta del presupuesto
' ' If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
' ' 'agrego a la cuenta contable anticipos ' ' 'agrego a la cuenta contable anticipos
' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' ' Else ' ' Else
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' 'Else ' 'Else
' ' 'actualizo el idcuenta del presupuesto ' ' 'actualizo el idcuenta del presupuesto
' ' Importe = TxtTotal.Text.ToDouble ' ' Importe = TxtTotal.Text.ToDouble
' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorAC = True ' ' ErrorAC = True
' ' Exit For ' ' Exit For
' ' End If ' ' End If
' 'End If ' 'End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento") ' ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' ''TERMINA AFECTAR MATRIZ EGRESOS ' ''TERMINA AFECTAR MATRIZ EGRESOS
' Else ' Else
' ErrorACMEnsaje.Append(" - For Each grp In Presup Importe > 0 ") ' ErrorACMEnsaje.Append(" - For Each grp In Presup Importe > 0 ")
' ErrorAC = True ' ErrorAC = True
' Exit For ' Exit For
' End If ' End If
' Next ' Next
' ''actualizo el idcuenta del presupuesto ' ''actualizo el idcuenta del presupuesto
' 'Importe = TxtTotal.Text.ToDecimal ' 'Importe = TxtTotal.Text.ToDecimal
' 'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then ' 'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 3") ' ' ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto ObjContaAC.AddMovimiento 3")
' ' ErrorAC = True ' ' ErrorAC = True
' 'End If ' 'End If
' 'End If ' 'End If
' 'If tRetISR > 0 Then 'CtaProveedorRetISR ' 'If tRetISR > 0 Then 'CtaProveedorRetISR
' ' ConceptoRenglon = String.Format("GD Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text) ' ' ConceptoRenglon = String.Format("GD Fact: {0}-{1} {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
' ' If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then ' ' If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
' ' ErrorACMEnsaje.Append(" RetISR > 0 ObjContaAC.AddMovimiento") ' ' ErrorACMEnsaje.Append(" RetISR > 0 ObjContaAC.AddMovimiento")
' ' ErrorAC = True ' ' ErrorAC = True
' ' End If ' ' End If
' 'End If ' 'End If
' 'TERMINA: PRUEBA AGRUPACION CONCEPTOS ' 'TERMINA: PRUEBA AGRUPACION CONCEPTOS
' 'registrar amortizar anticipos ' 'registrar amortizar anticipos
' End If ' End If
' Else ' Else
' ErrorACMEnsaje.Append(" - Id Poliza = 0 ") ' ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
' Else ' Else
' TieneError = True ' TieneError = True
' ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0") ' ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
' ErrorAC = True ' ErrorAC = True
' End If ' End If
'End If 'End If
'-------FIN U S A A C ------------------------------------------------------------------- '-------FIN U S A A C -------------------------------------------------------------------
If Not ErrorAC AndAlso Not TieneError Then If Not ErrorAC AndAlso Not TieneError Then
Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
@@ -7638,12 +7641,12 @@ Partial Class Compras_Compras
Dim Msg As New StringBuilder Dim Msg As New StringBuilder
Msg.Append("La compra se registró correctamente") Msg.Append("La compra se registró correctamente")
If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then 'If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
If ObjConta.ValorPolizaDescuadre > 0 Then ' If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ' GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorPrepolizaDescuadre = True ' ErrorPrepolizaDescuadre = True
End If ' End If
End If 'End If
'ACTUALIZA CVEFACTURA 'ACTUALIZA CVEFACTURA
If Request("CveFactura") IsNot Nothing Then If Request("CveFactura") IsNot Nothing Then
@@ -13869,14 +13872,18 @@ Partial Class Compras_Compras
End If End If
End If End If
Dim dttpagos As DataTable = New DataTable ' 2024-11-13 OIC Esta ubicado antes de Refacturacion por que al refacturar los datos de pago dejan de estar disponibles dttpagos sellena antes
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
dttpagos = ObjCompra.DtResultados
End If
Dim Tipo As Integer = 1 Dim Tipo As Integer = 1
If ChkRefacNC.Checked Then Tipo = 2 If ChkRefacNC.Checked Then Tipo = 2
'CONTABILIZA REFACTURACION 'CONTABILIZA REFACTURACION
If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then
Dim dttpagos As DataTable
If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
dttpagos = ObjCompra.DtResultados
For Each drp As DataRow In dttpagos.Rows For Each drp As DataRow In dttpagos.Rows
Dim Pago As New CompraPago Dim Pago As New CompraPago
@@ -13885,22 +13892,17 @@ Partial Class Compras_Compras
Pago.CveMonedaPago = 1 Pago.CveMonedaPago = 1
Pago.CveCompraAmortizacion = -1 Pago.CveCompraAmortizacion = -1
Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC") Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC")
Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
Next Next
End If End If
Else Else
ErrorBitacora = True ErrorBitacora = True
End If End If
'Return True
Return ErrorBitacora Return ErrorBitacora
End Function End Function
Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean

5
Compras/eFacturas.aspx.vb
View File

@@ -1686,7 +1686,7 @@ Partial Class Compras_eFacturas
fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "") fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "")
End If End If
If fxml.Contains(fpdf) Then If fxml.Contains(fpdf) Or (ListXML.Count = 1 And ListPDF.Count = 1) Then
RutaPDF = fInfoPDF.FullName RutaPDF = fInfoPDF.FullName
Exit For Exit For
End If End If
@@ -7985,6 +7985,9 @@ Namespace ADS.eFacturas
GuardaLogAD(ex.ToString(), ArchivoLog) GuardaLogAD(ex.ToString(), ArchivoLog)
End Try End Try
ElseIf Fact.RespuestaInsert = 0 AndAlso Fact.CveFactura > 0 Then
'FIXME OIC
Else Else
rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar" rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar"
End If End If

123
Empresas/189/Formatos/OC.rdlc
View File

@@ -504,7 +504,7 @@
<Value>=CStr(RowNumber(Nothing))</Value> <Value>=CStr(RowNumber(Nothing))</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -535,14 +535,14 @@
<Value>=Fields!Cantidad.Value</Value> <Value>=Fields!Cantidad.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00)</Format> <Format>#,0.## </Format>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Center</TextAlign> <TextAlign>Right</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -553,6 +553,7 @@
</Border> </Border>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>
@@ -567,13 +568,13 @@
<Value>=Fields!UM.Value</Value> <Value>=Fields!UM.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style> <Style>
<TextAlign>Right</TextAlign> <TextAlign>Left</TextAlign>
</Style> </Style>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
@@ -598,7 +599,7 @@
<Value>=Fields!CodPS.Value</Value> <Value>=Fields!CodPS.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -629,7 +630,7 @@
<Value>=Fields!Producto.Value</Value> <Value>=Fields!Producto.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -658,7 +659,7 @@
<Value>=Fields!Obs.Value</Value> <Value>=Fields!Obs.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
@@ -687,7 +688,7 @@
<Value>=Fields!Importe.Value</Value> <Value>=Fields!Importe.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
@@ -720,7 +721,7 @@
<Value>=Fields!Descuento.Value</Value> <Value>=Fields!Descuento.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00;(#,0.00);'-'</Format> <Format>#,0.00;(#,0.00);'-'</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
@@ -753,7 +754,7 @@
<Value>=Fields!Total.Value</Value> <Value>=Fields!Total.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8pt</FontSize> <FontSize>7.5pt</FontSize>
<FontWeight>Normal</FontWeight> <FontWeight>Normal</FontWeight>
<Format>#,0.00</Format> <Format>#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
@@ -804,7 +805,7 @@
<DataSetName>DsOC</DataSetName> <DataSetName>DsOC</DataSetName>
<Left>0.04788in</Left> <Left>0.04788in</Left>
<Height>0.34081in</Height> <Height>0.34081in</Height>
<Width>8.16913in</Width> <Width>8.16912in</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -823,7 +824,7 @@
<Value>I.V.A.</Value> <Value>I.V.A.</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -833,7 +834,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.84536cm</Top> <Top>1.76972cm</Top>
<Left>15.76748cm</Left> <Left>15.76748cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -857,7 +858,7 @@
<Value>TOTAL:</Value> <Value>TOTAL:</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -867,7 +868,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.94467cm</Top> <Top>3.86903cm</Top>
<Left>15.77277cm</Left> <Left>15.77277cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -892,7 +893,7 @@
<Value>=Parameters!IVA.Value</Value> <Value>=Parameters!IVA.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -904,7 +905,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.84536cm</Top> <Top>1.76972cm</Top>
<Left>18.26748cm</Left> <Left>18.26748cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -930,7 +931,7 @@
<Value>=Parameters!Total.Value</Value> <Value>=Parameters!Total.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -942,7 +943,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.94467cm</Top> <Top>3.86903cm</Top>
<Left>18.27277cm</Left> <Left>18.27277cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.43121cm</Width> <Width>2.43121cm</Width>
@@ -968,7 +969,7 @@
<Value>SUB-TOTAL</Value> <Value>SUB-TOTAL</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -978,7 +979,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.40195cm</Top> <Top>0.32631cm</Top>
<Left>15.76748cm</Left> <Left>15.76748cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1003,7 +1004,7 @@
<Value>=Parameters!SubTotal.Value</Value> <Value>=Parameters!SubTotal.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1015,8 +1016,8 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.40195cm</Top> <Top>0.32631cm</Top>
<Left>18.26748cm</Left> <Left>18.29588cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
<ZIndex>5</ZIndex> <ZIndex>5</ZIndex>
@@ -1050,7 +1051,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox46</rd:DefaultName> <rd:DefaultName>Textbox46</rd:DefaultName>
<Top>4.05051cm</Top> <Top>4.13362cm</Top>
<Left>0.00001cm</Left> <Left>0.00001cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>15.04926cm</Width> <Width>15.04926cm</Width>
@@ -1080,7 +1081,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>0.11768cm</Top> <Top>0.04204cm</Top>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>20.70398cm</Width> <Width>20.70398cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
@@ -1112,7 +1113,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>3.73096cm</Top> <Top>3.65532cm</Top>
<Left>15.22566cm</Left> <Left>15.22566cm</Left>
<Height>0.14316cm</Height> <Height>0.14316cm</Height>
<Width>5.47753cm</Width> <Width>5.47753cm</Width>
@@ -1145,7 +1146,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName> <rd:DefaultName>Textbox5</rd:DefaultName>
<Top>4.50233cm</Top> <Top>4.42669cm</Top>
<Left>15.22566cm</Left> <Left>15.22566cm</Left>
<Height>0.14502cm</Height> <Height>0.14502cm</Height>
<Width>5.47832cm</Width> <Width>5.47832cm</Width>
@@ -1186,7 +1187,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox1</rd:DefaultName> <rd:DefaultName>Textbox1</rd:DefaultName>
<Top>0.43723cm</Top> <Top>0.36159cm</Top>
<Left>0.03529cm</Left> <Left>0.03529cm</Left>
<Height>0.41479cm</Height> <Height>0.41479cm</Height>
<Width>14.67376cm</Width> <Width>14.67376cm</Width>
@@ -1211,7 +1212,7 @@
<Value>Ret I.V.A</Value> <Value>Ret I.V.A</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1221,7 +1222,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.29719cm</Top> <Top>2.22155cm</Top>
<Left>15.76669cm</Left> <Left>15.76669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1249,7 +1250,7 @@
<Value>=Parameters!RetIVA.Value</Value> <Value>=Parameters!RetIVA.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1261,7 +1262,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.29719cm</Top> <Top>2.22155cm</Top>
<Left>18.26669cm</Left> <Left>18.26669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -1290,7 +1291,7 @@
<Value>Ret I.S.R</Value> <Value>Ret I.S.R</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1300,7 +1301,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.74902cm</Top> <Top>2.67338cm</Top>
<Left>15.76669cm</Left> <Left>15.76669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1328,7 +1329,7 @@
<Value>=Parameters!RetISR.Value</Value> <Value>=Parameters!RetISR.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1340,7 +1341,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>2.74902cm</Top> <Top>2.67338cm</Top>
<Left>18.26669cm</Left> <Left>18.26669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -1369,7 +1370,7 @@
<Value>I.E.P.S</Value> <Value>I.E.P.S</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1379,7 +1380,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.20085cm</Top> <Top>3.12521cm</Top>
<Left>15.76669cm</Left> <Left>15.76669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1407,7 +1408,7 @@
<Value>=Sum(Fields!IEPS.Value, "DsOC")</Value> <Value>=Sum(Fields!IEPS.Value, "DsOC")</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1419,7 +1420,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>3.20085cm</Top> <Top>3.12521cm</Top>
<Left>18.26669cm</Left> <Left>18.26669cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -1448,7 +1449,7 @@
<Value>DESCUENTO</Value> <Value>DESCUENTO</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1458,7 +1459,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.88906cm</Top> <Top>0.81342cm</Top>
<Left>15.77355cm</Left> <Left>15.77355cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1486,7 +1487,7 @@
<Value>=Parameters!Descuento.Value</Value> <Value>=Parameters!Descuento.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1498,7 +1499,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>0.88906cm</Top> <Top>0.81342cm</Top>
<Left>18.27355cm</Left> <Left>18.27355cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -1527,7 +1528,7 @@
<Value>SUB-TOTAL2</Value> <Value>SUB-TOTAL2</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -1537,7 +1538,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.34089cm</Top> <Top>1.26525cm</Top>
<Left>15.77355cm</Left> <Left>15.77355cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.5cm</Width> <Width>2.5cm</Width>
@@ -1565,7 +1566,7 @@
<Value>=Parameters!SubTotal2.Value</Value> <Value>=Parameters!SubTotal2.Value</Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>8.5pt</FontSize>
<Format>'$'#,0.00</Format> <Format>'$'#,0.00</Format>
<Language>es-MX</Language> <Language>es-MX</Language>
</Style> </Style>
@@ -1577,7 +1578,7 @@
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox20</rd:DefaultName> <rd:DefaultName>Textbox20</rd:DefaultName>
<Top>1.34089cm</Top> <Top>1.26525cm</Top>
<Left>18.27355cm</Left> <Left>18.27355cm</Left>
<Height>0.45183cm</Height> <Height>0.45183cm</Height>
<Width>2.4365cm</Width> <Width>2.4365cm</Width>
@@ -1598,10 +1599,10 @@
</Textbox> </Textbox>
</ReportItems> </ReportItems>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>1.12516cm</Top> <Top>1.04205cm</Top>
<Left>0.12849cm</Left> <Left>0.12849cm</Left>
<Height>5.34083cm</Height> <Height>5.42394cm</Height>
<Width>20.71005cm</Width> <Width>20.73238cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -1755,11 +1756,19 @@
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>9pt</FontSize> <FontSize>9pt</FontSize>
<FontWeight>SemiBold</FontWeight> <FontWeight>Normal</FontWeight>
</Style> </Style>
</TextRun> </TextRun>
<TextRun> <TextRun>
<Value xml:space="preserve"> </Value> <Value xml:space="preserve"> </Value>
<Style>
<FontFamily>calibri</FontFamily>
<FontSize>8.5pt</FontSize>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<Style> <Style>
<FontFamily>calibri</FontFamily> <FontFamily>calibri</FontFamily>
<FontSize>8.5pt</FontSize> <FontSize>8.5pt</FontSize>
@@ -1931,7 +1940,7 @@
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox36</rd:DefaultName> <rd:DefaultName>Textbox36</rd:DefaultName>
<Top>2.50885cm</Top> <Top>2.50885cm</Top>
<Left>13.33144cm</Left> <Left>12.69644cm</Left>
<Height>3.45728cm</Height> <Height>3.45728cm</Height>
<Width>7.11877cm</Width> <Width>7.11877cm</Width>
<ZIndex>1</ZIndex> <ZIndex>1</ZIndex>

6
Empresas/Grales/Formatos/CFDIV3.rdlc
View File

@@ -2022,7 +2022,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Cadena original del complemento de cretificación del SAT:</Value> <Value>Cadena original del complemento de certificación del SAT:</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -2086,6 +2086,7 @@
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>4</ColSpan> <ColSpan>4</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
@@ -2226,7 +2227,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>RFC del proveedor de cretificación:</Value> <Value>RFC del proveedor de certificación:</Value>
<Style> <Style>
<FontFamily>arial</FontFamily> <FontFamily>arial</FontFamily>
<FontSize>8pt</FontSize> <FontSize>8pt</FontSize>
@@ -4647,7 +4648,6 @@
<PaddingBottom>1pt</PaddingBottom> <PaddingBottom>1pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell> <TablixCell>

42
Transportes/RepContratoDetalle.aspx
View File

@@ -152,20 +152,19 @@
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4"> <label class="col-md-4">
<asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label> <asp:Label runat="server" ID="LblSubProyectoModal"></asp:Label>
</label> </label>
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList> <asp:DropDownList runat="server" ID="DdlSubProyecto" Width="100%" DataValueField="CveSubProyecto" DataTextField="SubProyecto" Class="table-group-action-input form-control input-inline select2me"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None" <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" InitialValue="-1" ErrorMessage="Campo sub Proyecto requerido." Display="None"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
<div class="input-group"> <div class="input-group">
</div>
</div> </div>
</div>
<div class="row"> <div class="row">
<label class="col-md-4">Servicio</label> <label class="col-md-4">Servicio</label>
@@ -388,10 +387,11 @@
<asp:Label runat="server" ID="LblSaldo"></asp:Label> <asp:Label runat="server" ID="LblSaldo"></asp:Label>
</div> </div>
</div> </div>
<br />
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" ShowFooter="true" <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False" ShowFooter="true"
DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia" DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia"
EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None" EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None"
@@ -461,10 +461,10 @@
<div class="portlet-body rowpadding"> <div class="portlet-body rowpadding">
<div class="row"> <div class="row">
<div class="col-md-12" style="text-align: center;"> <div class="col-md-12" style="text-align: center;">
<asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:HyperLink target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink> <asp:HyperLink Target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
<asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server" <asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server"
Width="200px"></asp:TextBox> Width="200px"></asp:TextBox>
@@ -473,11 +473,9 @@
<i class="fa fa-upload" <i class="fa fa-upload"
aria-hidden="true"></i>Subir Archivo</button> aria-hidden="true"></i>Subir Archivo</button>
</ContentTemplate> </ContentTemplate>
<Triggers>
</Triggers>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</div> </div>
</div> </div>
@@ -1147,6 +1145,7 @@
</div> </div>
</div> </div>
</div> </div>
</div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<%--Modal subir archivo--%> <%--Modal subir archivo--%>
@@ -1220,6 +1219,7 @@
<div class="modal-footer"> <div class="modal-footer">
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" /> <asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>

8
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -620,15 +620,19 @@ Partial Class RepContratoDetalle
If Not ErrorProceso Then If Not ErrorProceso Then
ObjContratos.Commit() ObjContratos.Commit()
ObjContratos.Dispose()
AgregarABitacora($"Actualización del contrato {CveContrato}") AgregarABitacora($"Actualización del contrato {CveContrato}")
CargaDatos()
Alert("Contrato actualizado correctamente") Alert("Contrato actualizado correctamente")
Else Else
Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError) Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
ObjContratos.RollBack() ObjContratos.RollBack()
End If End If
ObjContratos.Dispose()
If Not ErrorProceso Then
'CargaDatos()
End If
End Sub End Sub
Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean

2
Transportes/RepContratosCalendario.aspx.vb
View File

@@ -182,7 +182,7 @@ Partial Class RepContratosCalendario
'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})") 'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})")
'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1") 'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1")
RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1") ' RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
UPScheduler.Update() UPScheduler.Update()

40
Ventas/ProductosServicios.aspx.vb
View File

@@ -3349,25 +3349,33 @@ Partial Class ProductosyServicios
Else Else
If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
Return True
If ObjPS.DtResultados IsNot Nothing AndAlso ObjPS.DtResultados.Rows.Count = 1 Then
Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
(TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
EsPaquete, DdlSATPS.SelectedValue.ToEntero, CveEmpresaFranquicia, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarcaFranquicia,
AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, AplicaIEPS:=ChkAplicaIeps.Checked, IEPSPorcentaje:=DdlIEPSPorcentaje.SelectedValue.ToDecimal,
CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, IEPSGrabaIVA:=ChkIepsIVA.Checked,
VentaMinima:=TxtVentaMinima.Text.ToDecimal, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, RetISR:=(TxtRetISR.Text.Trim.ToDouble / 100), PrecioMinimo:=TxtPrecioMinimo.Text.ToDecimal,
CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario,
CveClasificacionDetalle:=CveTipo, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=CveModelo,
CveMedida:=CveMedida, CveRinTamaño:=CveRin, ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString,
CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero,
ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString,
AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked,
TiempoCaducidad:=TxtTiempoCaducidad.Text.ToEntero()) Then
Return True
End If
Else
Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True
End If End If
Else Else
Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia) Alert(String.Format("Se presento un error al consultar la existencia en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
Return True Return True
End If End If
End If End If

1
Ventas/Promociones.aspx.vb
View File

@@ -855,6 +855,7 @@ Partial Class Ventas_Promociones
If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then
TieneError = True TieneError = True
CvePromocion = -1
End If End If
End If End If