diff --git a/App_Code/CFDITimbreRetenciones.vb b/App_Code/CFDITimbreRetenciones.vb index 12cc0135b..f7a977353 100644 --- a/App_Code/CFDITimbreRetenciones.vb +++ b/App_Code/CFDITimbreRetenciones.vb @@ -27,7 +27,6 @@ Public Class CFDITimbreRetenciones Public ReadOnly Property TotalImpuestosGravado As Decimal Get Return (From c In RetencionesImpuestos - Where c.ImpuestoRetencion = "001" Select c.MontoRetencion).Sum End Get End Property @@ -35,7 +34,6 @@ Public Class CFDITimbreRetenciones Public ReadOnly Property TotalImpuestosRetenidos As Decimal Get Return (From c In RetencionesImpuestos - Where c.ImpuestoRetencion = "001" Select c.MontoRetencion).Sum End Get End Property diff --git a/General/TimbraRetencion.aspx b/General/TimbraRetencion.aspx index 4b95fe6dc..6bbc609c1 100644 --- a/General/TimbraRetencion.aspx +++ b/General/TimbraRetencion.aspx @@ -24,6 +24,14 @@ + ddd + + + + + + +
- + + + + + + + +
- - + +
- - + +
- - + + +
+
+
+
+ +
diff --git a/General/TimbraRetencion.aspx.vb b/General/TimbraRetencion.aspx.vb index d62ce4858..afaa76efc 100644 --- a/General/TimbraRetencion.aspx.vb +++ b/General/TimbraRetencion.aspx.vb @@ -42,10 +42,23 @@ Partial Class General_TimbraRetencion Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then + EnviarNotificacionWhatsApp("6621430964", "Hola") DdlClientes.setEsWebService(True) + CargaDatos() End If End Sub + Private Sub CargaDatos() + Dim ObjGral As New ClsGenerales + + If ObjGral.GetGralTimbre(-1, "Ret", Now.AddMonths(-1), Now, -1, UsuarioActual.CveEmpresa, -1) Then + Dim dt As DataTable = ObjGral.DtResultados + GvLista.DataSource = dt + End If + ObjGral.Dispose() + GvLista.DataBind() + End Sub + #Region "Timbra" Private Function TimbraRetencion(cfditimbre As CFDITimbreRetenciones, UsuarioActual As Usuario) As String Dim sw As New Diagnostics.Stopwatch @@ -234,7 +247,8 @@ Partial Class General_TimbraRetencion Dim NombreArchivoXML As String = "" Dim objGrales As New ClsGenerales objGrales.IniciaTransacSQL() - Dim tCveTimbre As Integer = objGrales.AddGralTimbre("Ret", 12679, cfditimbre.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto As Integer = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + Dim tCveTimbre As Integer = objGrales.AddGralTimbre("Ret", tCveSubProyecto, cfditimbre.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) NombreArchivoXML = $"{objGrales.SerieInsertada}-{objGrales.FolioInsertado}.xml" If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) @@ -283,6 +297,19 @@ Partial Class General_TimbraRetencion Protected Sub BtnEmitirRetencion_Click(sender As Object, e As EventArgs) + + Dim dr As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=DdlClientes.SelectedValue.ToEntero).FiltroPrimero("") + Dim ReceptorRFC As String = "" + Dim ReceptorCP As String = "" + Dim ReceptorNombre As String = "" + If dr IsNot Nothing Then + ReceptorRFC = dr("RFC").ToString + ReceptorCP = dr("CP").ToString + ReceptorNombre = dr("Nombre").ToString + Else + Exit Sub + End If + Dim cfditimbre As New CFDITimbreRetenciones cfditimbre.Fecha = Now cfditimbre.Retencion.ClaveRetencion = DdlClaveRetencion.SelectedValue @@ -290,21 +317,23 @@ Partial Class General_TimbraRetencion cfditimbre.Retencion.PeriodoMesFin = DdlPeriodoFin.SelectedValue cfditimbre.Retencion.PeriodoEjercicio = DdlEjercicio.SelectedValue.ToEntero cfditimbre.Retencion.LugarExpedicion = UsuarioActual.Empresa.CP - cfditimbre.Receptor.RFCR = "AEMV690902NM5" + cfditimbre.Receptor.RFCR = ReceptorRFC '"AEMV690902NM5" cfditimbre.Receptor.NacionalidadR = "Nacional" - cfditimbre.Receptor.DomicilioFiscalR = "11950" - cfditimbre.Receptor.NombreDenominacionR = "VERONICA MICHELLE ARMENTA MASON" + cfditimbre.Receptor.DomicilioFiscalR = ReceptorCP '"11950" + cfditimbre.Receptor.NombreDenominacionR = ReceptorNombre '"VERONICA MICHELLE ARMENTA MASON" cfditimbre.CFDIRelacionados.TipoRelacion = "01" cfditimbre.CFDIRelacionados.UUID.Add("671fdb07-406a-42a6-9a89-40219f663ea1") - cfditimbre.ISRCorrespondiente = 705 - cfditimbre.RetencionesImpuestos.Add(New CFDIImpuestosRetenidos With {.MontoRetencion = 705, .BaseRetencion = 0, .ImpuestoRetencion = "01", .TipoPagoRetencion = "04"}) + + 'cfditimbre.RetencionesImpuestos.Add(New CFDIImpuestosRetenidos With {.MontoRetencion = 705, .BaseRetencion = 0, .ImpuestoRetencion = "01", .TipoPagoRetencion = "04"}) For Each gvr As GridViewRow In GvD.Rows Dim ret As New CFDIImpuestosRetenidos With {.BaseRetencion = gvr.DataKey("BaseRetencion").ToDecimal, - .ImpuestoRetencion = gvr.DataKey("ImpuestoRetencion")} + .MontoRetencion = gvr.DataKey("MontoRetencion").ToDecimal, + .ImpuestoRetencion = gvr.DataKey("ClaveTipoImpuesto"), + .TipoPagoRetencion = gvr.DataKey("ClaveTipoPagoRetencion")} cfditimbre.RetencionesImpuestos.Add(ret) Next - + cfditimbre.ISRCorrespondiente = cfditimbre.TotalImpuestosRetenidos TimbraRetencion(cfditimbre, UsuarioActual) @@ -320,21 +349,21 @@ Partial Class General_TimbraRetencion DtDetalle.Columns.Add("TipoImpuesto", GetType(String)) DtDetalle.Columns.Add("ClaveTipoImpuesto", GetType(String)) DtDetalle.Columns.Add("BaseRetencion", GetType(Decimal)) - DtDetalle.Columns.Add("ClaveTipoPago", GetType(String)) - DtDetalle.Columns.Add("TipoPago", GetType(String)) - DtDetalle.Columns.Add("ImpuestoRetenido", GetType(Decimal)) + DtDetalle.Columns.Add("ClaveTipoPagoRetencion", GetType(String)) + DtDetalle.Columns.Add("TipoPagoRetencion", GetType(String)) + DtDetalle.Columns.Add("MontoRetencion", GetType(Decimal)) End Sub Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) Dim dr As DataRow = DtDetalle.NewRow - dr("TipoImpuesto") = DdlTipoImpuesto.Text + dr("TipoImpuesto") = DdlTipoImpuesto.SelectedItem.Text dr("ClaveTipoImpuesto") = DdlTipoImpuesto.SelectedValue dr("BaseRetencion") = TxtBase.Text.ToDecimal - dr("ClaveTipoPago") = DdlTipoPagoRet.SelectedValue - dr("TipoPago") = DdlTipoPagoRet.Text - dr("ImpuestoRetenido") = TxtImpuestoRetenido.Text.ToDecimal + dr("ClaveTipoPagoRetencion") = DdlTipoPagoRet.SelectedValue + dr("TipoPagoRetencion") = DdlTipoPagoRet.SelectedItem.Text + dr("MontoRetencion") = TxtImpuestoRetenido.Text.ToDecimal DtDetalle.Rows.Add(dr)