Local Oscar

Acumuladores/CatFoliosGarantia.aspx

@@ -119,7 +119,7 @@
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
                             DataKeyNames="CveFolioGarantia,FolioGarantia,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Temas"
+                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                             data-sort="true"
                             data-freezerows="1"
@@ -135,7 +135,7 @@
                                         &nbsp;<asp:Literal ID="LblTipoFolio" runat="server" Text='<%# Eval("tipoFolio") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:TemplateField HeaderText="Limite">
+                                <asp:TemplateField HeaderText="Límite">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="LblLimite" runat="server" Text='<%# Eval("Limite") %>'></asp:Literal>
                                     </ItemTemplate>
@@ -151,7 +151,7 @@
                                         &nbsp;<asp:Literal ID="LblPuntos" runat="server" Text='<%# Eval("Estatus")%>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-                                <asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Area" />
+                                <asp:BoundField DataField="AreaTexto" ItemStyle-Width ="100px" HeaderText="Área" />
                                 <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" ItemStyle-Width="150px">
                                     <ItemTemplate>
                                         &nbsp;<asp:Literal ID="lblFecha" runat="server" Text='<%# Eval("FechaIng", "{0:d}")%>'></asp:Literal>
@@ -269,9 +269,9 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <label for="<%= DdlTipoFolioModal.ClientID.ToString()%>">Tipo Folio:</label>&nbsp;
                                     <asp:DropDownList ID="DdlTipoFolioModal" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
-                                        <asp:ListItem Value="general" Selected ="True">general</asp:ListItem>
-                                        <asp:ListItem Value="optima">optima</asp:ListItem>
-                                        <asp:ListItem Value="motobateria">motobateria</asp:ListItem>
+                                        <asp:ListItem Value="general" Selected ="True">General</asp:ListItem>
+                                        <asp:ListItem Value="optima">Optima</asp:ListItem>
+                                        <asp:ListItem Value="motobateria">Motobateria</asp:ListItem>
                                     </asp:DropDownList>
                                     <i></i>
                                 </div>
@@ -279,14 +279,14 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtLimite" CssClass="form-control " runat="server" MaxLength="70" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label>
+                                    <label for="<%= TxtLimite.ClientID.ToString()%>">Límite:</label>
                                     <i></i>
                                 </div>
                                  <div class="form-group form-md-line-input input-iconright">
-                                    <label for="<%= DdlArea.ClientID.ToString()%>">Area:</label>&nbsp;
+                                    <label for="<%= DdlArea.ClientID.ToString()%>">Área:</label>&nbsp;
                                     <asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
-                                        <asp:ListItem Value="2">Almacen</asp:ListItem>
+                                        <asp:ListItem Value="2">Almacén</asp:ListItem>
                                     </asp:DropDownList>
                                     <i></i>
                                 </div>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -48,6 +48,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 #Region "Folios Garantía"
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
+        GvFolioGarantia.Columns(3).HeaderText = lblSubProyecto.Text
     End Sub
 
     Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String)

App_Code/CFDITimbre.vb

@@ -363,7 +363,8 @@ Public Class CFDINominaOtrosPagos
     Public Property TipoOtroPago As String
     Public Property Clave As String
     Public Property Concepto As String
-    Public Property Importe As Double
+    Public Property Importe As Decimal
+    Public Property Subsidiocausado As Decimal
 End Class
 
 

App_Code/ClsBancos.vb

@@ -3475,7 +3475,7 @@ Public Class ClsBancos
 #End Region
 
 #Region "PagosCajaChica"
-    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1) As Boolean
+    Public Function GetPagosCajaChica(FechaI As String, FechaF As String, CveEmpresa As Integer, CveCuenta As Integer, Optional TipoPago As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_BancosCajaChicaPagosGet")
 
@@ -3485,6 +3485,7 @@ Public Class ClsBancos
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@TipoChequeEfectivo", SqlDbType.Int).Value = TipoPago
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
 
         Try

App_Code/ClsClientes.vb

@@ -1068,7 +1068,7 @@ Public Class ClsClientes
     '    Return Retorno
     'End Function
     Public Function AddSucursal(CveCliente As Integer, Sucursal As String, CveUsuario As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean
+                                LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteAdd")
@@ -1101,6 +1101,7 @@ Public Class ClsClientes
 
             .Add("@LT", SqlDbType.VarChar).Value = LT
             .Add("@LG", SqlDbType.VarChar).Value = LG
+            .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
         End With
 
@@ -1120,7 +1121,7 @@ Public Class ClsClientes
         Return Retorno
     End Function
     Public Function UpdateSucursal(Sucursal As String, Estatus As Boolean, CveCliente As Integer, CveClienteSucursal As Integer, Ciudad As String, Colonia As String, CP As String, Direccion As String, Estado As String, Localidad As String, Pais As String, NoExt As String, NoInt As String, Telefono As String, Correo As String, CorreoCotizacion As String, Contacto As String, CveVendedor As Integer, NumCtaPago As String, CveMetodoPago As Integer,
-                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0") As Boolean
+                                   LimiteCredito As Decimal, CveResponsableSucursal As Integer, CveUsoCFDI33 As Integer, CveFormaPago33 As Integer, CveMetodoPago33 As Integer, Optional LT As String = "0", Optional LG As String = "0", Optional RFC As String = "-1") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_SucursalClienteUpdate")
@@ -1156,6 +1157,7 @@ Public Class ClsClientes
 
             .Add("@LT", SqlDbType.VarChar).Value = LT
             .Add("@LG", SqlDbType.VarChar).Value = LG
+            .Add("@RFC", SqlDbType.VarChar).Value = RFC
 
         End With
 

App_Code/ClsCompras.vb

@@ -3074,6 +3074,39 @@ Public Class ClsCompras
         Return Retorno
     End Function
 
+    Public Function GetFletesCompras(CveFlete As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer obtener las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
+    Public Function AddFletesCompras(CveFlete As Integer, Optional CveCompra As Integer = -1, Optional CveOC As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Comp_FletesComprasAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFlete", SqlDbType.Int).Value = CveFlete
+            .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveOC", SqlDbType.Int).Value = CveOC
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al querer agregar las compras relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+
 #Region "REPORTE PUE SIN PAGO"
 
     Public Function GetPUESinPago(FI As DateTime, FF As DateTime, CveProveedor As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean

App_Code/ClsProductosServicios.vb

@@ -58,8 +58,6 @@ Public Class ClsProductosServicios
     Public Property Estado2 As Integer
     Public Property CveMarca As Integer
 
-    Public Property AlmacenSeccion As String
-
     Public Property IEPSPorcentaje As Double
 
     Public Property AplicaIEPS As Boolean
@@ -283,7 +281,7 @@ Public Class ClsProductosServicios
 
                 Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                 CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
-                'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
+                VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
                 CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
                 RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
 
@@ -2112,13 +2110,14 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer) As Boolean
+    Public Function UpdateProductosServiciosSAT(CvePS As Integer, CveSATPS As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Gral_ProductosServiciosSATUpdate")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveSATPS", SqlDbType.Int).Value = CveSATPS
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsVentas.vb

@@ -341,7 +341,7 @@ Public Class ClsVentas
                              Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0,
                              Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1,
                              Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0,
-                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1) As Boolean
+                             Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_VentasAdd")
@@ -432,6 +432,7 @@ Public Class ClsVentas
             .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion
             .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion
             .Add("@FormaPaqueteria", SqlDbType.Int).Value = FormaPaqueteria
+            .Add("@FacturarSucursal", SqlDbType.Bit).Value = FacturarSucursal
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With

App_Code/LogicNominas.vb

@@ -107,7 +107,7 @@ Public Class LogicNominas
         'Conexiones a la Base de Datos
         Using objNomina As ClsNominas = New ClsNominas()
             Using objPersonal As ClsRH = New ClsRH()
-                If objNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa) AndAlso objNomina.DtResultados.Rows.Count > 0 Then
+                If objNomina.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa) AndAlso objNomina.DtResultados.Rows.Count > 0 Then
                     CvePersonal = objNomina.DtResultados.Rows(0)("CvePersonal").ToString().ToEntero()
                     CvePeriodo = objNomina.DtResultados.Rows(0)("CvePeriodo").ToString().ToEntero()
                     Serie = objNomina.Serie
@@ -116,7 +116,6 @@ Public Class LogicNominas
                     If continuar Then GetError = "No se pudo obtener la información de la nomina" 'si continuar= true el error se origino en este nodo y se le asigno el error
                     continuar = False
                 End If
-
                 If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then
                     RFC = objPersonal.RFC
                     NombreCompleto = objPersonal.NombreCompleto
@@ -143,11 +142,11 @@ Public Class LogicNominas
                     If continuar Then GetError = "No se pudo obtener la información del empleado" 'si continuar= true el error se origino en este nodo y le asigno el error
                     continuar = False
                 End If
-
                 If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then
                     If objNomina.DtResultados.Rows.Count > 0 Then
-                        DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ")
-                        DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ")
+                        DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0")
+                        DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0")
+                        DtOtrosPagos = objNomina.DtResultados.FiltraParametros(" TipoConceptoSAT='O'")
                         TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal()
                         TotalDeducciones = DtDeducciones.SUM("Importe").ToString().ToDecimal()
                         Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal)
@@ -161,7 +160,6 @@ Public Class LogicNominas
                 Else
                     continuar = False
                 End If
-
                 If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then
                     Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0)
 
@@ -183,8 +181,6 @@ Public Class LogicNominas
                 Else
                     continuar = False
                 End If
-
-
                 If DiasIncapacitados > 0 Then
                     If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then
                         If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then
@@ -222,10 +218,11 @@ Public Class LogicNominas
         cfdi.Receptor.RFC = RFC
         cfdi.Receptor.Nombre = NombreCompleto
 
+        Dim ObjPercepciones As New List(Of CFDINominaPercepciones)
+        Dim ObjDeducciones As New List(Of CFDINominaDeducciones)
+        Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras)
+        Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos)
         If DtPercepciones IsNot Nothing AndAlso DtPercepciones.Rows.Count > 0 Then
-            Dim ObjPercepciones As New List(Of CFDINominaPercepciones)
-            Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras)
-            Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos)
             For Each Row As DataRow In DtPercepciones.Rows
                 If Row("Importe").ToString().ToDecimal > 0 AndAlso Row("SATCveConcepto").ToString().ToEntero() <> 17 Then
                     If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
@@ -248,11 +245,62 @@ Public Class LogicNominas
                                                                 .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
                 End If
             Next
-            If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones
-            If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras
-            If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
         End If
+
+        If DtDeducciones IsNot Nothing AndAlso DtDeducciones.Rows.Count > 0 Then
+            For Each Row As DataRow In DtDeducciones.Rows
+                If Row("Importe").ToString().ToDecimal > 0 Then
+
+                    If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
+                    If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 Then
+
+                        ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
+                                                                         .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()})
+                    Else
+                        ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(),
+                                                                .Clave = Row("Codigo").ToString(),
+                                                                .Concepto = Row("Concepto").ToString(),
+                                                                .Importe = Row("Importe").ToString().ToDecimal()}
+                    )
+                    End If
+
+                End If
+
+                'subsidio al empleo
+                'If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
+                '    ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser referente a subsidio al empleo
+                '                                                .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(), .Importe = Row("Importe").ToString().ToDecimal})
+                'End If
+            Next
+        End If
+
+        If DtOtrosPagos IsNot Nothing AndAlso DtOtrosPagos.Rows.Count > 0 Then
+            For Each Row As DataRow In DtOtrosPagos.Rows
+                If (Row("Importe").ToString().ToDecimal() > 0) OrElse (Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 2 AndAlso Row("Importe").ToString().ToDecimal() < 0) Then
+
+                    If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
+
+                    ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
+                                                                         .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteGravado").ToString().ToDecimal().Abs()})
+
+
+                    If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 7 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
+                        ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = "002", ' codigo fijo 
+                                                                    .Clave = Row("Codigo").ToString(), .Concepto = "ISR", .Importe = Row("Importe").ToString().ToDecimal})
+                    End If
+                    If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 8 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
+                        ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = "071", ' codigo fijo 
+                                                                    .Clave = Row("Codigo").ToString(), .Concepto = "(Ajuste en Subsidio para el empleo (efectivamente entregado al trabajador)", .Importe = Row("Importe").ToString().ToDecimal})
+                    End If
+                End If
+
+            Next
+        End If
+        If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones
+        If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras
+        If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
         If ObjIncapacidades IsNot Nothing AndAlso ObjIncapacidades.Count > 0 Then cfdi.Nomina.Incapacidades = ObjIncapacidades
+        If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
 
 
         cfdi.Comprobante.Version = "3.3"
@@ -301,260 +349,4 @@ Public Class LogicNominas
         End If
     End Function
 
-    Private Function PreTimbrar(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, UsuarioActual As Usuario) As CFDITimbre
-
-        Dim cfdi As New CFDITimbre
-        Dim objPersonal As New ClsRH
-        Dim objNomina As New ClsNominas
-        objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa)
-        objNomina.GetNom_Nominas(CveNomina, CvePersonal, CvePeriodo, -1, UsuarioActual.CveEmpresa)
-        Dim DtPercepciones As Data.DataTable = Nothing
-        Dim DtDeducciones As Data.DataTable = Nothing
-        Dim DtOtrosPagos As Data.DataTable = Nothing
-        Dim TotalPercepciones As Decimal = 0
-        Dim TotalDeducciones As Decimal = 0
-        Dim TotalOtrosPagos As Decimal = 0
-        Dim Total As Decimal = 0
-        If objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then
-            If objNomina.DtResultados.Rows.Count > 0 Then
-                DtPercepciones = objNomina.DtResultados.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ")
-                DtDeducciones = objNomina.DtResultados.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ")
-                TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal()
-                TotalDeducciones = DtDeducciones.SUM("Importe").ToString().ToDecimal()
-                Total = CType((Total + DtPercepciones.SUM("Importe")), Decimal)
-            End If
-        End If
-        'nota. siempre y cuando halla concepto 19
-        Dim DtHorasExtras As Data.DataTable = Nothing
-        If objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then
-            DtHorasExtras = objNomina.DtResultados
-        End If
-
-        Dim TotalExcento As Decimal = 0
-        Dim TotalGravado As Decimal = 0
-
-        Dim AntiguedadSemanas As Integer = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, Now).ToEntero()
-        Dim FormatoReciboCFDi As String = objPersonal.FormatoReciboCFDi
-
-        Dim FechaInicio, FechaFin, FechaPago As Date
-        Dim DiasPagados As Integer = 0
-        Dim Msg As String = String.Empty
-        Dim DiasIncapacitados As Integer = 0
-        Dim DrPeriodo As DataRow = Nothing
-        If objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) Then
-            If objNomina.DtResultados.Rows().Count > 0 Then
-                DrPeriodo = objNomina.DtResultados.Rows(0)
-            End If
-        End If
-
-        'Dim DrPeriodo As DataRow = GlobalDTNominasPeriodos(-1, CvePeriodo, -1).FiltroPrimero("")
-        If DrPeriodo IsNot Nothing Then
-            FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate
-            FechaFin = DrPeriodo("FechaFin").ToString().ToDate
-            FechaPago = DrPeriodo("FechaPago").ToString().ToDate
-            If objPersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, FechaInicio, FechaFin, UsuarioActual.CveEmpresa) Then
-
-                Dim Asistencias As Integer = objPersonal.DtResultados.SUM("AplicaAsistencia").ToEntero()
-                Dim Vacaciones As Integer = objPersonal.DtResultados.SUM("AplicaVacacion").ToEntero()
-                DiasIncapacitados = objPersonal.DtResultados.SUM("AplicaIncapacidad").ToEntero()
-                DiasPagados = Asistencias - Vacaciones
-                If DiasPagados < 0 Then DiasPagados = 0
-
-            End If
-
-        End If
-
-        'Tipo Nomina O de Ordinaria o E de extraordinaria
-        'Dim FechaPago As Date = Now
-        Dim TotalSueldos As Decimal = 0
-        Dim TotalIndemnizacion As Decimal = 0
-        Dim TotalJubilacion As Decimal = 0
-
-        cfdi.Nomina = New CFDINomina
-        cfdi.Nomina.Version = "1.2"
-        cfdi.Nomina.TipoNomina = If(objNomina.CveTipoPeriodo = 6, "E", "O")
-        cfdi.Nomina.FechaPago = FechaPago
-        cfdi.Nomina.FechaInicio = FechaInicio.ToString()
-        cfdi.Nomina.FechaFin = FechaFin.ToString()
-        cfdi.Nomina.NumDiasPagados = DiasPagados
-        cfdi.Emisor.Nombre = UsuarioActual.Empresa.Empresa
-        cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC
-        cfdi.Emisor.RegistroPatronal = UsuarioActual.Empresa.RegistroPatronal
-        cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal
-        'aplica persona fisica debe de tener CURP
-        If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615") Then
-            cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP
-        End If
-        cfdi.Nomina.CveNomina = CveNomina
-
-        cfdi.Receptor.UsoCFDI = "P01"
-        cfdi.Receptor.RFC = objPersonal.RFC
-        cfdi.Receptor.Nombre = objPersonal.NombreCompleto
-
-        If DtPercepciones IsNot Nothing Then
-            If DtPercepciones.Rows.Count > 0 Then
-                Dim ObjPercepciones As New List(Of CFDINominaPercepciones)
-                Dim ObjHorasExtras As New List(Of CFDINominaHorasExtras)
-                Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos)
-
-                For Each Row As DataRow In DtPercepciones.Rows
-                    If Row("Importe").ToString().ToDecimal > 0 AndAlso Row("SATCveConcepto").ToString().ToEntero() <> 17 Then
-                        If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
-
-                        ObjPercepciones.Add(New CFDINominaPercepciones With {.TipoPercepcion = Row("SATCveConcepto").ToString(),
-                                                                    .Clave = Row("Codigo").ToString(),
-                                                                    .Concepto = Row("Concepto").ToString(),
-                                                                    .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal,
-                                                                    .ImporteExento = Row("ImporteExento").ToString().ToDecimal}
-                        )
-
-                    End If
-                    'RMF, falta poner el numero de horas pagadas
-                    If Row("CveSATConcepto").ToString().ToEntero() = 19 Then 'cuando son horas extras
-
-                        'Obtengo el desglose de horas extras
-
-                        If DtHorasExtras IsNot Nothing Then
-
-                            Dim dr As DataRow = DtHorasExtras.FiltroPrimero("")
-                            If dr IsNot Nothing Then
-
-                                If dr("HorasDobles").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
-                                If dr("HorasTriples").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
-
-                            End If
-
-                        End If
-                    End If
-                    'subsidio al empleo
-                    If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio
-
-                        ObjOtrosPagos.Add(New CFDINominaOtrosPagos With {.TipoOtroPago = "002", ' codigo fijo, por ser refernte a subsidio al empleo
-                                                                    .Clave = Row("Codigo").ToString(),
-                                                                    .Concepto = Row("Concepto").ToString(),
-                                                                    .Importe = Row("Importe").ToString().ToDecimal}
-                        )
-
-                    End If
-
-                Next
-                If ObjPercepciones IsNot Nothing AndAlso ObjPercepciones.Count > 0 Then cfdi.Nomina.Percepciones = ObjPercepciones
-                If ObjHorasExtras IsNot Nothing AndAlso ObjHorasExtras.Count > 0 Then cfdi.Nomina.HorasExtras = ObjHorasExtras
-                If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
-
-            End If
-
-        End If
-
-        'cargo las incapacidades
-        If DiasIncapacitados > 0 Then
-
-            If objNomina.GetIncapacidades(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then
-
-                If objNomina.DtResultados IsNot Nothing AndAlso objNomina.DtResultados.Rows.Count > 0 Then
-                    Dim ObjIncapacidades As New List(Of CFDINominaIncapacidades)
-                    For Each dr As DataRow In objNomina.DtResultados.Rows
-                        ObjIncapacidades.Add(New CFDINominaIncapacidades With {.DiasIncapacidad = dr("Dias").ToString().ToEntero().ToString(), .TipoIncapacidad = dr("ClaveTipoIncapacidad").ToString(), .Importe = dr("Descuento").ToString().ToDecimal})
-                    Next
-                    If ObjIncapacidades IsNot Nothing AndAlso ObjIncapacidades.Count > 0 Then cfdi.Nomina.Incapacidades = ObjIncapacidades
-                End If
-            End If
-        End If
-
-        TotalExcento = 0
-        TotalGravado = 0
-
-        If DtDeducciones IsNot Nothing Then
-            If DtDeducciones.Rows.Count > 0 Then
-
-                Dim ObjDeducciones As New List(Of CFDINominaDeducciones)
-                For Each Row As DataRow In DtDeducciones.Rows
-
-                    If Row("Importe").ToString().ToDecimal > 0 Then
-
-                        If Row("CveSATConcepto").ToString() = "" Then cfdi.AddMsg(String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())) : Exit For
-
-                        ObjDeducciones.Add(New CFDINominaDeducciones With {.TipoDeduccion = Row("SATCveConcepto").ToString(),
-                                                                    .Clave = Row("Codigo").ToString(),
-                                                                    .Concepto = Row("Concepto").ToString(),
-                                                                    .Importe = Row("Importe").ToString().ToDecimal}
-                        )
-
-                    End If
-                Next
-                If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones
-            End If
-
-        End If
-
-
-        'If DtOtrosPagos IsNot Nothing Then
-        '    If DtOtrosPagos.Rows.Count > 0 Then
-        '        '                Total = CType((Total - DtOtrosPagos.SUM("Importe")), Decimal)
-        '        Dim ObjOtrosPagos As New List(Of CFDINominaOtrosPagos)
-        '        '            End If
-
-        '        '            For Each Row As DataRow In DtOtrosPagos.Rows
-        '        '                If Row("Importe").ToString().ToDecimal > 0 Then
-        '        '                    If Row("CveSATConcepto").ToString() = "" Then
-        '        '                        Msg = String.Format("Concepto No registrado ({0})", Row("Concepto").ToString())
-        '        '                    Else
-        '        '                        Msg = cfdi.ObjCompNomina12.AgregarOtroPago(Row("SATCveConcepto").ToString(), Row("Codigo").ToString(), Row("Concepto").ToString(), 0)
-        '        '                        'Msg = CFDi.ObjCompNomina12.CargarSubsidioAlEmpleo(0)
-        '        '                        'Msg = CFDi.ObjCompNomina12.CargarCompensacionSaldosAFavor(0, 0, 0)
-        '        '                    End If
-
-        '        '                    If Msg <> String.Empty Then
-        '        '                        Me.OnError("El SAT regresó el siguiente mensaje: " & Msg & ". Objeto: Otros Pagos", New Exception)
-        '        '                        Exit For
-        '        '                    End If
-        '        '                End If
-        '        '            Next
-        '        If ObjOtrosPagos IsNot Nothing AndAlso ObjOtrosPagos.Count > 0 Then cfdi.Nomina.OtrosPagos = ObjOtrosPagos
-        '    End If
-        'End If
-
-        cfdi.Comprobante.Version = "3.3"
-        cfdi.Comprobante.Serie = objNomina.Serie
-        cfdi.Comprobante.Folio = objNomina.Folio.ToString()
-        cfdi.Comprobante.Fecha = Now
-        cfdi.Comprobante.Subtotal = cfdi.Nomina.TotalPercepciones.ToString().ToDecimal() + cfdi.Nomina.TotalOtrosPagos.ToString().ToDecimal()
-        cfdi.Comprobante.Descuentos = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()
-        cfdi.Comprobante.Total = cfdi.Comprobante.Subtotal - cfdi.Comprobante.Descuentos 'cfdi.Nomina.TotalPercepciones + cfdi.Nomina.TotalOtrosPagos - cfdi.Nomina.TotalDeducciones
-        cfdi.Comprobante.MotivoDescuento = "" '"Deducciones nómina"
-        cfdi.Comprobante.Moneda = "MXN"
-        cfdi.Comprobante.TipoComprobante = "N"
-        cfdi.Comprobante.TipoDocto = "Egs"
-        cfdi.Comprobante.MetodoPago = "PUE"
-        cfdi.Comprobante.CondicionesdePago = "" '"CONTADO"
-        cfdi.Comprobante.FormadePago = "99"
-        cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL
-        cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta
-
-        cfdi.Nomina.Receptor.CURP = objPersonal.CURP
-        cfdi.Nomina.Receptor.NSS = objPersonal.NumeroSS
-        cfdi.Nomina.Receptor.FechaInicioContrato = objPersonal.FechaInicioContrato.ToString()
-        cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W"
-        cfdi.Nomina.Receptor.TipoContrato = objPersonal.CodigoTipoContrato
-        cfdi.Nomina.Receptor.CodigoTipoJornada = objPersonal.ClaveTipoJornada
-        cfdi.Nomina.Receptor.CodigoRegimenContratacion = objPersonal.CveRegimenContratacion
-        cfdi.Nomina.Receptor.CodigoEmpleado = objPersonal.Codigo
-        cfdi.Nomina.Receptor.Departamento = objPersonal.Departamento
-        cfdi.Nomina.Receptor.Puesto = objPersonal.Puesto
-        cfdi.Nomina.Receptor.CodigoRiesgoPuesto = objPersonal.CveSATRiesgoPuesto.ToString()
-        cfdi.Nomina.Receptor.TipoPeriodo = objPersonal.TipoPeriodoPago
-        cfdi.Nomina.Receptor.CodigoBanco = objPersonal.ClaveBanco
-        cfdi.Nomina.Receptor.NumeroCuenta = objPersonal.BancoNumCuenta
-        cfdi.Nomina.Receptor.SDI = objPersonal.SDI
-        cfdi.Nomina.Receptor.SBC = objPersonal.SDI
-        cfdi.Nomina.Receptor.Sindicalizado = ""
-        cfdi.Nomina.Receptor.CodigoEntidadFederativa = objPersonal.ClaveEstado
-
-        cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()})
-
-        objPersonal.Dispose()
-        objNomina.Dispose()
-
-        Return cfdi
-    End Function
 End Class

