From 93dd13bbae65c3fad57863519763748b687bb255 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 27 Jan 2022 10:07:41 -0700
Subject: [PATCH 01/11] Marcar como refacturadas si ya tienen el folio
 sustituto

---
 Ventas/RepCancelacionesPorRespuesta.aspx.cs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
index 70d70c8d8..427e4c691 100644
--- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs
+++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs
@@ -396,6 +396,12 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true);
         if (EsRefacturacion)
         {
+            //SI YA FUE REFACTURADA MARCALA COMO REFACTURADA
+            if (!string.IsNullOrEmpty(FolioSustitucion))
+            {
+                CveEstatusRefacturacion = 2;
+            }
+
             if (CveEstatusRefacturacion > 0)
             {
                 factura.CveEstatusRefacturacion = CveEstatusRefacturacion;

From 2e269d87365f3d13553f9cc36ec45ab1553417c8 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 27 Jan 2022 10:09:51 -0700
Subject: [PATCH 02/11] Liga para recibir usados desde entrega almacen hacia
 recepcion de usados

---
 Inventarios/EntregaAlmacen.aspx.vb  |  4 ++++
 Inventarios/RecepcionUsados.aspx    |  9 ++++++++-
 Inventarios/RecepcionUsados.aspx.vb | 24 +++++++++++++++++++++---
 3 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 5e13576bb..8a609ffe0 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2914,6 +2914,10 @@ Partial Class Inventarios_EntregaAlmacen
 
             If RbEntregaInterna.Checked Then
                 Msg.AppendFormat("<br/><br/>Se agregó una guía de paquetería interna")
+            End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso TipoDocto = "Rem" Then
+                Msg.AppendFormat("<br/><br/>Recibir Usado: <b><a href=""/Inventarios/RecepcionUsados.aspx?CveRemision={0}"" target=""_blank"">Ir a Recepción de Usados</a></b>", CveVentaSurtir)
             End If
 
             Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx
index f555b67ce..3bb74e59c 100644
--- a/Inventarios/RecepcionUsados.aspx
+++ b/Inventarios/RecepcionUsados.aspx
@@ -236,7 +236,8 @@
                                             <label class="col-md-1" style="width: 110px">Recibe:</label>
                                             <div class="col-md-3">
                                                 <asp:TextBox runat="server" Text="" ID="TxtResponsable" Width="100%" />
-                                                <%--<asp:DropDownList ID="DdlResponsable" runat="server" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm" Style="width: 200px !important;"></asp:DropDownList>--%>
+                                                <asp:RequiredFieldValidator ID="RFVResponsable" runat="server" ControlToValidate="TxtResponsable" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Recibe''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCEResponsable" runat="server" HighlightCssClass="vco" TargetControlID="RFVResponsable"></ajax:ValidatorCalloutExtender>
                                             </div>
                                         </div>
                                         <div class="row">
@@ -280,6 +281,12 @@
                                                 <asp:TextBox ID="TxtRemision" runat="server" Enabled="false" />
                                             </div>
                                         </div>
+                                        <div class="row" id="DivRemisionRecibida" runat="server" visible="false">
+                                            <label class="col-md-1 truncate" style="width: 110px">Remision:</label>
+                                            <div class="col-md-2">
+                                                <asp:TextBox ID="TxtRemisionRecibida" runat="server" Enabled="false" />
+                                            </div>
+                                        </div>
                                     </div>
                                 </div>
                             </div>
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 437cee0c5..9ee842ed5 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -349,6 +349,7 @@ Partial Class Inventarios_RecepcionUsados
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaInicial()
+            CargaRemisionFromURL()
             GeneraRNCFromURL()
         End If
     End Sub
@@ -424,6 +425,17 @@ Partial Class Inventarios_RecepcionUsados
         'DdlProducto2.setEsWebService(True)
         'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
     End Sub
+
+    Private Sub CargaRemisionFromURL()
+        Me.CveRemisionRecibida = -1
+
+        Dim CveRemision As Integer = IfNull(Request("CveRemision"), "-1").ToString().ToEntero()
+        If CveRemision > 0 Then
+            Me.CveRemisionRecibida = CveRemision
+            RecibirRemision()
+        End If
+
+    End Sub
     Private Sub GeneraRNCFromURL()
         Dim RFC As String = IfNull(Request("RFC"), "").ToString()
         Dim CveAlmacen As Integer = IfNull(Request("CveAlmacen"), "-1").ToString().ToEntero()
@@ -2185,11 +2197,15 @@ Partial Class Inventarios_RecepcionUsados
         UpGenerales.Update()
     End Sub
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
-        DtMovimientos.Rows.Clear()
-
         Me.CveRemisionRecibida = -1
         Me.CveRemisionRecibida = CType(CType(sender, LinkButton).NamingContainer, GridViewRow).DataKey("CveVenta").ToEntero()
 
+        RecibirRemision()
+    End Sub
+
+    Private Sub RecibirRemision()
+        DtMovimientos.Rows.Clear()
+
         Dim DtUsados As DataTable = Nothing
         Dim CveCliente As Integer = -1
 
@@ -2210,6 +2226,8 @@ Partial Class Inventarios_RecepcionUsados
 
         Me.ObjFactura = New Modelos.Factura(UsuarioActual, CveRemisionRecibida, UsuarioActual.CveEmpresa, DirectorioServidor:=ModExtensiones.DirectorioBaseEmpresas)
 
+        TxtRemisionRecibida.Text = Me.ObjFactura.SerieFolio
+        DivRemisionRecibida.Visible = True
 
         'SI ES DISTRIBUIDOR VAMOS A GENERAR LA REMISION DE NOTA DE CREDITO
         If EsDistribuidor Then
@@ -2419,7 +2437,7 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.OrdenCompra = ""
         Me.ObjRemisionNC.PedidoContrato = ""
         Me.ObjRemisionNC.ObservacionesAlmacen = ""
-
+        Me.ObjRemisionNC.Recibio = TxtResponsable.Text.Trim
         'If TmpDTPolizaVirtual IsNot Nothing Then
         '    Me.ObjRemisionNC.DtPolizasVirtuales = TmpDTPolizaVirtual
         'End If

From b6b5b4f2df323638d68434b0753533ba9e442a70 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jan 2022 13:17:04 -0700
Subject: [PATCH 03/11] mejora en timbrado  con impuestos a tasa cero

---
 App_Code/CFDITimbre.vb |   7 +++
 App_Code/Timbrado.vb   | 122 ++++++++++++++++++++---------------------
 2 files changed, 68 insertions(+), 61 deletions(-)

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index 4a747409e..0b2a1280b 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -33,6 +33,13 @@ Public Class CFDITimbre
         End Get
     End Property
 
+    Public ReadOnly Property AplicaImpuestosTraslados As Boolean 'detecte si va la etiqueta de impuestos, aunque sea en cero
+        Get
+            Return (From c In Conceptos
+                    Select c.Impuestos.Where(Function(tra) tra.TrasladooRetencion = "T" And tra.TipoFactor = "Tasa")).Count() > 0
+        End Get
+    End Property
+
     Public ReadOnly Property Retenciones As List(Of CFDIRetenciones)
         Get
             Dim tRetorno As New List(Of CFDIRetenciones)
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 2af43a2fd..c659db691 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -868,7 +868,7 @@ Public Class Timbrado
         Timbre.Comprobante.FormadePago = ""
         Timbre.Comprobante.CondicionesdePago = ""
         Timbre.Comprobante.MetodoPago = ""
-        Timbre.Comprobante.Subtotal = 0
+        Timbre.Comprobante.SubTotal = 0
         Timbre.Comprobante.Descuentos = 0
         Timbre.Comprobante.Moneda = "XXX"
         Timbre.Comprobante.TipoCambio = ""
@@ -1094,7 +1094,7 @@ Public Class Timbrado
                                       ObjCFDITimbre.Comprobante.Fecha,
                                       ObjCFDITimbre.Comprobante.FormadePago,
                                       ObjCFDITimbre.Comprobante.CondicionesdePago,
-                                      ObjCFDITimbre.Comprobante.Subtotal,
+                                      ObjCFDITimbre.Comprobante.SubTotal,
                                       ObjCFDITimbre.Comprobante.Descuentos,
                                       ObjCFDITimbre.Comprobante.TipoCambio.ToDecimal,
                                       ObjCFDITimbre.Comprobante.Moneda,
@@ -1513,7 +1513,7 @@ Public Class Timbrado
                                 ObjCFDITimbre.Comprobante.Fecha.ToString("yyyy-MM-ddTHH:mm:ss"),
                                 ObjCFDITimbre.Comprobante.FormadePago,
                                 ObjCFDITimbre.Comprobante.CondicionesdePago,
-                                ObjCFDITimbre.Comprobante.Subtotal,
+                                ObjCFDITimbre.Comprobante.SubTotal,
                                 ObjCFDITimbre.Comprobante.Descuentos,
                                 ObjCFDITimbre.Comprobante.Moneda,
                                 ObjCFDITimbre.Comprobante.TipoCambio.ToString,
@@ -2106,7 +2106,7 @@ Public Class Timbrado
                                 ObjCFDITimbre.Comprobante.Fecha.ToString("yyyy-MM-ddTHH:mm:ss"),
                                 ObjCFDITimbre.Comprobante.FormadePago,
                                 ObjCFDITimbre.Comprobante.CondicionesdePago,
-                                ObjCFDITimbre.Comprobante.Subtotal,
+                                ObjCFDITimbre.Comprobante.SubTotal,
                                 ObjCFDITimbre.Comprobante.Descuentos,
                                 ObjCFDITimbre.Comprobante.Moneda,
                                 ObjCFDITimbre.Comprobante.TipoCambio.ToString,
@@ -2161,7 +2161,7 @@ Public Class Timbrado
 
 #Region "Impuestos"
             'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS
-            If Ventas.Total <> 0 And (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0) Then
+            If Ventas.Total <> 0 And (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.AplicaImpuestosTraslados) Then
                 cfdi.Impuestos(ObjCFDITimbre.TotalImpuestosRetenidos, ObjCFDITimbre.TotalImpuestosTrasladados)
             End If
 #End Region
@@ -2175,8 +2175,8 @@ Public Class Timbrado
                 Next
             End If
 
-
-            If ObjCFDITimbre.Traslados.Sum(Function(x) x.Importe) > 0 Then
+            '' si el importe de impuestos es mayor a cero o si es tasa con importe = 0, debe de ir el atributo
+            If ObjCFDITimbre.AplicaImpuestosTraslados Then
                 ''se acumulan los importes
                 For Each Tras In ObjCFDITimbre.Traslados
                     cfdi.Traslado(Tras.Impuesto, Tras.TipoFactor, Tras.TasaOCuota, Tras.Importe)
@@ -2189,45 +2189,45 @@ Public Class Timbrado
 
             If ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe) > 0 OrElse ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe) > 0 Then
 
-                    cfdi.ImpuestosLocales(ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe), ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe))
+                cfdi.ImpuestosLocales(ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe), ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe))
 
-                    For Each ret As CFDIRetencionesLocales In ObjCFDITimbre.RetencionesLocales
-                        If ret.Importe > 0 Then
-                            cfdi.RetencionLocal(ret.ImpuestoLocalRetenido, ret.TasaRetencion, ret.Importe)
-                        End If
-                    Next
+                For Each ret As CFDIRetencionesLocales In ObjCFDITimbre.RetencionesLocales
+                    If ret.Importe > 0 Then
+                        cfdi.RetencionLocal(ret.ImpuestoLocalRetenido, ret.TasaRetencion, ret.Importe)
+                    End If
+                Next
 
-                    For Each ret As CFDITrasladosLocales In ObjCFDITimbre.TrasladosLocales
-                        If ret.Importe > 0 Then
-                            cfdi.TrasladoLocal(ret.ImpuestoLocalTraslado, ret.TasaTraslado, ret.Importe)
-                        End If
-                    Next
-                End If
+                For Each ret As CFDITrasladosLocales In ObjCFDITimbre.TrasladosLocales
+                    If ret.Importe > 0 Then
+                        cfdi.TrasladoLocal(ret.ImpuestoLocalTraslado, ret.TasaTraslado, ret.Importe)
+                    End If
+                Next
+            End If
 
-                If Ventas.CveComplementoTimbrado > 0 Then
+            If Ventas.CveComplementoTimbrado > 0 Then
 
-                    Select Case Ventas.CveComplementoTimbrado
-                        Case 5 'INE Proceso Ordinario  Directivo Estatal"
-                            cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
+                Select Case Ventas.CveComplementoTimbrado
+                    Case 5 'INE Proceso Ordinario  Directivo Estatal"
+                        cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
 
-                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                        Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
-                            cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
+                        cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
 
-                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                        Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                    Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
 
-                            cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
-                        Case 8 'INE PreCampaña
-                            cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
+                        cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
+                    Case 8 'INE PreCampaña
+                        cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
 
-                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
-                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                    End Select
+                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
+                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                End Select
 
-                End If
+            End If
 
 
 
@@ -2236,11 +2236,11 @@ Public Class Timbrado
 
 #Region "Comercio Exterior"
 
-                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
-                    If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
+            If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
+                If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
 
