Merge branch 'master' of http://192.168.10.111:8383/SIG

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)
@@ -272,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 RegimenFiscalReceptor As String = ""
-    Public Property DomicilioFiscalReceptor As String = "601"
+    Public Property DomicilioFiscalReceptor As String = ""
     Public Property ResidenciaFiscal As String = ""
     Public Property NumeroRegistroTributario As String = ""
     Public Property UsoCFDI As String

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

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

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,

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)
@@ -1170,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)
@@ -6933,7 +6969,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 +7075,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 +7198,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 +8378,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
 

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
 

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 = ""
@@ -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)
@@ -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
 
-
+            '' si el importe de impuestos es mayor a cero o si es tasa con importe = 0, debe de ir el atributo
-            If ObjCFDITimbre.Traslados.Sum(Function(x) x.Importe) > 0 Then
+            If ObjCFDITimbre.AplicaImpuestosTraslados Then
                 ''se acumulan los importes
                 For Each Tras In ObjCFDITimbre.Traslados
                     cfdi.Traslado(Tras.Impuesto, Tras.TipoFactor, Tras.TasaOCuota, Tras.Importe)

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,14 +240,9 @@
                 <asp:UpdatePanel ID="UpPoliza" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-
-
-
                         <div class="row" visible="false" runat="server" id="DivDatosPoliza">
 
-
+                            <div class="col-md-8" style="margin-top: 20px;">
-
-                            <div class="col-md-6" style="margin-top: 20px;">
                                 <div class="portlet light bordered xspadding ">
                                     <div class="portlet-title">
                                         <div class="caption font-green">
@@ -265,28 +257,16 @@
                                     <div class="portlet-body form">
 
 
-                                        <div class="form-group form-md-line-input input-iconright">
+                                        <div class="row">
-                                            <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="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="form-group form-md-line-input input-iconright">--%>
+                                            <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">
-                                                <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>
+                                                        <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>
@@ -298,13 +278,40 @@
 
                                                 </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>
+
+
+                                        <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>
+
+
+
+
 
 
 
@@ -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>--%>
-
+                                        <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>
+                                            <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") %>' />--%>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Left" Width="150px" />
                                 </asp:TemplateField>
@@ -652,8 +656,10 @@
                                 <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>
@@ -803,9 +810,13 @@
  
 
     <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">
+
+                <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">
@@ -814,21 +825,72 @@
                             </div>
 
                             <div class="modal-body" style="margin-left: 20px">
-                        <asp:UpdatePanel ID="UppGrid" runat="server" UpdateMode="Conditional">
+
-                            <ContentTemplate>
+                                <div class="row">
+                                    <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">
+                                            <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>
-                                        <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>
+                                            </div>
-                                        <asp:DropDownList ID="DdlPersonalE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
+                                        </div>
-                                        <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>
+                                        <div class="row" runat="server" id="DvmodalconceptoProveddor" visible="false">
-                                        <asp:DropDownList ID="DdlClasificacionesE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="160px" Visible="false"></asp:DropDownList>
+                                            <div class="col-xs-2" style="text-align: left">Proveedor:</div>
-                                         <asp:DropDownList ID="DdlPorcentajeIVAE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" VISIBLE="false"  Width="160px" >
+                                            <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>
+
+
+
+                                        <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>
@@ -883,7 +945,7 @@
                                             </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>
+                                                <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">
@@ -891,24 +953,109 @@
                                             </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>
+                                                <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>
-                            </ContentTemplate>
+
-                        </asp:UpdatePanel>
+                                        <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" />
+                                <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">
             <!-- Modal content-->
@@ -1113,5 +1260,9 @@
         }
 
 
+        function valorIE() {
+
+        }
+
     </script>
 </asp:Content>

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
@@ -240,8 +270,20 @@ Partial Class ContabilidadC_RegPrePolizaS
                     DivTG.Visible = False
                     GvMov.Columns(5).Visible = False
                 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
