Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsBancos.vb

@@ -1185,7 +1185,7 @@ Public Class ClsBancos
     'End Function
 
     Public Function UpdateComplementoPago(CveComplementoPago As Integer, FolioFiscal As String, CvePAC As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional CvePACCancelacion As Integer = -1,
-                                          Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "") As Boolean
+                                          Optional FechaCancelacion As Date = MinFecha, Optional SelloCancelacion As String = "", Optional CveSATMotivoCancelacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_ComplementoPagoUpdate")
 
@@ -1199,6 +1199,7 @@ Public Class ClsBancos
             .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
             .Add("@FechaCancelacion", SqlDbType.Date).Value = FechaCancelacion
             .Add("@SelloCancelacion", SqlDbType.VarChar).Value = SelloCancelacion
+            .Add("@CveSATMotivoCancelacion", SqlDbType.Int).Value = CveSATMotivoCancelacion
 
         End With
 

App_Code/ClsContabilidad.vb

@@ -237,6 +237,31 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+
+    Public Function UpdatePrePolizasOrdenamiento(CvePrePoliza As Integer, CveEmpresa As Integer) As Integer
+        FolioPoliza = -1
+        Dim Retorno As Integer = -1
+
+        DataAdapter("PA_Conta_PrePolizas_Ordenamiento")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.VarChar).Value = CvePrePoliza
+            .Add("@CveEmpresa", SqlDbType.Bit).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualziar el ordenamientio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
+
+
     ''' <summary>
     ''' Actualiza la IdPoliza de una PrePoliza
     ''' </summary>

App_Code/ClsPaginas.vb

@@ -2042,7 +2042,9 @@ Public Class ClsPaginas
                 ObjVendedores.Dispose()
             End If
             If CveEmpresa <> -1 Then
+
                 Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveEmpresa = {0} AND CveEstatus = {1} AND VendedorTipo = {2}", CveEmpresa, If(Estatus, 1, 0), VendedorTipo), "", DataViewRowState.CurrentRows)
+
                 GlobalDTVendedores = Dv.ToTable
                 Dv.Dispose()
             Else
@@ -6582,7 +6584,7 @@ Public Class ClsPaginas
             params.Add(New CrystalParametro("LogoPath", LogoRuta))
 
             'VENDEDOR
-            Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+            Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
             If Not IsNothing(RowVendedor) Then
                 params.Add(New CrystalParametro("VendedorNombre", RowVendedor("Vendedor").ToString))
                 params.Add(New CrystalParametro("VendedorMail", RowVendedor("Correo").ToString))
@@ -7168,7 +7170,7 @@ Public Class ClsPaginas
             Dim VendedorTelefono As String = ""
             Dim VendedorCelular As String = ""
 
-            Dim RowVendedor As DataRow = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
+            Dim RowVendedor As DataRow = GlobalDTVendedores(-1).FiltroPrimero(String.Format("CveVendedor = {0}", Vta.CveVendedor.ToString))
 
             If Not IsNothing(RowVendedor) Then
                 VendedorNombre = RowVendedor("Vendedor").ToString
@@ -7526,6 +7528,7 @@ Public Class ClsPaginas
 
                     If ObjInv.GetMovimientos(Vta.Inv_CveMovimiento.ToEntero, -1, -1, UsuarioActual.CveEmpresa) Then
                         If ObjInv.DtResultados.Rows.Count > 0 Then
+
                             Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
                             If Dr IsNot Nothing Then
                                 AlmOrigen = Dr("AlmacenOrigen").ToString
@@ -7552,6 +7555,11 @@ Public Class ClsPaginas
                                     If Dr("PaisDestino").ToString.Length > 0 Then SBDireccionD.AppendFormat(", País: {0}", Dr("PaisDestino").ToString)
                                 End If
                             End If
+
+                            params.Add(New ReportParameter("Chofer", Dr("Chofer").ToString))
+                            params.Add(New ReportParameter("Placa", Dr("Placa").ToString))
+                            params.Add(New ReportParameter("EspecifUnidad", Dr("Especificacion").ToString))
+
                         End If
                     End If
 

App_Code/ClsVentas.vb

@@ -163,6 +163,25 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+    Public Function Embarque_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_AGRO_Embarque_ManifiestoUpvta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@cveEmbarqueManifiesto", SqlDbType.Int).Value = cveEmbarqueManifiesto
+            .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
     Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetTerminal")
@@ -1612,7 +1631,7 @@ Public Class ClsVentas
                                               Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = -1, Optional CveUsuarioConsulta As Integer = -1,
                                              Optional TipoDocto As String = "-1", Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1,
                                              Optional CveMarca As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+                                             Optional EsGarantia As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPS")
 
@@ -1646,6 +1665,7 @@ Public Class ClsVentas
             .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
 
         End With
 
@@ -1665,7 +1685,7 @@ Public Class ClsVentas
                                              Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1,
                                              Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1,
                                              Optional CveClasificacionDetalle As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1) As Boolean
+                                             Optional EsGarantia As Integer = -1, Optional MostrarLitraje As Boolean = False, Optional CveCondicionesPago As Integer = -1, Optional EsDistribuidor As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_GetRepPSDetalle")
 
@@ -1703,6 +1723,7 @@ Public Class ClsVentas
             .Add("@EsGarantia", SqlDbType.Int).Value = EsGarantia
             .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
         End With
 
         Try
@@ -4792,7 +4813,7 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
-    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer) As Boolean
+    Public Function AddMetasVendedores(CveVendedor As Integer, MesAño As Date, CveMarca As Integer, MetaCantidad As Integer, MetaImporte As Decimal, CveClasificacion As Integer, CveClasificacionSup As Integer, CveEmpresa As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedoresAdd", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -4803,6 +4824,7 @@ Public Class ClsVentas
             .Add("@MetaImporte", SqlDbType.Decimal).Value = MetaImporte
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacionSup", SqlDbType.Int).Value = CveClasificacionSup
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
         Try
             SqlAdapter.Fill(Data)

Bancos/IE.aspx

@@ -1370,11 +1370,13 @@
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
-                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                <asp:TemplateField HeaderText="Motivo" Visible="true" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%">
                                       <ItemTemplate>
-                                            <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
+                                          <asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Visible ="false">
-                                            </asp:DropDownList>
+                                          </asp:DropDownList>
+                                          <asp:Literal runat="server" ID="LtlMotivoCancelacion"  Text='<%# Eval("MotivoCancelacion") %>'>  </asp:Literal>
                                        </ItemTemplate>
+                                    
                                 </asp:TemplateField>
 
                                 <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">

Bancos/IE.aspx.vb

@@ -5847,6 +5847,8 @@ Partial Class Bancos_IE
             Else
                 GvComplementoPagos.DataSource = Nothing
             End If
+
+            GvComplementoPagos.Columns(8).Visible = False
         Else
             If CveIE > 0 Then
                 If ObjBancos.GetComplementoPagos(-1, CveIE, -1, UsuarioActual.CveEmpresa) Then
@@ -5862,13 +5864,14 @@ Partial Class Bancos_IE
 
                     ' GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "SerieFolio", "Fecha", "CveIE"})
 
-                    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC"})
+                    GvComplementoPagos.DataSource = ObjBancos.DtResultados.FiltraParametros("", DistinctColumns:={"CveComplementoPago", "FolioFiscal", "Folio", "SerieFolio", "FechaComplemento", "Importe", "RFCReceptor", "StrEstatus", "FechaCancelacion", "Tipo", "Estatus", "CveIE", "CvePAC", "MotivoCancelacion"})
 
                     '"CveComplementoPago","FolioFiscal","Folio","SerieFolio","FechaComplemento","Importe","RFCReceptor","StrEstatus","FechaCancelacion","Tipo,Estatus","CveIE","CvePAC"
 
                 End If
             End If
 
+            GvComplementoPagos.Columns(8).Visible = True
         End If
 
         ObjBancos.Dispose()
@@ -5904,6 +5907,12 @@ Partial Class Bancos_IE
                     e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
                 End If
 
+                If e.Row.DataKey("Estatus").ToEntero = 2 Then
+                    e.Row.FCLiteral("LtlMotivoCancelacion").Visible = True
+                Else
+                    e.Row.FCDropDownList("DdlMotivoCancelacion").Visible = False
+                End If
+
             ElseIf e.Row.DataKey("Tipo") = "Egs" Then
 
                 e.Row.Cells(3).Text = String.Format("<a class=""texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank""><i class=""fa fa-file-code-o""></i></a>", Encripta(String.Format("OP=Fact&EXT=xml&CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo(("RFCde").ToString.Replace("&", "%26%")))))
@@ -6676,7 +6685,7 @@ Partial Class Bancos_IE
 
             If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
-                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse, CveSATMotivoCancelacion:=CveSATMotivoCancelacion) Then
 
                     Alert("El complemento se cancelo correctamente.")
                 End If

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -233,14 +233,14 @@ Partial Class Bancos_RepEgresosSinComprobante
                     CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
                                                           "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, -1, -1,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
                                                          gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, -1, -1, gr.DataKey("CveIE").ToEntero,
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
                                                          ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                         Exit For

Compras/PopUpVerFactura.aspx.vb

@@ -261,8 +261,8 @@ Partial Class PopUpVerFactura
                 Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                 Rem1Placa = row("Rem1Placa").ToString()
                 NoFactura = row("NoFactura").ToString()
-                Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio"))
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
-                Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
+                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
 
                 NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
 
@@ -394,11 +394,12 @@ Partial Class PopUpVerFactura
                 NoCajas = row("NoCajas").ToString()
                 Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
                 CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
-                NumberOfCode = String.Format("(01)00856977005186(13){0:ddMMyy}(10){0}01", Regex.Match(row("Cuadro").ToString(), "\\d+"), row("Fecha"))
+                NumberOfCode = String.Format("(01)00856977005186(13){1:ddMMyy}(10){0}01", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
 
             End If
         End Using
         Dim params As New List(Of ReportParameter)
+
         params.Add(New ReportParameter("Tamano", Tamano))
         params.Add(New ReportParameter("noPallet", noPallet))
         params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
@@ -410,16 +411,44 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
         params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
 
+
+
         Dim tablaReporte As New DataTable
-
-
         tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
         tablaReporte.Rows.Add(tablaReporte.NewRow)
         tablaReporte.Rows.Add(tablaReporte.NewRow)
 
         Dim lrds As New List(Of ReportDataSource)
+
+        'img
+        Dim dtqr As New DataTable
+        Dim column As DataColumn = New DataColumn("ImagenByte")
+        column.DataType = System.Type.[GetType]("System.Byte[]")
+        column.AllowDBNull = True
+        column.Caption = "ImagenByte"
+        dtqr.Columns.Add(column)
+        Dim rowqr As DataRow = dtqr.NewRow()
+
+
+        Dim bcode As New BarcodeLib.Barcode()
+        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 50, 10)
+        Dim barcodebyte As Byte()
+        Using ms = New MemoryStream()
+            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            barcodebyte = ms.ToArray()
+        End Using
+        rowqr("ImagenByte") = barcodebyte
+
+        dtqr.Rows.Add(rowqr)
+        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
+        rds2.Name = "dsImagenes"
+        rds2.Value = dtqr
+        lrds.Add(rds2)
+        'endimg
+
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
+
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1107,7 +1107,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
                                 'Otros Ingresos
                                 If ChkAjusteOI.Checked Then
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 78, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, UsuarioActual.Empresa.IdCuentaOtrosIngresos, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
                                         MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                     End If
                                 End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -493,7 +493,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza)
-                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+                DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+
+
+                'DtMovimientos.DefaultView.Sort = "OrdenPP"
+                'DtMovimientos = DtMovimientos.DefaultView.ToTable
+
                 GvPrePoliza.DataSource = DtMovimientos
 
 
@@ -2971,23 +2976,28 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
             Catch ex As Exception
                 MsgError = "Error"
-            End Try
+            End Try
+
+            If MsgError = "" Then
+                If Not ObjMov.UpdatePrePolizasOrdenamiento(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    MsgError = "Orror al  ordenar polzia"
+                End If
+            End If
 
             If MsgError = "" Then
 
 
-
                 Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
 
 
 
-                ObjIE.Commit()
+                ObjIE.Commit()
-                If Conta IsNot Nothing Then Conta.Commit()
+                If Conta IsNot Nothing Then Conta.Commit()
-
+
-                UPPDocumento.Update()
+                UPPDocumento.Update()
-
+
-                TxtConcepto.Text = ""
+                TxtConcepto.Text = ""
-                GvMov.DataBind()
+                GvMov.DataBind()
                 TxtFechaDocumento.Text = ""
 
             Else

Empresas/140/Formatos/Cotizacion.rdlc

@@ -1224,7 +1224,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!Cantidad.Value * Fields!PU.Value</Value>
+                              <Value>=(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value</Value>
                               <Style>
                                 <FontFamily>Myriad Pro</FontFamily>
                                 <FontSize>9pt</FontSize>

Empresas/140/Formatos/Factura.rdlc

@@ -784,14 +784,6 @@
           </Paragraph>
           <Paragraph>
             <TextRuns>
-              <TextRun>
-                <Value>Moneda</Value>
-                <Style>
-                  <FontFamily>Myriad Pro</FontFamily>
-                  <FontSize>9.16pt</FontSize>
-                  <FontWeight>Bold</FontWeight>
-                </Style>
-              </TextRun>
               <TextRun>
                 <Value>Forma de pago: </Value>
                 <Style>

Empresas/Grales/Formatos/Polizas.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet1">
@@ -1185,7 +1185,7 @@
                                 <TextRun>
                                   <Value>=Fields!Fecha.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                     <Format>d</Format>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1222,7 +1222,7 @@
                                 <TextRun>
                                   <Value>=Parameters!TipoPoliza.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1256,7 +1256,7 @@
                                 <TextRun>
                                   <Value>=Parameters!Numero.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1292,7 +1292,7 @@
                                 <TextRun>
                                   <Value>=Fields!ConceptoPoliza.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1331,7 +1331,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1368,7 +1368,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1405,7 +1405,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1442,7 +1442,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1482,7 +1482,7 @@
                                 <TextRun>
                                   <Value>=RowNumber("Fecha")</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1514,7 +1514,7 @@
                                 <TextRun>
                                   <Value>=Fields!Referencia.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1544,7 +1544,7 @@
                                 <TextRun>
                                   <Value>=Fields!Codigo.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                     <Format>#-####</Format>
                                   </Style>
                                 </TextRun>
@@ -1575,7 +1575,7 @@
                                 <TextRun>
                                   <Value>=Fields!CodigoCuenta.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1611,7 +1611,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1643,7 +1643,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1673,6 +1673,7 @@
                                 <TextRun>
                                   <Value>=Fields!Cargo.Value</Value>
                                   <Style>
+                                    <FontSize>8pt</FontSize>
                                     <Format>#,0.00;(#,0.00);''</Format>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1704,6 +1705,7 @@
                                 <TextRun>
                                   <Value>=Fields!Abono.Value</Value>
                                   <Style>
+                                    <FontSize>8pt</FontSize>
                                     <Format>#,0.00;(#,0.00);''</Format>
                                     <Language>es-MX</Language>
                                   </Style>
@@ -1742,7 +1744,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1774,7 +1776,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1806,7 +1808,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1836,7 +1838,7 @@
                                 <TextRun>
                                   <Value>=Fields!Concepto.Value</Value>
                                   <Style>
-                                    <FontSize>9pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1870,7 +1872,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1902,7 +1904,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1934,7 +1936,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                     <Language>es-MX</Language>
                                   </Style>
                                 </TextRun>
@@ -1967,7 +1969,7 @@
                                   <Value />
                                   <Style>
                                     <FontFamily>Arial Narrow</FontFamily>
-                                    <FontSize>7pt</FontSize>
+                                    <FontSize>8pt</FontSize>
                                     <Language>es-MX</Language>
                                   </Style>
                                 </TextRun>

GPS/PalletEtiquetaCaja.rdlc

@@ -2,6 +2,13 @@
 <Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
+    <DataSource Name="dsImagenes">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186421</rd:DataSourceID>
+    </DataSource>
     <DataSource Name="DataSet">
       <ConnectionProperties>
         <DataProvider>System.Data.DataSet</DataProvider>
@@ -11,6 +18,26 @@
     </DataSource>
   </DataSources>
   <DataSets>
+    <DataSet Name="dsImagenes">
+      <Query>
+        <DataSourceName>dsImagenes</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ImagenByte">
+          <DataField>ImagenByte</DataField>
+          <rd:TypeName>System.Byte[]</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>dsImagenes</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite3\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>dtImagenes</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
     <DataSet Name="DataSet1">
       <Query>
         <DataSourceName>DataSet</DataSourceName>
@@ -72,7 +99,7 @@
               </TablixColumns>
               <TablixRows>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.2825cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -667,7 +694,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.52062cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -856,7 +883,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.52062cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -953,7 +980,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.54708cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1036,7 +1063,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.46771cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1197,7 +1224,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.46771cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1392,7 +1419,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.41479cm</Height>
+                  <Height>0.3258cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1475,7 +1502,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.09729cm</Height>
+                  <Height>0.07938cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1820,7 +1847,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.49417cm</Height>
+                  <Height>0.38834cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1963,7 +1990,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.46771cm</Height>
+                  <Height>0.36188cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2168,7 +2195,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.46771cm</Height>
+                  <Height>0.41479cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2315,7 +2342,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.52062cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2456,13 +2483,14 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>1.18209cm</Height>
+                  <Height>0.99688cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
-                        <Image Name="Image2">
+                        <Image Name="Image4">
-                          <Source>Embedded</Source>
+                          <Source>Database</Source>
-                          <Value>CodBarr</Value>
+                          <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
+                          <MIMEType>image/png</MIMEType>
                           <Sizing>FitProportional</Sizing>
                           <Style>
                             <Border>
@@ -2479,9 +2507,10 @@ KM12 HERMOSILLO, SONORA</Value>
                     <TablixCell />
                     <TablixCell>
                       <CellContents>
-                        <Image Name="Image3">
+                        <Image Name="Image5">
-                          <Source>Embedded</Source>
+                          <Source>Database</Source>
-                          <Value>CodBarr</Value>
+                          <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
+                          <MIMEType>image/png</MIMEType>
                           <Sizing>FitProportional</Sizing>
                           <Style>
                             <Border>
@@ -2490,6 +2519,7 @@ KM12 HERMOSILLO, SONORA</Value>
                           </Style>
                         </Image>
                         <ColSpan>5</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2499,7 +2529,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.49417cm</Height>
+                  <Height>0.36188cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2580,7 +2610,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>1.12917cm</Height>
+                  <Height>1.0498cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2981,9 +3011,10 @@ Produce of MX.</Value>
                 </TablixMember>
               </TablixMembers>
             </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
             <Top>0.07228cm</Top>
             <Left>0.05625cm</Left>
-            <Height>10.19917cm</Height>
+            <Height>8.58414cm</Height>
             <Width>10.52136cm</Width>
             <Style>
               <Border>
@@ -2992,7 +3023,7 @@ Produce of MX.</Value>
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>4.23096in</Height>
+        <Height>3.53304in</Height>
         <Style />
       </Body>
       <Width>4.19342in</Width>

Inventarios/RepEntregaAlmacenRuta.aspx

@@ -99,7 +99,7 @@
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
             <asp:GridView ID="GVDatos" runat="server" 
-                DataKeyNames="CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,  TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,ConfigCartaPorte,SerieFolio,DireccionOrigen,Direccion"
+                DataKeyNames="CveEntregaAlmacen,Estatus,CveCliente,CveDireccionOrigen,CveDireccionDestino,CveCamion,CveChofer,FechaEntrega,CveAlmacen,Tipo,AplicaCP,RFCReceptor,RFCEmisor,CveTimbre,CvePAC,FolioFiscal,TimbreTipoDocto,CveMovimiento,FechaLlegada,CveCamionRemolque1,CveCamionRemolque2,Distancia,ConfigCartaPorte,SerieFolio,DireccionOrigen,Direccion"
                 AutoGenerateColumns="False" EmptyDataText="No se encontraron Registros con los filtros especificados" CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" GridLines="None"
                 EmptyDataRowStyle-HorizontalAlign="Center" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
@@ -108,17 +108,42 @@
                         <ItemTemplate>
                             <asp:Label ID="LtTipo" runat="server" Text='<%# Eval("TipoDescripcion") %>'></asp:Label>
                         </ItemTemplate>
+                        <HeaderStyle HorizontalAlign="Left" />
+                        <ItemStyle HorizontalAlign="Left" />
+                    </asp:TemplateField>                    
+                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left"  HeaderStyle-HorizontalAlign="Left" HeaderText="CP">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtCP" runat="server" Text='<%#  Eval("AplicaCP").ToString()=="True"?"Si":"No"   %>'></asp:Literal>
+                        </ItemTemplate>
+                         <HeaderStyle HorizontalAlign="Left" />
+                         <ItemStyle HorizontalAlign="Left" />
                     </asp:TemplateField>
-
+                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" >                                                        
-                    <asp:BoundField DataField="SubProyecto" HeaderText="Sucursal" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
+                    <ItemStyle HorizontalAlign="Left" Width="15%" />
+                    </asp:BoundField>
                                                         
-                    <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="SerieFolio" HeaderText="Folio"  ItemStyle-HorizontalAlign="Left" >
-                    <asp:BoundField DataField="Nombre" HeaderText="Cliente"  ItemStyle-HorizontalAlign="Left" />
+                    <ItemStyle HorizontalAlign="Left" />
-                    <asp:BoundField DataField="Chofer" HeaderText="Operador"   ItemStyle-HorizontalAlign="Left" />
+                    </asp:BoundField>
-                     <asp:BoundField DataField="Unidad" HeaderText="Unidad"   ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Nombre" HeaderText="Cliente"  ItemStyle-HorizontalAlign="Left" >
-                    <asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" />
+                    <ItemStyle HorizontalAlign="Left" />
+                    </asp:BoundField>
+                    <asp:HyperLinkField DataTextField="FolioAlmacen"  HeaderText="Folio Alm" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento" ControlStyle-CssClass="Texto"  ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Chofer" HeaderText="Operador"   ItemStyle-HorizontalAlign="Left" >
+                     <ItemStyle HorizontalAlign="Left" />
+                    </asp:BoundField>
+                     <asp:BoundField DataField="Unidad" HeaderText="Unidad" ItemStyle-HorizontalAlign="Left" >
+                    <ItemStyle HorizontalAlign="Left" />
+                    </asp:BoundField>
+                    <asp:BoundField DataField="EstatusStr" HeaderText="Estatus" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left" >
 
-                    <asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" />
+                    <ItemStyle HorizontalAlign="Left" Width="10%" />
+                    </asp:BoundField>
+
+                    <asp:BoundField DataField="FechaEntrega" HeaderText="Fecha Entrega" ItemStyle-Width="4%" DataFormatString="{0:dd/MM/yyyy}" ItemStyle-HorizontalAlign="Center" >
+                    
+                     <ItemStyle HorizontalAlign="Center" Width="4%" />
+                    </asp:BoundField>
                     
                      <asp:TemplateField  ItemStyle-Width="75px"  ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Left" HeaderText="Opciones">
                         <ItemTemplate>
@@ -126,6 +151,8 @@
                             <asp:LinkButton ID="LnkTimbrar" runat="server" OnClick="LnkTimbrar_Click" AlternateText="Timbrar" ToolTip="Timbrar"   CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-external-link'></i>" />                                                        
                             <asp:LinkButton ID="LnkCancelaTimbre" runat="server" OnClick="LnkCancelaTimbre_Click" AlternateText="Cancelar timbre" ToolTip="Cancelar timbre"   CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar cancelación?" data-btn-ok-label="si" />                                                        
                         </ItemTemplate>
+                         <HeaderStyle HorizontalAlign="Left" />
+                         <ItemStyle HorizontalAlign="Left" Width="75px" />
                     </asp:TemplateField>
 
                       <asp:TemplateField ItemStyle-Width="50px" ItemStyle-HorizontalAlign="Left" HeaderStyle-HorizontalAlign="Center" HeaderText="Direcciones"  Visible="false">
@@ -133,13 +160,19 @@
                             <asp:LinkButton ID="LnkEditarDirOrigen" Visible="false" runat="server" OnClick="EditDireccionOrigen_Click" AlternateText="Editar" ToolTip="Actualzar dirección Origen"   CausesValidation="False" CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-location-arrow'></i>" />                                                        
                             <asp:LinkButton ID="LnkEditarDirDestino" Visible="false" runat="server" OnClick="EditDireccionDestino_Click" AlternateText="Editar" ToolTip="Actualziar Dierccion Destino"   CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-location-arrow'></i>" />                                                             
                         </ItemTemplate>
+                          <HeaderStyle HorizontalAlign="Center" />
+                          <ItemStyle HorizontalAlign="Left" Width="50px" />
+                    </asp:TemplateField>
+                    <asp:TemplateField HeaderText="PDF">                       
+                        <ItemTemplate> 
+                            <asp:HyperLink ID="HplPDF" Target="_blank" runat="server" ><i class='fa fa-file-pdf-o'></i></asp:HyperLink>                         
+                            <asp:HyperLink ID="HplXML" Target="_blank" runat="server" ><i class='fa fa-file-code-o'></i></asp:HyperLink>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Center" Width="4%" />
                     </asp:TemplateField>
 
-
-                     <asp:BoundField DataField="Estatus" HeaderText="PDF" ItemStyle-Width="4%"  ItemStyle-HorizontalAlign="Center" Visible="true"  />
-                    <asp:BoundField DataField="Estatus" HeaderText="XML" ItemStyle-Width="4%"  ItemStyle-HorizontalAlign="Center" Visible="true"  />
-
                 </Columns>
+                <EmptyDataRowStyle HorizontalAlign="Center" />
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -324,7 +324,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
     {
 
         TxtFechaI.Text = DateTime.Now.AddDays(-1).ToString("dd/MM/yyyy");
-        TxtFechaF.Text = DateTime.Now.ToString("dd/MM/yyyy");
+        TxtFechaF.Text = DateTime.Now.AddDays(3).ToString("dd/MM/yyyy");
     }
     #endregion
 
@@ -634,23 +634,26 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
 
                 if (bool.Parse(e.Row.DataKey("AplicaCP")))
                 {
-                    e.Row.Cells[10].Text = "<a CssClass='btn btn-circle btn-sm blue' target= '_blank' href=\"/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre"))) + "\" ><i class='fa fa-file-pdf-o'></i></a>";
+                    if (e.Row.FCHyperLink("HplPDF") != null)
+                        e.Row.FCHyperLink("HplPDF").NavigateUrl  =  "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPOTIMBRE&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")))  ;
                 }
                 else
                 {
-                    e.Row.Cells[10].Text = "<a CssClass='btn btn-circle btn-sm blue' target= '_blank' href=\"/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", e.Row.DataKey("CveTimbre"))) + "\" ><i class='fa fa-file-pdf-o'></i></a>";
+                    if (e.Row.FCHyperLink("HplPDF")!= null)  
+                        e.Row.FCHyperLink("HplPDF").NavigateUrl =  "/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=CARPO&CVETIMBRE={0}", e.Row.DataKey("CveTimbre")));
                 }
 
-                string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio"));
+                //string ArchivoXML = String.Format("{0}/XML/{1}/{2}.xml", UsuarioActual.Empresa.Ruta, e.Row.DataKey("TimbreTipoDocto"), e.Row.DataKey("SerieFolio"));
 
-                if (File.Exists(ArchivoXML))
+                //if (File.Exists(ArchivoXML))
-                {
+                //{
-                    e.Row.Cells[11].Text = "<a CssClass='btn btn-circle btn-sm blue' target= '_blank' href=\"/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto"))) + "\" ><i class='fa fa-file-code-o'></i></a>";
+                //    e.Row.Cells[12].Text = "<a CssClass='btn btn-circle btn-sm blue' target= '_blank' href=\"/Compras/PopUpVerFactura.aspx?P=" + Extensiones.ModExtensiones.Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", -1, "XML", e.Row.DataKey("SerieFolio"), e.Row.DataKey("TimbreTipoDocto"))) + "\" ><i class='fa fa-file-code-o'></i></a>";
-                }
+                //}
 
-            }else
+            }
+            else
             {
-                e.Row.Cells[10].Text = "";
+                e.Row.Cells[11].Text = "";
             }
 
             if (e.Row.DataKey("Estatus").ToEntero() == 2)

RH/RepPersonalInconsistencias.aspx.vb

@@ -127,9 +127,10 @@ Partial Class RH_RepPersonalInconsistencias
     End Sub
 
     Protected Sub CargaDatos()
-        Dim ObjAnomalias As New ClsRH
+        Using ObjAnomalias As New ClsRH
 
-        If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
+
+            If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
             'DSContratosProximosAVencer = ObjAnomalias.DtResultados
             'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(0))
             'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(1))
@@ -173,20 +174,20 @@ Partial Class RH_RepPersonalInconsistencias
             LbTotalAnomalias.Text = "Total de Anomalías: " + ObjAnomalias.DSResultados().Tables(1).Rows.Count.ToString
             LbTotalCumpleañeros.Text = "Total de Cumpleañeros: " + ObjAnomalias.DSResultados().Tables(2).Rows.Count.ToString
 
+            CargaGrid("")
         End If
 
-        CargaGrid("")
 
-        ObjAnomalias.Dispose()
+        End Using
 
-        Dim ObjAF As New ClsAF()
+        Using ObjAF As New ClsAF()
-        If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
+            If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
-            GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+                GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
 
-        Else
+            Else
-            GvLicencias.DataSource = Nothing
+                GvLicencias.DataSource = Nothing
-        End If
+            End If
-        ObjAF.Dispose()
+        End Using
 
         UpLicenciasVencidas.Update()
         GvLicencias.DataBind()

Ventas/RepProductosServicios.aspx

@@ -350,7 +350,12 @@
                         <div class="col-md-2">
                             <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
                         </div>
-                               
+                         <label class="col-md-1 truncate" id="divClasif2texto" runat="server" visible="false">Clasificación 2:</label>
+                        <div class="col-md-2" id="divClasif2" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlClasificacion2" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>   
                     </div>
                 </div>
             </div>

Ventas/RepProductosServicios.aspx.vb

@@ -62,14 +62,7 @@ Partial Class Ventas_RepProductosServicios
             CargarMarcas()
             SetValues()
 
-            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
+
-                DvLitraje.Visible = True
-                'garantia
-                divgarantia1.Visible = True
-                divgarantia2.Visible = True
-                divdistribuidor1.Visible = True
-                divdistribuidor2.Visible = True
-            End If
 
         End If
     End Sub
@@ -96,7 +89,8 @@ Partial Class Ventas_RepProductosServicios
         DdlGrupo.Items.Insert(15, New ListItem("Cliente - PS", "20"))
         DdlGrupo.Items.Insert(16, New ListItem("Sucursal - PS", "21"))
         DdlGrupo.Items.Insert(17, New ListItem("Familia - Marca - Tipo", "22"))
-        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Insert(18, New ListItem("Tipo Cliente", "23"))
+        DdlGrupo.Items.Insert(18, New ListItem("Marca", "24"))
         DdlGrupo.DataBind()
         DdlGrupo.SelectedValueExist("8")
 
@@ -172,7 +166,25 @@ Partial Class Ventas_RepProductosServicios
 
         'Cargo Clasificaciones
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
-        DdlClasificacion.DataBind()
+        DdlClasificacion.DataBind()
+
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            DvLitraje.Visible = True
+            'garantia
+            divgarantia1.Visible = True
+            divgarantia2.Visible = True
+            divdistribuidor1.Visible = True
+            divdistribuidor2.Visible = True
+
+            DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+            DdlClasificacion2.DataBind()
+            divClasif2texto.Visible = True
+            divClasif2.Visible = True
+
+            DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
+
+        End If
+
 
 
         'CargaSubProyectos
@@ -288,7 +300,7 @@ Partial Class Ventas_RepProductosServicios
                                               UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra,
                                               CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, MostrarLitraje:=ChkLitraje.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, EsGarantia:=DdlGarantia.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
-                                              CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero) Then
+                                              CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -368,9 +380,7 @@ Partial Class Ventas_RepProductosServicios
             FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim(), "-1")
             FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim(), "-1")
 
-            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}
+            Dim Liga = String.Format("/Ventas/RepProductosServiciosDetalle.aspx?CveProyecto={0}&CveSubProyecto={1}&CveCategoria={2}&CveClasificacion={3}&CvePS={4}&CveCliente={5}&CveSubProyectoEjecucion={6}&CveVendedor={7}&CveUsuario={8}&CveEstatus={9}&Anio={10}&Mes={11}&AnioMes={12}&Fecha={13}&AnioEjec={14}&MesEjec={15}&AnioMesEjec={16}&FechaEjec={17}&FechaI={18}&FechaF={19}&FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}&TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}",
-                                        &FechaEI={20}&FechaEF={21}&TipoDocto={22}&Grupo={23}&CveMoneda={24}&TipoCambio={25}&TCEspecifico={26}&CveClienteClasificacion={27}&CveProveedorCompra={28}&CveMarca={29}&CveClasificacionDetalle={30}
-                                        &TipoCliente={31}&ModalidadContable={32}&EsGarantia={33}&CveCondicionesPago={34}&MostrarLitraje={35}&EsDistribuidor={36}",
                                                 e.Row.DBCampo("CveProyecto"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CvePS"),
                                                 e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyectoEjecucion"), e.Row.DBCampo("Vendedor"), e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"),
                                                 e.Row.DBCampo("Anio"), e.Row.DBCampo("Mes"), e.Row.DBCampo("AnioMes"), e.Row.DBCampo("Fecha"), e.Row.DBCampo("AnioEjec"), e.Row.DBCampo("MesEjec"), e.Row.DBCampo("AnioMesEjec"), e.Row.DBCampo("FechaEjec"),

packages.config

@@ -3,6 +3,7 @@
   <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net461" />
   <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net461" />
   <package id="Antlr" version="3.4.1.9004" targetFramework="net461" />
+  <package id="BarcodeLib" version="2.4.0" targetFramework="net461" />
   <package id="ClosedXML" version="0.95.4" targetFramework="net461" />
   <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net461" />
   <package id="ExcelNumberFormat" version="1.0.10" targetFramework="net461" />
@@ -62,6 +63,7 @@
   <package id="System.ComponentModel.Annotations" version="4.7.0" targetFramework="net461" />
   <package id="System.Data.SqlClient" version="4.8.2" targetFramework="net461" />
   <package id="System.Diagnostics.DiagnosticSource" version="4.7.1" targetFramework="net461" />
+  <package id="System.Drawing.Common" version="5.0.2" targetFramework="net461" />
   <package id="System.IdentityModel.Tokens.Jwt" version="6.11.0" targetFramework="net461" />
   <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />
   <package id="System.IO.Packaging" version="4.0.0" targetFramework="net461" />