-                        'DATOS GENERALES
-                        cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
+                    'DATOS GENERALES
+                    cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
@@ -2251,9 +2251,9 @@ Public Class Timbrado
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
-                        'EMISOR
-                        cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
-                        cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
+                    'EMISOR
+                    cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
+                    cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
@@ -2263,9 +2263,9 @@ Public Class Timbrado
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
-                        'RECEPTOR
-                        cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
-                        cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
+                    'RECEPTOR
+                    cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
+                    cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
@@ -2275,7 +2275,7 @@ Public Class Timbrado
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
-                        cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
+                    cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
                                                                    ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
                                                                    ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
@@ -2287,35 +2287,35 @@ Public Class Timbrado
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
-                        'MERCANCIAS
-                        If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
-                            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.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,
+                    'MERCANCIAS
+                    If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
+                        For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.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
+                        Next
 
                     End If
+
+
                 End If
+            End If
 
 #End Region
 
 
-            End If
+        End If
 
 
 
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
 
 
-            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
             Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 

From 5f4dc2cb37f58d37423388cc5b06692ea466d982 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jan 2022 13:17:30 -0700
Subject: [PATCH 04/11] cambio en regimen fiscal

---
 Empresas/80/Formatos/Factura.rdlc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Empresas/80/Formatos/Factura.rdlc b/Empresas/80/Formatos/Factura.rdlc
index 7e6f9b2e0..a969b31c5 100644
--- a/Empresas/80/Formatos/Factura.rdlc
+++ b/Empresas/80/Formatos/Factura.rdlc
@@ -585,7 +585,7 @@
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value>Regimen General de Ley Personas Morales</Value>
+                    <Value>Régimen Simplificado de Confianza</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>9.16pt</FontSize>

From 1ba698f099b6271eec67f56698be372e6b869df2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jan 2022 13:17:43 -0700
Subject: [PATCH 05/11] E140, pueda filtrar usados

---
 Inventarios/Kardex.aspx.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 0230a9aef..a337a35b9 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -109,7 +109,12 @@ Partial Class Inventarios_Kardex
 
         If ddlProducto2.UsaWebService Then
             ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
-            ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then '' se cambio la página para que puedan filtrar "servicios" como los usados.
+                ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Kardex")
+            Else
+                ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+            End If
+
             ddlProducto2.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
 
             'DdlClasificacion.AutoPostBack = False

From 9410d1687be7b4719568e40be5d4d310f00674c8 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jan 2022 23:34:34 -0700
Subject: [PATCH 06/11] -- cambios en columnas

---
 Inventarios/RepExistenciasCostos.aspx    | 18 ++++++++----------
 Inventarios/RepExistenciasCostos.aspx.vb | 18 ++++--------------
 2 files changed, 12 insertions(+), 24 deletions(-)

diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx
index 482a26a1c..865f278ec 100644
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -131,18 +131,16 @@
                     ShowHeaderWhenEmpty="false" CssClass="table table-advance table-GvM Widthall" GridLines="None">
                     <Columns>
                         <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
-                        <asp:BoundField HeaderText="Almacen" ItemStyle-Width="150px" DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                         <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
-                        <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
-                        <asp:BoundField HeaderText="Valor" ItemStyle-Width="75px" DataField="ValorAcum" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoE" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoS" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
+                        <asp:BoundField HeaderText="Valor" ItemStyle-Width="100px" DataField="ValorAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
                     </Columns>
                 </asp:GridView>
             </div>
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb
index 4a0690a7a..ad3a4570a 100644
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -85,13 +85,9 @@ Partial Class Inventarios_RepExistenciasCostos
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
         GvM.Columns(6).Visible = TienePermisoImportes
-
-        GvM.Columns(7).Visible = TienePermisoImportes
-
-        GvM.Columns(9).Visible = TienePermisoImportes
+        GvM.Columns(8).Visible = TienePermisoImportes
         GvM.Columns(10).Visible = TienePermisoImportes
 
-        GvM.Columns(12).Visible = TienePermisoImportes
     End Sub
     Public Sub CargaCombos()
 
@@ -130,7 +126,6 @@ Partial Class Inventarios_RepExistenciasCostos
 
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -202,11 +197,8 @@ Partial Class Inventarios_RepExistenciasCostos
 
             Dim TienePermisoImportes = UsuarioActual.TienePermisoProceso(201)
             e.Row.Cells(6).Visible = TienePermisoImportes
-            e.Row.Cells(7).Visible = TienePermisoImportes
-            e.Row.Cells(9).Visible = TienePermisoImportes
+            e.Row.Cells(8).Visible = TienePermisoImportes
             e.Row.Cells(10).Visible = TienePermisoImportes
-            e.Row.Cells(12).Visible = TienePermisoImportes
-
 
             Select Case e.Row.DBCampo("Orden").ToEntero
                 Case 10
@@ -224,8 +216,6 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(8).Text = ""
                     e.Row.Cells(9).Text = ""
                     e.Row.Cells(10).Text = ""
-                    e.Row.Cells(11).Text = ""
-                    e.Row.Cells(12).Text = ""
                 Case 15
                     If e.Row.DBCampo("CveMovimiento").ToString.ToEntero <= 0 Then
                         e.Row.Cells(0).Text = e.Row.DBCampo("FechaMovto")
@@ -240,8 +230,8 @@ Partial Class Inventarios_RepExistenciasCostos
                     e.Row.Cells(1).Visible = False
                     e.Row.Cells(2).Visible = False
 
-                    e.Row.Cells(11).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
-                    e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
+                    e.Row.Cells(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
+                    e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
             End Select
 
 

From f6ab8ae4284ec2fad7bb808e8bac823649dd0b28 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 27 Jan 2022 23:34:55 -0700
Subject: [PATCH 07/11] timbrado v.4.0

---
 App_Code/CFDITimbre.vb  |  4 ++--
 App_Code/ClsClientes.vb | 10 +++++++---
 App_Code/ClsPaginas.vb  | 25 +++++++++++++++++++++----
 App_Code/Timbrado.vb    |  2 +-
 Ventas/Clientes.aspx    | 13 +++++++++++++
 Ventas/Clientes.aspx.vb | 15 ++++++++++-----
 Ventas/Ventas.aspx.vb   | 10 ++++++++--
 7 files changed, 62 insertions(+), 17 deletions(-)

diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index 0b2a1280b..3138f25ba 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -279,8 +279,8 @@ End Class
 Public Class CFDIReceptor
     Public Property RFC As String
     Public Property Nombre As String
-    Public Property RegimenFiscalReceptor As String = "601"
-    Public Property DomicilioFiscalReceptor As String = "601"
+    Public Property RegimenFiscalReceptor As String = ""
+    Public Property DomicilioFiscalReceptor As String = ""
     Public Property ResidenciaFiscal As String = ""
     Public Property NumeroRegistroTributario As String = ""
     Public Property UsoCFDI As String
diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 9845e2643..e9826f77e 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -125,6 +125,7 @@ Public Class ClsClientes
     Public Property Celular As String
     Public Property ExtOtros As String
     Public Property CveUsoCFDI As Integer
+    Public Property CveRegimenFiscal As Integer
     Public Property CveFormaPago33 As Integer
     Public Property CveMetodoPago33 As Integer
     Public Property CveClienteCorporativo As String
@@ -384,6 +385,8 @@ Public Class ClsClientes
                 _CveFormaPago33 = Data(0)("CveFormaPago33").ToString.ToEntero
                 _CveMetodoPago33 = Data(0)("CveMetodoPago33").ToString.ToEntero
 
+                _CveRegimenFiscal = Data(0)("CveRegimenFiscal").ToString.ToEntero
+
                 _CveClienteCorporativo = Data(0)("CveClienteCorporativo").ToString
                 _DesglosaIEPS = CType(Data(0)("DesglosaIEPS"), Boolean)
                 _NoDesglosaIVA = CType(Data(0)("NoDesglosaIVA"), Boolean)
@@ -573,7 +576,7 @@ Public Class ClsClientes
                                Optional AplicaComercioExterior As Boolean = False, Optional CveTipoOperacion As Integer = -1, Optional CvePedimento As Integer = -1, Optional CveIncoterm As Integer = -1, Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveColonia As Integer = -1,
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1) As Boolean
+                               Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -714,7 +717,7 @@ Public Class ClsClientes
             .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
 
             .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
-
+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
         End With
         Try
@@ -763,7 +766,7 @@ Public Class ClsClientes
                                 Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "-1", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1",
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
-                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False) As Boolean
+                                Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -920,6 +923,7 @@ Public Class ClsClientes
             .Add("@CveSATEstado", SqlDbType.Int).Value = CveSATEstado
 
             .Add("@CveAdminTrayecto", SqlDbType.TinyInt).Value = CveAdminTrayecto
+            .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
 
         End With
         Try
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index eccfb731a..e8fd83dd4 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -716,6 +716,23 @@ Public Class ClsPaginas
             Application("GlobalDTNomSatRegimenContratacion") = value
         End Set
     End Property
+
+    Property GlobalDTRegimenesFiscales() As DataTable
+        Get
+            Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
+            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjGral As New ClsSisEmpresas
+                If ObjGral.GetRegimenFiscal(-1) Then Application(AppNombre) = ObjGral.DtResultados
+                ObjGral.Dispose()
+            End If
+            GlobalDTRegimenesFiscales = DirectCast(Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = String.Format("GlobalDTRegimenesFiscales")
+            Application(AppNombre) = value
+        End Set
+    End Property
     Property GlobalDTNomSatRiesgoPuesto() As DataTable
         Get
             GlobalDTNomSatRiesgoPuesto = DirectCast(Application("GlobalDTNomSatRiesgoPuesto"), DataTable)
@@ -6933,7 +6950,7 @@ Public Class ClsPaginas
                 Dim TC As Decimal = ValorNodoXML(XmlDoc.DocumentElement, "TC").ToDecimal
                 If TC <= 0 Then TC = 1
 
-                If ValorNodoXML(XmlDoc.DocumentElement, "version") = "3.3" Then
+                If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
                     Vta.FechaEmision = ValorNodoXML(XmlDoc.DocumentElement, "fecha").ToDate
                     Vta.NoSerieCertificadoContribuyente = ValorNodoXML(XmlDoc.DocumentElement, "NoCertificado")
 
@@ -7039,7 +7056,7 @@ Public Class ClsPaginas
 
 
         'Dim CadenaOriginals As String = "||1.0|" + Vta.FolioFiscal + "|" + Vta.FechaCertificacion.ToString("yyyy-MM-dd") + "T" + Vta.FechaCertificacion.ToString("HH:mm:ss") + "|" + Vta.SelloCFDi + "|" + Vta.NoSerieCertificado + "||"
-        Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Vta.Version = "3.3", "1.1", "1.0"), Vta.FolioFiscal, Vta.FechaCertificacion.ToString("yyyy-MM-dd"), Vta.FechaCertificacion.ToString("HH:mm:ss"), Vta.SelloCFDi, Vta.NoSerieCertificado)
+        Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Vta.Version.Contiene("3.3", "4.0"), "1.1", "1.0"), Vta.FolioFiscal, Vta.FechaCertificacion.ToString("yyyy-MM-dd"), Vta.FechaCertificacion.ToString("HH:mm:ss"), Vta.SelloCFDi, Vta.NoSerieCertificado)
         If Not ImagenCBB.Exists Then ImgCBB = ""
         Dim RutaFormato As String = ""
         Dim RutaFormatoDefault As String = ""
@@ -7162,7 +7179,7 @@ Public Class ClsPaginas
                 params.Add(New ReportParameter("MetodoPago", Vta.ClaveMetodoPagoSAT.ToString))
             End If
 
-            If Vta.Version = "3.3" Then
+            If Vta.Version.Contiene("3.3", "4.0") Then
                 params.Add(New ReportParameter("FormaPago", Vta.FormaPago33.ToString))
                 params.Add(New ReportParameter("MetodoPago", Vta.MetodoPago33.ToString))
                 params.Add(New ReportParameter("UsoCFDI", Vta.UsoCFDI))
@@ -8342,7 +8359,7 @@ Public Class ClsPaginas
             'XmlDoc.Load(Ruta & "XML\\Nomina\NOM A-3845.xml")
             XmlDoc.Load(PathXML)
 
-            If ValorNodoXML(XmlDoc.DocumentElement, "version") = "3.3" Then
+            If ValorNodoXML(XmlDoc.DocumentElement, "version").Contiene("3.3", "4.0") Then
                 FechaEmision = XmlDoc.DocumentElement.Attributes("Fecha").InnerText.ToDate
                 NoSerieCertificadoContribuyente = XmlDoc.DocumentElement.Attributes("NoCertificado").InnerText
 
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index c659db691..2f98c6f49 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1016,7 +1016,7 @@ Public Class Timbrado
                 Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
-                If Ventas.Version = "4.0" Then
+                If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                     Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
                     If Ret <> "" Then MensajeErrorCFDI = Ret
                     Retorno = If(Ret = "", True, False)
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index fc434b7e5..994492273 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -501,6 +501,19 @@
                                             </div>
                                         </div>
 
+                                         <div class="row" id="divRegimen" runat="server" visible="false" >
+                                            <div class="col-md-12">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                     <asp:DropDownList ID="DdlRegimenFiscal" DataTextField="CodigoRegimenFiscalTexto" Width="100%" DataValueField="CveRegimenFiscal" runat="server" CssClass="form-control input-sm select2me">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <asp:RequiredFieldValidator ID="RFVRegimenFiscal" runat="server" InitialValue="-1" ControlToValidate="DdlRegimenFiscal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Regimen Fiscal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <label for="<%= DdlRegimenFiscal.ClientID.ToString()%>">Régimen Fiscal:</label>
+                                                    <i></i>
+                                                </div>
+                                            </div>
+                                        </div>
+
 
 
                                     </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 3f903f6d9..77066bfad 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -753,6 +753,10 @@ Partial Class Clientes
                 DivRetIVA.Visible = False
             End If
 
