diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 20a20bd32..2d0ab9c7d 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1188,8 +1188,10 @@ Public Class ClsContabilidad
Catch ex As Exception
If ex.Message.Contains("50015;") Then
OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ ElseIf ex.Message.Contains("IDX_UN_ContaPrePolizasCveEmpresaCveTipoPolizaFoliosAnioMes") Then
+ OnError($"El Folio {Folio} ya esta registrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
Else
- OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ OnError("Ocurrió un error al contabilizar las prepoliza detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End If
End Try
Return Retorno
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 333a8f44d..4a67fbb34 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -5844,7 +5844,7 @@
}
//var SaldoCompra = parseFloat(parseFloat($get('HdnCompraSaldo').value).toFixed(2));
- var SaldoCompra = (Total - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo
+ var SaldoCompra = (TotalSaldo - FnSumaValoresAnt() + txtvalue).toFixed(2); // le agrego lo del valor actual para validarlo
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 399a06781..859abbf64 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1025,6 +1025,21 @@ Partial Class Compras_Compras
End Set
End Property
+ Private Property SubTotalRefacturacion As Decimal
+ Get
+
+ If ViewState("SubTotalRefacturacion") Is Nothing Then
+ ViewState("SubTotalRefacturacion") = 0.0D
+ End If
+
+ Return ViewState("SubTotalRefacturacion").ToString.ToDecimal
+
+ End Get
+ Set(value As Decimal)
+ ViewState("SubTotalRefacturacion") = value
+ End Set
+ End Property
+
Private Property IVAOriginal As Double
Get
@@ -2165,7 +2180,7 @@ Partial Class Compras_Compras
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
- 'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+ DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
''End If
End If
@@ -5925,7 +5940,7 @@ Partial Class Compras_Compras
Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
Dim importeMN As Decimal = 0
- Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+ Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
@@ -6314,7 +6329,7 @@ Partial Class Compras_Compras
Funcionalidad = 313
ConceptoContable = 248
ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then
- Funcionalidad = 577
+ Funcionalidad = 578
ConceptoContable = 285
End If
@@ -6517,7 +6532,14 @@ Partial Class Compras_Compras
Exit Select 'Es credito el concepto 6 se agrega en CASE 17
End If
- If Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked) Then
+
+ Dim DifSubTotatles As Decimal = 0D
+
+ If CveCompraRefacturacion > 0 Then
+ DifSubTotatles = Math.Abs(SubTotalRefacturacion - TxtSubTotal2.Text.ToDecimal)
+ End If
+
+ If DifSubTotatles > 0 Or (Not CveCompraRefacturacion > 0 OrElse (ChkRefacNC.Checked)) Then
'AF TipoAF 2 Es para las compras
DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 And ISNULL(AplicaCostoIndirecto,0) <> 1 ")
If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -8972,7 +8994,7 @@ Partial Class Compras_Compras
IdCtaContable = 0
Dim Concepto As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
Dim importeMN As Decimal = 0
- Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+ Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
Dim PorcentajeImpuesto As Decimal = 0
Dim ConceptoPartida As String = String.Format("{0}-{1}", TxtSerie.Text, TxtFolio.Text)
@@ -10591,7 +10613,7 @@ Partial Class Compras_Compras
Dim importeMovimiento As Decimal = 0
Dim IdCtaContable As Integer = 0
Dim importeMN As Decimal = 0
- Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, -1, 1)
+ Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
Select Case ConceptoContable
@@ -14731,14 +14753,19 @@ Partial Class Compras_Compras
Private Sub DdlRefacturacionFacturas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlRefacturacionFacturas.SelectedIndexChanged
+ SubTotalRefacturacion = 0.0D
+
If DdlRefacturacionFacturas.SelectedValue.ToEntero > 0 Then
Dim dr As DataRow = DtRefacturacion.FiltroPrimero(String.Format("CveCompra ={0}", DdlRefacturacionFacturas.SelectedValue))
If dr IsNot Nothing Then
HdnRefacturacionConcepto.Value = dr("CveConceptoContableAlmacen").ToString
ChkRefacturacionConAlmacen.Checked = If(dr("CveMovimientoAlmacen").ToString.ToEntero > 0, True, False)
+ SubTotalRefacturacion = dr("SubTotal").ToString.ToDecimal
End If
+
+
End If
End Sub
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index d8176bb72..e06070550 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -728,15 +728,10 @@ Partial Class Compras_Proveedores
cfdVer = "http://www.sat.gob.mx/cfd/4"
End If
-
-
'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
namespaces.AddNamespace(Prefijo, cfdVer)
-
-
-
Dim node As XmlNode
node = XMLDoc.SelectSingleNode(String.Format("//{0}:Emisor", Prefijo), namespaces)
If node IsNot Nothing Then
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index c73ff32d0..e50b0a6ec 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -2883,7 +2883,7 @@ Partial Class Compras_eFacturas
DTDocumentosRelacionados.Columns.Add("Manual", GetType(Boolean))
-
+ Dim TieneRegistros As Boolean = False
If IO.File.Exists(Archivo) Then
@@ -3034,18 +3034,29 @@ Partial Class Compras_eFacturas
End If
End If
+
ObjCompraFolios.Dispose()
+ DTDocumentosRelacionados = DTDocumentosRelacionados.FiltraParametros("CveIE > 0 AND LEN(IdDocumento) > 0")
GVPDocumentosRelacionadosPagos.DataSource = DTDocumentosRelacionados
GVPDocumentosRelacionadosPagos.DataBind()
DTGVPagosVinculacion = DTDocumentosRelacionados
+ BtnVincularPago.Visible = False
+ If DTDocumentosRelacionados.Rows.Count > 0 Then
+ SerieFolioIE = DTDocumentosRelacionados.Rows(0)("SerieFolio").ToString
+ DivVincularPagoManualmente.Visible = False
+ BtnVincularPago.Visible = True
+ TieneRegistros = True
+ Else
+ DivVincularPagoManualmente.Visible = True
+ BtnVincularPago.Visible = False
+ End If
ComprasEnComplemento = DTGVPagosVinculacion.COUNT("CveCompra", " CveCompra > 0")
-
If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then
TieneCompras = True
Else
@@ -3096,25 +3107,25 @@ Partial Class Compras_eFacturas
Dim ObjCompras As New ClsCompras
- Dim TieneRegistros As Boolean = False
- If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
- GvVincularPago.DataSource = ObjCompras.DtResultados
- If ObjCompras.DtResultados.Rows.Count > 0 Then
- SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
- DivVincularPagoManualmente.Visible = False
- BtnVincularPago.Visible = True
- TieneRegistros = True
- Else
- DivVincularPagoManualmente.Visible = True
- BtnVincularPago.Visible = False
- End If
- 'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
- Else
- DivVincularPagoManualmente.Visible = False
- BtnVincularPago.Visible = False
- End If
+ 'If ObjCompras.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", "").Replace("pagos10:", ""), UsuarioActual.CveEmpresa) Then
+ ' GvVincularPago.DataSource = ObjCompras.DtResultados
+
+ ' If ObjCompras.DtResultados.Rows.Count > 0 Then
+ ' SerieFolioIE = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString
+ ' DivVincularPagoManualmente.Visible = False
+ ' BtnVincularPago.Visible = True
+ ' TieneRegistros = True
+ ' Else
+ ' DivVincularPagoManualmente.Visible = True
+ ' BtnVincularPago.Visible = False
+ ' End If
+ ' 'ImportePago = ObjCompras.DtResultados.SUMD("Monto")
+ 'Else
+ ' DivVincularPagoManualmente.Visible = False
+ ' BtnVincularPago.Visible = False
+ 'End If
For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 05f6994b1..9bf82bd72 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2724,7 +2724,10 @@ Partial Class ContabilidadC_RegPrePolizaS
TxtFolio.Text = ObjConta.ContaFolio.ToString()
LnkFolioManual.Visible = False
+ BtnContabilizar.Visible = False
+ BtnDescontabilizar.Visible = True
UpPoliza.Update()
+ UpGuardar.Update()
End If
@@ -3215,15 +3218,18 @@ Partial Class ContabilidadC_RegPrePolizaS
If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, False, UsuarioActual.CveEmpresa) Then
+
Alert("Descontabilizado Correctamente.", TipoMensaje.MsgInformacion)
TxtFolio.Text = ""
LnkFolioManual.Visible = True
+ BtnDescontabilizar.Visible = False
+ BtnContabilizar.Visible = True
End If
ObjConta.Dispose()
UpPoliza.Update()
-
+ UpGuardar.Update()
diff --git a/Empresas/141/Formatos/CHQ-7452.rdlc b/Empresas/141/Formatos/CHQ-7452.rdlc
index 3c26bcd98..77447f2a8 100644
--- a/Empresas/141/Formatos/CHQ-7452.rdlc
+++ b/Empresas/141/Formatos/CHQ-7452.rdlc
@@ -1,5 +1,5 @@
-
+
0
@@ -93,9 +93,9 @@
Textbox1
3.15903cm
- 2.98488cm
+ 0.58123cm
0.6cm
- 14.64437cm
+ 17.04802cm
1