@@ -435,8 +480,8 @@ 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")
+                '  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
@@ -449,6 +494,20 @@ Partial Class ContabilidadC_RegPrePolizaS
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
                 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
+
         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()
+        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)
@@ -1217,7 +1308,16 @@ Partial Class ContabilidadC_RegPrePolizaS
             TxtAbonoE.Text = Abono
         End If
 
-        UpdatePanel1.Update()
+        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
+        'Aquii hay que  consultar el concepto y determinar que es lo que se vba aplicar
-            DdlPorcentajeIVAE.Visible = dr("AplicaImpuesto") = "True"
+
+        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 DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 201, 206, 14, 15, 16, 19, 25, 26, 21) Then
+
+            If AplicaProveedor Then
                 CargaProveedoresE()
-            DdlProveedoresE.Visible = True
+                DvmodalconceptoProveddor.Visible = True
-            DdlComprasE.Visible = True
+                DvModalconceptoCompra.Visible = True
+
             Else
-            DdlProveedoresE.Visible = False
+                DvmodalconceptoProveddor.Visible = False
-            DdlComprasE.Visible = False
+                DvModalconceptoCompra.Visible = False
+
             End If
 
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(28, 29) Then
+            If AplicaPersonal Then
                 CargaPersonalE()
-            DdlPersonalE.Visible = True
+                DvModalconceptoPersonal.Visible = True
+
+                'DdlPersonalE.Visible = True
             Else
-            DdlPersonalE.Visible = False
+                DvModalconceptoPersonal.Visible = False
+
+                'DdlPersonalE.Visible = False
             End If
 
-        If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(51) Then
+
+            If AplicaClasificacion Then
                 CargaClasificacionesE()
-            DdlClasificacionesE.Visible = True
+                DvModalconceptoClasificacion.Visible = True
+                'DdlClasificacionesE.Visible = True
             Else
-            DdlClasificacionesE.Visible = False
+                DvModalconceptoClasificacion.Visible = False
+                '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
+
+
+            If AplicaCliente Then
                 CargaClientesE()
-            DdlClientesE.Visible = True
+
-            DdlVentasE.Visible = True
+                DvModalconceptoCliente.Visible = True
+                DvModalconceptoVenta.Visible = True
+
+
+                'DdlClientesE.Visible = True
+                'DdlVentasE.Visible = True
             Else
-            DdlClientesE.Visible = False
+
-            DdlVentasE.Visible = False
+                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
+
+
+
+
+        '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
 
+        '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
@@ -1383,15 +1642,18 @@ Partial Class ContabilidadC_RegPrePolizaS
                 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
 

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>

Inventarios/EntregaAlmacen.aspx.vb

@@ -2916,6 +2916,10 @@ Partial Class Inventarios_EntregaAlmacen
                 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)
 
             Limpia()

Inventarios/Kardex.aspx.vb

@@ -109,7 +109,12 @@ Partial Class Inventarios_Kardex
 
         If ddlProducto2.UsaWebService Then
             ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
+            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

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>

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

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:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="50px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <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="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoE" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoE" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
-                        <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="Right"/>
-                        <asp:BoundField HeaderText="Salidas" ItemStyle-Width="75px" DataField="Salidas" DataFormatString="{0:#,###.####}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="100px" DataField="CostoS" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
-                        <asp:BoundField HeaderText="Costo" ItemStyle-Width="75px" DataField="CostoS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Existencia" ItemStyle-Width="75px" DataField="ExistenciaAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
-                        <asp:BoundField HeaderText="Importe" ItemStyle-Width="75px" DataField="ImporteS" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Left"/>
+                        <asp:BoundField HeaderText="Valor" ItemStyle-Width="100px" DataField="ValorAcum" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
-                        <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"/>
                     </Columns>
                 </asp:GridView>
             </div>

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(8).Visible = TienePermisoImportes
-        GvM.Columns(7).Visible = TienePermisoImportes
-
-        GvM.Columns(9).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(8).Visible = TienePermisoImportes
-            e.Row.Cells(9).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(9).Text = e.Row.DBCampo("ExistenciaTotal").ToDouble().ToString("#,####.####")
-                    e.Row.Cells(12).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
+                    e.Row.Cells(10).Text = e.Row.DBCampo("ValorTotal").FormatoNumero
             End Select
 
 

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>
@@ -633,20 +646,6 @@
                                             <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">
                                             <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