+            If UsuarioActual.CveUsuario = 100 Then
+                divRegimen.Visible = True
+            End If
+
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then
                 'If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not Request("CveCliente").Contiene("10450", "10460", "10458") Then
                 '    BtnGuardar.Enabled = False : BtnEliminar.Enabled = False : LbAgregarSucursal.Enabled = False : LbEnviarActivacionPortal.Enabled = False
@@ -1246,10 +1250,9 @@ Partial Class Clientes
 
         CargaClasificaciones()
 
-        If UsuarioActual.Empresa.UsaContabilidad Then
-            'CargaCuentasContables()
-        End If
 
+        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
+        DdlRegimenFiscal.DataBind()
 
         CargaCombosComercioExterior()
 
@@ -1574,6 +1577,7 @@ Partial Class Clientes
                 DdlUsoCFDI.SelectedValueExist(ObjClientes.CveUsoCFDI.ToString())
                 DdlMetodoPago33.SelectedValueExist(ObjClientes.CveMetodoPago33.ToString())
                 DdlFormaPago33.SelectedValueExist(ObjClientes.CveFormaPago33.ToString())
+                DdlRegimenFiscal.SelectedValueExist(ObjClientes.CveRegimenFiscal)
 
                 ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS
                 ChkNoDesglosaIVA.Checked = ObjClientes.NoDesglosaIVA
@@ -2613,7 +2617,8 @@ Partial Class Clientes
                                     CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), DesglosaIEPS:=ChkDesglosarIEPS.Checked, AplicaComercioExterior:=ChkAplicaComercioExterior.Checked, CveTipoOperacion:=DdlTipoOperacion.SelectedValue.ToEntero(), CvePedimento:=DdlClavePedimento.SelectedValue.ToEntero(), CveIncoterm:=DdlIncoterm.SelectedValue.ToEntero(),
                                     CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                     ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
-                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero())) Then
+                                    TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
+                                    CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
 
                 ViewState("CveCliente") = ObjClientes.CveCliente
 
@@ -2710,7 +2715,7 @@ Partial Class Clientes
                                         ApellidoPaternoPF:=IIf(TxtApellidoPaterno.Text = "", "-1", TxtApellidoPaterno.Text).ToString(), ApellidoMaternoPF:=IIf(TxtApellidoMaterno.Text = "", "-1", TxtApellidoMaterno.Text).ToString(), NombresPF:=IIf(TxtNombres.Text = "", "-1", TxtNombres.Text).ToString(),
                                         RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                         CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked) Then
+                                        NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then
 
 
                 ObjClientes.LimpiaImpuestosLocales(CveCliente)
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 502fe40c6..d546a104b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10973,13 +10973,15 @@ Partial Class Ventas
         If Obj.FacturarSucursal Then
             Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC
             Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre
+            Timbre.Receptor.DomicilioFiscalReceptor = Obj.ClienteSucursal.CP
         Else
             Timbre.Receptor.RFC = Obj.Cliente.RFC
             Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+            Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         End If
 
         Timbre.Receptor.RegimenFiscalReceptor = Obj.Cliente.CodigoRegimenFiscal
-        Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
+
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
@@ -11119,7 +11121,8 @@ Partial Class Ventas
                                                         .ClaveProdServ = drr("SATClaveProdServ").ToString(),
                                                         .Noidentificacion = drr("Noidentificacion").ToString(),
                                                         .CuentaPredial = drr("CuentaPredial").ToString(),
-                                                        .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString().ToDecimal}
+                                                        .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString().ToDecimal,
+                                                        .ObjetoImpuesto = drr("CodigoObjetoImpuesto").ToString()}
             'verifica suma subtotales
             If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales
                 concepto.Importe = totSubTotal
@@ -17732,6 +17735,7 @@ Partial Class Ventas
             Row("CveTipoPS") = DrPS("CveTipoPS")
             Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
             Row("CveTamaño") = DrPS("CveTamaño")
+            Row("ObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
 
             If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion")
             If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion")
@@ -18281,6 +18285,7 @@ Partial Class Ventas
 
         TmpDT.Columns.Add("TieneProntoPago", GetType(String))
         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
+        TmpDT.Columns.Add("ObjetoImpuesto", GetType(String))
 
         TmpDT.Columns("EsOutSourcing").DefaultValue = False
         TmpDT.Columns("EsCargo").DefaultValue = False
@@ -18288,6 +18293,7 @@ Partial Class Ventas
         TmpDT.Columns("TieneProntoPago").DefaultValue = "No"
         TmpDT.Columns("ImporteProntoPago").DefaultValue = 0
 
+
     End Sub
     Private Sub CreaDTmpC()
         DTmpC = New DataTable

From dc0e09035b682612e0d6de4449719a16879b6ab4 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 28 Jan 2022 13:38:07 -0700
Subject: [PATCH 08/11] -- mejora en permisos de bloqueo de E140

---
 Ventas/Clientes.aspx    | 48 ++++++++++++++++++++++-------------------
 Ventas/Clientes.aspx.vb | 35 +++++++++++++++---------------
 2 files changed, 44 insertions(+), 39 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 994492273..3a646abb2 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -646,21 +646,7 @@
                                             <label>Requiere OC para facturar: </label>
                                             <asp:CheckBox ID="ChkRequiereOC" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
                                         </div>
-
-                                        <div runat="server" id="DivEsDistribuidor" visible="false" class="form-group form-md-line-input input-iconright">
-                                            <label>Es distribuidor: </label>
-                                            <asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
-                                        </div>
-
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCliente_SelectedIndexChanged">
-                                                <asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
-                                                <asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
-                                            </asp:DropDownList>
-                                            <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
-                                        </div>
-
-                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
+                                         <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
                                         </div>
@@ -669,15 +655,33 @@
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
                                         </div>
-
-                                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivCargoUsado" visible="false">
-                                            <label>Cargo Usado:</label>
-                                            <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
+                                       
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlTipoCliente" runat="server" CssClass=" form-control input-sm select2me" Width="200px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoCliente_SelectedIndexChanged">
+                                                <asp:ListItem Selected="True" Value="1">Frecuente</asp:ListItem>
+                                                <asp:ListItem Value="2">Venta Mostrador</asp:ListItem>
+                                            </asp:DropDownList>
+                                            <label for="<%= DdlTipoCliente.ClientID.ToString()%>">Tipo de Cliente:</label>
                                         </div>
-                                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
-                                            <label>Bonificación Usado:</label>
-                                            <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                         <div runat="server" id="DivEsDistribuidor" visible="false" class="form-group form-md-line-input input-iconright">
+                                            <label>Es distribuidor: </label>
+                                            <asp:CheckBox ID="ChkEsDistribuidor" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
                                         </div>
+                                          
+                                        <div class="row">
+                                             <div class="col-md-6">
+                                                <div class="form-group form-md-line-input" runat="server" id="DivCargoUsado" visible="false">
+                                                    <label>Cargo Usado:</label>
+                                                    <asp:CheckBox ID="ChkCargoUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" Enabled="true" />
+                                                </div>
+                                             </div> 
+                                             <div class="col-md-6">
+                                                <div class="form-group form-md-line-input" runat="server" id="DivBonificacionUsado" visible="false">
+                                                    <label>Bonificación Usado:</label>
+                                                    <asp:CheckBox ID="ChkBonificacionUsado" runat="server" CssClass="make-switchsd" data-size="small" Text="" ClientIDMode="Static" />
+                                                    </div>
+                                               </div>
+                                        </div> 
                                     </div>
                                 </div>
                             </div>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 77066bfad..fe9167a1a 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -753,7 +753,7 @@ Partial Class Clientes
                 DivRetIVA.Visible = False
             End If
 
-            If UsuarioActual.CveUsuario = 100 Then
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                 divRegimen.Visible = True
             End If
 
@@ -792,8 +792,16 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol.Contiene(1280, 1511) Then
-                        DeshabilitarDatosClienteCajas()
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'si es acumuladora
+                        'AndAlso UsuarioActual.CveRol.Contiene(1280, 1511)
+                        If Not PermiteEditar() Then 'sino puede editar todos los datos del cliente, se bloquean los de distribuidor
+                            DeshabilitarDatosClienteCajas()
+                            If UsuarioActual.TienePermisoProceso(309) Then 'si tiene permiso para edditar datos pero no de distribuidro
+                                BtnGuardar.Visible = True
+                            End If
+
+                        End If
+
                     End If
 
                 End If
@@ -820,6 +828,7 @@ Partial Class Clientes
             Else
                 'Configuración de Modalidad Insert
                 CargaEstados()
+                BtnGuardar.Visible = PermiteGuardar()
 
                 If UsuarioActual.Empresa.Funcionalidad(525) = "1" Then
                     Dim ObjClientes As New ClsClientes
@@ -880,15 +889,6 @@ Partial Class Clientes
             'Crea y carga CuentasBancarias - tab:Bancos
             CargaCuentasBancarias()
 
-
-            'PERMISOS PAGINA
-            If CveCliente > 0 Then
-                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
-                BtnEliminar.Visible = PermiteEliminar()
-                BtnGuardar.Visible = PermiteEditar()
-            Else
-                BtnGuardar.Visible = PermiteGuardar()
-            End If
             UpGuardar.Update()
 
             '[IPP]: SOLO PARA JAM
@@ -1429,6 +1429,9 @@ Partial Class Clientes
             If ObjClientes.DtResultados.Rows.Count > 0 Then
                 Existe = True
                 Retorno = True
+                LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
+                BtnEliminar.Visible = PermiteEliminar()
+                BtnGuardar.Visible = PermiteEditar()
 
                 CargaDdlSucursalCliente()
                 CargaDocumentosVenta(CveCliente)
@@ -9480,14 +9483,12 @@ Partial Class Clientes
                 GvUsadosResumen.DataSource = ObjAcum.DtResultados
                 ImporteBonificacion = ObjAcum.DtResultados.Rows(5)("Valor").ToString().ToDecimal()
             End If
-            GvUsadosResumen.DataBind()
-
-
-            'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
-            LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False)
 
             ObjAcum.Dispose()
             GvAcum.DataBind()
+            GvUsadosResumen.DataBind()
+            'LnkFacturaUsadosCargos.Visible = If(ImporteCargo > 0, True, False)
+            LnkFacturaUsadosBonificacion.Visible = If(ImporteBonificacion > 0, True, False)
 
             UpAcciones.Update()
             'UpUsadosResumen.Update()

From 269926cc9286db08b33531922449203c8b3d9308 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 30 Jan 2022 15:03:01 -0700
Subject: [PATCH 09/11] -mejoras en timbrado 4.0

---
 App_Code/ClsGenerales.vb          | 18 ++++++++++++++++++
 App_Code/ClsPaginas.vb            | 19 +++++++++++++++++++
 App_Code/ClsProductosServicios.vb |  6 ++++--
 Ventas/ProductosServicios.aspx    | 13 +++++++++++--
 Ventas/ProductosServicios.aspx.vb | 16 ++++++++++++++--
 Ventas/Ventas.aspx.vb             |  8 ++++----
 6 files changed, 70 insertions(+), 10 deletions(-)

diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index c30973073..04d56a648 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -2947,6 +2947,24 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
+
+    Public Function GetSATObjetoImpuesto() As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_ObjetosImpuestos")
+
+        Try
+            SqlAdapter.Fill(Data)
+            If Data.Rows.Count > 0 Then
+                Retorno = True
+            End If
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los objetos de impuestos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region "P A Q U E T E R I A S    G U I A S"
     Public Function AddPaqueteriasGuias(CvePaqueteria As Integer, CvePaqueteriaGuiaTipo As Integer, CveEstatus As Integer, CveSubProyecto As Integer, Fecha As String, Rastreo As String, Guia As String, NumCajas As Integer,
                                         Peso As Double, Dimensiones As String, FechaEstimada As String, Observaciones As String, CveUsuario As Integer, CveEmpresa As Integer, Optional ImplicaCosto As Boolean = True,
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index e8fd83dd4..ca387ce30 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1187,6 +1187,25 @@ Public Class ClsPaginas
         End Set
     End Property
 
+    Public Shared Property GlobalDTSATObjetosImpuestos() As DataTable
+        Get
+            Dim AppNombre As String = "GlobalDTSATObjetosImpuestos"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjGral As New ClsGenerales()
+                If ObjGral.GetSATObjetoImpuesto() Then
+                    HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados
+                End If
+                ObjGral.Dispose()
+            End If
+
+            Return CType(HttpContext.Current.Application(AppNombre), DataTable)
+        End Get
+        Set(value As DataTable)
+            Dim AppNombre As String = "GlobalDTSATObjetosImpuestos"
+            HttpContext.Current.Application(AppNombre) = value
+        End Set
+    End Property
+
     Public Shared Property GlobalDTMotivosCancelacionEmpresa(CveEmpresa As Integer, Optional CveMotivoCancelacion As Integer = -1, Optional CveSATMotivoCancelacion As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTMotivosCancelacionEmpresa-{0}", CveEmpresa)
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index e245b1f44..225d0ba99 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -418,7 +418,7 @@ Public Class ClsProductosServicios
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                           Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False,
                           Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Integer
+                          Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -506,6 +506,7 @@ Public Class ClsProductosServicios
             .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
             .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
             .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
+            .Add("@CveObjetoImpuesto", SqlDbType.TinyInt).Value = CveObjetoImpuesto
 
         End With
 
@@ -654,7 +655,7 @@ Public Class ClsProductosServicios
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
                              Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False,
                              Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False,
-                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "") As Boolean
+                             Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -744,6 +745,7 @@ Public Class ClsProductosServicios
             .Add("@CveEmbalaje", SqlDbType.Int).Value = CveEmbalaje
             .Add("@PesoKg", SqlDbType.SmallMoney).Value = PesoKg
             .Add("@Dimensiones", SqlDbType.VarChar).Value = Dimensiones
+            .Add("@CveObjetoImpuesto", SqlDbType.TinyInt).Value = CveObjetoImpuesto
 
         End With
 
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 8c5172390..877e31a0c 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -501,10 +501,19 @@
                                             <i>$</i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <div class="row">
+                                            <div class="row" id="DivObjetoImpuesto" runat="server" visible="false">
+                                                  <div class="col-md-12">
+                                                      <div class="form-group form-md-line-input input-iconright">
+                                                        <label for="<%= DdlObjetoImpuesto.ClientID.ToString()%>">Obj.Imp:</label>
+                                                        <asp:DropDownList ID="DdlObjetoImpuesto" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataValueField="CveObjetoImpuesto" DataTextField="CodigoObjetoImpuestoTexto" >                                                        
+                                                        </asp:DropDownList>
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="row"> 
                                                 <div id="DvTipo" runat="server" class="col-md-6">
                                                     <label for="<%= DdlTipoFactor.ClientID.ToString()%>">Tipo Factor:</label>
-                                                    <asp:DropDownList ID="DdlTipoFactor" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">
+                                                    <asp:DropDownList ID="DdlTipoFactor" Width="100%" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">
                                                         <asp:ListItem Selected="True" Text="Tasa" Value="1"></asp:ListItem>
                                                         <asp:ListItem Text="Cuota" Value="2"></asp:ListItem>
                                                         <asp:ListItem Text="Exento" Value="3"></asp:ListItem>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 386782326..90a77ddf4 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -276,6 +276,9 @@ Partial Class ProductosyServicios
                 'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
 
             End If
+
+
+
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
                 TxtPS.CssClass = "form-control Mayuscula"
             End If
@@ -338,6 +341,12 @@ Partial Class ProductosyServicios
 
         CargaCombosSeccionAlmacen()
 
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'emisión 4.0
+            DivObjetoImpuesto.Visible = True
+            DdlObjetoImpuesto.DataSource = GlobalDTSATObjetosImpuestos
+            DdlObjetoImpuesto.DataBind()
+        End If
+
         CreaDtSeccionAlmacen()
 
         If UsuarioActual.Empresa.UsaContabilidad Then
@@ -902,6 +911,7 @@ Partial Class ProductosyServicios
                 DdlMedida.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveMedida").ToString)
                 DdlRin.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveRinTamaño").ToString)
 
+                DdlObjetoImpuesto.SelectedValueExist(ObjProductosServicios.DtResultados.Rows(0)("CveObjetoImpuesto").ToString)
                 'If ObjProductosServicios.CvePSAdicional > 0 Then
                 '    DdlPSAdicional.SelectedValue = ObjProductosServicios.CvePSAdicional.ToString
                 '    DdlPSAdicional.SelectedText = ObjProductosServicios.PSCodigoAdicional
@@ -1366,7 +1376,8 @@ Partial Class ProductosyServicios
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) > 0 Then
+                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
+                                                CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1416,7 +1427,8 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) Then
+                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim,
+                                                  CveObjetoImpuesto:=DdlObjetoImpuesto.SelectedValue.ToEntero) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index da64cbafd..b498de99f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17735,7 +17735,7 @@ Partial Class Ventas
             Row("CveTipoPS") = DrPS("CveTipoPS")
             Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
             Row("CveTamaño") = DrPS("CveTamaño")
-            Row("ObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
+            Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
 
             If CveClasificacion <= 0 Then Row("CveClasificacion") = DrPS("CveClasificacion")
             If Clasificacion = "" Then Row("Clasificacion") = DrPS("Clasificacion")
@@ -18285,7 +18285,7 @@ Partial Class Ventas
 
         TmpDT.Columns.Add("TieneProntoPago", GetType(String))
         TmpDT.Columns.Add("ImporteProntoPago", GetType(Decimal))
-        TmpDT.Columns.Add("ObjetoImpuesto", GetType(String))
+        TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
 
         TmpDT.Columns("EsOutSourcing").DefaultValue = False
         TmpDT.Columns("EsCargo").DefaultValue = False
@@ -27002,10 +27002,10 @@ Partial Class Ventas
                     'verificar autorizaciones
                     Dim ObjVentas As New ClsVentas
                     If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, -1, "Egs", CveEstatus:=1) Then
-                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
+                        Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion,Importe DESC")
                         If RowAutorizacion IsNot Nothing Then
                             Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
-                            If ImporteAutorizacion > TxtNCImporte.Text.ToDecimal Then
+                            If ImporteAutorizacion >= TxtNCImporte.Text.ToDecimal Then
                                 Verificacion = True
                             End If
                         End If

From 32a0bcd5f8d058e43dae33e9951ef20bfc9353e2 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 31 Jan 2022 16:02:41 -0700
Subject: [PATCH 10/11] RegPrePolizasS Crar apartir de

---
 App_Code/ClsContabilidad.vb        |  11 +-
 Contabilidad/RegPrePolizaS.aspx    | 485 +++++++++++------
 Contabilidad/RegPrePolizaS.aspx.vb | 825 +++++++++++++++++++++++++++--
 Ventas/ProductosServicios.aspx     | 103 ++--
 Ventas/ProductosServicios.aspx.vb  |  17 +-
 5 files changed, 1183 insertions(+), 258 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 9f6902b8d..329fd4b7a 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -73,6 +73,8 @@ Public Class ClsContabilidad
     Public Property YaEstabaUnifida As Boolean = False
     Public Property EstaContabilizada As Boolean = False
 
+    Public Property FolioPoliza As Integer
+
 #End Region
 
     Public Function IniciaTransacSQL() As SqlTransaction
@@ -191,8 +193,9 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1) As Integer
-
+    Public Function AddPrePolizas(Modulo As String, CvePlantillaPoliza As Integer, Cargos As Double, Abonos As Double, CveMoneda As Integer, Fecha As Date, Concepto As String, CveUsuario As Integer, CveEmpresa As Integer, Optional FolioFijo As Integer = 0, Optional ReglaFolioPoliza As String = "", Optional CveTipoPoliza As Integer = -1,
+                                   Optional AgregarFolio As Boolean = False) As Integer
+        FolioPoliza = -1
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Conta_PrePolizasAdd")
@@ -210,12 +213,16 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@FolioFijo", SqlDbType.Int).Value = FolioFijo
             .Add("@CvePrePoliza", SqlDbType.Int).Direction = ParameterDirection.Output