App_Code/Modelos.vb

@@ -5613,6 +5613,7 @@ Namespace Modelos
         Public Property Pagado As Decimal
         Public Property DescuentoProntoPago As Decimal
         Public Property CveVentaRNCCargo As Integer
+        Public Property FacturarSucursal As Boolean = False
         'Public Property Sucursal As SucursalModel
         Public Property SubProyecto As Modelos.SubProyectoModel
 
@@ -9079,6 +9080,7 @@ Namespace Modelos
             FormatoFactura = ""
             Sucursal = ""
             CorreoSucursal = ""
+            RFC = ""
         End Sub
         Public Sub New()
             MyBase.New()
@@ -9095,6 +9097,8 @@ Namespace Modelos
             End Get
         End Property
         Public Property CveSucursal As Integer
+        Public Property RFC As String
+        Public Property Nombre As String
         Public Property Calle As String
         Public Property Direccion As String
         Public Property NoExt As String
@@ -9114,6 +9118,7 @@ Namespace Modelos
         Public Property TelefonoSucursal As String
         Public Property ImprimeNombreSucursal As String
 
+
     End Class
 
     <Serializable>

App_Code/Timbrado.vb

@@ -725,7 +725,7 @@ Public Class Timbrado
             If Msg = String.Empty Then
 
                 'Nodo receptor
-                Msg = CFDi.ReceptorCfd(Ventas.Cliente.RFC, Ventas.Cliente.Nombre, "", "", Ventas.ClaveUsoCFDI)
+                Msg = CFDi.ReceptorCfd(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, "", "", Ventas.ClaveUsoCFDI)
                 If Msg = String.Empty Then
 
                     'Nodo conceptos, se agregan los PS
@@ -941,7 +941,7 @@ Public Class Timbrado
 
 
                                                         Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
-                                                        CBB.GenerarCBB(UsuarioActual.Empresa.RFC, Ventas.Cliente.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB)
+                                                        CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ObjCFDITimbre.Receptor.RFC, Ventas.TotalTC, FolioFiscal, RutaCBB)
 
                                                         ''Genero la addenda de 7-Eleven
                                                         'If sevenElevenNumProveedor <> "" AndAlso sevenElevenFolio <> "" AndAlso sevenElevenTienda <> "" AndAlso sevenElevenFecha <> "" AndAlso sevenElevenFecha <> "__/__/____" Then
@@ -2048,7 +2048,7 @@ Public Class Timbrado
                     For Each otpag As CFDINominaOtrosPagos In ObjCFDITimbre.Nomina.OtrosPagos
                         cfdi.Nomina12OtroPago(otpag.TipoOtroPago, otpag.Clave, otpag.Concepto, otpag.Importe)
                         If otpag.TipoOtroPago = "002" Then
-                            cfdi.Nomina12SubsidioAlEmpleo(otpag.Importe)
+                            cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado)
                         End If
 
                     Next
@@ -2895,10 +2895,10 @@ Public Class Timbrado
                         Nom.OtrosPagos(i).TipoOtroPago = otpag.TipoOtroPago
                         Nom.OtrosPagos(i).Clave = otpag.Clave
                         Nom.OtrosPagos(i).Concepto = otpag.Concepto
-                        Nom.OtrosPagos(i).Importe = otpag.Importe.ToDecimal
+                        Nom.OtrosPagos(i).Importe = otpag.Importe
                         If otpag.TipoOtroPago = "002" Then
                             Nom.OtrosPagos(i).SubsidioAlEmpleo = New Profact.TimbraCFDI33.Complementos.Nomina12.NominaOtroPagoSubsidioAlEmpleo()
-                            Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe.ToDecimal
+                            Nom.OtrosPagos(i).SubsidioAlEmpleo.SubsidioCausado = otpag.Importe
                         End If
                         i += 1
                     Next

Ashx/SIGWeb.ashx

@@ -52,7 +52,7 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
                 Case "sendMail"
                     context.Response.Write(sendMail(context))
                 Case "sendMailLPM"
-                    context.Response.Write(sendMail(context))
+                    context.Response.Write(sendMailLPM(context))
 
             End Select
         Catch ex As Exception

Bancos/DepositosCaja.aspx

@@ -23,17 +23,16 @@
 
     <asp:UpdatePanel ID="UPPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="portlet solid  grey-cascade portlet-filter">
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
                 <div class="portlet-title portlet-filterT smalltitle">
-
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" CssClass="btn btn-primary" />
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                        <a href="javascript:;" class="expand"></a>
                     </div>
-
-                    <div class="portlet-body">
+                    <div class="titlefiltros  caption ">
                         <div class="row">
 
-                            <label class="col-md-2 truncate" style="width: 110px;">Cuenta de Caja:</label>
+                            <label class="col-md-1 truncate" style="width: 110px;">Cuenta:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlCajaChica" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 </asp:DropDownList>
@@ -43,7 +42,7 @@
                             <label class="col-md-1 truncate" style="width: 40px;">F.I.:</label>
                             <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="width: 140px !important;">
-                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -58,7 +57,7 @@
                             <label class="col-md-1 truncate" style="width: 40px;">F.F.:</label>
                             <div class="col-md-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 140px !important;">
-                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <asp:TextBox ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" Width="80px"></asp:TextBox>
                                     <span class="input-group-btn ">
                                         <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
                                     </span>
@@ -76,13 +75,24 @@
                                     <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
                                     <asp:ListItem Value="13" Text="Efectivo"></asp:ListItem>
                                     <asp:ListItem Value="3" Text="Cheque"></asp:ListItem>
+                                    <asp:ListItem Value="11" Text="Tarjeta de Debito"></asp:ListItem>
+                                    <asp:ListItem Value="12" Text="Tarjeta de Crédito"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                             
                         </div>
 
-                    </div>
+                   </div>
+                 </div>
+                <div class="portlet-body" style="display: none">
+                    <div class="row">
+                         <label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                                </asp:DropDownList>
+                            </div>
 
+                    </div>
                 </div>
             </div>
         </ContentTemplate>

Bancos/DepositosCaja.aspx.vb

@@ -19,6 +19,8 @@ Partial Class Bancos_DepositosCaja
         If Not IsPostBack Then
             FacturasCheckadas = 0
             TxtFecha.Text = Now.ToShortDateString
+            txtFechaI.Text = Now.AddDays(-1).ToShortDateString
+            txtFechaF.Text = Now.ToShortDateString
             CargaCuentas()
         End If
     End Sub
@@ -29,6 +31,10 @@ Partial Class Bancos_DepositosCaja
 
         DdlCajaChica.DataSource = GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveTipoCuenta = 1", "", {"CveCuenta", "NumCuentaMoneda"})
         DdlCajaChica.DataBind()
+
+        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveEmpresa, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -41,7 +47,7 @@ Partial Class Bancos_DepositosCaja
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
 
-        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero)
+        ObjBancos.GetPagosCajaChica(FechaI, FechaF, UsuarioActual.CveEmpresa, DdlCajaChica.SelectedValue.ToEntero, DdlTipoPago.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero)
 
         GvFacturas.DataSource = ObjBancos.DtResultados
         ObjBancos.Dispose()

Bancos/IE.aspx.vb

@@ -3626,7 +3626,7 @@ Partial Class Bancos_IE
                                     TipoMovimiento = False
                                 End If
 
-                                If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then
                                     IDCtaBeneficiario = IdCtaAnticipoExtranjera
                                     CveCuentaConta = 0
                                 End If
@@ -3634,7 +3634,7 @@ Partial Class Bancos_IE
                                 'MOVIMIENTOS EGRESOS
                                 If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                     Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
-                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
+                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
                                         If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                             MsgError = "Detalle"
                                         End If

Compras/Compras.aspx

@@ -4802,15 +4802,19 @@
                         </div>
                       
                         <div class="form-group form-md-line-input input-iconright">
-                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
+                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="Cantidad,CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
                                    <Columns>
+                                       <%--<%#Eval("Cantidad") %>--%>
                                         <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
-                                                <ItemTemplate>
-                                                    <asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
-                                                </ItemTemplate>
-                                            </asp:TemplateField>
+                                            <ItemTemplate>
+                                                <asp:TextBox ID="TxtCant" runat="server" Text='' Width="50px" ></asp:TextBox>
+                                                <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCant" runat="server" MinimumValue="0" Type="Double" ErrorMessage="Supera el total disponible"></asp:RangeValidator>
+                                            </ItemTemplate>
+                                       </asp:TemplateField>
+                                       <asp:BoundField DataField="Cantidad" HeaderText="Total"/>
                                        <asp:BoundField DataField="UM" headertext="UM" />
                                        <asp:BoundField DataField="CodigoPS" headertext="Producto" />
+                                       <asp:BoundField DataField="Total" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                    </Columns>
                                </asp:GridView>
                         </div>

Compras/Compras.aspx.vb

@@ -1145,7 +1145,7 @@ Partial Class Compras_Compras
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
             Modalidad = ""
-            Version = ""
+            Version = "3.3"
             CveMetodoPago = -1
             RFCProv = ""
             CargaDdlTipoGasto()
@@ -3953,6 +3953,24 @@ Partial Class Compras_Compras
             End If
         End If
 
+        'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
+        If UsuarioActual.CveEmpresa = 72 Then
+
+            Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
+            If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+                Dim StrNoEncontrados As New StringBuilder
+                StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                For Each drt As DataRow In DtNoEncontrados.Rows
+                    StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+                Next
+                Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+                DtNoEncontrados.Dispose()
+                StrNoEncontrados.Clear()
+                Exit Sub
+            End If
+            DtNoEncontrados.Dispose()
+        End If
+
         'Si se marcó No Deducible en el encabezado mínimo se debe registrar un No Deducible en el Detalle 
         Dim GuardaNoDeducibles As Boolean = False
         If ChkEsNoDeducible.Checked Then
@@ -4489,7 +4507,7 @@ Partial Class Compras_Compras
                                             CveConceptoContableAlmacen = 205
                                         End If
                                     Else
-                                    CveConceptoContableAlmacen = 225
+                                        CveConceptoContableAlmacen = 225
                                     End If
 
                                     'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
@@ -5027,7 +5045,7 @@ Partial Class Compras_Compras
 
                                         'ACTUALIZAR PRODUCTO/SERVICIO SAT
                                         If Version = "3.3" Then
-                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
+                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                                 ErrorSATPS = True
                                             End If
                                         End If
@@ -6741,7 +6759,7 @@ Partial Class Compras_Compras
                                                                     End If
 
 
-                                                                    If UsuarioActual.CveEmpresa.Contiene(119)  Then
+                                                                    If UsuarioActual.CveEmpresa.Contiene(119) Then
                                                                         Dim ContienePSNeteoBonif As Boolean = False
                                                                         For Each Dr As DataRow In TmpDT.Rows
                                                                             If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.ToEntero = 11 Then 'clasificación de Bonificación, no se incluirá en el neteo
@@ -15365,11 +15383,27 @@ Partial Class Compras_Compras
         Dim SubTotalCompra As Decimal = Amortizacion
         Dim DiferenciaPermitida = 1
         Dim Cont = 0
+        Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
         For Each gvr As GridViewRow In GvOC1.Rows
             SubTotalGV += gvr.FCTextBox("TxtTotalOC1").Text.ToDecimal
             If Cont = 0 Then DdlProveedorSucursal.SelectedValueExist(gvr.DataKey("CveProveedorSucursal").ToEntero())
             Cont = 1
+            If GvOC1.Columns(6).Visible Then
+                Dim SatPS As String = gvr.FCDropDownLost("DdlSATPS").SelectedText()
+                Dim NombreProducto As String = gvr.FCLabel("LbProductoServicio").Text
+                If SatPS.Contains("01010101") Then
+                    ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", NombreProducto)
+                    'Dim mensajeAdvertencia As String = String.Format("Al vincular una Orden de Compra no se permiten productos con Producto/Servicio SAT igual a '{0}', revise el producto '{1}' en Orden(es) de Compra Vinculada(s)", SatPS, NombreProducto)
+                    'Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+
+                End If
+            End If
         Next
+        If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+            Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         If Math.Abs(SubTotalGV - SubTotalCompra) < DiferenciaPermitida Then
             LbSubTotalDif.Visible = False
@@ -15973,6 +16007,46 @@ Partial Class Compras_Compras
 
     End Sub
 
+    Public Sub CargaIndirectosServicios()
+        If DtServicios Is Nothing Then CreaDTServicios()
+        DtServicios.Rows.Clear()
+
+        Dim objps As New ClsProductosServicios
+        Dim dr As DataRow
+        dvFacturas.Visible = False
+        GvFacturas.Visible = False
+
+        For Each DrGv As DataRow In TmpDT.Rows
+            If DrGv("CvePS").ToString.ToEntero > 0 Then
+                If objps.GetPS(DrGv("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+                    If objps.DtResultados(0)("CveTipoPS").ToString.ToEntero = 1 Then
+                        dr = DtServicios.NewRow()
+                        dr("Consec") = DrGv("Consec").ToString.ToEntero
+                        dr("Total") = DrGv("Total").ToString.ToDecimal
+                        dr("CvePS") = DrGv("CvePS").ToString.ToEntero
+                        dr("PS") = DrGv("PS").ToString
+                        DtServicios.Rows.Add(dr)
+                    End If
+                End If
+            End If
+        Next
+
+        objps.Dispose()
+
+        If DtServicios.Rows.Count > 0 Then
+            GVServicios.DataSource = DtServicios
+            GVServicios.DataBind()
+            GVServicios.Visible = True
+        Else
+            GVServicios.DataSource = Nothing
+            GVServicios.DataBind()
+        End If
+
+        UpGVServicios.Update()
+        UpFacturas.Update()
+        UPGVFacturas.Update()
+    End Sub
+
     Public Sub btnAgregarFlete_Click(sender As Object, e As EventArgs) Handles BtnAgregarFlete.Click
 
         Dim ListaConsecutivas As New List(Of String) 'Almacena los consecutivos que pertenecen al almacen
@@ -16025,7 +16099,7 @@ Partial Class Compras_Compras
         ''Marcamos todos los almacenes como check
         'GvInv.HeaderRow.FCCheckBox("cbAll").Checked = True
         'cbAll_CheckedChanged(Nothing, Nothing)
-
+        RegistraScript("$('#ModalFletesImportaciones').modal('hide');")
     End Sub
 
     Private Sub CargaGastosServicios(CvePS As Integer)
@@ -17621,8 +17695,17 @@ Partial Class Compras_Compras
         ActualizaTotales = True
         Select Case Modalidad
             Case "A" 'ADD
+
+                Dim SATClavePS = -1
+                Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
+                If PSRow IsNot Nothing Then
+                    SATClavePS = PSRow("SATClavePS").ToString.ToEntero
+                End If
+
                 AddPS(TxtCantidad.Text.Trim.ToDouble, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
-                         DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2), TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text, NoDeducible:=ChkEsNoDeduciblePS.Checked)
+                      DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDouble, Total, Math.Round(DdlIVA.SelectedValue.ToDouble - 1, 2),
+                      TxtRetIVAModal.Text.ToDouble / 100, TxtRetISRModal.Text.ToDouble / 100, TxtIEPSModal.Text.ToDouble / 100, 0, TxtDescuentoModal.Text.ToDouble, OtrosGastos:=TxtOtrosGastos.Text.ToDouble, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
+                      NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS)
 
                 AddPS2()
                 LimpiaAgregar()
@@ -18157,7 +18240,7 @@ Partial Class Compras_Compras
         CvePS = DdlPSAlias2.SelectedValue.ToEntero
         tPS = DdlPSAlias2.SelectedText
 
-        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS) Then
+        If PS.AddPSAlias(System.Web.HttpUtility.HtmlDecode(TxtPSAlias.Text.Trim), CvePS, UsuarioActual.CveUsuario) Then
             GlobalDTProductosServiciosAlias(-1) = PS.DtResultados
 
             TmpDT.Rows(HdnAliasInd.Value.ToEntero)("CvePS") = CvePS
@@ -18504,6 +18587,14 @@ Partial Class Compras_Compras
         UPPSolDev.Update()
 
     End Sub
