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/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index eedb48556..47b1d2821 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -759,9 +759,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState End If Dim EsDistribuidor As Integer = IfNull(context.Request("esdistribuidor"), "-1").ToString.ToEntero - Dim cveclienteclasificacion = IfNull(context.Request("cveclienteclasificacion"), "-1").ToString.ToEntero - Dim usuario As Usuario = UsuarioActual(context) Dim CveEmpresa As Integer If IsNothing(usuario) Then @@ -799,7 +797,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Else context.Response.Write("[]") End If - DtRetorno.Dispose() + If DtRetorno IsNot Nothing Then DtRetorno.Dispose() DtRetorno = Nothing Return retorno diff --git a/Bin/Profact.TimbraCFDI.dll b/Bin/Profact.TimbraCFDI.dll index ceaa9cf16..b6310cead 100644 Binary files a/Bin/Profact.TimbraCFDI.dll and b/Bin/Profact.TimbraCFDI.dll differ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 6f1b1b0c9..15a385678 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6271,21 +6271,15 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero() > 0 Then - Dim Funcionalidad As Integer = 0 If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then - Funcionalidad = 307 ConceptoContable = 15 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then - Funcionalidad = 309 ConceptoContable = 183 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then - Funcionalidad = 311 ConceptoContable = 185 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then - Funcionalidad = 313 ConceptoContable = 248 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 5 Then - Funcionalidad = 578 ConceptoContable = 285 ElseIf DdlRetIVAConcepto.SelectedValue.ToEntero = 6 Then ConceptoContable = 333 @@ -6302,15 +6296,11 @@ Partial Class Compras_Compras If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero > 0 Then - Dim funcionalidad As Integer = 0 If DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then - funcionalidad = 315 ConceptoContable = 16 ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then - funcionalidad = 317 ConceptoContable = 243 ElseIf DdlRetISRConcepto.SelectedValue.ToEntero = 3 Then - funcionalidad = 348 ConceptoContable = 327 End If importeMovimiento = CompraActual.RetISR @@ -6320,33 +6310,33 @@ Partial Class Compras_Compras End If End If - Case 64 'Ganancia + 'Case 64 'Ganancia - 'CveSubProyectoInsertar = CveSubProyecto - If CveSubProyectoInsertar <= 0 Then - ErrorPrepoliza = True - Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) - End If + ' 'CveSubProyectoInsertar = CveSubProyecto + ' If CveSubProyectoInsertar <= 0 Then + ' ErrorPrepoliza = True + ' Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia) + ' End If - If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then + ' If TCPago > 0 AndAlso TCPago <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then - If TipoCambioCompra > TCPago Then - ConceptoContable = 64 - TipoMovimiento = True - Else - ConceptoContable = 65 - TipoMovimiento = False - End If - If TCPago <> TipoCambioCompra Then - importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv - importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable - importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable - importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable - importeMN = importeMovimiento - End If - Else - importeMovimiento = 0 - End If + ' If TipoCambioCompra > TCPago Then + ' ConceptoContable = 64 + ' TipoMovimiento = True + ' Else + ' ConceptoContable = 65 + ' TipoMovimiento = False + ' End If + ' If TCPago <> TipoCambioCompra Then + ' importeMovimiento = Math.Abs(TCPago - TipoCambioCompra) * importePagoProv + ' importeMovimiento -= Math.Abs(TCPago - TipoCambioCompra) * importeIVAAcreditable + ' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetIVAAcreditable + ' importeMovimiento += Math.Abs(TCPago - TipoCambioCompra) * importeRetISRAcreditable + ' importeMN = importeMovimiento + ' End If + ' Else + ' importeMovimiento = 0 + ' End If Case 6 'Compra @@ -6570,8 +6560,14 @@ Partial Class Compras_Compras Dim tCveColectiva As Integer = ObjOC.DtResultados.FiltroPrimeroValor("CveColectiva").ToEntero CveMovimientoAlmacen = ObjOC.DtResultados.FiltroPrimeroValor("CveMovimientoAlmacen").ToEntero Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal - 'RMF. falta verificar el costo indirecto de la OC - If DdlMoneda.SelectedValue.ToEntero <> 1 Then + 'RMF. si la Factura es USD, y la OC, en pesos, el registro debe de ser el concepto de la moneda de la oc + If Importe176 > 0 AndAlso DdlMoneda.SelectedValue <> "1" Then + 'Importe176 = (Importe176 * TxtTipoCambioOC.Text.ToDecimal).RoundSQL + 'ImporteMN176 = Importe176 + TCO = TxtTC.Text.ToDecimal + End If + + If Importe228 > 0 Then TCO = TxtTC.Text.ToDecimal ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal 'CostoIndirectoAcum176 += ImporteCI176 @@ -7027,22 +7023,13 @@ Partial Class Compras_Compras importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal OtrosGastosIngresos = rw.FCTextBox("TxtOtrosGastosIngresos").Text.ToDecimal - importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL - Dim OtrosGastosIngresosMN As Decimal = (OtrosGastosIngresos * tipoCambioActual * Multiplicador).RoundSQL Dim importeMNOtrosIngEgs As Decimal = ((importeMovimiento + OtrosGastosIngresos) * tipoCambioActual * Multiplicador).RoundSQL - Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero - If OtrosGastosIngresos = 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True : Exit For - End If - Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(TipoMovimiento, False, True), (importeMovimiento + OtrosGastosIngresos), importeMNOtrosIngEgs, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then - ErrorPrepoliza = True : Exit For - End If + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (importeMovimiento + OtrosGastosIngresos), importeMNOtrosIngEgs, CveConceptoContableDeudor, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, (importeMovimiento + OtrosGastosIngresos)), Contabilizable:=SeContabiliza) Then + ErrorPrepoliza = True : Exit For End If Dim Pago As New CompraPago With { @@ -7393,8 +7380,8 @@ Partial Class Compras_Compras ErrorPrepoliza = True Exit For End If - End If + End If Next 'EMPIEZA REFACTURACION @@ -19531,6 +19518,11 @@ Partial Class Compras_Compras Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean + '' si está activado el Tipo de cambio de las OC, no debe de ajustarse, ya que hay una operación de cálculo + If DivTipoCambioOC.Visible Then + Return True + End If + 'VARIABLES Dim CveProveedorSucursal As Integer = -1 Dim CveProveedorContacto As Integer = -1 diff --git a/Contabilidad/LibroMayor2.aspx b/Contabilidad/LibroMayor2.aspx index d0525b61d..e327102eb 100644 --- a/Contabilidad/LibroMayor2.aspx +++ b/Contabilidad/LibroMayor2.aspx @@ -175,7 +175,7 @@ Concepto Referencia Referencia Movto - SubProyecto + Cargos Abonos Saldo diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b10065036..8b3e8406f 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -1027,7 +1027,7 @@ - + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 6980f4193..8f0b6f292 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -308,6 +308,9 @@ Partial Class ContabilidadC_RegPrePolizaS BtnDescontabilizar.Visible = False LnkFolioManual.Visible = True End If + If Request("Contabiliza") IsNot Nothing Then + Contabilizar() + End If End If @@ -359,6 +362,8 @@ Partial Class ContabilidadC_RegPrePolizaS GvMov.Columns(5).Visible = False End If + + End If End Sub @@ -2145,13 +2150,12 @@ Partial Class ContabilidadC_RegPrePolizaS dtt = ObjBancos.DtResultados If dtt.Rows.Count > 0 Then UpComplementoPagos.Visible = True - 'GvComplementoPagos.Columns(7).Visible = True ' si tiene el permiso para eliminar IE o editar IE If UsuarioActual.TienePermisoProceso(85) OrElse UsuarioActual.TienePermisoProceso(99) Then GvComplementoPagos.Columns(6).Visible = True Else DVGenerarComplementoModal.Visible = True End If - GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE"}) + GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "SerieFolioPago", "FechaComplemento", "Importe", "CveIE", "RFCReceptor", "CvePAC"}) End If ObjBancos.Dispose() @@ -2236,7 +2240,7 @@ Partial Class ContabilidadC_RegPrePolizaS Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - MandaCorreo(Banco.ComplementoSerieFolio, Banco.CobranzaCorreo) + 'MandaCorreo(Banco.ComplementoSerieFolio, Banco.CobranzaCorreo) End If Else Banco.RollBack() @@ -2252,7 +2256,8 @@ Partial Class ContabilidadC_RegPrePolizaS 'If e.Row.DataKey("Tipo") = "Ing" Then e.Row.Cells(3).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) - e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + 'e.Row.Cells(4).Text = String.Format("", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CVECOMPLEMENTOPAGO={1}&CVEIE={2}", e.Row.DBCampo("SerieFolioPago"), e.Row.DBCampo("CveComplementoPago"), e.Row.DBCampo("CveIE")))) + 'End If End If diff --git a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb index fc69f2a4f..49ffeba3c 100644 --- a/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb +++ b/Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb @@ -8,8 +8,6 @@ Imports Extensiones Partial Class RepCuadreContaAdmonDetalle Inherits ClsPaginas - Private Shared missing As Object = System.Reflection.Missing.Value - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then @@ -126,7 +124,7 @@ Partial Class RepCuadreContaAdmonDetalle End If If e.Row.DataKey("CvePrePoliza").ToEntero > 0 Then - Dim LigaPrePoliza As String = $"/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={e.Row.DataKey("CvePrePoliza")}&Tipo=1" + Dim LigaPrePoliza As String = $"/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("CvePrePoliza")}&Tipo=1" e.Row.FCLiteral("LtlCargoAdmon").Text = " " & e.Row.FCLiteral("LtlCargoAdmon").Text & " " e.Row.FCLiteral("LtlAbonoAdmon").Text = " " & e.Row.FCLiteral("LtlAbonoAdmon").Text & " " End If diff --git a/Contratos/ModificarPresupuesto.aspx.vb b/Contratos/ModificarPresupuesto.aspx.vb index 1e8aaf511..13a9e9a43 100644 --- a/Contratos/ModificarPresupuesto.aspx.vb +++ b/Contratos/ModificarPresupuesto.aspx.vb @@ -334,6 +334,8 @@ Partial Class Contratos_ModificarPresupuesto Dim CvePresupuesto = DdlPresupuesto.SelectedValue.ToEntero Dim CveClasificacion As Integer = DdlModalClasificacion.SelectedValue.ToEntero + Dim dt As DataTable = GlobalDTTiposGastos(UsuarioActual.CveEmpresa, 1) + If CveClasificacion > 0 Then Dim ObjCont As New ClsContratos diff --git a/Contratos/Presupuestos.aspx b/Contratos/Presupuestos.aspx index fbebd008b..1a76b526f 100644 --- a/Contratos/Presupuestos.aspx +++ b/Contratos/Presupuestos.aspx @@ -288,6 +288,16 @@ + + + + + + Total: + + + + diff --git a/Contratos/Presupuestos.aspx.vb b/Contratos/Presupuestos.aspx.vb index caa64a63f..34205ee7a 100644 --- a/Contratos/Presupuestos.aspx.vb +++ b/Contratos/Presupuestos.aspx.vb @@ -126,7 +126,10 @@ Partial Class Contratos_Presupuestos End If If e.Row.RowType = DataControlRowType.Footer Then Dim Importe As Decimal = DtClasificaciones.SUM("Importe", "CveAgrupador IS NOT NULL") + Dim AmpReduc As Decimal = DtClasificaciones.SUM("AmpReduc", "CveAgrupador IS NOT NULL") + e.Row.FCLabel("LblTotal").Text = String.Format("{0:C}", Importe) + e.Row.FCLabel("LblAmpReducFoot").Text = String.Format("{0:C}", AmpReduc) End If End Sub diff --git a/Contratos/RepPresupuestos.aspx.vb b/Contratos/RepPresupuestos.aspx.vb index ef6cf4e23..83fa9dd0f 100644 --- a/Contratos/RepPresupuestos.aspx.vb +++ b/Contratos/RepPresupuestos.aspx.vb @@ -74,11 +74,19 @@ Partial Class Contratos_RepPresupuestos Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() - If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) + If DdlProyecto.SelectedValue.ToEntero > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then + + If UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110) Then + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1) + Else + DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, -1, DdlProyecto.SelectedValue.ToEntero, -1) + End If + + 'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, 1)) End If DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlSubProyecto.DataBind() + UpFiltros.Update() End Sub Protected Sub BtnConsultarFiltros_Click(sender As Object, e As EventArgs) CargaDatos() 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) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 0dd37e4e6..4042dd19b 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -303,20 +303,31 @@
-
+

Existencia

- - - +
+
+ +   + + +
+
+ OC + + + +
+
-
+

Valor

@@ -340,7 +351,7 @@
-
+

Costo Promedio

@@ -364,7 +375,7 @@
-
+

Ultimo Costo

@@ -387,20 +398,7 @@
-
-
-
-

OC

-
- -
- - - -
-
-
-
+
@@ -530,18 +528,18 @@