+            .Add("@FolioPoliza", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@ReglaFolioPoliza", SqlDbType.VarChar).Value = ReglaFolioPoliza
+            .Add("@AgregarFolio", SqlDbType.Bit).Value = AgregarFolio
         End With
 
         Try
             SqlAdapter.Fill(Data)
             Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero
+            FolioPoliza = SqlAdapter.SelectCommand.Parameters("@FolioPoliza").Value.ToString.ToEntero
+
         Catch ex As Exception
 
             If ex.Message.Contains("50015;") Then
diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 39325be4d..48cc84eb9 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -82,8 +82,12 @@
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
+
                 <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" Visible="true"><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
             </li>
+             <li>
+                    <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
+                </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -135,12 +139,9 @@
                                     </div>
                                 </div>
                             </div>
+                            
                             <div class="chequesie22" runat="server" id="divObservaciones">
 
-                                <div class="row">
-                                    <div class="col-md-6">
-                                    </div>
-                                </div>
 
                                 <div class="row">
                                     <label class="col-md-2">Observaciones:</label>
@@ -173,11 +174,7 @@
                                 </div>
                             </div>
 
-                            <div class="row">
-                                <div class="col-md-6">
-                                    <br />
-                                </div>
-                            </div>
+                         
                             <div class="chequesie22">
                                 <div class="row" id="DivAgregarConceptos" runat="server" visible="true">
                                     <div class="col-md-12">
@@ -243,15 +240,10 @@
                 <asp:UpdatePanel ID="UpPoliza" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-
-
-
                         <div class="row" visible="false" runat="server" id="DivDatosPoliza">
 
-
-
-                            <div class="col-md-6" style="margin-top: 20px;">
-                                <div class="portlet light bordered xspadding">
+                            <div class="col-md-8" style="margin-top: 20px;">
+                                <div class="portlet light bordered xspadding ">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="fa fa-bookmark font-green"></i>
@@ -265,48 +257,63 @@
                                     <div class="portlet-body form">
 
 
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox CssClass="form-control" ID="TxtFolio" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtFolio.ClientID.ToString()%>">Folio: </label>                                            
-                                        </div>
+                                        <div class="row">
 
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlTipoPoliza" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar">
-                                                <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
-                                                <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
-                                                <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
-                                            </asp:DropDownList>
-                                            <label for="<%= DdlTipoPoliza.ClientID.ToString()%>">Tipo Póliza:</label>
-                                        </div>
+                                        
+                                            <div class="col-md-4">
 
+                                                <div class="form-group  form-md-line-input input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
 
-                                        <%--<div class="form-group form-md-line-input input-iconright">--%>
+                                                    <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control" Width="100px"></asp:TextBox>
+                                                    <span class="input-group-btn ">
+                                                        <asp:LinkButton runat="server" ID="ImgCalendarioPoliza" class="btn default"><i class="fa fa-calendar"></i></asp:LinkButton>
+                                                    </span>
+                                                    <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                                    <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendarioPoliza" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
+                                                    <asp:RequiredFieldValidator ID="RFVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <asp:CompareValidator ID="CVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                    <label for="<%= TxtFechaDocumento.ClientID.ToString()%>">Fecha:</label>
 
-                                            <div class="form-group  form-md-line-input input-group input-small date date-picker" data-date-format="dd/mm/yyyy">
-                                                <br />
-                                                <asp:TextBox ID="TxtFechaDocumento" runat="server" CssClass="form-control" Width="100px"></asp:TextBox>
-                                                <span class="input-group-btn ">
-                                                    <asp:LinkButton runat="server" ID="ImgCalendarioPoliza" class="btn default" style="margin-top:15px!important"><i class="fa fa-calendar"></i></asp:LinkButton>
-                                                </span>
-                                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaDocumento" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                                <ajax:CalendarExtender ID="CalendarExtender1" runat="server" TargetControlID="TxtFechaDocumento" PopupButtonID="ImgCalendarioPoliza" PopupPosition="Left" Enabled="True"></ajax:CalendarExtender>
-                                                <asp:RequiredFieldValidator ID="RFVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                                <asp:CompareValidator ID="CVFechaPoliza" runat="server" ControlToValidate="TxtFechaDocumento" Display="None" ErrorMessage="El campo <b>''FechaDocumento''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaPoliza" Width="350px"></ajax:ValidatorCalloutExtender>
-                                                <label for="<%= TxtFechaDocumento.ClientID.ToString()%>">Fecha:</label>
+                                                </div>
 
                                             </div>
-                                        
+                                            <div class="col-md-4">
 
-                                        <%--</div>--%>
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:DropDownList ID="DdlTipoPoliza" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Width="100%" ValidationGroup="GrpGuardar">
+                                                        <asp:ListItem Text="Ingreso" Value="1"></asp:ListItem>
+                                                        <asp:ListItem Text="Egreso" Value="2"></asp:ListItem>
+                                                        <asp:ListItem Text="Diario" Value="3"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                    <label for="<%= DdlTipoPoliza.ClientID.ToString()%>">Tipo Póliza:</label>
+                                                </div>
+                                            </div>
+                                                <div class="col-md-4">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox CssClass="form-control" ID="TxtFolio" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
+                                                    <label for="<%= TxtFolio.ClientID.ToString()%>">Folio: </label>
+                                                </div>
+                                            </div>
 
-                                        <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
                                         </div>
 
-                                      
+
+                                        <div class="row">
+                                            <div class="col-md-12">
+                                                <div class="form-group form-md-line-input input-iconright">
+                                                    <asp:TextBox ID="TxtConcepto" runat="server" Width="100%" CssClass="form-control" Enabled="false"></asp:TextBox>
+                                                    <label for="<%= TxtConcepto.ClientID.ToString()%>">Concepto:</label>
+                                                </div>
+                                            </div>
+                                        </div>
+
+
+
+
+
+
 
 
                                     </div>
@@ -314,7 +321,7 @@
                             </div>
 
 
-                            <div class="col-md-6" style="margin-top: 20px;">
+                            <div class="col-md-4" style="margin-top: 20px;">
                                 <div class="portlet light bordered xspadding">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
@@ -328,22 +335,25 @@
                                     </div>
                                     <div class="portlet-body form">
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                      <%--  <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox CssClass="form-control" ID="TxtEstatus" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
                                             <label for="<%= TxtEstatus.ClientID.ToString()%>">Estatus: </label>                                            
-                                        </div>
-
-                                         <div class="form-group form-md-line-input input-iconright">
+                                        </div>--%>
+                                        <div class="row">
+                                            <div class="col-md-6">
+                                                 <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox CssClass="form-control" ID="TxtFechaelaboracion" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtFechaelaboracion.ClientID.ToString()%>">Fecha Elaboracion: </label>                                            
+                                            <label for="<%= TxtFechaelaboracion.ClientID.ToString()%>">Fecha Elaboración: </label>                                            
                                         </div>
-                                     
-                                        <div class="form-group form-md-line-input input-iconright">
+                                            </div>
+                                            <div class="col-md-6">
+                                                <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox CssClass="form-control" ID="TxtUsuarioElaboro" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
-                                            <label for="<%= TxtUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboro: </label>                                            
+                                            <label for="<%= TxtUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>                                            
                                         </div>
+                                            </div>
 
-                                        
+                                        </div> 
 
 
                                     </div>
@@ -553,18 +563,12 @@
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
 
                         <asp:GridView ID="GvPrePoliza" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover mysmallbtn GvPrePoliza" GridLines="None"
-                            DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto" Width="100%" >
+                            DataKeyNames="CvePrePolizaDetalle, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC" Width="100%" >
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Movimiento</HeaderTemplate>
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />
-                                        <%--                                <asp:HiddenField ID="HdnConceptoContable" runat="server" Value='<%# Eval("CveConceptoContable") %>' />
-                                <asp:HiddenField ID="HdnProveedor" runat="server" Value='<%# Eval("CveProveedor") %>' />
-                                <asp:HiddenField ID="HdnCompra" runat="server" Value='<%# Eval("CveCompra") %>' />
-                                <asp:HiddenField ID="HdnPersonal" runat="server" Value='<%# Eval("CvePersonal") %>' />
-                                <asp:HiddenField ID="HdnCliente" runat="server" Value='<%# Eval("CveCliente") %>' />
-                                <asp:HiddenField ID="HdnVenta" runat="server" Value='<%# Eval("CveVenta") %>' />--%>
+                                        <asp:Literal ID="LtlConceptoContable" runat="server" Text='<%# Eval("ConceptoContable") %>'></asp:Literal><br />                                
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" Width="150px" />
                                 </asp:TemplateField>
@@ -649,11 +653,13 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField>
+                                <asp:TemplateField  >
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkEdit" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                        <asp:LinkButton ID="LnkGvPrePolizaEliminar" OnClick="LnkGvPrePolizaEliminar_Click" runat="server" AlternateText="Eliminar"  CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"
+                                             data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"   />
                                     </ItemTemplate>
-                                    <ItemStyle HorizontalAlign="Right" Width="20px" />
+                                    <ItemStyle HorizontalAlign="Right" Width="80px" />
                                 </asp:TemplateField>
 
                                 <asp:TemplateField >
@@ -722,6 +728,7 @@
                     </div>
 
                     <div class="modal-body">
+
                         <asp:Panel ID="PnlContado" runat="server" Visible="False">
                             <asp:RadioButtonList ID="RBLContado" runat="server" RepeatDirection="Horizontal" AutoPostBack="True">
                                 <asp:ListItem Value="1" Selected="True">Bancos</asp:ListItem>
@@ -800,114 +807,254 @@
         </div>
     </div>
 
-
+ 
 
     <div id="DivEditConcepto" align="center" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog" style="width: 450px;">
-            <asp:UpdatePanel ID="UpdatePanel1" runat="server" class="modal-content" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <div class="modal-header ">
-                        <button type="button" class="close" data-dismiss="modal">×</button>
-                        <h4 class="modal-title">
-                            <asp:Literal ID="LtlTitulo" runat="server" Text="Editar Concepto" />
-                        </h4>
-                    </div>
+ 
 
-                    <div class="modal-body" style="margin-left: 20px">
-                        <asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional">
-                            <ContentTemplate>
-                                <br />
-                                <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">Concepto:</div>
-                                    <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me"  Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
-                                        </asp:DropDownList>
-                                        <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
-                                        <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
-                                        <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
-                                        <ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
-                                        <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
-                                        <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
-                                         <asp:DropDownList ID="DdlPorcentajeIVAE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" VISIBLE="false"  Width="160px" >
-                                                        <asp:ListItem Text="16%" Value="0.16"></asp:ListItem>
-                                                        <asp:ListItem Text="8%" Value="0.08"></asp:ListItem>
-                                                    </asp:DropDownList>
-                                    </div>
-                                </div>
+                <div class="modal-dialog" style="width: 450px;"  id="DvMoldalConceptoAncho" >
+
+                    <asp:UpdatePanel ID="UpModalConcepto" runat="server" class="modal-content" UpdateMode="Conditional">
+                        <ContentTemplate>
+
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlTitulo" runat="server" Text="Editar Concepto" />
+                                </h4>
+                            </div>
+
+                            <div class="modal-body" style="margin-left: 20px">
 
-                                <br />
                                 <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">
-                                        Cuenta:
-                                    </div>
-                                    <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlCuentaContableE" runat="server"  Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
-                                    </div>
-                                </div>
-                                <br />
-                                <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">Referencia:</div>
-                                    <div class="col-xs-4">
-                                        <asp:TextBox ID="TxtReferenciaE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
-                                    </div>
-                                </div>
-                                <br />
-                                <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">Descripción:</div>
-                                    <div class="col-xs-4">
-                                        <asp:TextBox ID="TxtConceptoE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
-                                    </div>
-                                </div>
-                                <br />
-                                <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">
-                                        SubProyecto:
-                                    </div>
-                                    <div class="col-xs-3">
-                                        <asp:DropDownList ID="DdlSubProyectoE" runat="server" Width="220px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
-                                    </div>
-                                </div>
-                                <br />
-                                <div id="DivTG" runat="server">
-                                    <div class="row">
-                                        <div class="col-xs-2" style="text-align: left">Tipo Gasto:</div>
-                                        <div class="col-xs-3">
-                                            <asp:DropDownList ID="DdlTipoGastoE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                                    <div class="col-md-12" runat="server" id="DvMoldalConceptoSeccion1">
+
+
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">Concepto:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
+                                                </asp:DropDownList>
+
+                                            </div>
                                         </div>
-                                    </div>
-                                    <br />
-                                </div>
-                                <div class="row">
-                                    <div class="col-xs-2" style="text-align: left">
-                                        Cargo:
-                                    </div>
-                                    <div class="col-xs-3">
-                                        <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
-                                        <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    </div>
-                                    <div class="col-xs-1" style="text-align: left">
-                                        Abono:
-                                    </div>
-                                    <div class="col-xs-3">
-                                        <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
-                                        <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpGuardar"></asp:CompareValidator>
-                                        <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
-                                    </div>
-                                </div>
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </div>
 
-                    <div class="modal-footer">
-                        <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" />
-                        <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
-                    </div>
+                                        <div class="row" runat="server" id="DvmodalconceptoProveddor" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Proveedor:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="405px" AutoPostBack="true"></asp:DropDownList>
+                                            </div>
+                                        </div>
 
-                </ContentTemplate>
-            </asp:UpdatePanel>
-        </div>
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoCompra" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Compra:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="405px"></asp:DropDownList>
+                                            </div>
+                                        </div>
+
+                                        <div class="row " runat="server" id="DvModalconceptoPersonal" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Personal:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="405px"></asp:DropDownList>
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" id="DvModalconceptoCliente" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Cliente:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <ADS:Dropdownlost ID="DdlClientesE" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="405px" AutoPostBack="true"></ADS:Dropdownlost>
+                                            </div>
+                                        </div>
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoVenta" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Venta:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlVentasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="405px"></asp:DropDownList>
+                                            </div>
+                                        </div>
+
+
+                                        <div class="row" runat="server" id="DvModalconceptoClasificacion" visible="false">
+                                            <div class="col-xs-2" style="text-align: left">Clasificación:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="405px"></asp:DropDownList>
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" id="DvModalconceptoProcentajeIVA" visible="false">
+
+                                            <div class="col-xs-2" style="text-align: left">Procentaje IVA:</div>
+                                            <div class="col-xs-4" style="text-align: left">
+                                                <asp:DropDownList ID="DdlPorcentajeIVAE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" Visible="false" Width="160px">
+                                                    <asp:ListItem Text="16%" Value="0.16"></asp:ListItem>
+                                                    <asp:ListItem Text="8%" Value="0.08"></asp:ListItem>
+                                                </asp:DropDownList>
+                                            </div>
+                                        </div>
+
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Cuenta:
+                                            </div>
+                                            <div class="col-xs-4">
+                                                <asp:DropDownList ID="DdlCuentaContableE" runat="server" Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">Referencia:</div>
+                                            <div class="col-xs-4">
+                                                <asp:TextBox ID="TxtReferenciaE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">Descripción:</div>
+                                            <div class="col-xs-4">
+                                                <asp:TextBox ID="TxtConceptoE" runat="server" Width="405px" MaxLength="100" CssClass="form-control" ClientIDMode="Static"></asp:TextBox>
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                SubProyecto:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:DropDownList ID="DdlSubProyectoE" runat="server" Width="220px" CssClass="form-control input-sm select2me" DataValueField="CveSubProyecto" DataTextField="SubProyecto"></asp:DropDownList><br />
+                                            </div>
+                                        </div>
+                                        <br />
+                                        <div id="DivTG" runat="server">
+                                            <div class="row">
+                                                <div class="col-xs-2" style="text-align: left">Tipo Gasto:</div>
+                                                <div class="col-xs-3">
+                                                    <asp:DropDownList ID="DdlTipoGastoE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="TipoGasto" DataValueField="CveTipoGasto" Width="150px"></asp:DropDownList>
+                                                </div>
+                                            </div>
+                                            <br />
+                                        </div>
+                                        <div class="row">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Cargo:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtCargoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                                <asp:CompareValidator ID="CVCargo" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Cargo''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCCCargo" runat="server" HighlightCssClass="vco" TargetControlID="CVCargo" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                            <div class="col-xs-1" style="text-align: left">
+                                                Abono:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtAbonoE" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                                <asp:CompareValidator ID="CVAbono" runat="server" ControlToValidate="TxtAbono" Display="None" ErrorMessage="El campo <b>''Abono''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VCCAbono" runat="server" HighlightCssClass="vco" TargetControlID="CVAbono" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+
+                                        <div class="row" runat="server" visible="false" id="DVmodalConceptoTipoCambio">
+                                            <div class="col-xs-2" style="text-align: left">
+                                                Tipo de Cambio:
+                                            </div>
+                                            <div class="col-xs-3">
+                                                <asp:TextBox ID="TxtModalConceptoTipoCambio" runat="server" CssClass=" form-control input-sm" Style="text-align: right"></asp:TextBox><br />
+                                                <asp:CompareValidator ID="RfvTxtModalConceptoTipoCambio" runat="server" ControlToValidate="TxtCargo" Display="None" ErrorMessage="El campo <b>''Tipo de Cambio''</b> no tiene el formato correcto, por favor corrija e intente de nuevo (Solo formato numérico)." Operator="DataTypeCheck" Type="Currency" ValidationGroup="GrpMocalConceptoGuardar"></asp:CompareValidator>
+                                                <ajax:ValidatorCalloutExtender ID="VceRfvTxtModalConceptoTipoCambio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoTipoCambio" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </div>
+                                        </div>
+
+                                    </div>
+                                    <div class="col-md-6" runat="server" id="DvMoldalConceptoSeccion2" visible="false">
+
+                                        <div runat="server" id="Div1">
+
+                                            <asp:Panel ID="Panel1" CssClass="chequesie text-small" runat="server" Width="400px" Visible="true">
+                                                <div class="chequesie1">
+                                                    <div class="row">
+                                                        <label class="col-md-2">Movimiento:</label>
+                                                        <div class="col-md-6">
+                                                            <asp:DropDownList ID="DdlModalConceptoTipoTransaccion" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" Width="156px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RfvDdlModalConceptoTipoTransaccion" runat="server" ControlToValidate="DdlModalConceptoTipoTransaccion" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Movimiento''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoTipoTransaccion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoTipoTransaccion" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                    </div>
+                                                    <div class="row">
+                                                        <label class="col-md-2">Cuenta:</label>
+                                                        <div class="col-md-6">
+                                                            <asp:DropDownList ID="DdlModalConceptoCuenta" runat="server" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Width="200px" ValidationGroup="GrpMocalConceptoGuardar"></asp:DropDownList>
+                                                            <asp:RequiredFieldValidator ID="RfvDdlModalConceptoCuenta" runat="server" ControlToValidate="DdlModalConceptoCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceDdlModalConceptoCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlModalConceptoCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                    </div>
+                                                </div>
+                                                <div class="chequesie2">
+                                                    <div class="row">
+                                                        <asp:Label ID="Label1" runat="server" Text="Número:" class="col-md-2"></asp:Label>
+                                                        <div class="col-md-4">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoFolio" CssClass="form-control input-sm" runat="server" MaxLength="12"></asp:TextBox>
+                                                            <asp:RequiredFieldValidator ID="RfvTxtModalConceptoDocumentoFolio" runat="server" ControlToValidate="TxtDocumentoFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
+                                                            <ajax:ValidatorCalloutExtender ID="VceTxtModalConceptoDocumentoFolio" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalConceptoDocumentoFolio" Width="350px"></ajax:ValidatorCalloutExtender>
+                                                        </div>
+                                                        <label class="col-md-2" style="display: none">Importe</label>
+                                                        <div class="col-md-4 input-icon" style="display: none">
+                                                            <i style="margin: 0px;">$</i>
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoImporte" CssClass="form-control input-sm " Enabled="False" runat="server" MaxLength="12" Width="80px" ClientIDMode="Static" Style="text-align: right;"></asp:TextBox>
+                                                            <ajax:FilteredTextBoxExtender ID="FilTxtModalConceptoDocumentoImporte" runat="server" TargetControlID="TxtModalConceptoDocumentoImporte" FilterType="Custom, Numbers" ValidChars=".," />
+                                                        </div>
+                                                    </div>
+
+                                                    <div class="row">
+                                                        <asp:Label ID="Label2" runat="server" Text="Beneficiario:" class="col-md-2"></asp:Label>
+                                                        <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoBeneficiario" runat="server" CssClass="form-control input-sm"></asp:TextBox>
+                                                        </div>
+                                                    </div>
+
+                                                    <div class="row">
+                                                        <label class="col-md-2">Observaciones:</label>
+                                                        <div class="col-md-8">
+                                                            <asp:TextBox ID="TxtModalConceptoDocumentoObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="500" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                                        </div>
+                                                    </div>
+                                                </div>
+
+                                            </asp:Panel>
+                                        </div>
+
+
+
+
+                                    </div>
+
+
+
+
+                                </div>
+
+
+
+
+
+
+                            </div>
+
+                            <div class="modal-footer">
+                                <asp:Button ID="BtnAceptar" runat="server" class="btn btn-success" Text="Aceptar" ValidationGroup="" />
+                                <button id="BtnCancelar" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+          
     </div>
+ 
 
     <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
@@ -1113,5 +1260,9 @@
         }
 
 