+
+    Private Sub GvSolDev_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvSolDev.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Dim ExistenciasAux As Decimal = e.Row.DataKey("Cantidad").ToDecimal
+            e.Row.FCRangeValidator("RVR").MaximumValue = ExistenciasAux.ToString
+        End If
+    End Sub
+
     Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
         Dim TieneError As Boolean = False
@@ -20058,6 +20149,9 @@ Partial Class Compras_Compras
 
         DivGastosyServicios.Visible = MostrarGastosServicios
         DivGastosyServiciosFooter.Visible = MostrarGastosServicios
+        If MostrarGastosServicios Then
+            CargaIndirectosServicios()
+        End If
 
         DivVincularCrear.Visible = Not MostrarGastosServicios
         DivVincularCrearFooter.Visible = Not MostrarGastosServicios

Compras/PopUpVerFactura.aspx.vb

@@ -2703,6 +2703,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("LogoPath", ""))
                     End If
 
+                    Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio))
+                    Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Capturo))
+
                     params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("Concepto", "Salida por resguardo"))
                     params.Add(New ReportParameter("Almacen", Almacen))
@@ -2712,12 +2715,17 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("Descuentos", ""))
                     params.Add(New ReportParameter("IVA", ""))
                     params.Add(New ReportParameter("Total", ""))
-                    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
                     params.Add(New ReportParameter("NombreRecibio", Recibio))
                     params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego))
                     params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio))
 
+                    If UsuarioActual.CveEmpresa = 72 Then
+                        params.Add(New ReportParameter("Sucursal", SubProyecto))
+                        params.Add(New ReportParameter("DepartamenteRecibio", DepartamentoRecibe))
+                        params.Add(New ReportParameter("DepartamentoEntrego", DepartamentoEntrego))
 
+                    End If
                     params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy")))
                     params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo))
                     params.Add(New ReportParameter("Observaciones", Observaciones))

Compras/RepComprasDetalle.aspx.vb

@@ -153,7 +153,7 @@ Partial Class Compras_RepComprasDetalle
         DdlGrupo.SelectedValueExist(Grupo)
         DdlProveedores.SelectedValue = Proveedor
         If DdlProveedores.SelectedValue.ToEntero > 0 Then
-            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=DdlProveedores.SelectedValue.ToEntero).FiltroPrimeroValor("RazonSocial", "").ToString
         Else
             DdlProveedores.SelectedText = "Todos"
         End If

Compras/eFacturas.aspx

@@ -216,7 +216,7 @@
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Importe">
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlTotal" runat="server" Text='<%# String.Format("{0} {1}", Eval("Total", "{0:N2}"), Eval("Abreviatura")) %>'></asp:Literal>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" />
                                 </asp:TemplateField>

Contabilidad/ContabilizacionVentas.aspx.cs

@@ -344,7 +344,7 @@ public partial class Contabilidad_ContabilizacionVentas : ClsPaginas
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"));
             }
-            if (CveConcepto.Contiene(2, 4, 13, 61, 38, 39, 1, 203, 207, 251))
+            if (CveConcepto.Contiene(1, 2, 4, 13, 61, 38, 39,  150, 203, 207, 251))
             {
                 e.Row.FCHyperLink("HplC").NavigateUrl = string.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta"));
             }

Empresas/1/Formatos/ResguardoAF.rdlc

@@ -535,7 +535,7 @@
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>7.37187cm</Height>
+          <Height>7.35216cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -557,7 +557,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>0.07053cm</Top>
+              <Top>0.07054cm</Top>
               <Left>0.11166cm</Left>
               <Height>0.6cm</Height>
               <Width>2.77516cm</Width>
@@ -588,7 +588,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>0.1058cm</Top>
+              <Top>0.10581cm</Top>
               <Left>2.9221cm</Left>
               <Height>1.2cm</Height>
               <Width>13.85147cm</Width>
@@ -604,7 +604,7 @@
               </Style>
             </Textbox>
             <Line Name="Line4">
-              <Top>0.10581cm</Top>
+              <Top>0.10582cm</Top>
               <Left>0.05604cm</Left>
               <Height>0cm</Height>
               <Width>16.76689cm</Width>
@@ -616,7 +616,7 @@
               </Style>
             </Line>
             <Line Name="Line3">
-              <Top>1.3058cm</Top>
+              <Top>1.30581cm</Top>
               <Left>0.11166cm</Left>
               <Height>0cm</Height>
               <Width>16.71127cm</Width>
@@ -646,7 +646,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.65886cm</Top>
+              <Top>1.65887cm</Top>
               <Left>0.55741cm</Left>
               <Height>0.63528cm</Height>
               <Width>7.11779cm</Width>
@@ -692,7 +692,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>2.85337cm</Top>
+              <Top>2.85338cm</Top>
               <Left>0.55115cm</Left>
               <Height>0.90367cm</Height>
               <Width>7.11779cm</Width>
@@ -726,7 +726,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>1.3058cm</Top>
+              <Top>1.30581cm</Top>
               <Left>0.56367cm</Left>
               <Height>0.6cm</Height>
               <Width>7.11153cm</Width>
@@ -760,7 +760,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.62358cm</Top>
+              <Top>1.62359cm</Top>
               <Left>9.66204cm</Left>
               <Height>0.63528cm</Height>
               <Width>7.11779cm</Width>
@@ -806,7 +806,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>2.85337cm</Top>
+              <Top>2.85338cm</Top>
               <Left>9.65578cm</Left>
               <Height>0.90367cm</Height>
               <Width>7.11779cm</Width>
@@ -840,7 +840,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>1.3058cm</Top>
+              <Top>1.30581cm</Top>
               <Left>9.66204cm</Left>
               <Height>0.6cm</Height>
               <Width>7.11779cm</Width>
@@ -873,7 +873,7 @@
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox17</rd:DefaultName>
-              <Top>3.82759cm</Top>
+              <Top>3.8276cm</Top>
               <Left>0.00042cm</Left>
               <Height>1.36498cm</Height>
               <Width>16.77315cm</Width>
@@ -888,51 +888,6 @@
                 <PaddingBottom>2pt</PaddingBottom>
               </Style>
             </Textbox>
-            <Textbox Name="Textbox8">
-              <CanGrow>true</CanGrow>
-              <KeepTogether>true</KeepTogether>
-              <Paragraphs>
-                <Paragraph>
-                  <TextRuns>
-                    <TextRun>
-                      <Value>Fecha Impresión:</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                        <FontWeight>Bold</FontWeight>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value xml:space="preserve"> </Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                    <TextRun>
-                      <Value>=Today</Value>
-                      <Style>
-                        <FontSize>8pt</FontSize>
-                      </Style>
-                    </TextRun>
-                  </TextRuns>
-                  <Style />
-                </Paragraph>
-              </Paragraphs>
-              <rd:DefaultName>Textbox8</rd:DefaultName>
-              <Top>6.50728cm</Top>
-              <Left>0.11166cm</Left>
-              <Height>0.6cm</Height>
-              <Width>6.86562cm</Width>
-              <ZIndex>11</ZIndex>
-              <Style>
-                <Border>
-                  <Style>None</Style>
-                </Border>
-                <PaddingLeft>2pt</PaddingLeft>
-                <PaddingRight>2pt</PaddingRight>
-                <PaddingTop>2pt</PaddingTop>
-                <PaddingBottom>2pt</PaddingBottom>
-              </Style>
-            </Textbox>
           </ReportItems>
           <Style>
             <Border>

Empresas/1/Formatos/ResguardoAF2.rdlc

@@ -916,51 +916,6 @@
             <PaddingBottom>2pt</PaddingBottom>
           </Style>
         </Textbox>
-        <Textbox Name="Textbox8">
-          <CanGrow>true</CanGrow>
-          <KeepTogether>true</KeepTogether>
-          <Paragraphs>
-            <Paragraph>
-              <TextRuns>
-                <TextRun>
-                  <Value>Fecha Impresión:</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                    <FontWeight>Bold</FontWeight>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value xml:space="preserve"> </Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-                <TextRun>
-                  <Value>=Today</Value>
-                  <Style>
-                    <FontSize>8pt</FontSize>
-                  </Style>
-                </TextRun>
-              </TextRuns>
-              <Style />
-            </Paragraph>
-          </Paragraphs>
-          <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>8.22649cm</Top>
-          <Left>0.16462cm</Left>
-          <Height>0.6cm</Height>
-          <Width>6.86562cm</Width>
-          <ZIndex>11</ZIndex>
-          <Style>
-            <Border>
-              <Style>None</Style>
-            </Border>
-            <PaddingLeft>2pt</PaddingLeft>
-            <PaddingRight>2pt</PaddingRight>
-            <PaddingTop>2pt</PaddingTop>
-            <PaddingBottom>2pt</PaddingBottom>
-          </Style>
-        </Textbox>
       </ReportItems>
       <Style>
         <Border>

Empresas/145/Formatos/NotaDevolucion.rdlc

@@ -3301,6 +3301,198 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="ClienteDiasCredito">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="MonedaAbreviatura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDireccion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioContacto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EnvioDepartamento">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusFactura">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="EstatusEntrega">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="PedidoContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="DescripcionContrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="OrdenCompra">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsoCFDI">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="TipoRelacionTexto">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FolioFiscalRelacionado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteDatoExtra1">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Contrato">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCalle">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteColonia">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCiudad">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteMunicipio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteEstado">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteCP">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClientePais">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoInt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="ClienteNoExt">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="Logo">

Empresas/72/Formatos/Factura.rdlc

@@ -787,7 +787,7 @@
               <BreakLocation>Start</BreakLocation>
             </PageBreak>
             <KeepTogether>true</KeepTogether>
-            <Top>9.87049in</Top>
+            <Top>9.18657in</Top>
             <Left>0.06548in</Left>
             <Height>1.67778in</Height>
             <Width>8.23221in</Width>
@@ -1367,7 +1367,7 @@
               </Image>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>7.30179in</Top>
+            <Top>6.61787in</Top>
             <Left>0.05817in</Left>
             <Height>1.3508in</Height>
             <Width>8.23035in</Width>
@@ -3408,7 +3408,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox54</rd:DefaultName>
-            <Top>6.7921in</Top>
+            <Top>6.10818in</Top>
             <Left>0.16632cm</Left>
             <Height>0.36385in</Height>
             <Width>4.94037in</Width>
@@ -3444,7 +3444,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox33</rd:DefaultName>
-            <Top>17.25192cm</Top>
+            <Top>15.51477cm</Top>
             <Left>12.71485cm</Left>
             <Height>0.44794cm</Height>
             <Width>8.33799cm</Width>
@@ -3474,7 +3474,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>18.31722cm</Top>
+            <Top>16.58007cm</Top>
             <Left>0.16632cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.88652cm</Width>
@@ -3732,7 +3732,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>14.71903cm</Top>
+            <Top>12.98188cm</Top>
             <Left>0.14775cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.90509cm</Width>
@@ -4038,7 +4038,7 @@
               </TablixMembers>
             </TablixRowHierarchy>
             <DataSetName>DsOC</DataSetName>
-            <Top>15.01537cm</Top>
+            <Top>13.27822cm</Top>
             <Left>3.16661cm</Left>
             <Height>1.61479cm</Height>
             <Width>15.04148cm</Width>
@@ -4067,7 +4067,7 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>16.9459cm</Top>
+            <Top>15.20875cm</Top>
             <Left>0.22358cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.90509cm</Width>
@@ -4097,24 +4097,6 @@
               </Border>
             </Style>
           </Image>
-          <Image Name="Image2">
-            <Source>Embedded</Source>
-            <Value>BannerFacturaSIG</Value>
-            <Sizing>Fit</Sizing>
-            <Top>12.35498cm</Top>
-            <Left>0.14775cm</Left>
-            <Height>2.18766cm</Height>
-            <Width>10.48062cm</Width>
-            <ZIndex>25</ZIndex>
-            <Visibility>
-              <Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
-            </Visibility>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-            </Style>
-          </Image>
           <Textbox Name="ImporteLetra">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -4140,7 +4122,7 @@
             <Left>2.22035in</Left>
             <Height>0.18861in</Height>
             <Width>6.06817in</Width>
-            <ZIndex>26</ZIndex>
+            <ZIndex>25</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -4416,7 +4398,7 @@
             <Left>0.06548in</Left>
             <Height>0.34081in</Height>
             <Width>2.08542in</Width>
-            <ZIndex>27</ZIndex>
+            <ZIndex>26</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -4910,11 +4892,11 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>22.07352cm</Top>
+            <Top>20.33637cm</Top>
             <Left>0.14775cm</Left>
             <Height>2.97096cm</Height>
             <Width>20.69254cm</Width>
-            <ZIndex>28</ZIndex>
+            <ZIndex>27</ZIndex>
             <Visibility>
               <Hidden>=Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") &lt;&gt; "", False, True)</Hidden>
             </Visibility>
@@ -4925,7 +4907,7 @@
             </Style>
           </Rectangle>
         </ReportItems>
-        <Height>29.49675cm</Height>
+        <Height>27.72404cm</Height>
         <Style />
       </Body>
       <Width>21.12867cm</Width>

Empresas/72/Formatos/NotaCredito.rdlc

@@ -254,7 +254,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>6.98284in</Top>
+        <Top>6.54534in</Top>
         <Left>0.17798in</Left>
         <Height>0.98611in</Height>
         <Width>8.09734in</Width>
@@ -1186,7 +1186,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>4.34222in</Top>
+        <Top>3.90472in</Top>
         <Left>0.14966in</Left>
         <Height>2.61856in</Height>
         <Width>8.22763in</Width>
@@ -1494,7 +1494,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>10.74498cm</Top>
+        <Top>9.63373cm</Top>
         <Left>0.48382cm</Left>
         <Height>0.14316cm</Height>
         <Width>20.56724cm</Width>
@@ -1583,7 +1583,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1591,7 +1591,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1599,7 +1599,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1607,15 +1607,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
+                <Value>Aguascalientes, Ags.  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1623,7 +1615,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1631,33 +1623,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
+                  <FontSize>11pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -1678,21 +1647,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -1702,29 +1663,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -1821,30 +1766,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Line Name="Line5">
-        <Top>1.69533cm</Top>
-        <Left>6.74703cm</Left>
-        <Height>0.38833cm</Height>
-        <Width>0cm</Width>
-        <ZIndex>10</ZIndex>
-        <Style>
-          <Border>
-            <Style>Solid</Style>
-          </Border>
-        </Style>
-      </Line>
-      <Line Name="Line7">
-        <Top>1.72708cm</Top>
-        <Left>9.41258cm</Left>
-        <Height>0.38833cm</Height>
-        <Width>0cm</Width>
-        <ZIndex>11</ZIndex>
-        <Style>
-          <Border>
-            <Style>Solid</Style>
-          </Border>
-        </Style>
-      </Line>
       <Textbox Name="Textbox32">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -1907,7 +1828,7 @@
         <Left>0.48382cm</Left>
         <Height>1.14285cm</Height>
         <Width>4.08234cm</Width>
-        <ZIndex>12</ZIndex>
+        <ZIndex>10</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2169,7 +2090,7 @@
         <Left>5.29091in</Left>
         <Height>1.51932in</Height>
         <Width>2.9844in</Width>
-        <ZIndex>13</ZIndex>
+        <ZIndex>11</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2748,7 +2669,7 @@
         <Left>0.17067in</Left>
         <Height>0.37206in</Height>
         <Width>8.10465in</Width>
-        <ZIndex>14</ZIndex>
+        <ZIndex>12</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2777,7 +2698,7 @@
         <Left>0.4335cm</Left>
         <Height>0.43419cm</Height>
         <Width>20.41027cm</Width>
-        <ZIndex>15</ZIndex>
+        <ZIndex>13</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2788,21 +2709,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Image Name="Image2">
-        <Source>Embedded</Source>
-        <Value>Microsoft</Value>
-        <Sizing>Fit</Sizing>
-        <Top>8.23074cm</Top>
-        <Left>0.5393cm</Left>
-        <Height>2.37313cm</Height>
-        <Width>11.6363cm</Width>
-        <ZIndex>16</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
       <Textbox Name="Textbox9">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -2822,7 +2728,7 @@
         <Left>14.3522cm</Left>
         <Height>0.14316cm</Height>
         <Width>6.66711cm</Width>
-        <ZIndex>17</ZIndex>
+        <ZIndex>14</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2859,7 +2765,7 @@
         <Left>3.58384in</Left>
         <Height>0.18861in</Height>
         <Width>4.69148in</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>15</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2977,15 +2883,39 @@
         <Left>14.3787cm</Left>
         <Height>0.48004cm</Height>
         <Width>6.64061cm</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>16</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
           </Border>
         </Style>
       </Tablix>
+      <Line Name="Line5">
+        <Top>1.53874cm</Top>
+        <Left>6.09322cm</Left>
+        <Height>0.38617cm</Height>
+        <Width>0cm</Width>
+        <ZIndex>17</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Line Name="Line6">
+        <Top>1.53874cm</Top>
+        <Left>8.82941cm</Left>
+        <Height>0.38617cm</Height>
+        <Width>0cm</Width>
+        <ZIndex>18</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
     </ReportItems>
-    <Height>20.24114cm</Height>
+    <Height>19.3151cm</Height>
     <Style />
   </Body>
   <Width>21.27832cm</Width>

Empresas/72/Formatos/NotaDevolucion.rdlc

@@ -254,7 +254,7 @@
           </Textbox>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>5.71563in</Top>
+        <Top>5.21563in</Top>
         <Left>0.05298in</Left>
         <Height>0.98611in</Height>
         <Width>8.29986in</Width>
@@ -655,7 +655,7 @@
           </Image>
         </ReportItems>
         <KeepTogether>true</KeepTogether>
-        <Top>4.19067in</Top>
+        <Top>3.69067in</Top>
         <Left>0.04839in</Left>
         <Height>1.39013in</Height>
         <Width>8.30445in</Width>
@@ -963,7 +963,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>10.41499cm</Top>
+        <Top>9.14499cm</Top>
         <Left>0.13457cm</Left>
         <Height>0.14316cm</Height>
         <Width>21.08165cm</Width>
@@ -994,7 +994,7 @@
           </Paragraph>
         </Paragraphs>
         <rd:DefaultName>Textbox5</rd:DefaultName>
-        <Top>14.28108cm</Top>
+        <Top>13.01108cm</Top>
         <Left>0.16632cm</Left>
         <Height>0.14316cm</Height>
         <Width>21.0499cm</Width>
@@ -1083,7 +1083,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1091,7 +1091,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1099,7 +1099,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1107,15 +1107,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
+                <Value>Aguascalientes, Ags.  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -1123,7 +1115,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -1131,33 +1123,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
+                  <FontSize>11pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -1178,21 +1147,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -1202,29 +1163,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -1323,7 +1268,7 @@
       </Textbox>
       <Line Name="Line5">
         <Top>1.69533cm</Top>
-        <Left>6.42953cm</Left>
+        <Left>5.79453cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>11</ZIndex>
@@ -1335,7 +1280,7 @@
       </Line>
       <Line Name="Line7">
         <Top>1.72708cm</Top>
-        <Left>9.09508cm</Left>
+        <Left>8.46008cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>12</ZIndex>
@@ -2274,21 +2219,6 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
-      <Image Name="Image2">
-        <Source>Embedded</Source>
-        <Value>Microsoft</Value>
-        <Sizing>Fit</Sizing>
-        <Top>8.19546cm</Top>
-        <Left>0.116cm</Left>
-        <Height>2.03729cm</Height>
-        <Width>11.6363cm</Width>
-        <ZIndex>17</ZIndex>
-        <Style>
-          <Border>
-            <Style>None</Style>
-          </Border>
-        </Style>
-      </Image>
       <Textbox Name="Textbox9">
         <CanGrow>true</CanGrow>
         <KeepTogether>true</KeepTogether>
@@ -2308,7 +2238,7 @@
         <Left>14.54911cm</Left>
         <Height>0.14316cm</Height>
         <Width>6.66711cm</Width>
-        <ZIndex>18</ZIndex>
+        <ZIndex>17</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2345,7 +2275,7 @@
         <Left>3.1938in</Left>
         <Height>0.18861in</Height>
         <Width>5.15904in</Width>
-        <ZIndex>19</ZIndex>
+        <ZIndex>18</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2463,7 +2393,7 @@
         <Left>14.57561cm</Left>
         <Height>0.48004cm</Height>
         <Width>6.64061cm</Width>
-        <ZIndex>20</ZIndex>
+        <ZIndex>19</ZIndex>
         <Style>
           <Border>
             <Style>None</Style>
@@ -2471,7 +2401,7 @@
         </Style>
       </Tablix>
     </ReportItems>
-    <Height>17.08592cm</Height>
+    <Height>15.763cm</Height>
     <Style />
   </Body>
   <Width>21.25578cm</Width>

Empresas/72/Formatos/Pedido.rdlc

@@ -285,7 +285,7 @@
           <Paragraph>
             <TextRuns>
               <TextRun>