@@ -657,17 +656,35 @@
                                             <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">
+                                        <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 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 class="form-group form-md-line-input input-iconright" runat="server" id="DivBonificacionUsado" visible="false">
+                                             </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>
 
                             <%-- Marcar el Cliente como Frecuente --%>
                             <div class="col-md-6 " id="DivProtletRegistrar" visible="false" runat="server">

Ventas/Clientes.aspx.vb

@@ -753,6 +753,10 @@ Partial Class Clientes
                 DivRetIVA.Visible = False
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(350) = "1" 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
@@ -788,8 +792,16 @@ Partial Class Clientes
                         UpAccionesCRM.Update()
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol.Contiene(1280, 1511) Then
+                    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
@@ -816,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
@@ -876,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
@@ -1246,10 +1250,9 @@ Partial Class Clientes
 
         CargaClasificaciones()
 
-        If UsuarioActual.Empresa.UsaContabilidad Then
-            'CargaCuentasContables()
-        End If
 
+        DdlRegimenFiscal.DataSource = GlobalDTRegimenesFiscales
+        DdlRegimenFiscal.DataBind()
 
         CargaCombosComercioExterior()
 
@@ -1426,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)
@@ -1574,6 +1580,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 +2620,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 +2718,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)
@@ -9475,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()

Ventas/ClientesAbonar.aspx.vb

@@ -621,6 +621,9 @@ Partial Class Ventas_ClientesAbonar
             End If
         End If
 
+        If RblTipoPago.SelectedValue = "1" Then
+
+
             Dim ValFechaDocumento As Boolean = False
         Dim FoliosFechasValFechaDocumento As New StringBuilder
 
@@ -650,16 +653,13 @@ Partial Class Ventas_ClientesAbonar
 
                     End If
                 End If
-
             Next
 
-
             If ValFechaDocumento Then
                 Alert(FoliosFechasValFechaDocumento.ToString, TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
+        End If
-
 
         If Not TxtImporte.Text.ToDecimal > 0 Then
             Alert("Debe de llevar un Importe", TipoMensaje.MsgAdvertencia)

Ventas/ProductosServicios.aspx

@@ -501,10 +501,19 @@
                                             <i>$</i>
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright">
+                                            <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>
@@ -947,6 +956,7 @@
                                         </div>
                                     </div>
                                     <div class="col-md-6">
+
                                         <div class="portlet xspadding light bordered">
                                             <div class="portlet-title">
                                                 <div class="caption font-green">
@@ -997,6 +1007,9 @@
                                             </div>
                                         </div>
                                         <br />
+
+                                        <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">
@@ -1009,6 +1022,30 @@
                                                         </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">
@@ -1035,6 +1072,9 @@
                                                         </div>
                                                     </div>
                                                 </div>
+                                            </ContentTemplate>
+                                        </asp:UpdatePanel>
+
                                         <br />
                                         <asp:UpdatePanel ID="UpSeccionAlmacen" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>

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
@@ -3117,7 +3129,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 +3165,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

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -396,7 +396,13 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true);
         if (EsRefacturacion)
         {
-            if (CveEstatusRefacturacion >= 0)
+            //SI YA FUE REFACTURADA MARCALA COMO REFACTURADA
+            if (!string.IsNullOrEmpty(FolioSustitucion))
+            {
+                CveEstatusRefacturacion = 2;
+            }
+
+            if (CveEstatusRefacturacion > 0)
             {
                 factura.CveEstatusRefacturacion = CveEstatusRefacturacion;
             }

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("CodigoObjetoImpuesto") = 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("CodigoObjetoImpuesto", 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
@@ -26996,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