+        function valorIE() {
+
+        }
+
     </script>
 </asp:Content>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index dca104de5..eeb2747e9 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -204,6 +204,36 @@ Partial Class ContabilidadC_RegPrePolizaS
             ViewState("TipoPoliza") = value
         End Set
     End Property
+
+    Public Property CvePlantillaPoliza As Integer
+        Get
+            If ViewState("CvePlantillaPoliza") Is Nothing Then
+                ViewState("CvePlantillaPoliza") = -1
+            End If
+            Return ViewState("CvePlantillaPoliza").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CvePlantillaPoliza") = value
+        End Set
+
+    End Property
+
+
+    Public Property CvePrePolizaOrigen As Integer
+        Get
+            If ViewState("CvePrePolizaOrigen") Is Nothing Then
+                ViewState("CvePrePolizaOrigen") = -1
+            End If
+            Return ViewState("CvePrePolizaOrigen").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("CvePrePolizaOrigen") = value
+        End Set
+
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -239,9 +269,21 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.Columns(5).Visible = False
                     DivTG.Visible = False
                     GvMov.Columns(5).Visible = False
-                End If
-
+                End If
+                ValidaCrearAPartirDe()
                 Exit Sub
+            ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
+
+
+                CvePrePolizaOrigen = Request("CvePrePolizaOrigen").ToEntero
+                CreaDT()
+                CargaPrePolizaOrigen()
+
+                OcultarControlesCrearApartirDe()
+
+
+                Exit Sub
+
             Else
                 CreaDT()
                 BtnEliminar.Visible = False
@@ -326,6 +368,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
             .Add("CveCuenta", Type.GetType("System.Int32"))
+
             .Add("ContadoTipoTransaccion", Type.GetType("System.Int32"))
             .Add("ContadoCuenta", Type.GetType("System.Int32"))
             .Add("ContadoNumeroFolio", Type.GetType("System.String"))
@@ -335,6 +378,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("PorcentajeImpuesto", Type.GetType("System.Double"))
             .Add("Modificado", Type.GetType("System.Boolean"))
             .Add("EsComplementaria", Type.GetType("System.Boolean"))
+            .Add("TC", Type.GetType("System.Decimal"))
+
 
 
         End With
@@ -434,9 +479,9 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 TxtFolio.Text = dr("FolioPoliza").ToString
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
-                TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
-                TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
-
+                TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+                '  TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
+                CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     'DivAgregarConceptos.Visible = True
@@ -448,7 +493,21 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
-                GvPrePoliza.DataSource = DtMovimientos
+                GvPrePoliza.DataSource = DtMovimientos
+
+
+                If Not DtMovimientos.Columns.Contains("ContadoCuenta") Then
+
+                    DtMovimientos.Columns.Add("ContadoCuenta", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoTipoTransaccion", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoNumeroFolio", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoBeneficiario", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
+
+
+                End If
+
                 GvPrePoliza.DataBind()
 
                 If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
@@ -884,6 +943,13 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
+
+
+        If CvePrePolizaOrigen > 0 Then
+            CrarPrePolizaApartirDe()
+            Exit Sub
+        End If
+
         Dim TotalCargos, TotalAbonos As Decimal
 
         If CvePrePoliza > 0 Then
@@ -1156,9 +1222,12 @@ Partial Class ContabilidadC_RegPrePolizaS
         CargaSubProyectoE()
         CargaTipoGastoE()
 
-        UpdatePanel1.Update()
+        UpModalConcepto.Update()
     End Sub
-    Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
+
+
+    Protected Sub GvPrePoliza_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvPrePoliza.RowUpdating
+
         RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto"))
         LtlTitulo.Text = "Editar Concepto"
         BtnAceptar.Text = "Aceptar"
@@ -1182,9 +1251,31 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim PorcentajeImpuesto As Double = GvPrePoliza.Rows(IndiceGrid).DataKey("PorcentajeImpuesto").ToEntero
 
         CargaConceptosContablesE()
-        DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
-        DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
+        CargaModalConceptoCuentas()
 
+        DdlConceptosContablesE.SelectedValueExist(CveConceptoContable)
+        DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e)
+
+        TxtModalConceptoTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDouble.ToString("###,###,###.00")
+        DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion"))
+        DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta"))
+        TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio")
+        TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario")
+        TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones")
+        TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00")
+
+        DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
+
+        'GvPrePoliza.Rows(IndiceGrid).DataKey("")
+
+        'dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+        'dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+        'dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+        'dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+        'dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+        'dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
+
+
         DdlProveedoresE.SelectedValueExist(CveProveedor)
         DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
         DdlComprasE.SelectedValueExist(CveCompra)
@@ -1215,9 +1306,18 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         If Abono <> 0 Then
             TxtAbonoE.Text = Abono
-        End If
-
-        UpdatePanel1.Update()
+        End If
+
+        If Abono = 0 Then
+            CargaModalConceptoTipoTransaccion("Ing")
+        Else
+            CargaModalConceptoTipoTransaccion("Egs")
+        End If
+
+
+
+
+        UpModalConcepto.Update()
 
     End Sub
     Private Sub LimpiaCampos()
@@ -1251,41 +1351,192 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlCuentaContableE.DataBind()
         DdlCuentaContableE.Items.Insert(0, New ListItem("Sin Asignar", "0"))
     End Sub
+
+
+
+
     Private Sub DdlConceptosContablesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlConceptosContablesE.SelectedIndexChanged
-        Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
-        If dr IsNot Nothing Then
-            DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
+
+        'Aquii hay que  consultar el concepto y determinar que es lo que se vba aplicar
+
+        Dim CveConceptoContableInsertar As Integer = DdlConceptosContablesE.SelectedValue.ToEntero
+        Dim DT_Concepto As DataTable
+
+        If CveConceptoContableInsertar > 0 Then
+
+            DT_Concepto = GlobalDTContaConceptosContables(CveConceptoContableInsertar)
+
+            Dim AplicaActivoFijo As Boolean = False
+            Dim AplicaAlmacen As Boolean = False
+            Dim AplicaBancos As Boolean = False 'ok
+            Dim AplicaClasificacion As Boolean = False 'ok
+            Dim AplicaCliente As Boolean = False 'ok
+            Dim AplicaCompra As Boolean = False
+            Dim AplicaImpuesto As Boolean = False
+            Dim AplicaNomina As Boolean = False
+            Dim AplicaPersonal As Boolean = False
+            Dim AplicaProveedor As Boolean = False
+            Dim AplicaSubProyecto As Boolean = False
+            Dim AplicaTC As Boolean = False 'ok
+            Dim AplicaVenta As Boolean = False
+
+            AplicaActivoFijo = Boolean.Parse(DT_Concepto.Rows(0)("AplicaActivoFijo").ToString)
+            AplicaAlmacen = Boolean.Parse(DT_Concepto.Rows(0)("AplicaAlmacen").ToString)
+            AplicaBancos = Boolean.Parse(DT_Concepto.Rows(0)("AplicaBancos").ToString)
+            AplicaClasificacion = Boolean.Parse(DT_Concepto.Rows(0)("AplicaClasificacion").ToString)
+            AplicaCliente = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCliente").ToString)
+            AplicaCompra = Boolean.Parse(DT_Concepto.Rows(0)("AplicaCompra").ToString)
+            AplicaImpuesto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaImpuesto").ToString)
+            AplicaNomina = Boolean.Parse(DT_Concepto.Rows(0)("AplicaNomina").ToString)
+            AplicaPersonal = Boolean.Parse(DT_Concepto.Rows(0)("AplicaPersonal").ToString)
+            AplicaProveedor = Boolean.Parse(DT_Concepto.Rows(0)("AplicaProveedor").ToString)
+            AplicaSubProyecto = Boolean.Parse(DT_Concepto.Rows(0)("AplicaSubProyecto").ToString)
+            AplicaTC = Boolean.Parse(DT_Concepto.Rows(0)("AplicaTC").ToString)
+            AplicaVenta = Boolean.Parse(DT_Concepto.Rows(0)("AplicaVenta").ToString)
+
+
+
+            If AplicaImpuesto Then
+                DdlPorcentajeIVAE.Visible = True
+            Else
+                DdlPorcentajeIVAE.Visible = False
+            End If
+
+            If AplicaProveedor Then
+                CargaProveedoresE()
+                DvmodalconceptoProveddor.Visible = True
+                DvModalconceptoCompra.Visible = True
+
+            Else
+                DvmodalconceptoProveddor.Visible = False
+                DvModalconceptoCompra.Visible = False
+
+            End If
+
+            If AplicaPersonal Then
+                CargaPersonalE()
+                DvModalconceptoPersonal.Visible = True
+
+                'DdlPersonalE.Visible = True
+            Else
+                DvModalconceptoPersonal.Visible = False
+
+                'DdlPersonalE.Visible = False
+            End If
+
+
+            If AplicaClasificacion Then
+                CargaClasificacionesE()
+                DvModalconceptoClasificacion.Visible = True
+                'DdlClasificacionesE.Visible = True
+            Else
+                DvModalconceptoClasificacion.Visible = False
+                'DdlClasificacionesE.Visible = False
+            End If
+
+
+            If AplicaCliente Then
+                CargaClientesE()
+
+                DvModalconceptoCliente.Visible = True
+                DvModalconceptoVenta.Visible = True
+
+
+                'DdlClientesE.Visible = True
+                'DdlVentasE.Visible = True
+            Else
+
+                DvModalconceptoCliente.Visible = False
+                DvModalconceptoVenta.Visible = False
+
+                'DdlClientesE.Visible = False
+                'DdlVentasE.Visible = False
+            End If
+
+
+            If AplicaBancos Then
+                'DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
+                DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
+                DvMoldalConceptoSeccion2.Visible = True
+                RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:1000px');")
+            Else
+                ' DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
+                DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
+                RegistraScript("$('#DvMoldalConceptoAncho').attr('style','width:450px');")
+                DvMoldalConceptoSeccion2.Visible = False
+            End If
+
+            If AplicaTC Then
+                DVmodalConceptoTipoCambio.Visible = True
+            Else
+                DVmodalConceptoTipoCambio.Visible = False
+            End If
+
+
         End If
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
-            CargaProveedoresE()
-            DdlProveedoresE.Visible = True
-            DdlComprasE.Visible = True
-        Else
-            DdlProveedoresE.Visible = False
-            DdlComprasE.Visible = False
-        End If
-
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
-            CargaPersonalE()
-            DdlPersonalE.Visible = True
-        Else
-            DdlPersonalE.Visible = False
-        End If
-
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
-            CargaClasificacionesE()
-            DdlClasificacionesE.Visible = True
-        Else
-            DdlClasificacionesE.Visible = False
-        End If
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
-            CargaClientesE()
-            DdlClientesE.Visible = True
-            DdlVentasE.Visible = True
-        Else
-            DdlClientesE.Visible = False
-            DdlVentasE.Visible = False
-        End If
+
+
+
+
+        'Dim dr As DataRow = GlobalDTContaConceptosContables(DdlConceptosContablesE.SelectedValue.ToEntero).FiltroPrimero("")
+
+        'If dr IsNot Nothing Then
+        '    DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
+
+        'End If
+
+        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
+        '    CargaProveedoresE()
+        '    DdlProveedoresE.Visible = True
+        '    DdlComprasE.Visible = True
+        'Else
+        '    DdlProveedoresE.Visible = False
+        '    DdlComprasE.Visible = False
+        'End If
+
+        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
+        '    CargaPersonalE()
+        '    DdlPersonalE.Visible = True
+        'Else
+        '    DdlPersonalE.Visible = False
+        'End If
+
+        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
+        '    CargaClasificacionesE()
+        '    DdlClasificacionesE.Visible = True
+        'Else
+        '    DdlClasificacionesE.Visible = False
+        'End If
+
+        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(1, 2, 203, 207, 13, 61, 8, 9, 62, 63, 38, 39, 12, 91) Then
+        '    CargaClientesE()
+        '    DdlClientesE.Visible = True
+        '    DdlVentasE.Visible = True
+        'Else
+        '    DdlClientesE.Visible = False
+        '    DdlVentasE.Visible = False
+        'End If
+
+        'If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(30) Then
+
+        '    DvMoldalConceptoAncho.Attributes.Add("style", "width:1000px")
+        '    DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-6")
+        '    DvMoldalConceptoSeccion2.Visible = True
+        'Else
+
+        '    DvMoldalConceptoAncho.Attributes.Add("style", "width:450px")
+        '    DvMoldalConceptoSeccion1.Attributes.Add("class", "col-md-12")
+        '    DvMoldalConceptoSeccion2.Visible = False
+        'End If
+
+
+
+
+
+
+        UpModalConcepto.Update()
+
+
     End Sub
     Private Sub CargaProveedoresE()
         DdlProveedoresE.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1348,11 +1599,19 @@ Partial Class ContabilidadC_RegPrePolizaS
     Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange
         CargaVentasE(DdlClientesE.SelectedValue.ToEntero)
     End Sub