-                <Value xml:space="preserve">     </Value>
+                <Value xml:space="preserve">             </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -293,7 +293,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>                     Culiacán, Sin.   </Value>
+                <Value>Culiacán, Sin.                  Tijuana, B.C</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -301,7 +301,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve"> </Value>
+                <Value>.               </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -309,15 +309,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Tijuana, B.C</Value>
+                <Value>Aguascalientes, Ags.  </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>6.37pt</FontSize>
@@ -325,7 +317,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>.</Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>7pt</FontSize>
@@ -333,33 +325,10 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">                     </Value>
+                <Value xml:space="preserve">                 </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value>Aguascalientes, Ags.</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>6.37pt</FontSize>
-                  <FontWeight>SemiBold</FontWeight>
-                </Style>
-              </TextRun>
-            </TextRuns>
-            <Style>
-              <TextAlign>Left</TextAlign>
-            </Style>
-          </Paragraph>
-          <Paragraph>
-            <TextRuns>
-              <TextRun>
-                <Value xml:space="preserve">                     </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>7pt</FontSize>
+                  <FontSize>11pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
@@ -380,21 +349,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value xml:space="preserve">  </Value>
+                <Value xml:space="preserve">       </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
                   <FontWeight>Bold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">          </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(664)</Value>
                 <Style>
@@ -404,29 +365,13 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>645 1814</Value>
+                <Value>645 1814         </Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>9.1pt</FontSize>
                   <FontWeight>SemiBold</FontWeight>
                 </Style>
               </TextRun>
-              <TextRun>
-                <Value xml:space="preserve"> </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>8pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
-              <TextRun>
-                <Value xml:space="preserve">         </Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>11pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>(449)</Value>
                 <Style>
@@ -671,7 +616,7 @@
       </Textbox>
       <Line Name="Line5">
         <Top>1.69533cm</Top>
-        <Left>6.87784cm</Left>
+        <Left>6.24284cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>6</ZIndex>
@@ -683,7 +628,7 @@
       </Line>
       <Line Name="Line7">
         <Top>1.72708cm</Top>
-        <Left>9.54339cm</Left>
+        <Left>8.90839cm</Left>
         <Height>0.38833cm</Height>
         <Width>0cm</Width>
         <ZIndex>7</ZIndex>

Empresas/72/Formatos/Remision.rdlc

@@ -629,7 +629,7 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>5.80313in</Top>
+            <Top>4.96563in</Top>
             <Left>0.04506in</Left>
             <Height>1.52153in</Height>
             <Width>8.22304in</Width>
@@ -1076,7 +1076,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value>
+                    <Value>=Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "MATRIZ" or Parameters!Sucursal.Value = "Hermosillo", "(662) 214 2200", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Tijuana", "(664) 645 1814", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Culiacán", "(667) 715 8533", Microsoft.VisualBasic.Interaction.IIF(Parameters!Sucursal.Value = "Aguascalientes", "(449) 913 4418", ""))))</Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11.78pt</FontSize>
@@ -1116,7 +1116,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value>                     Culiacán, Sin.   </Value>
+                    <Value>       Culiacán, Sin.  </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>6.37pt</FontSize>
@@ -1124,15 +1124,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve"> </Value>
-                    <Style>
-                      <FontFamily>Myriad Pro</FontFamily>
-                      <FontSize>7pt</FontSize>
-                      <FontWeight>Bold</FontWeight>
-                    </Style>
-                  </TextRun>
-                  <TextRun>
-                    <Value xml:space="preserve">                          </Value>
+                    <Value xml:space="preserve">                  </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1156,7 +1148,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">                     </Value>
+                    <Value xml:space="preserve">                  </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>8pt</FontSize>
@@ -1173,13 +1165,13 @@
                   </TextRun>
                 </TextRuns>
                 <Style>
-                  <TextAlign>Left</TextAlign>
+                  <TextAlign>Center</TextAlign>
                 </Style>
               </Paragraph>
               <Paragraph>
                 <TextRuns>
                   <TextRun>
-                    <Value xml:space="preserve">                     </Value>
+                    <Value xml:space="preserve">        </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>7pt</FontSize>
@@ -1211,7 +1203,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">          </Value>
+                    <Value>   |     </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11pt</FontSize>
@@ -1243,7 +1235,7 @@
                     </Style>
                   </TextRun>
                   <TextRun>
-                    <Value xml:space="preserve">         </Value>
+                    <Value>     |     </Value>
                     <Style>
                       <FontFamily>Myriad Pro</FontFamily>
                       <FontSize>11pt</FontSize>
@@ -1268,15 +1260,15 @@
                   </TextRun>
                 </TextRuns>
                 <Style>
-                  <TextAlign>Left</TextAlign>
+                  <TextAlign>Center</TextAlign>
                 </Style>
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox10</rd:DefaultName>
             <Top>0.13104cm</Top>
-            <Left>3.45239cm</Left>
+            <Left>3.23917cm</Left>
             <Height>2.14312cm</Height>
-            <Width>9.51761cm</Width>
+            <Width>10.69394cm</Width>
             <ZIndex>4</ZIndex>
             <Style>
               <Border>
@@ -1524,30 +1516,6 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
-          <Line Name="Line5">
-            <Top>1.69533cm</Top>
-            <Left>6.87784cm</Left>
-            <Height>0.38833cm</Height>
-            <Width>0cm</Width>
-            <ZIndex>7</ZIndex>
-            <Style>
-              <Border>
-                <Style>Solid</Style>
-              </Border>
-            </Style>
-          </Line>
-          <Line Name="Line7">
-            <Top>1.72708cm</Top>
-            <Left>9.54339cm</Left>
-            <Height>0.38833cm</Height>
-            <Width>0cm</Width>
-            <ZIndex>8</ZIndex>
-            <Style>
-              <Border>
-                <Style>Solid</Style>
-              </Border>
-            </Style>
-          </Line>
           <Textbox Name="Textbox36">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -1874,7 +1842,7 @@
             <Left>9.54339cm</Left>
             <Height>5.00803cm</Height>
             <Width>6.98968cm</Width>
-            <ZIndex>9</ZIndex>
+            <ZIndex>7</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1986,7 +1954,7 @@
             <Left>16.60715cm</Left>
             <Height>4.98157cm</Height>
             <Width>4.44569cm</Width>
-            <ZIndex>10</ZIndex>
+            <ZIndex>8</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2569,7 +2537,7 @@
             <Left>0.06548in</Left>
             <Height>0.37206in</Height>
             <Width>8.22304in</Width>
-            <ZIndex>11</ZIndex>
+            <ZIndex>9</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2595,7 +2563,7 @@
             <Left>0.16632cm</Left>
             <Height>0.14316cm</Height>
             <Width>20.88652cm</Width>
-            <ZIndex>12</ZIndex>
+            <ZIndex>10</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2607,24 +2575,6 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
-          <Image Name="Image2">
-            <Source>Embedded</Source>
-            <Value>BannerFacturaSIG</Value>
-            <Sizing>Fit</Sizing>
-            <Top>11.12025cm</Top>
-            <Left>0.22358cm</Left>
-            <Height>2.18766cm</Height>
-            <Width>10.48062cm</Width>
-            <ZIndex>13</ZIndex>
-            <Visibility>
-              <Hidden>=iif(len(Parameters!Observaciones.Value) &gt; 100, true,false)</Hidden>
-            </Visibility>
-            <Style>
-              <Border>
-                <Style>None</Style>
-              </Border>
-            </Style>
-          </Image>
           <Textbox Name="Textbox9">
             <CanGrow>true</CanGrow>
             <KeepTogether>true</KeepTogether>
@@ -2644,7 +2594,7 @@
             <Left>15.11602cm</Left>
             <Height>0.14316cm</Height>
             <Width>5.93682cm</Width>
-            <ZIndex>14</ZIndex>
+            <ZIndex>11</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2681,7 +2631,7 @@
             <Left>1.063in</Left>
             <Height>0.18861in</Height>
             <Width>7.22552in</Width>
-            <ZIndex>15</ZIndex>
+            <ZIndex>12</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2707,11 +2657,11 @@
               </Paragraph>
             </Paragraphs>
             <rd:DefaultName>Textbox5</rd:DefaultName>
-            <Top>14.44724cm</Top>
+            <Top>12.31999cm</Top>
             <Left>0.16632cm</Left>
             <Height>0.0882cm</Height>
             <Width>20.66427cm</Width>
-            <ZIndex>16</ZIndex>
+            <ZIndex>13</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2745,7 +2695,7 @@
             <Left>0.19807cm</Left>
             <Height>0.34219cm</Height>
             <Width>14.74156cm</Width>
-            <ZIndex>17</ZIndex>
+            <ZIndex>14</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2863,7 +2813,7 @@
             <Left>15.11602cm</Left>
             <Height>0.48004cm</Height>
             <Width>5.93682cm</Width>
-            <ZIndex>18</ZIndex>
+            <ZIndex>15</ZIndex>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -2895,7 +2845,7 @@
             <Left>5.58063cm</Left>
             <Height>0.6cm</Height>
             <Width>5.12357cm</Width>
-            <ZIndex>19</ZIndex>
+            <ZIndex>16</ZIndex>
             <Visibility>
               <Hidden>=iif(Parameters!EstatusFactura.Value&lt;&gt;"",False,True)</Hidden>
             </Visibility>
@@ -2935,7 +2885,7 @@
             <Left>5.58063cm</Left>
             <Height>0.6cm</Height>
             <Width>5.12357cm</Width>
-            <ZIndex>20</ZIndex>
+            <ZIndex>17</ZIndex>
             <Visibility>
               <Hidden>=iif(Parameters!EstatusEntrega.Value&lt;&gt;"",False,True)</Hidden>
             </Visibility>
@@ -2951,7 +2901,7 @@
             </Style>
           </Textbox>
         </ReportItems>
-        <Height>18.76339cm</Height>
+        <Height>16.69964cm</Height>
         <Style />
       </Body>
       <Width>21.15868cm</Width>

General/RepPaqueteriasGuias.aspx.cs

@@ -264,7 +264,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
             DdlEstatus.Items.Insert(3, new ListItem("Entregado ", "3"));
             DdlEstatus.Items.Insert(4, new ListItem("Reasignar Nueva Entrega ", "4"));
             DdlEstatus.Items.Insert(5, new ListItem("Directo a Clientes ", "5"));
-            DdlEstatus.SelectedValue = "-1";
+            DdlEstatus.SelectedValue = "2";
         }
 
         DdlEstatusEditar.Items.Insert(0, new ListItem("Seleccione ", "-1"));

Inicio.aspx

@@ -907,7 +907,7 @@
 
                     <asp:GridView ID="gvCancelaPendiente" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron factura canceladas pendientes"
                         DataKeyNames="FolioFiscal,RFC,Total"
-                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" Style="text-align: center;" GridLines="None" Width="99%">
+                        CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="99%">
                         <Columns>
                             <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText="Folio Fiscal">
                                 <ItemTemplate>
@@ -916,10 +916,10 @@
                                     </div>
                                 </ItemTemplate>
                             </asp:TemplateField>
-                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
-                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
-                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right" />
-                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Center" />
+                            <asp:BoundField HeaderText="Serie Folio" DataField="SerieFolio" ItemStyle-Width="10%" />
+                            <asp:BoundField HeaderText="Proveedor" DataField="NombreProveedor" ItemStyle-Width="50%"  />
+                            <asp:BoundField HeaderText="Importe" DataField="Total" DataFormatString="{0:N2}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" />
+                            <asp:BoundField HeaderText="Fecha" DataField="Fecha" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" />
                             <%--<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" HeaderText=" ">
                                 <ItemTemplate>
                                     <asp:LinkButton runat="server"  CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-plus'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Agregar la factura?" data-btn-ok-label="si"></asp:LinkButton>

Inicio.aspx.vb

@@ -36,7 +36,7 @@ Partial Class Inicio
                     If objventas.GetFacturasCanceladasPendientes(sb.ToString(), CveEmpresa) Then
                         retorno = True
                     End If
-
+                    gvCancelaPendiente.DataSource = objventas.DtResultados
                 Else
                     If showalert Then
                         Alert("No se encontraron cancelaciones pendientes", ModExtensiones.TipoMensaje.MsgError)
@@ -50,6 +50,7 @@ Partial Class Inicio
             retorno = False
             Me.OnError("Error al obtener cancelaciones pendientes: ", ex, "")
         End Try
+        gvCancelaPendiente.DataBind()
         Return retorno
     End Function
 

Inventarios/AjustesSeccionAlmacen.aspx

@@ -80,7 +80,7 @@
                     <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>
                             <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
-                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="100%" />
+                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="35px" />
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -65,11 +65,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     Private Sub BtnCambiarSeccion_Click(sender As Object, e As EventArgs) Handles BtnCambiarSeccion.Click
         Dim ObjInventario As New ClsInventarios
         Dim ObjPS As New ClsProductosServicios(ObjInventario.IniciaTransacSQL)
+        Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
         Dim Dtt As DataTable = Nothing
         Dim CveMovimientoEntrada As Integer = 0
         Dim Folio = 0
         Dim ErrorMovInv As Boolean = False
         Dim TextoError = ""
+        Dim Contador As Integer = 0
         Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero
 
 
@@ -106,12 +108,13 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         TextoError = "Ocurrió un error al guardar los movimientos de salida"
                         Exit For
                     End If
+                    Contador += 1
 
                 End If
 
             Next
 
-            If Not ErrorMovInv Then
+            If Not ErrorMovInv AndAlso Contador > 0 Then
 
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
@@ -121,7 +124,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
 
                     For Each Row As DataRow In resultado.Rows
                         Dim CvePS = Row("CvePS").ToString().ToEntero()
-                        Dim Cantidad As Decimal = Row("Cantidad").ToString().ToDecimal()
+                        Cantidad = Row("Cantidad").ToString.ToDecimal()
                         Dim PU As Decimal = Row("PUOriginal").ToString().ToDecimal()
                         Dim CveUM As Integer = Row("CveUM").ToString().ToEntero()
                         Dim CveSeccionAlmacen As Integer = Lista(Row("CvePS").ToString().ToEntero()) 'GvD.Rows(ind).FCDropDownList("DDlS").SelectedValue.ToEntero ' IfNull(Row("CveSeccionAlmacen"), "-1").ToString().ToEntero()
@@ -143,8 +146,23 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                         End If
                         ind += 1
                     Next
-                    resultado.Dispose()
 
+                    'inserto la prepoliza
+                    If CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
+                        Dim Concepto As String = "Ajuste Sección"
+                        Dim IdCtaContableOrigen As Integer = 0
+                        Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
+                        Dim contabilizable As Boolean = False
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=contabilizable, ImporteMX:=importe) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                    resultado.Dispose()
                 Else
                     TextoError = "No se pudo registrar el movimiento"
                     ErrorMovInv = True
@@ -155,16 +173,25 @@ Partial Class Inventarios_AjustesSeccionAlmacen
         End If
 
         If Not ErrorMovInv Then
-            ObjInventario.Commit()
-            GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
-            CargaDatos()
-            Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+
+            If Contador > 0 Then
+                ObjInventario.Commit()
+                GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+                CargaDatos()
+                Alert("El Movimiento quede registrado correctamente", TipoMensaje.MsgInformacion)
+            Else
+                ObjInventario.RollBack()
+                Alert("No se especificaron productos", TipoMensaje.MsgError)
+            End If
+
         Else
             ObjInventario.RollBack()
             Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgError)
         End If
 
         ObjInventario.Dispose()
+        ObjConta.Dispose()
+        ObjPS.Dispose()
     End Sub
 
     Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click

Inventarios/EntradasSalidas.aspx.vb

@@ -5,6 +5,7 @@ Imports System.Data
 Imports Extensiones
 Imports System.IO
 Imports Microsoft.Reporting.WebForms
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 
 'Imports DocumentFormat.OpenXml.Wordprocessing
 
@@ -2033,8 +2034,8 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
-
-        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
+        '2185
+        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 1490 OrElse UsuarioActual.CveRol = 1) Then
 
             'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
@@ -2043,6 +2044,24 @@ Partial Class Inventarios_EntradasSalidas
                 DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
             End If
 
