From d5600f45a5da550a284519beef124de277ba60d5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 30 Jan 2024 11:30:28 -0700
Subject: [PATCH 1/3] =?UTF-8?q?--=20correcci=C3=B3n=20para=20poner=20la=20?=
 =?UTF-8?q?descripci=C3=B3n=20de=20la=20p=C3=B3liza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AF/RepDepreciacion.aspx    | 21 ++++++---------------
 AF/RepDepreciacion.aspx.vb | 19 ++-----------------
 2 files changed, 8 insertions(+), 32 deletions(-)

diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx
index 1c991098c..b17a350ed 100644
--- a/AF/RepDepreciacion.aspx
+++ b/AF/RepDepreciacion.aspx
@@ -182,24 +182,15 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title">
-                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciacion</asp:Literal></h4>
+                            <asp:Literal ID="LtlTituloModalTiposD" runat="server">Agregar Depreciación</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                          <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
-                            <asp:RequiredFieldValidator ID="RFVProyecto" runat="server" ControlToValidate="DdlProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
-                                                    <label for="TxtSubProyecto">Proyecto:</label>
-
-                         </div>
-
-                        <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList CssClass="form-control input-sm input-medium select2me" ID="DdlSubProyecto" runat="server"  AppendDataBoundItems="true" AutoPostBack="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="200px" ValidationGroup="GrpGuardar"> </asp:DropDownList>
-                            <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sub Proyecto''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                            <ajax:ValidatorCalloutExtender ID="VCOSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <label for="TxtSubProyecto">Sub Proyecto:</label>
-                     
-                        </div>
+                            <asp:TextBox CssClass="form-control input-sm " TextMode="MultiLine" Rows="2" ID="TxtDescripcion" runat="server"  Width="450px" ValidationGroup="GrpGuardar"> </asp:TextBox>
+                            <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                            <ajax:ValidatorCalloutExtender ID="VCOProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVDescripcion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                    <label for="TxtSubProyecto">Descripción:</label>
+                         </div>                       
      
                     </div>
                     <div class="modal-footer">
diff --git a/AF/RepDepreciacion.aspx.vb b/AF/RepDepreciacion.aspx.vb
index a09fd2d78..f107b7fee 100644
--- a/AF/RepDepreciacion.aspx.vb
+++ b/AF/RepDepreciacion.aspx.vb
@@ -29,7 +29,7 @@ Partial Class AF_RepDepreciacion
             Dim ObjInventario As New ClsInventarios
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
             Dim ErrorMovInv As Boolean = False
-            Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text)
+            Dim ConceptoPoliza As String = TxtDescripcion.Text
             Dim CveSubProyecto As Integer ' = DdlSubProyecto.SelectedValue.ToEntero
             Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
@@ -80,15 +80,11 @@ Partial Class AF_RepDepreciacion
     End Sub
 
     Protected Sub BtnDepreciacion_Click(sender As Object, e As EventArgs) Handles BtnDepreciacion.Click
-        CargaProyecto()
+        TxtDescripcion.Text = "Depreciación - " & txtFechaI.Text
         UpModalTiposD.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivDepreciacion"))
     End Sub
 
-    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
-    End Sub
-
 
 #Region " C A R G A - D A T O S "
     Public Sub CargaDatos()
@@ -118,18 +114,7 @@ Partial Class AF_RepDepreciacion
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
-    Private Sub CargaProyecto()
-        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        DdlProyecto.DataBind()
-        CargaSubProyecto()
-    End Sub
 
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
 
 #End Region
 

From cb6cd3f368e659881bbdc440b8c590cc13395f71 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 30 Jan 2024 11:30:48 -0700
Subject: [PATCH 2/3] =?UTF-8?q?-=20activaci=C3=B3n=20de=20comercio=20exter?=
 =?UTF-8?q?ior=20para=20todas=20las=20empresas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/Timbrado.vb | 83 ++------------------------------------------
 1 file changed, 2 insertions(+), 81 deletions(-)

diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 14752c0b4..3841c4f79 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -2463,9 +2463,7 @@ Public Class Timbrado
 
 #Region "Comercio Exterior"
 
-            If UsuarioActual.CveEmpresa = 172 Then
-
-                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
+            If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
                     If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
 
                         'DATOS GENERALES
@@ -2536,84 +2534,7 @@ Public Class Timbrado
 
                     End If
                 End If
-            Else
-
-                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then
-                    If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then
-
-                        'DATOS GENERALES
-                        cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.Incoterm,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.Subdivision,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.Observaciones,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD,
-                                                           ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD)
-                        'EMISOR
-                        cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP))
-                        cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais,
-                                                                        ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP)
-                        'RECEPTOR
-                        cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib)
-                        cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais,
-                                                                                ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP)
-
-                        If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then
-                            cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib,
-                                                   ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre,
-                                                   ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais,
-                                                            ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP)
-                        End If
-
-
-                        'MERCANCIAS
-                        If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then
-                            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias
-                                cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
-                                If concep.DescripcionesEspecificas.Marca <> "" Then
-                                    cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
-                                                                                                       concep.DescripcionesEspecificas.Modelo,
-                                                                                                       concep.DescripcionesEspecificas.SubModelo,
-                                                                                                       concep.DescripcionesEspecificas.NumeroSerie)
-                                End If
-                            Next
-
-                        End If
-
-
-                    End If
-                End If
-
-
-            End if
+             
 #End Region
 
         End If

From af067fddd8ca0f966bd33d643bde12afcbdf5f06 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 30 Jan 2024 12:22:53 -0700
Subject: [PATCH 3/3] --Visualizar tab de Fiscal/Contable al cambiar a cliente
 frecuente

---
 Ventas/Clientes.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index cd300827b..6f61c20e7 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9834,6 +9834,7 @@ Partial Class Clientes
             DivCrearPrecioLista.Visible = False
         End If
 
+        TabFiscalContable.Visible = DdlTipoCliente.SelectedValue = "1"
 
         UpDatos.Update()
     End Sub