-    Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
+
+
+
+    Protected Sub BtnAceptar_Click(sender As Object, e As EventArgs) Handles BtnAceptar.Click
+
+        'asdasdasd
 
         If IndiceGrid = -1 Then
+
             If DtMovimientos Is Nothing Then CreaDT()
+
             If CvePrePoliza > 0 Then
+
                 Dim IdCtaContable As Integer = CargaCuentasContpaq(DdlCuentaContableE.SelectedValue.ToEntero)
                 Dim dr As DataRow = DtMovimientos.NewRow
                 dr("IdCtaContable") = IdCtaContable
@@ -1380,18 +1639,21 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 If DdlPorcentajeIVAE.Visible Then
                     dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToDecimal
-                End If
-
-
+                End If
+
+
+
                 DtMovimientos.Rows.Add(dr)
                 DtMovimientos.AcceptChanges()
 
-                If CvePrePoliza > 0 Then
+                If CvePrePoliza > 0 Or CvePrePolizaOrigen Then
                     GvPrePoliza.DataSource = DtMovimientos
                     GvPrePoliza.DataBind()
                     UpPrePoliza.Update()
                 End If
 
+
+
                 TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
                 TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
                 UpTotalCargo.Update()
@@ -1468,6 +1730,18 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
                 dr("Modificado") = True
 
+                dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero
+                dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero
+                dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text
+                dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text
+                dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text
+                dr("ContadoImporte") = TxtModalConceptoDocumentoImporte.Text.ToDecimal
+
+                dr("TC") = TxtModalConceptoTipoCambio.Text.ToDecimal
+
+                dr("PorcentajeImpuesto") = DdlPorcentajeIVAE.SelectedValue.ToString.ToDecimal
+
+
 
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
                 'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
@@ -1492,7 +1766,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DtMovimientos.AcceptChanges()
                 GvPrePoliza.EditIndex = -1
 
-                If CvePrePoliza > 0 Then
+                If CvePrePoliza > 0 Or CvePrePolizaOrigen > 0 Then
                     GvPrePoliza.DataSource = DtMovimientos
                     GvPrePoliza.DataBind()
                     UpPrePoliza.Update()
@@ -2384,5 +2658,452 @@ Partial Class ContabilidadC_RegPrePolizaS
 
 #End Region
 
+#Region "Crear A Partier de"
+
+
+    Private Sub OcultarControlesCrearApartirDe()
+
+        BtnEliminar.Visible = False
+        BtnContabilizar.Visible = False
+        GvPrePoliza.Columns(5).Visible = False
+        DivTG.Visible = False
+        GvMov.Columns(5).Visible = False
+
+        TxtConcepto.Enabled = True
+        TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
+        TxtFechaelaboracion.Text = Now.ToString("dd/MM/yyyy")
+
+        TxtUsuarioElaboro.Text = UsuarioActual.Usuario
+
+
+    End Sub
+
+
+    Private Function ValidaCrearAPartirDe() As Boolean
+
+        Dim Respuesta As Boolean = False
+
+        If CvePlantillaPoliza > 0 Then
+
+            Dim TmpCvePlantillaPoliza As Integer = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePlantillaPoliza", $"CvePlantillaPoliza = {CvePlantillaPoliza}").ToEntero
+
+            If TmpCvePlantillaPoliza > 0 Then
+                Respuesta = True
+                LnkCrearAPartirDe.Visible = True
+            End If
+
+        End If
+
+        Return Respuesta
+
+    End Function
+
+
+    Private Sub CargaPrePolizaOrigen()
+        BtnEliminar.Visible = True
+        LblEncabezado.Text = "Crear a partir de"
+
+        Dim ObjContabilidad As New ClsContabilidad
+        If ObjContabilidad.GetPrePoliza(CvePrePolizaOrigen, UsuarioActual.CveEmpresa) Then
+            Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
+            If dr IsNot Nothing Then
+                DivAgregarConceptos.Visible = False
+                DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
+                TxtFechaDocumento.Text = dr("Fecha")
+                TxtConcepto.Text = dr("Concepto")
+                DivDatosPoliza.Visible = True
+                TipoPoliza = DdlTipoPoliza.SelectedItem.Text
+                Folio = dr("FolioPoliza").ToString
+
+                TxtFolio.Text = dr("FolioPoliza").ToString
+                TxtUsuarioElaboro.Text = dr("Usuario").ToString
+                TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
+                ' TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
+                CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
+
+                If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
+                    'DivAgregarConceptos.Visible = True
+                    LnkAddConcepto.Visible = True
+                    CargaConceptos()
+                    CargaSubProyectos()
+                    CargaCuentasContables()
+                End If
+
+                ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePolizaOrigen)
+                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+                If Not DtMovimientos.Columns.Contains("ContadoCuenta") Then
+
+                    DtMovimientos.Columns.Add("ContadoCuenta", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoTipoTransaccion", GetType(Integer))
+                    DtMovimientos.Columns.Add("ContadoNumeroFolio", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoBeneficiario", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoObservaciones", GetType(String))
+                    DtMovimientos.Columns.Add("ContadoImporte", GetType(Decimal))
+
+
+                End If
+
+                GvPrePoliza.DataSource = DtMovimientos
+                GvPrePoliza.DataBind()
+
+                If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
+                    GvPrePoliza.Columns(7).Visible = True
+                End If
+
+                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
+                    LnkComplementoPago.Visible = True
+                End If
+
+
+                If UsuarioActual.CveEmpresa = 119 Then
+                    BtnContabilizar.Visible = True
+                End If
+
+
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    If dr("FolioPoliza").ToString.ToEntero > 0 Then
+                        divContabilizada.Visible = True
+                        LblFolio.Text = dr("FolioPoliza").ToString
+                        Folio = dr("FolioPoliza").ToString
+
+                    End If
+                Else
+                    If dr("IdPoliza").ToString.ToEntero > 0 Then
+                        HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
+                        divContabilizada.Visible = True
+                        IdPoliza = dr("IdPoliza").ToString.ToEntero
+                    ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+                        'sino está contabilizada, se activa el botón
+                        BtnContabilizar.Visible = True
+                    End If
+                End If
+
+
+                divDatosPrincipales.Visible = False
+                divObservaciones.Visible = False
+                UPMovs.Visible = False
+                UPMovs.Update()
+                UPPDocumento.Update()
+                UpPrePoliza.Update()
+
+                RegistraScript("comparar();")
+
+                If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
+                    'For Each row As GridViewRow In GvPrePoliza.Rows
+                    '    row.FCTextBox("TxtCargo").Enabled = False
+                    '    row.FCTextBox("TxtAbono").Enabled = False
+                    'Next
+                End If
+                LnkExcel.Visible = False
+                LnkImprimirPDF.Visible = True
+            Else
+                Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
+                BtnEliminar.Visible = False
+            End If
+
+        End If
+
+        ObjContabilidad.Dispose()
+        UpPoliza.Update()
+    End Sub
+
+
+#End Region
+
+
+    Protected Sub LnkCrearAPartirDe_Click(sender As Object, e As EventArgs)
+        Response.Redirect($"./RegPrePolizaS.aspx?CvePrePolizaOrigen={CvePrePoliza}")
+    End Sub
+
+
+    Private Sub CrarPrePolizaApartirDe()
+        Dim CvePrePoliza As Integer
+        Dim FolioPoliza As Integer
+
+        Dim TotalCargos, TotalAbonos As Decimal
+
+        For Each Gvr As GridViewRow In GvPrePoliza.Rows
+            TotalCargos += Gvr.FCLiteral("TxtCargo").Text.ToDecimal
+            TotalAbonos += Gvr.FCLiteral("TxtAbono").Text.ToDecimal
+        Next
+
+
+        'validaciones
+        If Not (TotalCargos = TotalAbonos AndAlso (GvPrePoliza.Rows.Count > 0)) Then
+            Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        'For Each Gvr As GridViewRow In GvPrePoliza.Rows
+        '    If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE
+        '        If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then
+        '            Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia)
+        '            Exit Sub
+        '        End If
+        '    End If
+
+        'Next
+
+
+        'terminan validaciones
+
+        If CvePrePoliza > 0 Then
+            ActualizarPrePoliza()
+        Else
+            Dim MensajeAlert = New StringBuilder
+            Dim ObjIE As New ClsBancos()
+            Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+            ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
+            Dim Conta As ClsContPAQi = Nothing
+            Dim IDPoliza As Integer = 0
+            Dim MsgError As String = ""
+            Dim CveIE As Integer
+            Dim FolioIE As String = ""
+
+            Try
+
+                Dim ConceptoPoliza As String = TxtConcepto.Text
+
+                CvePrePoliza = ObjMov.AddPrePolizas("Contabilidad/RegPrePolizaCrear", CvePlantillaPoliza, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True)
+
+                If CvePrePoliza > 0 Then
+
+                    FolioPoliza = ObjMov.FolioPoliza
+
+                    Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
+                    Dim idCuentaContabilizacion As Long = 1
+                    Dim Importe As Double = 0
+                    Dim ImporteME As Decimal = 0
+                    Dim TipoCambio As Decimal = 1
+                    Dim TipoMovto As Boolean = False
+                    Dim IdCtaContable As Integer = 0
+
+
+                    'inserto las compras que voy a pagarDdlSaldos
+                    For Each gvr As GridViewRow In GvPrePoliza.Rows
+
+
+
+                        ImporteME = 0
+                        TipoCambio = 1
+
+                        If Boolean.Parse(gvr.DataKey("TipoMovto")) Then
+
+                            Importe = gvr.FCLiteral("TxtAbono").Text.ToDouble
+                            TipoMovto = True
+
+                            If gvr.DataKey("EsComplementaria") = "True" Then
+                                ImporteME = gvr.FCLiteral("TxtAbono").Text.ToDecimal 'me
+                                TipoCambio = gvr.FCTextBox("TxtModalConceptoDocumentoImporte").Text.ToDecimal
+                            End If
+
+                        Else
+                            Importe = gvr.FCLiteral("TxtCargo").Text.ToDouble
+                            TipoMovto = False
+
+                            If gvr.DataKey("EsComplementaria") = "True" Then
+                                ImporteME = gvr.FCTextBox("TxtCargo").Text.ToDecimal 'me
+                                TipoCambio = gvr.FCTextBox("TxtModalConceptoDocumentoImporte").Text.ToDecimal
+                            End If
+
+                        End If
+
+
+                        If gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+
+
+                            CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, gvr.DataKey("ContadoNumeroFolio").ToString,
+                                                       gvr.DataKey("ContadoBeneficiario").ToString, Importe, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "",
+                                                       False, False, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            FolioIE = gvr.DataKey("ContadoNumeroFolio").ToString
+                            If CveIE < 0 Then
+                                MsgError = "No se pudo registrar movimiento bancario"
+                                Exit For
+                            End If
+
+                        End If
+
+
+
+
+                        If gvr.DataKey("CveConceptoContable").ToEntero <> 30 Then
+
+                            If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
+                                CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
+                            Else
+                                CveIE = -1
+                            End If
+
+                        End If
+
+
+                        If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
+                            idCuentaContabilizacion = 0
+                        End If
+                        If Importe <> 0 Then
+                            Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
+
+                            'If gvr.datakey("CveConcepto") = "299" Then
+                            '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
+                            'End If
+
+                            If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.DataKey("Referencia"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("Concepto"),
+                                                           TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveIE:=CveIE,
+                                                           CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
+                                                           CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
+                                                           ImporteMX:=Importe, ImporteME:=ImporteME, TipoCambio:=TipoCambio, CveTipoGasto:=gvr.DataKey("CveTipoGasto").ToEntero,
+                                                           CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
+
+
+                            Else
+                                MsgError = "No se pudo insertar el detalle de la póliza2"
+                                Exit For
+                            End If
+                        End If
+                        If CveIE > 0 AndAlso gvr.DataKey("CveConceptoContable").ToEntero = 30 Then
+                            MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
+                        End If
+                    Next
+
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
+                        If ObjMov.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            MsgError = ObjMov.MensajePolizaDescuadre
+                        End If
+                    End If
+
+
+                    ''El movimiento 2 es el de Pago
+                    'If ChkAutoConta.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                    '    If idCuentaContabilizacion > 0 Then
+                    '        If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+
+                    '            'MENSAJE PRINCIPAL
+                    '            MensajeAlert.AppendFormat("<br/><br/>Folio de Salida: <b><a href = ""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
+                    '            'Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion)
+                    '        Else
+                    '            Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico")
+                    '        End If
+                    '    Else
+                    '        Alert("No se puede contabilizar la Prepoliza debido a que una o mas cuentas son inválidas")
+                    '    End If
+                    'Else
+                    '    MensajeAlert.AppendFormat("<br/><br/>Folio: <b><a href = ""/Contabilidad/RegPrepolizaS.aspx?CvePrePoliza={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CvePrePoliza, ObjMov.ContaFolio)
+                    'End If
+
+                Else
+                    MsgError = "No se pudo insertar la póliza"
+                End If
+            Catch ex As Exception
+                MsgError = "Error"
+            End Try
+
+            If MsgError = "" Then
+
+                'MENSAJE IE
+                'If CveIE > 0 Then
+                '    Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
+                'Else
+
+                Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
+
+                'End If
+
+                ObjIE.Commit()
+                If Conta IsNot Nothing Then Conta.Commit()
+
+                UPPDocumento.Update()
+
+                TxtObservaciones.Text = ""
+                GvMov.DataBind()
+                TxtFecha.Text = ""
+                TxtObservaciones.Text = ""
+            Else
+                Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
+                ObjIE.RollBack()
+                If Conta IsNot Nothing Then Conta.RollBack()
+            End If
+
+            ObjIE.Dispose()
+            ObjMov.Dispose()
+            If Conta IsNot Nothing Then Conta.Dispose()
+        End If
+
+
+
+    End Sub
+
+    Protected Sub LnkGvPrePolizaEliminar_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        DtMovimientos.Rows(GvRow.RowIndex).Delete()
+        DtMovimientos.AcceptChanges()
+
+        GvPrePoliza.DataSource = DtMovimientos
+        GvPrePoliza.DataBind()
+
+        UpPrePoliza.Update()
+    End Sub
+
+
+    Private Sub CargaModalConceptoTipoTransaccion(Tipo As String)
+        DdlModalConceptoTipoTransaccion.Items.Clear()
+        DdlModalConceptoTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
+        DdlModalConceptoTipoTransaccion.DataBind()
+        DdlModalConceptoTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
+    End Sub
+    Private Sub CargaModalConceptoCuentas()
+        DdlModalConceptoCuenta.Items.Clear()
+        DdlModalConceptoCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa) '.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", DdlMoneda.SelectedValue))
+        DdlModalConceptoCuenta.DataBind()
+        DdlModalConceptoCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    End Sub
+
+
+
+    Private Function ValidaConceptoRow(DTRow As DataRow, GvRow As GridViewRow) As Boolean
+
+        Dim ResPuesta As Boolean = False
+        Dim CveConCeptoValidar As Integer = -1
+        ' Dim
+
+
+        If DTRow IsNot Nothing Then
+            CveConCeptoValidar = DTRow("CveConceptoContable")
+        End If
+
+
+        If GvRow IsNot Nothing Then
+            CveConCeptoValidar = DTRow("CveConceptoContable")
+        End If
+
+        If CveConCeptoValidar > 0 Then
+            ' Aqui validar Row
+        End If
+
+
+        'AplicaActivoFijo,
+        'AplicaAlmacen,
+        'AplicaBancos,
+        'AplicaClasificacion,
+        'AplicaCliente,
+        'AplicaCompra,
+        'AplicaImpuesto,
+        'AplicaNomina,
+        'AplicaPersonal,
+        'AplicaProveedor,
+        'AplicaSubProyecto,
+        'AplicaTC,
+        'AplicaVenta
+
+        Return ResPuesta
+
+
+
+    End Function
+
 End Class
 
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 8c5172390..dc3c9ccb3 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -947,6 +947,7 @@
                                         </div>
                                     </div>
                                     <div class="col-md-6">