+        End If
+
+        ''condicion de limpieza si es el usuario 1490, se dejan sino 
+        If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+            If UsuarioActual.CveUsuario <> 1490 Then
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("1"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("2"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("3"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("16"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("17"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("31"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("32"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("33"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34"))
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("34")) 'si esta dos veces, se tiene que ejecutar 2 veces
+                DdlConcepto.Items.Remove(DdlConcepto.Items.FindByValue("35"))
+
+            End If
 
         End If
 

Inventarios/RepFletes.aspx

@@ -20,7 +20,17 @@
             <%--<li>
                 <asp:LinkButton ID="ImgAdd" PostBackUrl="/Inventarios/Fletes.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nuevo Flete</asp:LinkButton>
             </li>--%>
+            <li>
+                <asp:LinkButton ID="LkbPDF" CommandArgument="-1" OnClick="LkbPDF_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> PDF</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LkbExcel" CommandArgument="-1" OnClick="LkbExcel_Click" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel</asp:LinkButton>
+            </li>
         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="LkbPDF" />
+            <asp:PostBackTrigger ControlID="LkbExcel" />
+        </Triggers>
     </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -43,7 +53,8 @@
                             </div>
                             <div class="col-md-1" style="max-width: 100px;">Proveedor:</div>
                             <div class="col-sm-2">
-                                <asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
+                                <%--<asp:DropDownList runat="server" ID="DdlProveedor" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="select2me"></asp:DropDownList>--%>
                             </div>
                             <div class="col-md-1" style="max-width: 120px">Fecha Inicio:</div>
                             <div class="col-md-1">

Inventarios/RepFletes.aspx.vb

@@ -3,6 +3,8 @@ Option Strict On
 
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
 Partial Class Compras_RepFletes
     Inherits ClsPaginas
 
@@ -24,12 +26,18 @@ Partial Class Compras_RepFletes
     End Sub
 
     Private Sub InicializaValores()
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Seleccione"
+        DdlProveedores.SelectedValue = "-1"
+        DdlProveedores.ddl.AutoPostBack = True
+
         TxtFechaI.Text = Date.Now.AddDays(-Now.DayOfYear + 1).ToShortDateString
         TxtFechaF.Text = Date.Now.ToShortDateString
 
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-        DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        'DdlProveedor.DataBind()
+        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
 
     End Sub
 
@@ -40,7 +48,7 @@ Partial Class Compras_RepFletes
     Private Sub CargaDatos()
         Dim ObjInv As New ClsInventarios
         If TxtFolio.Text <> "" Then TxtFechaI.Text = MinFecha.ToShortDateString : TxtFechaF.Text = MaxFecha.ToShortDateString
-        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedor.SelectedValue.ToString.ToEntero, -1, -1,
+        If ObjInv.GetFletesRep(UsuarioActual.CveEmpresa, -1, If(TxtFolio.Text = "", "-1", TxtFolio.Text), DdlProveedores.SelectedValue.ToString.ToEntero, -1, -1,
                                TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero()) Then
             DtFletes = ObjInv.DtResultados
         End If
@@ -56,22 +64,57 @@ Partial Class Compras_RepFletes
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
 
+            Dim Folio As String = e.Row.DBCampo("Folio").ToString
             Dim TipoCon As Integer = e.Row.DBCampo("TipoCon").ToString.ToEntero
             Dim CveFlete As Integer = e.Row.DBCampo("CveFlete").ToEntero()
             Dim Url As String = If(TipoCon = -1, String.Format("/Compras/Compras.aspx?CveCompra={0}", CveFlete), String.Format("/Inventarios/Fletes.aspx?CveFlete={0}", CveFlete))
             e.Row.FCHyperLink("HlkFolio").NavigateUrl = Url
             e.Row.FCHyperLink("HlkFecha").NavigateUrl = Url
             e.Row.FCHyperLink("HlkDescripcion").NavigateUrl = Url
-            'Dim Modalidad = e.Row.DBCampo("Modalidad").ToString.ToEntero
-            'Dim Liga = If(Modalidad = 1, "/OC/OC.aspx?OC", "/Compras/Compras.aspx?CveCompra")
-
-            'e.Row.Cells(4).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{If(Modalidad = 1, "OC: ", "Compra: ")}{e.Row.DBCampo("FolioDocumento")}</a>"
-            'e.Row.Cells(5).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("FechaDocumento").ToDate.ToShortDateString}</a>"
-            'e.Row.Cells(6).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("DescripcionDocumento")}</a>"
-            'e.Row.Cells(7).Text = $"<a target='_blank' href='{Liga}={e.Row.DBCampo("CveDocumento")}'>{e.Row.DBCampo("TotalDocumento")}</a>"
+            If Folio = "Total" Then
+                e.Row.FCHyperLink("HlkFolio").Font.Underline = False
+                e.Row.CssClass = "Totales"
+            End If
 
         End If
     End Sub
+
+    Private Sub Imprimir(formato As String)
+        Dim Filtros As New StringBuilder("")
+        Filtros.AppendFormat(If(TxtFolio.Text.Length > 0, String.Format("<b>Folio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFolio.Text), ""))
+        Filtros.AppendFormat(If(DdlProveedores.SelectedValue.ToEntero() > 0, String.Format("<b>Proveedor: </b>{0}&nbsp;&nbsp;&nbsp;", DdlProveedores.SelectedText), ""))
+        Filtros.AppendFormat(If(TxtFechaI.Text.Length > 0, String.Format("<b>Fecha Inicio: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaI.Text), ""))
+        Filtros.AppendFormat(If(TxtFechaF.Text.Length > 0, String.Format("<b>Fecha Final: </b>{0}&nbsp;&nbsp;&nbsp;", TxtFechaF.Text), ""))
+        Filtros.AppendFormat(If(DdlTipoGasto.SelectedValue.ToEntero > 0, String.Format("<b>Opción: </b>{0}&nbsp;&nbsp;&nbsp;", DdlTipoGasto.SelectedItem.Text), ""))
+        Dim params As New List(Of ReportParameter)
+
+        params.Add(New ReportParameter("Filtros", Filtros.ToString))
+        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+        params.Add(New ReportParameter("FechaImpresion", Now.ToString))
+
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", logouri))
+        Else
+            params.Add(New ReportParameter("LogoPath", ""))
+        End If
+        Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta))
+        If Not ArchivoRuta.Exists Then
+            ImprimirPDF(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta), DtFletes, params, "Reporte de fletes", formato)
+        Else
+            ImprimirPDF("Empresas/Grales/Formatos/RepFletes.rdlc", DtFletes, params, "Reporte de fletes", formato)
+        End If
+    End Sub
+
+    Protected Sub LkbPDF_Click(sender As Object, e As EventArgs)
+        Imprimir("PDF")
+    End Sub
+
+    Protected Sub LkbExcel_Click(sender As Object, e As EventArgs)
+        Imprimir("Excel")
+    End Sub
 #End Region
 
 End Class

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -146,7 +146,7 @@ Partial Class RepNotasSinAlmacen
                 CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
             End If
 
-            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, -1, UsuarioActual.Empresa.CveEmpresa) Then
+            If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                 GvCompras.DataSource = Reporte.DtResultados
                 DtNotasSinAlmacenCompras = Reporte.DtResultados
             Else

Nomina/Nomina2.aspx

@@ -4,6 +4,7 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+        a.sline{white-space: nowrap ;}
         td.cellFail {
             color: red;
         }
@@ -398,8 +399,8 @@
                                             <ItemTemplate>
                                                 <div style="width: 70px; text-align: right;">
                                                     <asp:LinkButton runat="server" ID="LnkTimbrar" CssClass="btn btn-circle btn-sm blue mysmallbtn" Text="<i class='fa fa-bell'></i>" OnClick="LnkTimbrar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea Timbrar?" data-btn-ok-label="si" />
-                                                    <asp:LinkButton runat="server" ID="ImgDelete" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>" OnClick="ImgDelete_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && Eval("SeTimbro").ToString() == "False"? true :false)%>' OnClientClick="javascript:return confirm('¿Está seguro que desea eliminar la nómina?');" />
-                                                    <asp:LinkButton runat="server" ID="LnkCancelar" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='fas fa-ban'></i>" OnClick="LnkCancelar_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && PermisoCancelarEmitido && Eval("SeTimbro").ToString() == "True"? true :false)%>' OnClientClick="javascript:return confirm('¿Está seguro que desea cancelar la nómina?');" />
+                                                    <asp:LinkButton runat="server" ID="ImgDelete" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='icon-trash'></i>" OnClick="ImgDelete_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && Eval("SeTimbro").ToString() == "False"? true :false)%>'  data-popout="true" data-original-title="¿Está seguro que desea eliminar la nómina?" data-btn-ok-label="si" />
+                                                    <asp:LinkButton runat="server" ID="LnkCancelar" CssClass="btn btn-circle btn-sm red mysmallbtn" Text="<i class='fas fa-ban'></i>" OnClick="LnkCancelar_Click" CommandArgument='<%# Eval("CveNomina") %>' Visible='<%# (Eval("CveNomina").ToString() != "" && PermisoCancelarEmitido && Eval("SeTimbro").ToString() == "True"? true :false)%>'  data-popout="true" data-original-title="¿Está seguro que desea cancelar la nómina?" data-btn-ok-label="si"  />
                                                 </div>
                                             </ItemTemplate>
                                         </asp:TemplateField>
@@ -1626,7 +1627,6 @@
             <%= String.Format("$('#{0}').click();", btnasis.ClientID) %>
         }
         function ADSBegin() {
-            debugger;
             if ($('.GvConceptos .thTituloConcepto').length == 0) {
                 $('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"3\">Percepciones</th><th scope=\"col\" colspan=\"3\">Deducciones</th> </tr>");
             }

Nomina/Nomina2.aspx.cs

@@ -7,6 +7,8 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using System.Data;
 using System.Text;
+using static Extensiones.ModExtensiones;
+using System.Drawing;
 
 public partial class Nomina_Nomina2 : ClsPaginas
 {
@@ -114,6 +116,57 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         set { ViewState["CcveMovtoPermanente"] = value; }
     }
+
+    protected int FiltCveProyecto
+    {
+        get
+        {
+            if (ViewState["FiltCveProyecto"] == null) { return 0; }
+            else { return ViewState["FiltCveProyecto"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCveProyecto"] = value; }
+    }
+    protected int FiltCveSubProyecto
+    {
+        get
+        {
+            if (ViewState["FiltCveSubProyecto"] == null) { return 0; }
+            else { return ViewState["FiltCveSubProyecto"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCveSubProyecto"] = value; }
+    }
+    protected int FiltCveTurno
+    {
+        get
+        {
+            if (ViewState["FiltCveTurno"] == null) { return 0; }
+            else { return ViewState["FiltCveTurno"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCveTurno"] = value; }
+    }
+    protected int FiltCvePeriodo
+    {
+        get
+        {
+            if (ViewState["FiltCvePeriodo"] == null) { return 0; }
+            else { return ViewState["FiltCvePeriodo"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltCvePeriodo"] = value; }
+    }
+    protected int FiltAgrupador
+    {
+        get
+        {
+            if (ViewState["FiltAgrupador"] == null) { return 0; }
+            else { return ViewState["FiltAgrupador"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["FiltAgrupador"] = value; }
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -256,30 +309,40 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
     protected void LnkConsultar_Click(object sender, EventArgs e)
     {
-        bool continuar = false;
-        int CveProyecto = DdlProyecto.SelectedValue.ToEntero();
-        int CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero();
-        int CveTurno = DdlTurno.SelectedValue.ToEntero();
-        int CvePeriodo = DdlPeriodo.SelectedValue.ToEntero();
-        int CveEmpresa = UsuarioActual.CveEmpresa;
-        int Agrupador = DdlAgrupador.SelectedValue.ToEntero();
+          FiltCveProyecto = DdlProyecto.SelectedValue.ToEntero();
+          FiltCveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero();
+          FiltCveTurno = DdlTurno.SelectedValue.ToEntero();
+          FiltCvePeriodo = DdlPeriodo.SelectedValue.ToEntero();
+          FiltAgrupador = DdlAgrupador.SelectedValue.ToEntero();
+        cargaDatos();
 
+    }
+    public void cargaDatos()
+    {
+        int CveEmpresa = UsuarioActual.CveEmpresa;
+
+        bool continuar = false;
         CvePeriodoSeleccionado = 0;
         dtempleados = null;
         dtConceptos = null;
         DataTable dtPeriodo = new DataTable();
         DataTable dtasistencia = new DataTable();
-        using (ClsNominas objnom = new ClsNominas())
+        if (FiltCvePeriodo > 0)
         {
-            if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador) && objnom.DTSetResultados.Tables.Count > 1)
+
+            using (ClsNominas objnom = new ClsNominas())
             {
-                dtempleados = objnom.DTSetResultados.Tables[3];
-                dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
-                dtConceptos = objnom.DTSetResultados.Tables[0];
-                dtPeriodo = objnom.DTSetResultados.Tables[1];
-                dtasistencia = objnom.DTSetResultados.Tables[2];
-                CvePeriodoSeleccionado = CvePeriodo;
-                continuar = true;
+                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador) && objnom.DTSetResultados.Tables.Count > 1)
+                {
+                    dtempleados = objnom.DTSetResultados.Tables[3];
+                    dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
+                    dtConceptos = objnom.DTSetResultados.Tables[0];
+                    dtPeriodo = objnom.DTSetResultados.Tables[1];
+                    dtasistencia = objnom.DTSetResultados.Tables[2];
+                    CvePeriodoSeleccionado = FiltCvePeriodo;
+                    continuar = true;
+                }
+
             }
 
         }
@@ -688,7 +751,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
         UpDatos.Update();
     }
 
-
     protected void GvNominas_RowDataBound(object sender, GridViewRowEventArgs e)
     {
         if (e.Row.RowType == DataControlRowType.DataRow)
@@ -707,7 +769,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             LnkTimbrar.Visible = false;
             if (cvePersonal > 0)
             {
-                LtlNombre.Text = String.Format("<a class=\"Texto\" href=\"/RH/Personal.aspx?CvePersonal={0}\">{2}<br/>{1}</a>", cvePersonal, Nombre, Codigo);
+                LtlNombre.Text = String.Format("<a class=\"Texto sline\" href=\"/RH/Personal.aspx?CvePersonal={0}\">{2}<br/>{1}</a>", cvePersonal, Nombre, Codigo);
                 if (CveNomina > 0)
                 {
                     if (NomAutorizado == "False")
@@ -761,17 +823,76 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
     protected void LnkTimbrar_Click(object sender, EventArgs e)
     {
+        LinkButton lnk = (LinkButton)sender;
+        GridViewRow gvRow = (GridViewRow)lnk.NamingContainer;
+        int CvePeriodo = gvRow.DataKey("CvePeriodo").ToEntero();
+        int CvePersonal = gvRow.DataKey("CvePersonal").ToEntero();
+        int CveNomina = gvRow.DataKey("CveNomina").ToEntero();
 
+        LogicNominas lognom = new LogicNominas();
+
+        string Msg = lognom.TimbrarNomina(CveNomina, CvePersonal, CvePeriodo, UsuarioActual);
+        if (Msg != null && Msg.Length > 0)
+        { Alert(Msg, TipoMensaje.MsgAdvertencia); }
+        else
+        {
+            ClsNominas ObjPeriodo = new ClsNominas();
+            ObjPeriodo.CambiaEstatusPeriodo(CvePeriodo, (int)enumNominasEstatus.Timbrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa);
+            ObjPeriodo.Dispose();
+            Alert("Se ha timbrado correctamente");
+            gvRow.FindControl("ImgDelete").Visible = false;
+            gvRow.FindControl("LnkCancelar").Visible = false;
+
+            //gvRow.FCImage("ImgBandera").ImageUrl = "/Imagenes/flag_green.png";
+            gvRow.ForeColor = Color.Green;
+            lnk.Visible = false; UpDatos.Update();
+        }
     }
 
     protected void ImgDelete_Click(object sender, EventArgs e)
     {
+        int Cve = ((LinkButton)sender).CommandArgument.ToEntero();
 
+        ClsNominas Nom = new ClsNominas();
+        if (Nom.RemoveNom_Nominas(Cve))
+        {
+            Alert("Los movimientos de la nómina fueron eliminados", TipoMensaje.MsgInformacion); cargaDatos();
+
+        }
+        Nom.Dispose();
     }
 
     protected void LnkCancelar_Click(object sender, EventArgs e)
     {
+        int CveNomina = ((LinkButton)sender).CommandArgument.ToEntero();
 
+
+        if (CveNomina > 0)
+        {
+            ClsNominas Nom = new ClsNominas();
+            if (Nom.GetNom_Nominas(CveNomina, -1, -1, -1, UsuarioActual.CveEmpresa))
+            {
+                Timbrado ObjTimbrado = new Timbrado();
+
+                string FolioFiscal = Nom.FolioFiscal;
+                decimal Total = Nom.Total.ToString().ToDecimal();
+                string RFCReceptor = Nom.RFC;
+                string RFCEmisor = UsuarioActual.Empresa.RFC;
+
+
+                if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor))
+                {
+                    Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
+
+                    Alert("La nómina con folio fiscal fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
+                }
+            }
+
+
+            Nom.Dispose();
+
+            cargaDatos();
+        }
     }
 
     protected void LnkCargarNomina_Click(object sender, EventArgs e)
@@ -1094,7 +1215,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 int BorradoLogico = 0;
                 int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0))
                 {
                     BorradoLogico = 1;
                 }
@@ -1105,7 +1226,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 int BorradoLogico = 0;
                 int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+                if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0))
                 {
                     BorradoLogico = 1;
                 }
@@ -1246,7 +1367,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             int BorradoLogico = 0;
             int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0))
             {
                 BorradoLogico = 1;
             }
@@ -1257,7 +1378,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             int BorradoLogico = 0;
             int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0))
+            if (!(dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0))
             {
                 BorradoLogico = 1;
             }
@@ -1856,12 +1977,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                             paragraphh.ParagraphFormat.Style = styilo;
                             paragraphh = new GemBox.Document.Paragraph(document, string.Format("Días pagados:{0}, Retardos: {1}, Ausencias:{2} ", drow2["DiasPago"], drow2["DiasRetardos"], drow2["DiasFaltados"])); cell.Blocks.Add(paragraphh);
                             paragraphh.ParagraphFormat.Style = styilo;
-                            /*
-                             Gonzalez Gaitan Jorge
-        DIRECTOR OPERATIVO RFC: GOGJ-720331-TZ3 Afiliación IMSS: 11-96-72-1082-1
-        Fecha Ingr: 01/03/2019 Sal. diario: 3849.84 S.D.I: 4023.87 S.B.C: 2112.25 Cotiza Fijo
-        Días pagados: 15.00 Tot Hrs trab: 120.00 Hrs día: 8.00 Hrs extras: 0.00 CURP: GOGJ-720331-HMCNTR09
-                             */
+                            
 
                             row = new GemBox.Document.Tables.TableRow(document);
                             sobrereciboTable.Rows.Add(row);
@@ -3374,7 +3490,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
     {
 
         bool continuar = true;
-        DataTable dtr = dtempleados.FiltraParametros(string.Format("CvePersonal={0} OR {0}=-1", FiltroCvePersonal));
+        DataTable dtr = dtempleados.FiltraParametros(string.Format("(CvePersonal={0} OR {0}=-1) AND CvePersonal > 0 AND NomAutorizado =0", FiltroCvePersonal), "", new string[] { "CvePersonal", "CveMetodoPago" });
         DataTable dtconp = null;
         int CvePeriodoSeleccionado = DdlPeriodo.SelectedValue.ToEntero();//cambiar reparar
         #region PropNomina
@@ -3433,7 +3549,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
                     if (continuar)
                     {
-                        dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0}", CvePersonal));
+                        dtconp = dtempleadosConceptos.FiltraParametros(string.Format("CvePersonal={0} AND Importe<>0", CvePersonal));
                         foreach (DataRow rcon in dtconp.Rows)
                         {
 
@@ -3467,6 +3583,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             {
                 objNomina.Commit();
                 Alert("La nomina se autorizó correctamente.");
+                cargaDatos();
             }
             else
             {
@@ -3474,8 +3591,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             }
         }
-        if(dtr != null){
-        dtr.Dispose();
+        if (dtr != null)
+        {
+            dtr.Dispose();
 
         }
         if (dtconp != null)
@@ -3545,10 +3663,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
         cargaPeriodosCM();
     }
     
-    protected void DdlTipoPeriodoCM_SelectedIndexChanged1(object sender, EventArgs e)
-    {
-
-    }
 
 
     protected void LnkGuardarASistencia_Click(object sender, EventArgs e)
@@ -3878,7 +3992,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     if (ObjPersonal.DTSetResultados.Tables.Count > 4)
                     {
                         DateTime dateperiodo;
-                        DateTime.TryParseExact( string.Format ("{0}01",ObjPersonal.DTSetResultados.Tables[1].Rows[0]["Periodo"]), "yyyyMMdd", new System.Globalization.CultureInfo("es-MX"), System.Globalization.DateTimeStyles.None,out dateperiodo);
+                        DateTime.TryParseExact(string.Format("{0}01", ObjPersonal.DTSetResultados.Tables[1].Rows[0]["Periodo"]), "yyyyMMdd", new System.Globalization.CultureInfo("es-MX"), System.Globalization.DateTimeStyles.None, out dateperiodo);
                         LtlPeriodo.Text = dateperiodo.Date.ToString("MMMM yyyy", new System.Globalization.CultureInfo("es-MX"));
                         DtSuaProcesado = ObjPersonal.DTSetResultados.Tables[3];
                         GVProcesarSUA.DataSource = ObjPersonal.DTSetResultados.Tables[3];
@@ -3986,25 +4100,25 @@ public partial class Nomina_Nomina2 : ClsPaginas
         ClosedXML.Excel.IXLRange range = libro.Range(Fila, 2, Fila, 3);
         range.Merge();
         range.Value = "Salario";
-        range = libro.Range(Fila,4, Fila, 5);
+        range = libro.Range(Fila, 4, Fila, 5);
         range.Merge();
         range.Value = "Cuota Fija";
-        range = libro.Range(Fila, 6, Fila,7 );
+        range = libro.Range(Fila, 6, Fila, 7);
         range.Merge();
         range.Value = "Cuota Excedente";
-        range = libro.Range(Fila,8, Fila, 9);
+        range = libro.Range(Fila, 8, Fila, 9);
         range.Merge();
         range.Value = "Prestaciones en Dinero";
-        range = libro.Range(Fila, 10, Fila,11 );
+        range = libro.Range(Fila, 10, Fila, 11);
         range.Merge();
         range.Value = "Gastos Medicos";
         range = libro.Range(Fila, 12, Fila, 13);
         range.Merge();
         range.Value = "Riesgos de Trabajo";
-        range = libro.Range(Fila, 14, Fila,15 );
+        range = libro.Range(Fila, 14, Fila, 15);
         range.Merge();
         range.Value = "Invalidez y Vida";
-        range = libro.Range(Fila,16 , Fila, 17);
+        range = libro.Range(Fila, 16, Fila, 17);
         range.Merge();
         range.Value = "Guarderia";
         range = libro.Range(Fila, 18, Fila, 19);
@@ -4012,24 +4126,24 @@ public partial class Nomina_Nomina2 : ClsPaginas
         range.Value = "Retiro";
         Fila = Fila + 1;
         libro.Cell(Fila, 1).Value = "Empleado";
-        libro.Cell(Fila,  2).Value = "SUA"; //SalarioSUA
-        libro.Cell(Fila,  3).Value = "SIG";//SalarioSIG 
-        libro.Cell(Fila,  4).Value = "SUA";//CuotaFijaSUA
-        libro.Cell(Fila,  5).Value = "SIG";//CuotaFijaSIG
-        libro.Cell(Fila,  6).Value = "SUA";//CuotaExcedenteSUA
-        libro.Cell(Fila,  7).Value = "SIG";//CuotaExcedenteSIG
-        libro.Cell(Fila,  8).Value = "SUA";//PrestacionesDineroSUA
-        libro.Cell(Fila,  9).Value = "SIG";//PrestacionesSIG
-        libro.Cell(Fila, 10 ).Value = "SUA";//GastosMedPenSUA
-        libro.Cell(Fila, 11 ).Value = "SIG";//GastosMedicosSIG
-        libro.Cell(Fila, 12 ).Value = "SUA";//RiesgosdeTrabajoSUA
-        libro.Cell(Fila, 13 ).Value = "SIG";//RiesgoTrabajoSIG
-        libro.Cell(Fila, 14 ).Value = "SUA";//InvalidezyVidaSUA
-        libro.Cell(Fila, 15 ).Value = "SIG";//InvalidezyVidaSIG
-        libro.Cell(Fila, 16 ).Value = "SUA";//GuarderiaSUA
-        libro.Cell(Fila, 17 ).Value = "SIG";//GuarderiaSIG
-        libro.Cell(Fila, 18 ).Value = "SUA";//RetiroSUA
-        libro.Cell(Fila, 19 ).Value = "SIG";//RetiroSIG
+        libro.Cell(Fila, 2).Value = "SUA"; //SalarioSUA
+        libro.Cell(Fila, 3).Value = "SIG";//SalarioSIG 
+        libro.Cell(Fila, 4).Value = "SUA";//CuotaFijaSUA
+        libro.Cell(Fila, 5).Value = "SIG";//CuotaFijaSIG
+        libro.Cell(Fila, 6).Value = "SUA";//CuotaExcedenteSUA
+        libro.Cell(Fila, 7).Value = "SIG";//CuotaExcedenteSIG
+        libro.Cell(Fila, 8).Value = "SUA";//PrestacionesDineroSUA
+        libro.Cell(Fila, 9).Value = "SIG";//PrestacionesSIG
+        libro.Cell(Fila, 10).Value = "SUA";//GastosMedPenSUA
+        libro.Cell(Fila, 11).Value = "SIG";//GastosMedicosSIG
+        libro.Cell(Fila, 12).Value = "SUA";//RiesgosdeTrabajoSUA
+        libro.Cell(Fila, 13).Value = "SIG";//RiesgoTrabajoSIG
+        libro.Cell(Fila, 14).Value = "SUA";//InvalidezyVidaSUA
+        libro.Cell(Fila, 15).Value = "SIG";//InvalidezyVidaSIG
+        libro.Cell(Fila, 16).Value = "SUA";//GuarderiaSUA
+        libro.Cell(Fila, 17).Value = "SIG";//GuarderiaSIG
+        libro.Cell(Fila, 18).Value = "SUA";//RetiroSUA
+        libro.Cell(Fila, 19).Value = "SIG";//RetiroSIG
 
 
         libro.Cell(1, 1).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
@@ -4043,24 +4157,24 @@ public partial class Nomina_Nomina2 : ClsPaginas
         {
             Fila++;
             libro.Cell(Fila, 1).Value = erow["CodigoNombreCompleto"];
-            libro.Cell(Fila, 2).Value = string.Format("{0:N2}",erow["SalarioSUA"]);
-            libro.Cell(Fila, 3).Value = string.Format("{0:N2}",erow["SalarioSIG"]);
-            libro.Cell(Fila, 4).Value = string.Format("{0:N2}",erow["CuotaFijaSUA"]);
+            libro.Cell(Fila, 2).Value = string.Format("{0:N2}", erow["SalarioSUA"]);
+            libro.Cell(Fila, 3).Value = string.Format("{0:N2}", erow["SalarioSIG"]);
+            libro.Cell(Fila, 4).Value = string.Format("{0:N2}", erow["CuotaFijaSUA"]);
             libro.Cell(Fila, 5).Value = string.Format("{0:N2}", erow["CuotaFijaSIG"]);
-            libro.Cell(Fila, 6).Value = string.Format("{0:N2}",erow["CuotaExcedenteSUA"]);
-            libro.Cell(Fila, 7).Value = string.Format("{0:N2}",erow["CuotaExcedenteSIG"]);
-            libro.Cell(Fila, 8).Value = string.Format("{0:N2}",erow["PrestacionesDineroSUA"]);
-            libro.Cell(Fila, 9).Value = string.Format("{0:N2}",erow["PrestacionesSIG"]);
-            libro.Cell(Fila, 10).Value = string.Format("{0:N2}",erow["GastosMedPenSUA"]);
-            libro.Cell(Fila, 11).Value = string.Format("{0:N2}",erow["GastosMedicosSIG"]);
-            libro.Cell(Fila, 12).Value = string.Format("{0:N2}",erow["RiesgosdeTrabajoSUA"]);
-            libro.Cell(Fila, 13).Value = string.Format("{0:N2}",erow["RiesgoTrabajoSIG"]);
-            libro.Cell(Fila, 14).Value = string.Format("{0:N2}",erow["InvalidezyVidaSUA"]);
-            libro.Cell(Fila, 15).Value = string.Format("{0:N2}",erow["InvalidezyVidaSIG"]);
-            libro.Cell(Fila, 16).Value = string.Format("{0:N2}",erow["GuarderiaSUA"]);
-            libro.Cell(Fila, 17).Value = string.Format("{0:N2}",erow["GuarderiaSIG"]);
-            libro.Cell(Fila, 18).Value = string.Format("{0:N2}",erow["RetiroSUA"]);
-            libro.Cell(Fila, 19).Value = string.Format("{0:N2}",erow["RetiroSIG"]);
+            libro.Cell(Fila, 6).Value = string.Format("{0:N2}", erow["CuotaExcedenteSUA"]);
+            libro.Cell(Fila, 7).Value = string.Format("{0:N2}", erow["CuotaExcedenteSIG"]);
+            libro.Cell(Fila, 8).Value = string.Format("{0:N2}", erow["PrestacionesDineroSUA"]);
+            libro.Cell(Fila, 9).Value = string.Format("{0:N2}", erow["PrestacionesSIG"]);
+            libro.Cell(Fila, 10).Value = string.Format("{0:N2}", erow["GastosMedPenSUA"]);
+            libro.Cell(Fila, 11).Value = string.Format("{0:N2}", erow["GastosMedicosSIG"]);
+            libro.Cell(Fila, 12).Value = string.Format("{0:N2}", erow["RiesgosdeTrabajoSUA"]);
+            libro.Cell(Fila, 13).Value = string.Format("{0:N2}", erow["RiesgoTrabajoSIG"]);
+            libro.Cell(Fila, 14).Value = string.Format("{0:N2}", erow["InvalidezyVidaSUA"]);
+            libro.Cell(Fila, 15).Value = string.Format("{0:N2}", erow["InvalidezyVidaSIG"]);
+            libro.Cell(Fila, 16).Value = string.Format("{0:N2}", erow["GuarderiaSUA"]);
+            libro.Cell(Fila, 17).Value = string.Format("{0:N2}", erow["GuarderiaSIG"]);
+            libro.Cell(Fila, 18).Value = string.Format("{0:N2}", erow["RetiroSUA"]);
+            libro.Cell(Fila, 19).Value = string.Format("{0:N2}", erow["RetiroSIG"]);
         }
         //libro.Row(2).SetAutoFilter();
 

RH/Personal.aspx.vb

@@ -778,7 +778,7 @@ Partial Class RH_Personal
 
     Public ReadOnly Property showsalarios As Boolean
         Get
-            Return Not UsuarioActual.Empresa.Funcionalidad(701) = "1"
+            Return UsuarioActual.Empresa.Funcionalidad(701) = "1"
         End Get
     End Property
     'Configuración

Scripts/custom.js

@@ -1,6 +1,7 @@
 var IHAVEALLTHEPOWER = false;
 var objscollapse = null;
 var objsexpand = null;
+var adscrollerposition =[];
 conf = {
     error: console.error,
     info: console.info,
@@ -503,10 +504,10 @@ function ADScroller2() {
                 divbodyScroll.css('width', (widthGral - anchoc1));
                 divbodyScroll.css('height', (heightGral - altoc1 + 20));
             };
-            $(window).resize(function () {
-                setTimeout(resizefncscroller, 50);
-                setTimeout(sizeoftablefunc, 150);
-            });
+            //$(window).resize(function () {
+            //    setTimeout(resizefncscroller, 50);
+            //    setTimeout(sizeoftablefunc, 150);
+            //});
 
             $('table#ADCol' + Tid + ' tr').hover(
                 function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');},
@@ -516,6 +517,16 @@ function ADScroller2() {
                 function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
             setTimeout(sizeoftablefunc, 100);
 
+
+            let found = adscrollerposition.find(element => element.id = 'C_Tab_TabNominas_GvNominas');
+            if (found != null) {
+
+                divheaderScroll.scrollLeft(found.scrollLeft);
+                divbodyScroll.scrollLeft(found.scrollLeft);
+                divcolsScroll.scrollTop(found.scrollTop);
+                divbodyScroll.scrollTop(found.scrollTop);
+            }
+
         }
         catch (err) {
             console.log("ADSCROLLER2 Error:" + err.message);
@@ -1975,7 +1986,12 @@ jQuery(document).ready(function () {
         //    let id = $(this).attr('id');
         //    $(this).val(CKEDITOR.instances[id].getData());
         //});
-
+        adscrollerposition = [];
+        $('.ADSContainer .AdsBody .ADSCroll table').each(function () {
+            let _this = $(this);
+            let _thisScroll = _this.parent();
+            adscrollerposition.push({ id: _this.attr('id'), scrollLeft: _thisScroll.scrollLeft(), scrollTop: _thisScroll.scrollTop() });
+        });
         saveposicionADScroller();
         loaderinit();
     });

Ventas/ActualizarPrecios.aspx.vb

@@ -1,5 +1,6 @@
 
 Option Explicit On
+Option Strict On
 
 Imports Extensiones
 Imports System.Data
@@ -293,7 +294,7 @@ Partial Class Ventas_ActualizarPrecios
 #Region "C A R G A R  E X C E L "
     Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click
 
-        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows
+        Dim DtExcel As DataTable = (From row As GridViewRow In GVPrecios.Rows.Cast(Of GridViewRow)
                                     Where row.RowType = DataControlRowType.DataRow
                                     Select New With
                                         {
@@ -408,7 +409,7 @@ Partial Class Ventas_ActualizarPrecios
                 Dim DtPS As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
                 For Each row As DataRow In dt.Rows
                     Dim Correcto As Boolean = False
-                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa))
+                    Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)).ToEntero
                     Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero()
                     Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal()
                     Dim Porcentaje As Decimal = -1

Ventas/CatPS.aspx

@@ -101,15 +101,19 @@
 
 
     <li>
-        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"> <i class="fa fa-print"></i>  Productos sin SAT</asp:HyperLink>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReportes" ID="ImgReportes" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar productos sin SAT</asp:HyperLink>
     </li>
 
     <li>
-        <asp:LinkButton ID="LBImprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
+        <asp:LinkButton ID="LBImprimir" runat="server"><i style="font-weight:bold" class="fa fa-file-pdf-o"></i> Exportar PDF</asp:LinkButton>
     </li>
 
     <li>
-        <asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
+        <asp:LinkButton ID="LBExcel" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
+    </li>
+
+    <li>
+        <asp:LinkButton ID="LBExcelPersonalizado" runat="server"><i style="font-weight:bold" class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
     </li>
 
 
@@ -216,6 +220,10 @@
                             </asp:TemplateField>
                             <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
                             <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" />
+                            <asp:BoundField DataField="SatPSDescripcion" HeaderText="Producto Servicio SAT" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="Clasificacion2" HeaderText="Clasificacion 2" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="Marca" HeaderText="Marca" Visible="false" ItemStyle-Width="20px" />
+                            <asp:BoundField DataField="VentaMinima" HeaderText="Venta Mínima" Visible="false" ItemStyle-Width="20px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                         </Columns>
                     </asp:GridView>
                 </ContentTemplate>
@@ -277,11 +285,21 @@
                                 <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
                         </div>
                         <div class="modal-body">
-                            <table style="width: 335px;" class="table table-striped table-advance table-hover">
+                            <table style="width: 100%;" class="table table-striped table-advance table-hover">
                                 <tbody>
                                     <tr>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkAplicaVenta" runat="server" Text="Aplica para Venta" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkProductosServiciosSAT" runat="server" Text="Productos Servicios SAT" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkClasificacion2" runat="server" Text="Clasificación 2" /></td>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkMarca" runat="server" Text="Marca" /></td>
+                                    </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkVentaMinima" runat="server" Text="Venta Mínima" /></td>
                                     </tr>
                                 </tbody>
                             </table>

Ventas/CatPS.aspx.vb

@@ -113,6 +113,11 @@ Partial Class CatPS
             AplicaVenta = False
         End If
 
+        GvDatos.Columns(10).Visible = ChkProductosServiciosSAT.Checked
+        GvDatos.Columns(11).Visible = ChkClasificacion2.Checked
+        GvDatos.Columns(12).Visible = ChkMarca.Checked
+        GvDatos.Columns(13).Visible = ChkVentaMinima.Checked
+
         CargaDatos()
         OrdenaDatos()
         UPDatos.Update()
@@ -255,6 +260,13 @@ Partial Class CatPS
         ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/CatPS.rpt"), DtDatos, lista, "Productos y Servicios", Formato), "Productos y Servicios", Formato)
 
     End Sub
+
+    Protected Sub LBExcelPersonalizado_Click(Sender As Object, e As EventArgs) Handles LBExcelPersonalizado.Click
+        ExportToExcelGembox(GvDatos, "Catálogo de Productos y Servicios", UsuarioActual, "", "", "Catálogo de Productos y Servicios", "", -1)
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
 #End Region
 
 End Class

Ventas/Clientes.aspx

@@ -443,14 +443,14 @@
                                         --%>
 
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:DropDownList ID="DdlSATPais"  runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
+                                            <asp:DropDownList ID="DdlSATPais" runat="server" CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlSATPais_SelectedIndexChanged" AutoPostBack="true">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
-                                                <asp:ListItem  Value="MEX" Text="México"></asp:ListItem>
-                                                <asp:ListItem   Value="USA" Text="USA"></asp:ListItem>
-                                                <asp:ListItem   Value="CAN" Text="Canada"></asp:ListItem>
+                                                <asp:ListItem Value="MEX" Text="México"></asp:ListItem>
+                                                <asp:ListItem Value="USA" Text="USA"></asp:ListItem>
+                                                <asp:ListItem Value="CAN" Text="Canada"></asp:ListItem>
                                             </asp:DropDownList>
 
-                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" InitialValue="-1" ControlToValidate="DdlSATPais" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= DdlSATPais.ClientID.ToString()%>">Pais:</label>
                                             <i></i>
                                         </div>
@@ -460,7 +460,7 @@
                                             <asp:DropDownList ID="DdlEstadoSAT" DataTextField="NombreEstado" DataValueField="CveSATEstado" runat="server" CssClass="form-control input-sm select2me">
                                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                             </asp:DropDownList>
-                                             <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                            <asp:RequiredFieldValidator ID="RfvDdlEstadoSAT" runat="server" InitialValue="-1" ControlToValidate="DdlEstadoSAT" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                             <label for="<%= DdlEstadoSAT.ClientID.ToString()%>">Estado:</label>
                                             <i></i>
                                         </div>
@@ -638,13 +638,13 @@
                                             <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"/>
+                                        <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaCompras" runat="server" visible="false">
+                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaCompras" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaCompras.ClientID.ToString()%>">Correo de Entrega de Compras:</label>
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="divCorreoEntregaAlmacen" runat="server" visible="false">
-                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control"/>
+                                            <asp:TextBox runat="server" ID="TxtCorreoEntregaAlmacen" CssClass="form-control" />
                                             <label for="<%= TxtCorreoEntregaAlmacen.ClientID.ToString()%>">Correo de Entrega de Almacén:</label>
                                         </div>
 
@@ -692,7 +692,9 @@
                                     <div class="portlet-title">
                                         <div class="caption font-green">
                                             <i class="icon-pin font-green"></i>
-                                            <span class="caption-subject bold uppercase">Sucursales y/o Departamentos</span>
+                                            <span class="caption-subject bold uppercase">
+                                                <asp:Literal ID="LtlGvSucursalesCliente" runat="server" Text="Sucursales y/o Departamentos" />
+                                            </span>
                                         </div>
                                         <div class="actions">
                                             <div class="btn-group">
@@ -704,7 +706,8 @@
                                             <table class="table table-striped table-advance table-hover" style="width: 100%">
                                                 <thead>
                                                     <tr class="Titulos">
-                                                        <th width="150px">Sucursal y/o Departamento</th>
+                                                        <th width="150px">
+                                                            <asp:Literal ID="LtlNombreSucursalTitulo" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal></th>
                                                         <th></th>
                                                         <th></th>
                                                         <th width="121px">Comandos</th>
@@ -787,7 +790,7 @@
                                             <Columns>
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
-                                                        Sucursal/Depto
+                                                        <asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal/Depto"></asp:Literal>
 
                                                     </HeaderTemplate>
                                                     <ItemTemplate>
@@ -1008,16 +1011,16 @@
                                             <div class="portlet-body form-horizontal form-row-sepe">
                                                 <div class="form-body">
                                                     <div id="divCuentas" runat="server" visible="false">
-                                                         <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
-                                                        <ContentTemplate>
-                                                            <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center;  width: 100%;" GridLines="None">
-                                                                <Columns>
-                                                                    <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
-                                                                    <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
-                                                                </Columns>
-                                                            </asp:GridView>
-                                                        </ContentTemplate>
-                                                    </asp:UpdatePanel>
+                                                        <asp:UpdatePanel runat="server" ID="UpCuentaConceptos" UpdateMode="Conditional">
+                                                            <ContentTemplate>
+                                                                <asp:GridView ID="GvCta" runat="server" DataKeyNames="ConceptoContable,NombreCuenta" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de Historial de Ventas" CssClass="table table-striped table-advance table-hover" Style="text-align: center; width: 100%;" GridLines="None">
+                                                                    <Columns>
+                                                                        <asp:BoundField HeaderText="Concepto Contable" DataField="ConceptoContable" />
+                                                                        <asp:BoundField HeaderText="Nombre Cuenta" DataField="NombreCuenta" />
+                                                                    </Columns>
+                                                                </asp:GridView>
+                                                            </ContentTemplate>
+                                                        </asp:UpdatePanel>
 
                                                     </div>
                                                     <div id="divCuentasContp" runat="server" visible="false">
@@ -2369,7 +2372,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Archivos</HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Center"/>
+                                                <ItemStyle HorizontalAlign="Center" />
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HplXML" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-excel-o' style="font-weight:bold;"></i></asp:HyperLink>
                                                     <asp:HyperLink ID="HplPDF" runat="server" Visible="false" Target="_blank"><i class='fa fa-file-pdf-o' style="font-weight:bold;"></i></asp:HyperLink>
@@ -2377,7 +2380,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Reenviar Complemento</HeaderTemplate>
-                                                <ItemStyle HorizontalAlign="Center"/>
+                                                <ItemStyle HorizontalAlign="Center" />
                                                 <ItemTemplate>
                                                     <%-- <a id="HLSendMail" runat="server" class="Texto" visible="false">
                                                         <i class="fa fa-envelope fa-2" aria-hidden="true"></i>
@@ -2428,10 +2431,10 @@
                                     <asp:GridView ID="GvPagosNoBancarios" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron pagos no bancarios" Width="50%"
                                         CssClass="table table-striped table-advance table-hover   ScrollAD" data-sort="false" BorderWidth="1" BorderColor="#D3D3D3" GridLines="None" DataKeyNames="CvePrePoliza,CveCompra,CveVenta,CvePersonal,ImporteMN,VentaSerieFolio,CompraSerieFolio,NombreCompleto,FechaIng,Abreviatura">
                                         <Columns>
-                                            <asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto"/>
-                                            <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}"/>
-                                            <asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}"/>
-                                            <asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}"/>
+                                            <asp:BoundField HeaderText="Nombre Completo" DataField="NombreCompleto" />
+                                            <asp:BoundField HeaderText="Fecha" DataField="FechaIng" DataFormatString="{0:dd/MM/yyyy}" />
+                                            <asp:HyperLinkField HeaderText="Venta Serie Folio" DataTextField="VentaSerieFolio" DataNavigateUrlFields="CveVenta" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
+                                            <asp:HyperLinkField HeaderText="Compra Serie Folio" DataTextField="CompraSerieFolio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" />
                                             <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlImp" runat="server" Text='<%# Eval("ImporteMN", "{0:N2}")%>'></asp:Literal>
@@ -4535,8 +4538,8 @@
                             <asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
                             <UserControl:TareaNueva runat="server" id="TareaNueva" />
                             <script> function OnAddedTareaNueva() {
-                                    $('.btnupEventoBitacora').click();
-                                }
+     $('.btnupEventoBitacora').click();
+ }
 
                             </script>
                         </div>
@@ -4654,7 +4657,9 @@
                                 <div class="portlet-title">
                                     <div class="caption font-green">
                                         <i class="fa fa-users font-green"></i>
-                                        <span class="caption-subject bold uppercase">Datos de la Sucursal </span>
+                                        <span class="caption-subject bold uppercase">
+                                            <asp:Literal ID="LtlTituloSurcusalCliente" runat="server" Text="Datos de la Sucursal"></asp:Literal>
+                                        </span>
 
 
 
@@ -4670,7 +4675,9 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
-                                    <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Sucursal y/o Departamento:</label>
+                                    <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">
+                                        <asp:Literal ID="LtlNombreSucursal" runat="server" Text="Sucursal y/o Departamento:"></asp:Literal>
+                                    </label>
                                 </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
@@ -4738,10 +4745,17 @@
 
                                 </div>
 
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                    <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                        <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                        <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                    </div>
+                                    <div id="DivRFCSucursal" visible="false" runat="server" class="form-group form-md-line-input input-iconright col-xs-8">
+                                        <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="REVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
+                                    </div>
                                 </div>
 
                                 <div class="form-group form-md-line-input input-iconright">
@@ -7069,6 +7083,6 @@
         }
 
     </script>
-    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"</script>
+    <script src="<%= String.Format("https://maps.googleapis.com/maps/api/js?key={0}&libraries=drawing&libraries=places", Extensiones.GOOGLE_MAPS_API_KEY) %>"></script>
 
 </asp:Content>

Ventas/Clientes.aspx.vb

@@ -1421,6 +1421,7 @@ Partial Class Clientes
                 'TxtEstado.Text = ObjClientes.Estado
                 'TxtPais.Text = ObjClientes.Pais
                 TxtRFC.Text = ObjClientes.RFC
+
                 TxtCP.Text = ObjClientes.CP.ToString
                 TxtTelefono.Text = ObjClientes.Telefono
                 TxtContacto.Text = ObjClientes.Contacto
@@ -1899,6 +1900,15 @@ Partial Class Clientes
         End If
         ObjClientes.Dispose()
         GvDireccionesEnvio.DataBind()
+
+        If TxtRFC.Text = "XAXX010101000" Then
+            GvDireccionesEnvio.HeaderRow.FCLiteral("LtlNombreSucursal").Text = "Cliente"
+            LtlNombreSucursal.Text = "Cliente"
+            LtlNombreSucursalTitulo.Text = "Cliente"
+            LtlTituloSurcusalCliente.Text = "Datos del cliente"
+            LtlGvSucursalesCliente.Text = "Clientes"
+        End If
+        UpAgregarSucursal.Update()
         UpDatos.Update()
     End Sub
     Public Sub CargaAFAsignados()
@@ -2976,15 +2986,13 @@ Partial Class Clientes
 
         Dim LT As String = If(txtLt.Text.ToDouble <> 0, txtLt.Text, "0")
         Dim LG As String = If(txtLg.Text.ToDouble <> 0, txtLg.Text, "0")
+        Dim RFC As String = If(String.IsNullOrEmpty(TxtRFCSucursal.Text), "-1", TxtRFCSucursal.Text)
 
         If CveCliente > 0 Then
             If Actualizar Then
 
-
                 Dim Estatus As Boolean = ChkEstatusSucursal.Checked
 
-
-
                 If ObjCliente.UpdateSucursal(TxtNombreSucursal.Text.Trim, Estatus, CveCliente, CveClienteSuc, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim,
                                              TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtCorreoSucursal.Text.Trim, TxtCorreoSucursalCotizacion.Text.Trim, TxtContactoSucursal.Text.Trim, DdlVendedorSucursal.SelectedValue.ToEntero, TxtNumeroCuenta.Text, DdlMetodoPagoSucursal.SelectedValue.ToEntero, TxtLimiteCreditoSucursal.Text.ToDecimal, DdlResponsableSucursal.SelectedValue.ToEntero,
                                               DdlSucursalUsoCFDI.SelectedValue.ToEntero, DdlSucursalFormaPago33.SelectedValue.ToEntero, DdlSucursalMetodoPago33.SelectedValue.ToEntero, LT:=LT, LG:=LG) Then
@@ -3126,6 +3134,7 @@ Partial Class Clientes
     Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GVSucursales.RowEditing
 
         Me.Actualizar = True
+        Me.DivRFCSucursal.Visible = False
         Me.CveClienteSuc = GVSucursales.DataKeys(e.NewEditIndex).Value.ToString.ToEntero
 
 
@@ -3146,6 +3155,8 @@ Partial Class Clientes
             TxtNumExtSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoExt").ToString
             TxtNumIntSucursal.Text = ObjCliente.DtResultados.Rows(0)("NoInt").ToString
             TxtTelefonoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Telefono").ToString
+            TxtRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString
+            DivRFCSucursal.Visible = Not String.IsNullOrEmpty(TxtRFCSucursal.Text.Trim())
             TxtCorreoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Correo").ToString
             TxtCorreoSucursalCotizacion.Text = ObjCliente.DtResultados(0)("CorreoCotizacion").ToString
             TxtContactoSucursal.Text = ObjCliente.DtResultados.Rows(0)("Contacto").ToString

Ventas/ProductosServicios.aspx.vb

@@ -821,7 +821,6 @@ Partial Class ProductosyServicios
                 lbTitulo.Text = $"{lbTitulo.Text}{ObjProductosServicios.PS}"
                 LtProductoUnificar.Text = ObjProductosServicios.PS
                 ddlMetodos.SelectedValue = ObjProductosServicios.CveMetodoInventario.ToString
-                TxtAlmacenSeccion.Text = ObjProductosServicios.AlmacenSeccion.ToString
                 DdlConceptoRelacionado.SelectedValueExist(ObjProductosServicios.CveConceptoContable.ToString)
 
                 DdlProveedor.SelectedValue = ObjProductosServicios.CveProveedorCompra.ToString

Ventas/Ventas.aspx

@@ -417,11 +417,33 @@
                                 <td width="135px">
                                     <asp:CheckBox ID="ChkEnviarFactura" runat="server" /></td>
                             </tr>
+                            <%--                            <tr runat="server" id="trFacturacionSucursal" visible="false">
+                                <td><b>Facturar Sucursal :</b></td>
+                                <td>
+                                    <asp:CheckBox ID="ChkFacturarSucursal" runat="server" OnCheckedChanged="ChkFacturarSucursal_CheckedChanged" />
+                                </td>
+                            </tr>--%>
                             <tr runat="server" id="trsucursalciente" visible="false">
-                                <td><b>Sucursal :</b></td>
-                                <td colspan="3">
-                                    <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal" Width="150px">
-                                    </asp:DropDownList>
+                                <td align="left" ><b>
+                                    <asp:Label ID="LblSucursal" runat="server" Text="Sucursal"></asp:Label>
+                                    :</b></td>
+                                <td align="left" >
+                                    <div class="row align-items-start">
+                                        <div class="col-md-10">
+                                            <asp:DropDownList ID="DdlSucursalCliente" runat="server" AutoPostBack="true" CssClass="form-control input-sm select2me" AppendDataBoundItems="true" DataTextField="SucursalCliente" DataValueField="CveClienteSucursal">
+                                            </asp:DropDownList>
+                                        </div>
+                                        <div class="col-md-2" style="padding: inherit;">
+                                            <asp:LinkButton ID="LnkAgregarSucursal" Visible="false" runat="server" CssClass="btn btn-primary btn-circle btn-xs" Text="<i class='fa fa-plus' aria-hidden='true'></i>" OnClick="LnkAgregarSucursal_Click"></asp:LinkButton>
+                                        </div>
+                                    </div>
+                                </td>
+                                <td align="left" >
+                                    <b>
+                                        <asp:Label ID="LtlTitleRFCSucursal" runat="server" Text=""></asp:Label></b>
+                                </td>
+                                <td align="left" >
+                                    <asp:Label ID="LtlRFCSucursal" runat="server" Text=""></asp:Label>
                                 </td>
                             </tr>
                             <tr align="left" runat="server" id="TrDireccion">
@@ -6880,6 +6902,132 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+    <%-- MODAL SUCURSAL --%>
+    <div id="divAgregarSucursal" class="modal fade" role="dialog">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+            <asp:UpdatePanel ID="UpAgregarSucursal" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <fieldset>
+                        <table border="0" class="portlet light bordered">
+                            <tr>
+                                <div class="portlet-title">
+                                    <div class="caption font-green">
+                                        <i class="fa fa-users font-green"></i>
+                                        <span class="caption-subject bold uppercase">Datos del cliente </span>
+                                    </div>
+                                    <div class="actions">
+                                        <div class="btn-group">
+                                        </div>
+                                    </div>
+                                </div>
+                            </tr>
+                            <tr>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-12">
+                                        <asp:TextBox ID="TxtNombreSucursal" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RFVNombreSucursal" runat="server" ControlToValidate="TxtNombreSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtNombreSucursal.ClientID.ToString()%>">Nombre del cliente:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-12">
+                                        <asp:TextBox ID="TxtRFCSucursal" Style="text-transform: uppercase;" runat="server" CssClass="form-control" MaxLength="13" CausesValidation="true"></asp:TextBox>
+                                        <asp:RegularExpressionValidator ID="RFVRFCSucursal" runat="server" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''RFC''</b> es incorrecto, por favor ingréselo." ValidationGroup="GrpGuardarSucursal" ControlToValidate="TxtRFCSucursal" ValidationExpression="^[a-zA-Z.)(/\\&-]{3,4}(\d{6})((\D|\d){2})((\D|\d){1})$"></asp:RegularExpressionValidator>
+                                        <label for="<%= TxtRFCSucursal.ClientID.ToString()%>">RFC:</label>
+                                    </div>
+                                </div>
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtDireccionSucursal" CssClass="form-control " runat="server" MaxLength="90" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator13" runat="server" ControlToValidate="TxtDireccionSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Direccion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtDireccionSucursal.ClientID.ToString()%>">Calle:</label>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:TextBox ID="TxtNumExtSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator14" runat="server" ControlToValidate="TxtNumExtSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Número Exterior''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtNumExtSucursal.ClientID.ToString()%>">Número Exterior:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-3">
+                                        <asp:TextBox ID="TxtNumIntSucursal" CssClass="form-control " runat="server" MaxLength="20" CausesValidation="true"></asp:TextBox>
+                                        <label for="<%= TxtNumIntSucursal.ClientID.ToString()%>">Número Interior:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtCPSucursal" CssClass="form-control " runat="server" MaxLength="5" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator15" runat="server" ControlToValidate="TxtCPSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Código Postal''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCPSucursal.ClientID.ToString()%>">Código Postal:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtColoniaSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator16" runat="server" ControlToValidate="TxtColoniaSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtColoniaSucursal.ClientID.ToString()%>">Colonia:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtCiudadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator17" runat="server" ControlToValidate="TxtCiudadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ciudad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtCiudadSucursal.ClientID.ToString()%>">Ciudad:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtLocalidadSucursal" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator18" runat="server" ControlToValidate="TxtLocalidadSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Localidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtLocalidadSucursal.ClientID.ToString()%>">Localidad:</label>
+                                    </div>
+                                </div>
+                                <div class="row" style="padding-left: 16px;">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtEstadoSucursal" CssClass="form-control " runat="server" MaxLength="35" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator19" runat="server" ControlToValidate="TxtEstadoSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtEstadoSucursal.ClientID.ToString()%>">Estado:</label>
+                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright col-xs-4">
+                                        <asp:TextBox ID="TxtPaisSucursal" CssClass="form-control " Text="Mexico" runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                        <asp:RequiredFieldValidator ID="RequiredFieldValidator20" runat="server" ControlToValidate="TxtPaisSucursal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''País''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarSucursal"></asp:RequiredFieldValidator>
+                                        <label for="<%= TxtPaisSucursal.ClientID.ToString()%>">País:</label>
+                                    </div>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTelefonoSucursal" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="mskTelefono" runat="server" TargetControlID="TxtTelefonoSucursal" ClearMaskOnLostFocus="false" MaskType="None" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <label for="<%= TxtTelefonoSucursal.ClientID.ToString()%>">Teléfono:</label>
+                                </div>
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtCorreoSucursal" CssClass="form-control" runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                    <asp:RegularExpressionValidator ID="RegularExpressionValidator4" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtCorreoSucursal" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Email''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarSucursal"></asp:RegularExpressionValidator>
+                                    <label for="<%= TxtCorreoSucursal.ClientID.ToString()%>">Correo Envio Factura:(xml/pdf) </label>
+                                    <i></i>
+                                </div>
+
+                                <div class="row" style="padding-left: 16px">
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:DropDownList ID="DdlVendedorSucursal" runat="server" CssClass="form-control input-sm select2me" Width="250px" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                        </asp:DropDownList>
+                                        <label for="<%= DdlVendedorSucursal.ClientID.ToString()%>">Vendedor:</label>
+                                    </div>
+
+                                    <div class="form-group form-md-line-input input-iconright col-xs-6">
+                                        <asp:DropDownList ID="DdlSucursalUsoCFDI" CssClass="form-control  select2me" runat="server" Width="150px" AppendDataBoundItems="true" DataTextField="UsoCFDIDescripcion" DataValueField="CveUsoCFDI">
+                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                        <label for="<%=  DdlSucursalUsoCFDI.ClientID.ToString()%>">Uso CFDI:</label>
+                                    </div>
+
+                                </div>
+                            </tr>
+                        </table>
+                    </fieldset>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgregarSucursal" runat="server" CssClass="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarSucursal" />
+                        <button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/jquery-sortable.js"></script>
@@ -7744,75 +7892,75 @@
 
         function LimpiaModal() {
             $('#<%= TxtDireccion.ClientID  %>').val('');
-                            $('#<%= TxtColonia.ClientID  %>').val('');
-                            $('#<%= TxtCiudad.ClientID  %>').val('');
-                            $('#<%= TxtEstado.ClientID  %>').val('');
-                            $('#<%= TxtCP.ClientID  %>').val('');
-                        }
+            $('#<%= TxtColonia.ClientID  %>').val('');
+            $('#<%= TxtCiudad.ClientID  %>').val('');
+            $('#<%= TxtEstado.ClientID  %>').val('');
+            $('#<%= TxtCP.ClientID  %>').val('');
+        }
 
-                        function BtnMateriales() {
-                            $('#BtnMateriales').click();
-                        }
+        function BtnMateriales() {
+            $('#BtnMateriales').click();
+        }
 
-                        function BtnEnviarMailCancelacion() {
-                            $('#BtnEnviarMailCancelacion').click();
-                        }
-                        function BtnRefacturacionConfirmar() {
-                            $('#BtnRefacturacionConfirmar').click();
-                        }
-                        function BtnRefacturacionConfirmarAceptacion(Liga) {
-                            $('#BtnRefacturacionConfirmarAceptacion').click();
-                        }
-                        function BtnRefrescarPagina() {
-                            $('#BtnRefrescarPagina').click();
-                        }
-                        function Recargar() {
-                            $('#BtnRefrescarPagina').click();
-                        }
-                        function BtnAplicaNuevaNC() {
-                            $('#BtnAplicaNuevaNC').click();
-                        }
+        function BtnEnviarMailCancelacion() {
+            $('#BtnEnviarMailCancelacion').click();
+        }
+        function BtnRefacturacionConfirmar() {
+            $('#BtnRefacturacionConfirmar').click();
+        }
+        function BtnRefacturacionConfirmarAceptacion(Liga) {
+            $('#BtnRefacturacionConfirmarAceptacion').click();
+        }
+        function BtnRefrescarPagina() {
+            $('#BtnRefrescarPagina').click();
+        }
+        function Recargar() {
+            $('#BtnRefrescarPagina').click();
+        }
+        function BtnAplicaNuevaNC() {
+            $('#BtnAplicaNuevaNC').click();
+        }
 
-                        $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
-                        $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
+        $('.DdlPS').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
+        $('.DdlPSPyME').on("select2:open", function (e) { $('.select2-container.select2-container--default .select2-dropdown .select2anothertable').remove(); });
 
-                        $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) {
-                            var $this = $(this);
-                            var ind = $this.index();
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active');
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active');
-                            //log($this);
-                        });
-                        var scrollfuncion = function () {
-                            var stop = this.scrollTop;
-                            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
-                        }
-                        function CargaExistenciaAlmacenes(data, params) {
-                            var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
-                            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
-                            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
-                            var table = $('<table id="TExistencias" ></table>'); div.append(table);
-                            var tbody = $('<tbody></tbody>'); table.append(tbody);
-                            $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
-                            $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
-                            var indexd = 0;
-                            data.forEach(function (item) {
-                                if (indexd == 0) {
-                                    var tr = $('<tr></tr>'); tbody.append(tr);
-                                    var td;
-                                    for (var key in item) {
-                                        if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); }
-                                    }
-                                }
-                                var tr = $('<tr></tr>'); tbody.append(tr);
+        $("body").on("mouseenter", ".select2-container.select2-container--default.select2-container--open .select2-dropdown li", function (event) {
+            var $this = $(this);
+            var ind = $this.index();
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr.active").removeClass('active');
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable tr:nth-child(" + (ind + 2) + ")").addClass('active');
+            //log($this);
+        });
+        var scrollfuncion = function () {
+            var stop = this.scrollTop;
+            $(".select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable").scrollTop(stop);
+        }
+        function CargaExistenciaAlmacenes(data, params) {
+            var div = $('<div class="select2anothertable" style=" max-width: 950px; overflow-x: auto;"></div>');
+            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown .select2anothertable').remove();
+            $('.select2-container.select2-container--default.select2-container--open .select2-dropdown').prepend(div);
+            var table = $('<table id="TExistencias" ></table>'); div.append(table);
+            var tbody = $('<tbody></tbody>'); table.append(tbody);
+            $(".select2-container--default .select2-results>.select2-results__options").off("scroll", scrollfuncion);
+            $(".select2-container--default .select2-results>.select2-results__options").scroll(scrollfuncion);
+            var indexd = 0;
+            data.forEach(function (item) {
+                if (indexd == 0) {
+                    var tr = $('<tr></tr>'); tbody.append(tr);
+                    var td;
+                    for (var key in item) {
+                        if (!(key == "text" || key == "id")) { td = $('<td style="font-weight:bold;">' + key + '</td>'); tr.append(td); }
+                    }
+                }
+                var tr = $('<tr></tr>'); tbody.append(tr);
 
-                                var td;
-                                for (var key in item) {
-                                    if (!(key == "text" || key == "id")) {
-                                        if ((item[key] > 0)) {
-                                            td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
-                                        } else {
-                                            if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
+                var td;
+                for (var key in item) {
+                    if (!(key == "text" || key == "id")) {
+                        if ((item[key] > 0)) {
+                            td = $('<td style = "font-weight:bold;" >' + item[key] + '</td>'); tr.append(td);
+                        } else {
+                            if ('<%= UsuarioActual.Empresa.Funcionalidad(566) %>' == '1') {
                                 var buscarAlmacenes = "CargaExistenciasSucursales(" + item.id + ",'" + item.text + "');"
                                 td = $('<td>' + item[key] + ' <button type="button" class="btn btn-xs btn-primary" onclick="' + buscarAlmacenes + '">Ver mas existencias</button></td>'); tr.append(td);
                             } else {
@@ -7951,17 +8099,17 @@
         function ConvertirPesos(ChkConvertirDoctoPesos) {
             //LIMPIA
             $('#<%= LtlTotalConvertido.ClientID  %>').text('');
-            $("#TrConversionPesosTexto").hide();
+                            $("#TrConversionPesosTexto").hide();
 
-            //CALCULA
-            if (ChkConvertirDoctoPesos.checked) {
-                ConvertirDllsPesos();
-            }
-        }
+                            //CALCULA
+                            if (ChkConvertirDoctoPesos.checked) {
+                                ConvertirDllsPesos();
+                            }
+                        }
 
-        function ConvertirPesosDlls() {
-            var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2)
-            $('#<%= LblDolaresConvertidos.ClientID  %>').text(totalPesos);
+                        function ConvertirPesosDlls() {
+                            var totalPesos = FormatoNumero(ToDouble($get('TxtTotal').value) / ToDouble($get('TxtTipoCambioDlls').value), 2)
+                            $('#<%= LblDolaresConvertidos.ClientID  %>').text(totalPesos);
             $("#TrConversionDolaresTexto").show();
         }
 
@@ -8098,5 +8246,26 @@
             }
         };
 
+        function showDivAgregarSucursal() {
+
+            $('#<%= TxtNombreSucursal.ClientID  %>').val('');
+            $('#<%= TxtDireccionSucursal.ClientID  %>').val('');
+            $('#<%= TxtNumExtSucursal.ClientID  %>').val('');
+            $('#<%= TxtNumIntSucursal.ClientID  %>').val('');
+            $('#<%= TxtCPSucursal.ClientID  %>').val('');
+            $('#<%= TxtColoniaSucursal.ClientID  %>').val('');
+            $('#<%= TxtTelefonoSucursal.ClientID  %>').val('');
+            $('#<%= TxtCiudadSucursal.ClientID  %>').val('');
+            $('#<%= TxtLocalidadSucursal.ClientID  %>').val('');
+            $('#<%= TxtEstadoSucursal.ClientID  %>').val('');
+            $('#<%= TxtPaisSucursal.ClientID  %>').val('');
+            $('#<%= TxtCorreoSucursal.ClientID  %>').val('');
+            $('#divAgregarSucursal').modal();
+        }
+
+        function hideDivAgregarSucursal() {
+            $('#divAgregarSucursal').modal('hide');
+        }
+
     </script>
 </asp:Content>

Ventas/Ventas.aspx.vb

@@ -1764,6 +1764,23 @@ Partial Class Ventas
             ViewState("CvePrecioLista") = value
         End Set
     End Property
+    Private Property FacturarSucursal As Boolean
+        Get
+            Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal")))
+        End Get
+        Set(value As Boolean)
+            ViewState("FacturarSucursal") = value
+        End Set
+    End Property
+
+    Private Property ClienteSucursal As Modelos.SucursalModel
+        Get
+            Return CType(ViewState("ClienteSucursal"), Modelos.SucursalModel)
+        End Get
+        Set(value As Modelos.SucursalModel)
+            ViewState("ClienteSucursal") = value
+        End Set
+    End Property
 
 #End Region
 
@@ -2643,6 +2660,12 @@ Partial Class Ventas
             End If
 
 
+            'rmf.2020.09.30, codigo de prueba
+            If UsuarioActual.CveEmpresa = 1 Then
+                DivMesesSinIntereses.Visible = True
+                DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4")
+                DivContadoOtros.Visible = True
+            End If
 
             If UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 Then
 
@@ -4566,6 +4589,12 @@ Partial Class Ventas
 
                 DdlTipoRetencion.SelectedValueExist(DbRowVenta("CveTipoRetencion").ToString())
 
+                Me.FacturarSucursal = CBool(DbRowVenta("FacturarSucursal").ToString())
+
+                If Me.FacturarSucursal Then
+                    HabilitarFacturacionSucursal()
+                End If
+
                 CargaPS(-1, DdlPS)
 
                 'CARGA GV DE OC RELACIONADAS
@@ -4802,7 +4831,10 @@ Partial Class Ventas
     End Sub
     Private Sub CargaUsoCFDI()
         DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica)
+
         DdlUsoCFDI.DataBind()
+        DdlSucursalUsoCFDI.DataBind()
     End Sub
     Private Sub CargaTiposRelacion()
         DdlTiposRelacion.DataSource = GlobalDTVtaTiposRelacion
@@ -5221,6 +5253,11 @@ Partial Class Ventas
                 DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
                 DdlSucursalCliente.DataBind()
 
+                'SI UTILIZA EL RFC GENERICO PERMITE FACTURAR SUCURSAL
+                If (CveVenta <= 0 OrElse NuevaFactura = 1) AndAlso LblRFC.Text.Trim() = "XAXX010101000" Then
+                    HabilitarFacturacionSucursal()
+                End If
+
                 'CargaFolios()
 
                 CargaDatosEstimaciones(CveCliente)
@@ -5576,6 +5613,11 @@ Partial Class Ventas
 
 
     Private Sub CargaClienteSucursal(CveClienteSuc As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing)
+        Me.ClienteSucursal = Nothing
+        Me.FacturarSucursal = False
+        LtlTitleRFCSucursal.Text = ""
+        LtlRFCSucursal.Text = ""
+
         Dim ObjCliente As New ClsClientes
         If CveClienteSuc > 0 Then
             If ObjCliente.GetSucursales(CveCliente, CveClienteSuc) Then
@@ -5612,6 +5654,32 @@ Partial Class Ventas
                         UpParametros.Update()
                     End If
 
+                    'SI EL CLIENTE TIENE RFC GENERICO Y LA SUCURSAL TIENE RFC DEBE FACTURAR LA SUCURSAL
+                    If LblRFC.Text.Trim() = "XAXX010101000" AndAlso Not String.IsNullOrEmpty(ObjCliente.DtResultados.Rows(0)("RFC").ToString()) Then
+                        Me.FacturarSucursal = True
+
+                        LtlTitleRFCSucursal.Text = "RFC:"
+                        LtlRFCSucursal.Text = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
+
+                        Me.ClienteSucursal = New Modelos.SucursalModel
+                        Me.ClienteSucursal.Nombre = ObjCliente.DtResultados.Rows(0)("SucursalCliente").ToString()
+                        Me.ClienteSucursal.RFC = ObjCliente.DtResultados.Rows(0)("RFC").ToString()
+                        Me.ClienteSucursal.NoExt = CliNoExt
+                        Me.ClienteSucursal.NoInt = CliNoInt
+                        Me.ClienteSucursal.Localidad = CliLocalidad
+                        Me.ClienteSucursal.Direccion = LblDireccion.Text
+                        Me.ClienteSucursal.Colonia = LblColonia.Text
+                        Me.ClienteSucursal.Municipio = LblCiudad.Text
+                        Me.ClienteSucursal.Estado = LblEstado.Text
+                        Me.ClienteSucursal.CP = LblCP.Text
+                        Me.ClienteSucursal.Pais = CliPais
+                        Me.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
+                        Me.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
+                        Me.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
+                        Me.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
+
+                    End If
+
                     If CveVenta <= 0 Then
                         CveMetodoPagoCliente = ObjCliente.DtResultados.Rows(0)("CveMetodoPago").ToString().ToEntero()
 
@@ -5666,10 +5734,12 @@ Partial Class Ventas
             LnkRemisiones.Visible = If(UsuarioActual.TienePermisoProceso(199), True, False) : LnkOCs.Visible = True : LnkCotizaciones.Visible = True : LnkPedido2SinFacturar.Visible = True : InicializaAplicarNCMasiva()
         End If
 
+        ObjCliente.Dispose()
+
         UPPVentas.Update()
         UpEstatus.Update()
         UPCondicionesPago.Update()
-        ObjCliente.Dispose()
+        UpCliente.Update()
     End Sub
     Private Function CargaCreditoDisponible(tCveCliente As Integer, tCveSucursalCliente As Integer, Optional ByRef ObjVentas As ClsVentas = Nothing) As Decimal
         Dim Retorno As Decimal = 0
@@ -6630,6 +6700,11 @@ Partial Class Ventas
         DtOCTmpDT = TmpDT.Copy
         TmpDTError = TmpDT.Copy
 
+        If (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
+            Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'CUANDO ES PEDIDO SE DEBE ESPECIFICAR EL NUMERO DE CONTRATO
         If TrTipoPedido.Visible AndAlso DdlTipoPedido.SelectedIndex = 2 Then
             If String.IsNullOrEmpty(TxtObsFact.Text.Trim()) Then
@@ -6993,6 +7068,22 @@ Partial Class Ventas
                 Exit Sub
             End If
             dttsat.Dispose()
+
+            If UsuarioActual.CveEmpresa = 72 Then
+                Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
+                If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+                    Dim StrNoEncontrados As New StringBuilder
+                    StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                    For Each drt As DataRow In DtNoEncontrados.Rows
+                        StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+                    Next
+                    Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+                    DtNoEncontrados.Dispose()
+                    StrNoEncontrados.Clear()
+                    Exit Sub
+                End If
+                DtNoEncontrados.Dispose()
+            End If
         End If
 
         If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
@@ -7904,6 +7995,10 @@ Partial Class Ventas
         'ObjFacturaDevolucion.SetSucursal(Me)
 
         ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+            ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+        End If
         ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -8140,6 +8235,11 @@ Partial Class Ventas
         'ObjFacturaBonificacion.SetSucursal(Me)
 
         ObjFacturaBonificacion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaBonificacion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+            ObjFacturaBonificacion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+        End If
+
         ObjFacturaBonificacion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaBonificacion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaBonificacion.ClienteSucursal.Localidad = CliLocalidad
@@ -8371,7 +8471,6 @@ Partial Class Ventas
             ObjFactura = New Modelos.Factura
         End If
 
-
         ObjFactura.Version = "3.3"
         ObjFactura.CveUsuario = UsuarioActual.CveUsuario
         ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -8383,7 +8482,7 @@ Partial Class Ventas
         ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
         ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString().ToEntero() > 0, "Ing", DdlTipoComprobante.SelectedValue)
-
+        ObjFactura.FacturarSucursal = (Me.FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso Not String.IsNullOrEmpty(Me.ClienteSucursal.RFC)))
 
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
         'si es cancelacion, debe de conservar el folio actual
@@ -8832,8 +8931,12 @@ Partial Class Ventas
         'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFactura.SetSubProyectoMatriz(Me)
         ObjFactura.SetSubProyecto(Me)
-        ObjFactura.ClienteSucursal = New Modelos.SucursalModel
+        ObjFactura.ClienteSucursal = New Modelos.SucursalModel()
         If Not CveEmpresaCRM > 0 Then
+            If Me.ClienteSucursal IsNot Nothing Then
+                ObjFactura.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+                ObjFactura.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+            End If
             ObjFactura.ClienteSucursal.NoExt = CliNoExt
             ObjFactura.ClienteSucursal.NoInt = CliNoInt
             ObjFactura.ClienteSucursal.Localidad = CliLocalidad
@@ -9232,7 +9335,12 @@ Partial Class Ventas
         ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFacturaDevolucion.SetSubProyectoMatriz(Me)
         ObjFacturaDevolucion.SetSubProyecto(Me)
+
         ObjFacturaDevolucion.ClienteSucursal = New Modelos.SucursalModel
+        If Me.ClienteSucursal IsNot Nothing Then
+            ObjFacturaDevolucion.ClienteSucursal.RFC = Me.ClienteSucursal.RFC
+            ObjFacturaDevolucion.ClienteSucursal.Nombre = Me.ClienteSucursal.Nombre
+        End If
         ObjFacturaDevolucion.ClienteSucursal.NoExt = CliNoExt
         ObjFacturaDevolucion.ClienteSucursal.NoInt = CliNoInt
         ObjFacturaDevolucion.ClienteSucursal.Localidad = CliLocalidad
@@ -9245,6 +9353,7 @@ Partial Class Ventas
         ObjFacturaDevolucion.ClienteSucursal.CorreoSucursal = CliCorreoCot.ToString()
         ObjFacturaDevolucion.ClienteSucursal.TelefonoSucursal = LblTelefono.Text
         ObjFacturaDevolucion.ClienteSucursal.Sucursal = If(DdlSucursalCliente.SelectedValue.ToEntero() > 0, DdlSucursalCliente.SelectedItem.Text, "")
+        ObjFacturaDevolucion.ClienteSucursal.ImprimeNombreSucursal = ImprimeNombreSucursal.ToString()
 
         'ENVIO DIRECCION
         ObjFacturaDevolucion.EnviarA = New Modelos.EnviarAModel
@@ -9292,13 +9401,18 @@ Partial Class Ventas
 
         Timbre.Comprobante.Confirmacion = ""
 
-        Timbre.Receptor.RFC = Obj.Cliente.RFC
-        Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+        If Obj.FacturarSucursal Then
+            Timbre.Receptor.RFC = Obj.ClienteSucursal.RFC
+            Timbre.Receptor.Nombre = Obj.ClienteSucursal.Nombre
+        Else
+            Timbre.Receptor.RFC = Obj.Cliente.RFC
+            Timbre.Receptor.Nombre = Obj.Cliente.Nombre
+        End If
+
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
 
-
         If HdnTipoDescuento.Value = "3" And DdlTipoAmortizacionAnticipo.SelectedValue.ToEntero() > 0 Then
 
             Timbre.CFDIRelacionados.TipoRelacion = "07"
@@ -9367,8 +9481,6 @@ Partial Class Ventas
         End If
 
 
-
-
         Dim totSubTotal As Decimal = Obj.SubTotal
         Dim totIVA As Decimal = Obj.IVA
         Dim totRetIVA As Decimal = Obj.RetIVA
@@ -9936,7 +10048,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -14980,6 +15092,10 @@ Partial Class Ventas
                     DdlIVA.SelectedValue = "1.16"
                     PorcentajeIVA = ViewState("IVA").ToString().ToDecimal
             End Select
+            'SI ES COTIZACION HABILITAR EL DDL DE IVA
+            If CveVenta <= 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+                DdlIVA.Visible = True
+            End If
             If TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 AndAlso (Not CveVenta > 0 Or EsCreaApartirDe Or CveDevolucion > 0) Then RecalculaIVA()
             'ViewState("SubProyectoPorcentajeIVA") = dr("IVA")
             ViewState("TipoFormato") = dr("TipoFormato")
@@ -15027,7 +15143,11 @@ Partial Class Ventas
 
         DdlVendedor.SelectedValue = "0"
         DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0"))
+
+        DdlVendedorSucursal.DataSource = DdlVendedor.DataSource
+
         DdlVendedor.DataBind()
+        DdlVendedorSucursal.DataBind()
 
         DdlVendedor.SelectedValueExist(CveVendedorActual)
 
@@ -15133,7 +15253,7 @@ Partial Class Ventas
 
                 If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
                     'VALIDA EXISTENCIA
-                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) Then
+                    If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153}) Then
                         If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then
                             Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia)
                             Return False
@@ -15621,6 +15741,11 @@ Partial Class Ventas
                     MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: Sin Unidad Medida SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
                     Return False
                 End If
+
+                If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then
+                    MensajeCveSAT.AppendFormat("<b>{0}-{1}</b>: El producto/servicio no existe en el catálogo del SAT<br/>", DrPS("Codigo").ToString(), DrPS("PS").ToString())
+                    Return False
+                End If
             End If
         End If
 
@@ -16709,6 +16834,84 @@ Partial Class Ventas
     Protected Sub TxtFolio_TextChanged(sender As Object, e As System.EventArgs) Handles TxtFolio.TextChanged
         ViewState("EstablecioFolio") = True
     End Sub
+    Private Sub HabilitarFacturacionSucursal()
+        trsucursalciente.Visible = True
+        LnkAgregarSucursal.Visible = True
+        LblSucursal.Text = "Cliente"
+        If (CveVenta <= 0 OrElse NuevaFactura = 1) Then
+            DdlSucursalCliente.Enabled = True
+        End If
+        DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
+
+        UpCliente.Update()
+    End Sub
+
+    Protected Sub ChkFacturarSucursal_CheckedChanged(sender As Object, e As EventArgs)
+
+    End Sub
+    Protected Sub LnkAgregarSucursal_Click(sender As Object, e As EventArgs)
+        RegistraScript("showDivAgregarSucursal();")
+    End Sub
+
+    Protected Sub BtnAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarSucursal.Click
+
+        Dim LT As String = "0"
+        Dim LG As String = "0"
+
+        If CveCliente > 0 Then
+            Dim ObjCliente As New ClsClientes
+            Try
+                If ObjCliente.AddSucursal(CveCliente, TxtNombreSucursal.Text.Trim, UsuarioActual.CveUsuario, TxtCiudadSucursal.Text.Trim, TxtColoniaSucursal.Text.Trim, TxtCPSucursal.Text.Trim, TxtDireccionSucursal.Text.Trim, TxtEstadoSucursal.Text.Trim, TxtLocalidadSucursal.Text.Trim, TxtPaisSucursal.Text.Trim, TxtNumExtSucursal.Text.Trim, TxtNumIntSucursal.Text.Trim, TxtTelefonoSucursal.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", ""), TxtCorreoSucursal.Text.Trim, "", "",
+                                          DdlVendedorSucursal.SelectedValue.ToEntero, "", -1, 0, -1, DdlSucursalUsoCFDI.SelectedValue.ToEntero, -1, -1, LT:=LT, LG:=LG, RFC:=TxtRFCSucursal.Text.Trim()) Then
+                    TxtNombreSucursal.Text = ""
+                    TxtCiudadSucursal.Text = ""
+                    TxtColoniaSucursal.Text = ""
+                    TxtCPSucursal.Text = ""
+                    TxtDireccionSucursal.Text = ""
+                    TxtEstadoSucursal.Text = ""
+                    TxtLocalidadSucursal.Text = ""
+                    TxtPaisSucursal.Text = ""
+                    TxtNumExtSucursal.Text = ""
+                    TxtNumIntSucursal.Text = ""
+                    TxtTelefonoSucursal.Text = ""
+                    TxtCorreoSucursal.Text = ""
+
+                    DdlVendedorSucursal.SelectedIndex = 0
+                    DdlSucursalUsoCFDI.SelectedIndex = 0
+
+
+                    Alert("La nueva Sucursal del Cliente se guardó correctamente.", TipoMensaje.MsgInformacion)
+
+                    'VUELVE A CARGAR LAS SUCURSALES
+                    DdlSucursalCliente.Items.Clear()
+                    If ObjCliente.GetSucursales(CveCliente) Then
+                        DdlSucursalCliente.DataSource = ObjCliente.DtResultados
+                        If ObjCliente.DtResultados.Rows.Count > 0 Then
+                            trsucursalciente.Visible = True
+                        Else
+                            trsucursalciente.Visible = False
+                        End If
+                    Else
+                        trsucursalciente.Visible = False
+                        DdlSucursalCliente.DataSource = Nothing
+                    End If
+                    DdlSucursalCliente.Items.Insert(0, New ListItem("Matriz", "-1"))
+                    DdlSucursalCliente.DataBind()
+
+                End If
+            Catch ex As Exception
+                OnError("Ocurrió un error al agregar la sucursal", ex)
+            End Try
+            ObjCliente.Dispose()
+
+        End If
+
+        UpCliente.Update()
+        RegistraScript("hideDivAgregarSucursal();")
+
+    End Sub
+
+
     Private Sub ConfiguraTipoDocto()
 
         'Esconde Todo
@@ -17824,6 +18027,11 @@ Partial Class Ventas
                 Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
                 Dim RFCReceptor As String = LblRFC.Text.Trim
 
+                'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
+                If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
+                    RFCReceptor = Me.ClienteSucursal.RFC
+                End If
+
                 Dim SWatch As New Stopwatch
                 SWatch.Start()
 
@@ -18472,12 +18680,22 @@ Partial Class Ventas
         Select Case RBLPago.SelectedValue.ToEntero()
             Case 1 'CREDITO
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
+                'SI ES CREDITO EL METODO DE PAGO DEBE SER PPD
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("3")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 2 'CONTADO
                 If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") Or (UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And DdlTipoComprobante.SelectedValue = "Cot") Then
                     DivContado.Visible = True
                     TxtImporteContado.Text = TxtTotal.Text
                 End If
                 TxtFechaPago.Text = Now.ToShortDateString
+                'SI ES CONTADO EL METODO DE PAGO DEBE SER PUE
+                If UsuarioActual.Empresa.Funcionalidad(589) = "1" Then
+                    DdlMetodoPago33.SelectedValueExist("1")
+                    DdlMetodoPago33.Enabled = False
+                End If
             Case 3 ' TERMINAL
                 DivTerminal.Visible = True
                 TxtFechaPago.Text = If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza)).ToShortDateString
@@ -18485,6 +18703,7 @@ Partial Class Ventas
 
         LimpiaContado()
         UpContado.Update()
+        UPCondicionesPago.Update()
     End Sub
     Private Sub CargaCuentas()
 
@@ -18497,8 +18716,8 @@ Partial Class Ventas
         Dim DtCC As DataTable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
 
         DdlCuentaEfectivo.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaCredito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         DdlCuentaCheque.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
 
@@ -20040,6 +20259,12 @@ Partial Class Ventas
 
             Dim TotalT As Decimal = TxtTotal.Text.ToDecimal
             Dim RFCReceptor As String = LblRFC.Text.Trim
+
+            'SI SE FACTURO LA SUCURSAL DEL CLIENTE TOMA EL RFC DE ESTA
+            If FacturarSucursal AndAlso Me.ClienteSucursal IsNot Nothing Then
+                RFCReceptor = Me.ClienteSucursal.RFC
+            End If
+
             Dim SWatch As New Stopwatch
             SWatch.Start()
             Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, TotalT.ToString(), True)
@@ -25953,6 +26178,12 @@ Partial Class Ventas
         Return Retorno
     End Function
     Private Sub EmitirDocumentoNuevo(TipoDoctoNuevo As String)
+
+        If (FacturarSucursal AndAlso DdlSucursalCliente.SelectedValue.ToEntero() > 0 AndAlso (Me.ClienteSucursal IsNot Nothing AndAlso String.IsNullOrEmpty(Me.ClienteSucursal.RFC))) Then
+            Alert("La sucursal no tiene asignada un RFC.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         If GvPagos.Rows.Count = 0 And UsuarioActual.Empresa.Funcionalidad(558).ToEntero() = 1 And RBLPago.SelectedValue.ToEntero() = 2 Then
             Alert("No se puede facturar hasta que se haya especificado detalladamente la forma de pago", TipoMensaje.MsgAdvertencia)
         Else

asmx/WSApp.asmx

@@ -748,6 +748,8 @@ Public Class WSApp
                                             Exit For
                                         End If
                                     End If
+                                ElseIf CveTipoPS = 1 Then
+                                    Continuar = True
                                 End If
                             Else
                                 Continuar = False
@@ -773,22 +775,15 @@ Public Class WSApp
                             'Dim Correo As String = "japmx95@gmail.com"
                             Dim SerieFolio As String = Factura.SerieFolio
                             Dim DireccionEnvio As String = ""
-                            Dim ObjClientes As New ClsClientes
-                            If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
-                                If ObjClientes.DtResultados.Rows.Count > 0 Then
-                                    DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
+                            Using ObjClientes As New ClsClientes
+                                If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+                                    If ObjClientes.DtResultados.Rows.Count > 0 Then
+                                        DireccionEnvio = ObjClientes.DtResultados.FiltroPrimeroValor("DireccionEnvioContacto")
+                                    End If
                                 End If
-                            End If
-                            ObjClientes.Dispose()
-                            Dim Body = GeneraCorreoRemision(Retorno.CveVenta, SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Observaciones, DateTime.Now)
+                            End Using
                             Factura.Dispose()
-                            Try
-                                Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", SerieFolio)
-                                Dim Mail As New ClsSisMail()
-                                Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo, Asunto, Body)
-                            Catch ex As Exception
-                                OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
-                            End Try
+                            EnviarCorreo(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual)
                         Else
                             Factura.Dispose()
                         End If
@@ -807,6 +802,25 @@ Public Class WSApp
 
         Return JsonConvert.SerializeObject(Retorno)
     End Function
+    Private Sub EnviarCorreo(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Try
+            Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Correo, Factura, Retorno, DireccionEnvio, UsuarioActual))
+            Hilo.Start()
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar el correo de facturación", ex)
+        End Try
+    End Sub
+    Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
+        Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
+        Factura.Dispose()
+        Try
+            Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
+            Dim Mail As New ClsSisMail()
+            Mail.SendMail(UsuarioActual.Empresa, Correo, Asunto, Body)
+        Catch ex As Exception
+            OnError("Ocurrió error al mandar MAIL por cambio de Estatus", ex)
+        End Try
+    End Sub
     <WebMethod()>
     Public Function CancelarDocumento(CveVenta As Integer, CveUsuario As Integer) As String
         Dim Retorno = New Modelos.Factura.MMensajeFactura()

vwd.webinfo

@@ -112,6 +112,8 @@
     
   
     
+  
+