+
                                         <div class="portlet xspadding light bordered">
                                             <div class="portlet-title">
                                                 <div class="caption font-green">
@@ -997,44 +998,74 @@
                                             </div>
                                         </div>
                                         <br />
-                                        <div class="portlet xspadding light bordered" id="divCartaPorte" runat="server" visible="false">
-                                            <div class="portlet-title">
-                                                <div class="caption font-green">
-                                                    <i class="icon-briefcase font-green"></i>
-                                                    <span class="caption-subject bold uppercase">Carta Porte</span>
-                                                </div>
-                                                <div class="actions">
-                                                    <div class="btn-group">
+
+                                        <asp:UpdatePanel runat="server" ID="UpCartaPorte" UpdateMode="Conditional">
+                                            <ContentTemplate>
+                                                <div class="portlet xspadding light bordered" id="divCartaPorte" runat="server" visible="false">
+                                                    <div class="portlet-title">
+                                                        <div class="caption font-green">
+                                                            <i class="icon-briefcase font-green"></i>
+                                                            <span class="caption-subject bold uppercase">Carta Porte</span>
+                                                        </div>
+                                                        <div class="actions">
+                                                            <div class="btn-group">
+                                                            </div>
+                                                        </div>
+                                                    </div>
+                                                    <div class="portlet-body">
+
+
+
+                                                        <div class="row">
+                                                            <div class="col-md-12">
+                                                                <table style="width: 100%">
+                                                                    <tr>
+                                                                        <td style="width: 25%"></td>
+                                                                        <td style="width: 25%"></td>
+                                                                        <td style="width: 25%"></td>
+                                                                        <td style="width: 25%; text-align: left!important">
+                                                                            <asp:LinkButton runat="server" ID="LnkCPLimpiarConfiguracion" OnClick="LnkCPLimpiarConfiguracion_Click" CssClass="Texto">Limpiar datos</asp:LinkButton></td>
+                                                                    </tr>
+                                                                </table>
+
+                                                            </div>
+
+
+
+                                                        </div>
+                                                        <br />
+
+
+
+                                                        <div class="row">
+                                                            <label class="col-md-4 truncate">Material Peligroso:</label>
+                                                            <div class="col-md-8">
+                                                                <ADS:Dropdownlost ID="DdlMaterialPeligroso" runat="server" CssStyle="width: 100%;" DataTextField="ClaveMaterialPeligroDescripcion" DataValueField="CveMaterialPeligroso"></ADS:Dropdownlost>
+                                                            </div>
+                                                        </div>
+                                                        <div class="row">
+                                                            <label class="col-md-4 truncate">Embalaje:</label>
+                                                            <div class="col-md-8">
+                                                                <ADS:Dropdownlost ID="DdlEmbalaje" runat="server" CssStyle="width: 100%;" DataTextField="ClaveEmbalajeDescripcion" DataValueField="CveEmbalaje"></ADS:Dropdownlost>
+                                                            </div>
+                                                        </div>
+                                                        <div class="row">
+                                                            <label class="col-md-4 truncate">Peso en Kg:</label>
+                                                            <div class="col-md-8">
+                                                                <asp:TextBox ID="TxtPesoKg" runat="server" Width="60px" Class="form-control input-sm"></asp:TextBox>
+                                                            </div>
+                                                        </div>
+                                                        <div class="row">
+                                                            <label class="col-md-4 truncate">Dimensiones:</label>
+                                                            <div class="col-md-8">
+                                                                <asp:TextBox ID="TxtDimensiones" runat="server" Width="120px" Class="form-control input-sm"></asp:TextBox>
+                                                            </div>
+                                                        </div>
                                                     </div>
                                                 </div>
-                                            </div>
-                                            <div class="portlet-body">
-                                                <div class="row">
-                                                    <label class="col-md-4 truncate">Material Peligroso:</label>
-                                                    <div class="col-md-8">                                                         
-                                                        <ADS:Dropdownlost ID="DdlMaterialPeligroso"  runat="server" CssStyle="width: 100%;" DataTextField="ClaveMaterialPeligroDescripcion" DataValueField="CveMaterialPeligroso"></ADS:Dropdownlost>
-                                                    </div>
-                                                </div>
-                                                <div class="row">
-                                                    <label class="col-md-4 truncate">Embalaje:</label>
-                                                    <div class="col-md-8">
-                                                        <ADS:Dropdownlost ID="DdlEmbalaje"  runat="server" CssStyle="width: 100%;" DataTextField="ClaveEmbalajeDescripcion" DataValueField="CveEmbalaje"></ADS:Dropdownlost>
-                                                    </div>
-                                                </div>
-                                                <div class="row">
-                                                    <label class="col-md-4 truncate">Peso en Kg:</label>
-                                                    <div class="col-md-8">
-                                                        <asp:TextBox ID="TxtPesoKg" runat="server" Width="60px" Class="form-control input-sm"></asp:TextBox>
-                                                    </div>
-                                                </div>
-                                                 <div class="row">
-                                                    <label class="col-md-4 truncate">Dimensiones:</label>
-                                                    <div class="col-md-8">
-                                                        <asp:TextBox ID="TxtDimensiones" runat="server" Width="120px" Class="form-control input-sm"></asp:TextBox>
-                                                    </div>
-                                                </div>
-                                            </div>
-                                        </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+
                                         <br />
                                         <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 386782326..40720c311 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3117,7 +3117,7 @@ Partial Class ProductosyServicios
             Else
                 'No es matgerial peligroso
 
-                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Or TxtPesoKg.Text.Trim.Length > 0 Then
+                If DdlMaterialPeligroso.txtValue.Value.ToEntero > 0 Or DdlEmbalaje.txtValue.Value.ToEntero > 0 Then
                     RegistraScript("$('#DivModalMensaje').modal('show');")
                     ValidaMaterialPeligrosoMensaje = False
                     LblModalMensajeCuerpo.Text = "El producto servicio del SAT seleccionado no esta clasificado como material peligroso, favor de limpiar los datos de la sección carta porte en la pestaña Contabilidad - Inventarios, el incluir estos datos en un material no peligroso generara errores al timbrar traslados."
@@ -3153,4 +3153,19 @@ Partial Class ProductosyServicios
 
 
 
+    Protected Sub LnkCPLimpiarConfiguracion_Click(sender As Object, e As EventArgs)
+
+        DdlMaterialPeligroso.txtText.Value = ""
+        DdlMaterialPeligroso.txtValue.Value = ""
+
+
+        DdlEmbalaje.txtText.Value = ""
+        DdlEmbalaje.txtValue.Value = ""
+
+        UpCartaPorte.Update()
+
+    End Sub
+
+
+
 End Class

From 43a7614d1fb2b882e37fa3af2c44a67ec243e328 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 31 Jan 2022 16:13:36 -0700
Subject: [PATCH 11/11] =?UTF-8?q?ingresos=20x=20comprobar.=20que=20ingore?=
 =?UTF-8?q?=20la=20validaci=C3=B3n=20de=20meses?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/ClientesAbonar.aspx.vb | 52 +++++++++++++++++------------------
 1 file changed, 26 insertions(+), 26 deletions(-)

diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 8daf157f8..08500af56 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -621,46 +621,46 @@ Partial Class Ventas_ClientesAbonar
             End If
         End If
 
-        Dim ValFechaDocumento As Boolean = False
+        If RblTipoPago.SelectedValue = "1" Then
+
+
+            Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
 
         FoliosFechasValFechaDocumento.AppendLine("Se seleccionaron facturas con fecha de mes superior al mes del pago: <br/>")
 
-        For Each gvRowVal As GridViewRow In GvCxC.Rows
+            For Each gvRowVal As GridViewRow In GvCxC.Rows
 
-            If gvRowVal.FCCheckBox("Chk").Checked Then
+                If gvRowVal.FCCheckBox("Chk").Checked Then
 
-                Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
-                Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
+                    Dim FechaFactura As Date = gvRowVal.DataKey("Fecha").ToDate
+                    Dim FechaDocumento As Date = TxtFechaDocumento.Text.ToDate
 
-                Dim AnioFactura As Integer = FechaFactura.Year
-                Dim MesFactura As Integer = FechaFactura.Month
+                    Dim AnioFactura As Integer = FechaFactura.Year
+                    Dim MesFactura As Integer = FechaFactura.Month
 
-                Dim AnioDocumento As Integer = FechaDocumento.Year
-                Dim MesDocumento As Integer = FechaDocumento.Month
+                    Dim AnioDocumento As Integer = FechaDocumento.Year
+                    Dim MesDocumento As Integer = FechaDocumento.Month
+
+                    If UsuarioActual.Empresa.UsaAC = False Then
+                        If AnioFactura > AnioDocumento Then
+                            FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                            ValFechaDocumento = True
+                        ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
+                            FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
+                            ValFechaDocumento = True
+                        End If
 
-                If UsuarioActual.Empresa.UsaAC = False Then
-                    If AnioFactura > AnioDocumento Then
-                        FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
-                        ValFechaDocumento = True
-                    ElseIf AnioFactura = AnioDocumento And MesFactura > MesDocumento Then
-                        FoliosFechasValFechaDocumento.AppendLine($"Folio: {  gvRowVal.DataKey("SerieFolio") } fecha: {gvRowVal.DataKey("Fecha").ToDate.ToString("dd/MM/yyyy") } <br/>")
-                        ValFechaDocumento = True
                     End If
-
                 End If
+            Next
+
+            If ValFechaDocumento Then
+                Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
+                Exit Sub
             End If
-
-        Next
-
-
-        If ValFechaDocumento Then
-            Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
-            Exit Sub
         End If
 
-
-
         If Not TxtImporte.Text.ToDecimal > 0 Then
             Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)
             Exit Sub