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

Acumuladores/CatFoliosGarantia.aspx

@@ -449,7 +449,7 @@
                             <ContentTemplate>
                                 <asp:Button ID="BtnGenerarTxt" Text="Generar Archivo" CssClass="btn btn-primary" runat="server" OnClick="BtnGenerarTxt_Click" />
                                 <asp:Button ID="BtnExportarExcel" Text="Generar Excel" CssClass="btn btn-success" runat="server" OnClick="BtnExportarExcel_Click" />
-                                <asp:HyperLink ID="HplGenerarSalida" Text="Generar Salida" CssClass="btn btn-warning " runat="server" />
+                                <asp:HyperLink ID="HplGenerarSalida" Text="Generar Salida" Target="_blank" CssClass="btn btn-warning " runat="server" />
                                 <button type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
                             </ContentTemplate>
                             <Triggers>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -133,7 +133,7 @@ Partial Class Acumuladores_CatFoliosGarantia
             ObjAcum.Dispose()
         Else
             'si se marca como enviado, debe de revisar que tenga el movto de traslado
-            If HdnCveMovimientoSalida.Value = "" AndAlso DdlEstatusEditar.SelectedValue = "2" Then
+            If HdnCveMovimientoSalida.Value.ToEntero = 0 AndAlso DdlEstatusEditar.SelectedValue = "2" Then
                 Alert("No se ha realizado la salida del almacen de garantía, al de 'devolución al proveedor'.</br> Favor de aplicar la salida y luego cambiar el estatus a enviado. ", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If

App_Code/ClsProductosServicios.vb

@@ -537,7 +537,21 @@ Public Class ClsProductosServicios
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Nuevo Producto o Servicio no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
             ElseIf Ex1.Message.Contains("Número: 2601;") Then
+
+                If Ex1.Message.Contains("UK_ProductosServicios_Codigo_Empresa") Then
                     Alert("El Nuevo Producto o Servicio tiene Codigo duplicado:" & Codigo, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_CodigoBarras") Then
+                    Alert("El Nuevo Producto o Servicio tiene Codigo de barras duplicado:" & CodigoBarras, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_CveEmpresa_NumeroParte") Then
+                    Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                ElseIf Ex1.Message.Contains("UK_ProductosServicios_EmpresaNumeroParte") Then
+                    Alert("El Nuevo Producto o Servicio tiene Numero de Parte duplicado:" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                Else
+                    Alert("El Nuevo Producto o Servicio duplicado(ND):" & NumeroParte, TipoMensaje.MsgAdvertencia)
+                End If
+
+
+
             Else
                 Me.OnError("Ocurrió un error al guardar el nuevo Producto o Servicio.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

Compras/Compras.aspx

@@ -1329,7 +1329,16 @@
                                                 </ItemTemplate>
                                                 <HeaderStyle CssClass="Titulos" />
                                             </asp:TemplateField>
-                                            <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />
+
+                                             <asp:TemplateField>
+                                                 <HeaderTemplate>
+                                                     Unidad    
+                                                 </HeaderTemplate>
+                                                 <ItemTemplate>
+                                                     <asp:Label ID="LtlUnidadMedida" runat="server" Text='<%# Eval("UM") %>'></asp:Label>
+                                                 </ItemTemplate>
+                                             </asp:TemplateField>
+                                            <%--<asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />--%>
                                             <asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText=" Servicio" DataField="PS" />
                                             <asp:BoundField ItemStyle-Width="7.5%" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                             <asp:TemplateField ItemStyle-Width="10%">

Compras/Compras.aspx.vb

@@ -1962,10 +1962,12 @@ Partial Class Compras_Compras
                                     Dim BaseIVA As Decimal = 0
                                     Dim TasaIEPS As String = ""
                                     Dim traslados As XmlNodeList = impuestosNode.SelectNodes("cfdi:Traslados/cfdi:Traslado", namespaces)
+                                    Dim tieneIEPS As Boolean = False
                                     For Each traslado As XmlNode In traslados
                                         ' Obtener los valores de los atributos Base e Importe
                                         Dim baseValue As Decimal = Decimal.Parse(ValorXML(traslado, "Base")).RoundSQL(2)
                                         Dim impuesto As String = ValorXML(traslado, "Impuesto")
+                                        Dim importeImpuesto As Decimal = ValorXML(traslado, "Importe").ToDecimal.RoundSQL(2)
 
                                         If impuesto = "001" Then
                                             impuesto = "ISR"
@@ -1975,12 +1977,12 @@ Partial Class Compras_Compras
                                         ElseIf impuesto = "003" Then
                                             impuesto = "IEPS"
                                             TasaIEPS = ValorXML(traslado, "TasaOCuota")
-                                            BaseIEPS += baseValue
+                                            BaseIEPS = baseValue + importeImpuesto
+                                            tieneIEPS = True
                                         End If
                                     Next
                                     ' Validar si Base coincide con Importe
-                                    If BaseIVA <> BaseIEPS AndAlso BaseIEPS > 0 Then
+                                    If tieneIEPS AndAlso Math.Abs(BaseIVA - BaseIEPS) > 0.01 Then 'subTotal + IEPS
-                                        'SbValRet.Append($"La base e importe de la retención del impuesto {impuesto} no coinciden para {descripcion}. Base: {baseValue.ToString()}, Importe: {importeValue.ToString()} <br>")
                                         SbValRet.Append($"Producto: {descripcion} La base del IEPS es no coincide con el subtotal, favor de desglosarlo en una base : {BaseIEPS.ToString()}, Tasa: {TasaIEPS} <br>")
                                     End If
                                 End If
@@ -2306,6 +2308,7 @@ Partial Class Compras_Compras
                         GvPS.DataSource = TmpDT
                         GvPS.DataBind()
                         UpPS.Update()
+                        CargaGvInv()
                     End If
                 End If
             Else
@@ -2447,11 +2450,12 @@ Partial Class Compras_Compras
             Msg &= String.Format("- Los descuentos del detalle no coinciden con el descuento general <br>")
         End If
 
+
         If Math.Abs(Math.Round(IVATemp, 6) - Math.Round(TrasladoIVA, 6)) > 0.01 Then
             Msg &= String.Format("- Los IVAS del detalle no coinciden con el IVA general <br>")
         End If
 
-        If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)) > 0.01 Then
+        If Math.Abs(Math.Round(IEPSTemp, 6) - Math.Round(TrasladoIEPS, 6)).RoundAD(2) > 0.01 Then
             Msg &= String.Format("- Los IEPS del detalle no coinciden con el IEPS general <br>")
         End If
 
@@ -7638,12 +7642,12 @@ Partial Class Compras_Compras
                                     Dim Msg As New StringBuilder
                                     Msg.Append("La compra se registró correctamente")
 
-                                    If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
+                                    'If Not ErrorPrepoliza AndAlso UsuarioActual.Empresa.TipoContabilidad = 1 AndAlso ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=4) Then
-                                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                                    '    If ObjConta.ValorPolizaDescuadre > 0 Then
-                                            GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                    '        GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                            ErrorPrepolizaDescuadre = True
+                                    '        ErrorPrepolizaDescuadre = True
-                                        End If
+                                    '    End If
-                                    End If
+                                    'End If
 
                                     'ACTUALIZA CVEFACTURA
                                     If Request("CveFactura") IsNot Nothing Then
@@ -11114,6 +11118,48 @@ Partial Class Compras_Compras
 
             End If
 
+
+
+            ''VALIDA UNIDAD DE MEDIDA
+            'If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then
+            '    Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa)
+
+            '    'SI UM NO ESTA REGISTRADA
+            '    If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(1,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
+            '        e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '        e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
+            '    End If
+
+            '    'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+
+            '    'EQUIVALENCIA
+            '    If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
+
+            '        If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then
+            '            If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then
+            '                'UM NO BASE
+            '                e.Row.FCLinkButton("LBAplicarEquivalencia").Visible = True
+
+            '                'e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(2,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}')")
+            '                e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger centrarUM"
+            '                e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '                e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida NO medida base")
+            '            End If
+            '        Else
+            '            'SIN EQUIVALENCIA
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("onclick", $"FncUMEquivalencias(3,'{e.Row.DBCampo("UM").Replace("'", "")}',{e.Row.RowIndex},'{DtEquivalencias.FiltroPrimeroValor("UnidadMedida", "UnidadBase = 1")}','{e.Row.DBCampo("CveUnidadMedidaSAT")}','{e.Row.DBCampo("SATClaveUnidadMedida")}')")
+            '            e.Row.FCLabel("LtlUnidadMedida").CssClass = "label label-danger manita centrarUM"
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip")
+            '            e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia")
+            '        End If
+            '        DtEquivalencias.Dispose()
+            '    End If
+            'End If
+
+
+
         End If
 
         'HEADER GvInv
@@ -13617,18 +13663,19 @@ Partial Class Compras_Compras
     'End Sub
     Protected Sub BtnVinculaDevolucion_Click(sender As Object, e As EventArgs)
         Try
-            Dim subtotaldevolucion As Double = 0
+            Dim subtotaldevolucion As Decimal = 0
             Dim realizadevolucion As Boolean = False
 
 
             'Calculo los subtotales para comparar con la NC
-            Dim cantidad As Double = 0.0
+            Dim cantidad As Decimal = 0D
 
             For Each Dr As GridViewRow In GVDevolucion.Rows
-                cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble
+                cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDecimal
                 If cantidad > 0 Then
                     realizadevolucion = True
-                    subtotaldevolucion += Dr.DataKey("PU").ToString.ToDouble * cantidad
+                    Dim PU As Decimal = If(DdlMoneda.SelectedValue.ToEntero <> 1, Dr.DataKey("PUExtranjero").ToString.ToDecimal, Dr.DataKey("PU").ToString.ToDecimal)
+                    subtotaldevolucion += PU * cantidad
                 End If
             Next
 
@@ -13869,14 +13916,18 @@ Partial Class Compras_Compras
             End If
         End If
 
+        Dim dttpagos As DataTable = New DataTable '  2024-11-13 OIC Esta ubicado antes de  Refacturacion  por que al refacturar los datos de pago dejan de estar disponibles dttpagos sellena antes
+        If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
+            dttpagos = ObjCompra.DtResultados
+        End If
+
         Dim Tipo As Integer = 1
         If ChkRefacNC.Checked Then Tipo = 2
 
         'CONTABILIZA REFACTURACION
         If ObjCompra.Refacturacion(CveCompraRefacturacion, CveCompra, UsuarioActual.CveEmpresa, Tipo) Then
-            Dim dttpagos As DataTable
+
-            If ObjCompra.GetComprasPagos(CveCompraRefacturacion, UsuarioActual.CveEmpresa) Then
+            If dttpagos IsNot Nothing AndAlso dttpagos.Rows.Count > 0 Then
-                dttpagos = ObjCompra.DtResultados
 
                 For Each drp As DataRow In dttpagos.Rows
                     Dim Pago As New CompraPago
@@ -13885,22 +13936,17 @@ Partial Class Compras_Compras
                     Pago.CveMonedaPago = 1
                     Pago.CveCompraAmortizacion = -1
                     Pago.TipoPago = If(drp("CveIE").ToString.ToEntero > 0, "B", "NC")
-
                     Dim ErrorMovtosCxP As Boolean = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
                 Next
-
             End If
-
         Else
 
             ErrorBitacora = True
 
         End If
 
-
-
-        'Return True
         Return ErrorBitacora
+
     End Function
 
     Private Function GuardaRefacturacionBitacora(ObjCompra As ClsCompras, ObjEventos As ClsOIEventos) As Boolean

Compras/eFacturas.aspx.vb

@@ -1686,7 +1686,7 @@ Partial Class Compras_eFacturas
                     fpdf = fpdf.Replace($"{fpdfSplit(0)}-", "")
                 End If
 
-                If fxml.Contains(fpdf) Then
+                If fxml.Contains(fpdf) Or (ListXML.Count = 1 And ListPDF.Count = 1) Then
                     RutaPDF = fInfoPDF.FullName
                     Exit For
                 End If
@@ -7985,6 +7985,9 @@ Namespace ADS.eFacturas
                             GuardaLogAD(ex.ToString(), ArchivoLog)
                         End Try
 
+
+                    ElseIf Fact.RespuestaInsert = 0 AndAlso Fact.CveFactura > 0 Then
+                        'FIXME OIC
                     Else
                         rowLog("Motivo") = $"RFC ""{Fact.ReceptorRFC}"" Error al insertar"
                     End If

Empresas/119/Formatos/Cotizacion.rdlc

@@ -1237,6 +1237,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -2787,12 +2788,6 @@
       <AllowBlank>true</AllowBlank>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
-    <ReportParameter Name="CEClavePedimento">
-      <DataType>String</DataType>
-      <Nullable>true</Nullable>
-      <AllowBlank>true</AllowBlank>
-      <Prompt>ReportParameter1</Prompt>
-    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuescuadron">

Empresas/158/Formatos/Cotizacion.rdlc

@@ -1,5 +1,213 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/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="DsOC">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DataSet2">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>3fde81d4-b9ca-4175-9160-5293ca8b9aa9</rd:DataSourceID>
+    </DataSource>
+    <DataSource Name="DsFirmas">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DsOC">
+      <Query>
+        <DataSourceName>DsOC</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="CveOrdenCompraDetalle">
+          <DataField>CveOrdenCompraDetalle</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CveOrdenCompra">
+          <DataField>CveOrdenCompra</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Cantidad">
+          <DataField>Cantidad</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="CveUnidadMedida">
+          <DataField>CveUnidadMedida</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Abreviatura">
+          <DataField>Abreviatura</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PS">
+          <DataField>PS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveClasificacion">
+          <DataField>CveClasificacion</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Clasificacion">
+          <DataField>Clasificacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CveActivoFijo">
+          <DataField>CveActivoFijo</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="Codigo">
+          <DataField>Codigo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="TipoDato">
+          <DataField>TipoDato</DataField>
+          <rd:TypeName>System.Int64</rd:TypeName>
+        </Field>
+        <Field Name="CodigoAF">
+          <DataField>CodigoAF</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CodigoPS">
+          <DataField>CodigoPS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="UnidadMedida">
+          <DataField>UnidadMedida</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
+        <Field Name="UM">
+          <DataField>UM</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Obs">
+          <DataField>Obs</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="PU">
+          <DataField>PU</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="IEPS">
+          <DataField>IEPS</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="IVA">
+          <DataField>IVA</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Descuento">
+          <DataField>Descuento</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Marca">
+          <DataField>Marca</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsOC</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
+        <rd:TableName>DtOCDetalle</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet2</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ImpuestoLocal">
+          <DataField>ImpuestoLocal</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Importe">
+          <DataField>Importe</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="ImporteT">
+          <DataField>ImporteT</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Orden">
+          <DataField>Orden</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet2</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+    <DataSet Name="DataSet2">
+      <Query>
+        <DataSourceName>DsFirmas</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Titulo">
+          <DataField>Titulo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Nombre">
+          <DataField>Nombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Puesto">
+          <DataField>Puesto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Lado">
+          <DataField>Lado</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DsFirmas</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
       <Body>
         <ReportItems>
           <Textbox Name="Textbox20">
@@ -1029,7 +1237,7 @@
                                     <FontFamily>Myriad Pro</FontFamily>
                                     <FontSize>9pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
-                                <Format>#,0.00</Format>
+                                    <Format>#,0.0000</Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -1049,6 +1257,7 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -2106,212 +2315,8 @@
         <ColumnSpacing>1.27cm</ColumnSpacing>
         <Style />
       </Page>
-  <AutoRefresh>0</AutoRefresh>
+    </ReportSection>
-  <DataSources>
+  </ReportSections>
-    <DataSource Name="DsOC">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186420</rd:DataSourceID>
-    </DataSource>
-    <DataSource Name="DataSet2">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>3fde81d4-b9ca-4175-9160-5293ca8b9aa9</rd:DataSourceID>
-    </DataSource>
-    <DataSource Name="DsFirmas">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>c220a38d-e45b-4e04-917e-7dfd9cc3345f</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DsOC">
-      <Query>
-        <DataSourceName>DsOC</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="CveOrdenCompraDetalle">
-          <DataField>CveOrdenCompraDetalle</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CveOrdenCompra">
-          <DataField>CveOrdenCompra</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Cantidad">
-          <DataField>Cantidad</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="CveUnidadMedida">
-          <DataField>CveUnidadMedida</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Abreviatura">
-          <DataField>Abreviatura</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="PS">
-          <DataField>PS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveClasificacion">
-          <DataField>CveClasificacion</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Clasificacion">
-          <DataField>Clasificacion</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CveActivoFijo">
-          <DataField>CveActivoFijo</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="Codigo">
-          <DataField>Codigo</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="TipoDato">
-          <DataField>TipoDato</DataField>
-          <rd:TypeName>System.Int64</rd:TypeName>
-        </Field>
-        <Field Name="CodigoAF">
-          <DataField>CodigoAF</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="CodigoPS">
-          <DataField>CodigoPS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="UnidadMedida">
-          <DataField>UnidadMedida</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Importe">
-          <DataField>Importe</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="Total">
-          <DataField>Total</DataField>
-          <rd:TypeName>System.Decimal</rd:TypeName>
-        </Field>
-        <Field Name="UM">
-          <DataField>UM</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Obs">
-          <DataField>Obs</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="SubProyecto">
-          <DataField>SubProyecto</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="PU">
-          <DataField>PU</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="IEPS">
-          <DataField>IEPS</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="IVA">
-          <DataField>IVA</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Descuento">
-          <DataField>Descuento</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Marca">
-          <DataField>Marca</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DsOC</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Orlando Bojorquez\Documents\Visual Studio 2013\WebSites\WebSite1\App_Code\DsOC.xsd</rd:SchemaPath>
-        <rd:TableName>DtOCDetalle</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-    <DataSet Name="DataSet1">
-      <Query>
-        <DataSourceName>DataSet2</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="ImpuestoLocal">
-          <DataField>ImpuestoLocal</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Importe">
-          <DataField>Importe</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="Nombre">
-          <DataField>Nombre</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="ImporteT">
-          <DataField>ImporteT</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Orden">
-          <DataField>Orden</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DataSet2</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet2.xsd</rd:SchemaPath>
-        <rd:TableName>DataTable1</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-    <DataSet Name="DataSet2">
-      <Query>
-        <DataSourceName>DsFirmas</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="Titulo">
-          <DataField>Titulo</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Nombre">
-          <DataField>Nombre</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Puesto">
-          <DataField>Puesto</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Lado">
-          <DataField>Lado</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DsFirmas</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Jesus Murua\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DsFirmas.xsd</rd:SchemaPath>
-        <rd:TableName>DataTable1</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
   <ReportParameters>
     <ReportParameter Name="ClienteCodigo">
       <DataType>String</DataType>

Empresas/189/Formatos/OC.rdlc

@@ -504,7 +504,7 @@
                                   <Value>=CStr(RowNumber(Nothing))</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -535,14 +535,14 @@
                                   <Value>=Fields!Cantidad.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
-                                    <Format>#,0.00;(#,0.00)</Format>
+                                    <Format>#,0.## </Format>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style>
-                                <TextAlign>Center</TextAlign>
+                                <TextAlign>Right</TextAlign>
                               </Style>
                             </Paragraph>
                           </Paragraphs>
@@ -553,6 +553,7 @@
                             </Border>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -567,13 +568,13 @@
                                   <Value>=Fields!UM.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style>
-                                <TextAlign>Right</TextAlign>
+                                <TextAlign>Left</TextAlign>
                               </Style>
                             </Paragraph>
                           </Paragraphs>
@@ -598,7 +599,7 @@
                                   <Value>=Fields!CodPS.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -629,7 +630,7 @@
                                   <Value>=Fields!Producto.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -658,7 +659,7 @@
                                   <Value>=Fields!Obs.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                   </Style>
                                 </TextRun>
@@ -687,7 +688,7 @@
                                   <Value>=Fields!Importe.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                     <Format>#,0.00</Format>
                                     <Language>es-MX</Language>
@@ -720,7 +721,7 @@
                                   <Value>=Fields!Descuento.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                     <Format>#,0.00;(#,0.00);'-'</Format>
                                     <Language>es-MX</Language>
@@ -753,7 +754,7 @@
                                   <Value>=Fields!Total.Value</Value>
                                   <Style>
                                     <FontFamily>calibri</FontFamily>
-                                    <FontSize>8pt</FontSize>
+                                    <FontSize>7.5pt</FontSize>
                                     <FontWeight>Normal</FontWeight>
                                     <Format>#,0.00</Format>
                                     <Language>es-MX</Language>
@@ -804,7 +805,7 @@
             <DataSetName>DsOC</DataSetName>
             <Left>0.04788in</Left>
             <Height>0.34081in</Height>
-            <Width>8.16913in</Width>
+            <Width>8.16912in</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -823,7 +824,7 @@
                         <Value>I.V.A.</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -833,7 +834,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>1.84536cm</Top>
+                <Top>1.76972cm</Top>
                 <Left>15.76748cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -857,7 +858,7 @@
                         <Value>TOTAL:</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -867,7 +868,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>3.94467cm</Top>
+                <Top>3.86903cm</Top>
                 <Left>15.77277cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -892,7 +893,7 @@
                         <Value>=Parameters!IVA.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -904,7 +905,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>1.84536cm</Top>
+                <Top>1.76972cm</Top>
                 <Left>18.26748cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -930,7 +931,7 @@
                         <Value>=Parameters!Total.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -942,7 +943,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>3.94467cm</Top>
+                <Top>3.86903cm</Top>
                 <Left>18.27277cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.43121cm</Width>
@@ -968,7 +969,7 @@
                         <Value>SUB-TOTAL</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -978,7 +979,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>0.40195cm</Top>
+                <Top>0.32631cm</Top>
                 <Left>15.76748cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1003,7 +1004,7 @@
                         <Value>=Parameters!SubTotal.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1015,8 +1016,8 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>0.40195cm</Top>
+                <Top>0.32631cm</Top>
-                <Left>18.26748cm</Left>
+                <Left>18.29588cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
                 <ZIndex>5</ZIndex>
@@ -1050,7 +1051,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox46</rd:DefaultName>
-                <Top>4.05051cm</Top>
+                <Top>4.13362cm</Top>
                 <Left>0.00001cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>15.04926cm</Width>
@@ -1080,7 +1081,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox5</rd:DefaultName>
-                <Top>0.11768cm</Top>
+                <Top>0.04204cm</Top>
                 <Height>0.14316cm</Height>
                 <Width>20.70398cm</Width>
                 <ZIndex>7</ZIndex>
@@ -1112,7 +1113,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox5</rd:DefaultName>
-                <Top>3.73096cm</Top>
+                <Top>3.65532cm</Top>
                 <Left>15.22566cm</Left>
                 <Height>0.14316cm</Height>
                 <Width>5.47753cm</Width>
@@ -1145,7 +1146,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox5</rd:DefaultName>
-                <Top>4.50233cm</Top>
+                <Top>4.42669cm</Top>
                 <Left>15.22566cm</Left>
                 <Height>0.14502cm</Height>
                 <Width>5.47832cm</Width>
@@ -1186,7 +1187,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox1</rd:DefaultName>
-                <Top>0.43723cm</Top>
+                <Top>0.36159cm</Top>
                 <Left>0.03529cm</Left>
                 <Height>0.41479cm</Height>
                 <Width>14.67376cm</Width>
@@ -1211,7 +1212,7 @@
                         <Value>Ret  I.V.A</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -1221,7 +1222,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>2.29719cm</Top>
+                <Top>2.22155cm</Top>
                 <Left>15.76669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1249,7 +1250,7 @@
                         <Value>=Parameters!RetIVA.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1261,7 +1262,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>2.29719cm</Top>
+                <Top>2.22155cm</Top>
                 <Left>18.26669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -1290,7 +1291,7 @@
                         <Value>Ret  I.S.R</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -1300,7 +1301,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>2.74902cm</Top>
+                <Top>2.67338cm</Top>
                 <Left>15.76669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1328,7 +1329,7 @@
                         <Value>=Parameters!RetISR.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1340,7 +1341,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>2.74902cm</Top>
+                <Top>2.67338cm</Top>
                 <Left>18.26669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -1369,7 +1370,7 @@
                         <Value>I.E.P.S</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -1379,7 +1380,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>3.20085cm</Top>
+                <Top>3.12521cm</Top>
                 <Left>15.76669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1407,7 +1408,7 @@
                         <Value>=Sum(Fields!IEPS.Value, "DsOC")</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1419,7 +1420,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>3.20085cm</Top>
+                <Top>3.12521cm</Top>
                 <Left>18.26669cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -1448,7 +1449,7 @@
                         <Value>DESCUENTO</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -1458,7 +1459,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>0.88906cm</Top>
+                <Top>0.81342cm</Top>
                 <Left>15.77355cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1486,7 +1487,7 @@
                         <Value>=Parameters!Descuento.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1498,7 +1499,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>0.88906cm</Top>
+                <Top>0.81342cm</Top>
                 <Left>18.27355cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -1527,7 +1528,7 @@
                         <Value>SUB-TOTAL2</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                         </Style>
                       </TextRun>
                     </TextRuns>
@@ -1537,7 +1538,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>1.34089cm</Top>
+                <Top>1.26525cm</Top>
                 <Left>15.77355cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.5cm</Width>
@@ -1565,7 +1566,7 @@
                         <Value>=Parameters!SubTotal2.Value</Value>
                         <Style>
                           <FontFamily>calibri</FontFamily>
-                          <FontSize>9pt</FontSize>
+                          <FontSize>8.5pt</FontSize>
                           <Format>'$'#,0.00</Format>
                           <Language>es-MX</Language>
                         </Style>
@@ -1577,7 +1578,7 @@
                   </Paragraph>
                 </Paragraphs>
                 <rd:DefaultName>Textbox20</rd:DefaultName>
-                <Top>1.34089cm</Top>
+                <Top>1.26525cm</Top>
                 <Left>18.27355cm</Left>
                 <Height>0.45183cm</Height>
                 <Width>2.4365cm</Width>
@@ -1598,10 +1599,10 @@
               </Textbox>
             </ReportItems>
             <KeepTogether>true</KeepTogether>
-            <Top>1.12516cm</Top>
+            <Top>1.04205cm</Top>
             <Left>0.12849cm</Left>
-            <Height>5.34083cm</Height>
+            <Height>5.42394cm</Height>
-            <Width>20.71005cm</Width>
+            <Width>20.73238cm</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -1755,7 +1756,15 @@
                       <Style>
                         <FontFamily>calibri</FontFamily>
                         <FontSize>9pt</FontSize>
-                        <FontWeight>SemiBold</FontWeight>
+                        <FontWeight>Normal</FontWeight>
+                      </Style>
+                    </TextRun>
+                    <TextRun>
+                      <Value xml:space="preserve"> </Value>
+                      <Style>
+                        <FontFamily>calibri</FontFamily>
+                        <FontSize>8.5pt</FontSize>
+                        <FontWeight>Normal</FontWeight>
                       </Style>
                     </TextRun>
                     <TextRun>
@@ -1931,7 +1940,7 @@
               </Paragraphs>
               <rd:DefaultName>Textbox36</rd:DefaultName>
               <Top>2.50885cm</Top>
-              <Left>13.33144cm</Left>
+              <Left>12.69644cm</Left>
               <Height>3.45728cm</Height>
               <Width>7.11877cm</Width>
               <ZIndex>1</ZIndex>

Empresas/Grales/Formatos/CFDIV3.rdlc

@@ -2022,7 +2022,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Cadena original del complemento de cretificación del SAT:</Value>
+                                  <Value>Cadena original del complemento de certificación del SAT:</Value>
                                   <Style>
                                     <FontFamily>arial</FontFamily>
                                     <FontSize>8pt</FontSize>
@@ -2086,6 +2086,7 @@
                           </Style>
                         </Textbox>
                         <ColSpan>4</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2226,7 +2227,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>RFC del proveedor de cretificación:</Value>
+                                  <Value>RFC del proveedor de certificación:</Value>
                                   <Style>
                                     <FontFamily>arial</FontFamily>
                                     <FontSize>8pt</FontSize>
@@ -4647,7 +4648,6 @@
                             <PaddingBottom>1pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>

Inventarios/EntradasSalidas.aspx.vb

@@ -963,16 +963,12 @@ Partial Class Inventarios_EntradasSalidas
             HdnIdPoliza.Value = Mov.IDPoliza.ToString
             HplImprimir.Visible = True
             HplImprimir.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
-
             HplImprimirResumen.Visible = True
             HplImprimirResumen.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=Almr&CveMovimiento={0}", CveMovimiento)))
 
-
             CveCompra = Mov.CveCompra
             CveConcepto = Mov.CveConcepto
 
-
-
             If drM("CveEstatusTimbrado").ToString.ToEntero > 0 Then
                 HplDescargaXml.Visible = True
                 HplDescargaXml.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=DesXmlTra&CVEMOVIMIENTO={0}&EXT={1}&FOLIO={2}&TIPODOCTO={3}", CveMovimiento, "XML", drM("TimbreSerieFolio"), drM("TimbreTipoDocto"))))
@@ -987,20 +983,18 @@ Partial Class Inventarios_EntradasSalidas
                     HplCartaPorte.Visible = True
                     HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
                 End If
-
-
                 If UsuarioActual.CveRol = 1 Then
                     LnkGenerarPDF.Visible = True
                 End If
 
             End If
-
+            If CveConcepto.Contiene(26, 27) Then
-
+                LnkAgregarProducto.Visible = False ' si es traspaso no se debe permitir agregar
+            End If
             If CveConcepto.Contiene(3, 8) Then
                 LiLnkGuias.Visible = True
             End If
 
-
             If Mov.IDPoliza > 0 Then HplPoliza.Visible = True : HplPoliza.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", Mov.IDPoliza)
 
             If CveConcepto = 6 Or CveConcepto = 7 Then

Transportes/RepContratoDetalle.aspx

@@ -163,7 +163,6 @@
                                                 <ajax:ValidatorCalloutExtender ID="VCERfvDdlSubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
                                             </div>
                                             <div class="input-group">
-                                                   
                                             </div>
                                         </div>
 
@@ -388,10 +387,11 @@
                                                                         <asp:Label runat="server" ID="LblSaldo"></asp:Label>
                                                                     </div>
                                                                 </div>
-                                                                <br />
+                                                                
                                                                 
                                                                 <div class="row">
                                                                     <div class="col-md-12">
+
                                                                         <asp:GridView ID="GVAuxiliar" runat="server" AutoGenerateColumns="False"  ShowFooter="true"
                                                                             DataKeyNames="CvePrePoliza, Cargo, Abono, CveReferencia, IdPoliza,CvePrePolizaOriginal,TipoReferencia" 
                                                                             EmptyDataText="No se encontraron pagos" ToolTip="Listado de Auxiliar Contable" CssClass="table table-striped table-advance table-hover mysmallbtn Widthall" GridLines="None"
@@ -461,10 +461,10 @@
                                             <div class="portlet-body rowpadding">
                                                 <div class="row">
                                                     <div class="col-md-12" style="text-align: center;">
-                                                        <asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
                                                         
+                                                        <asp:UpdatePanel ID="UPAFUL" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
-                                                                <asp:HyperLink target="_blank"  runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
+                                                                <asp:HyperLink Target="_blank" runat="server" ID="BtnDescargar" class="btn btn-warning" Visible="false"><i class='fa fa-download' aria-hidden='true'></i> Descargar</asp:HyperLink>
                                                                 <asp:TextBox Style="display: none" ID="TxtArchivo" ClientIDMode="Static" runat="server"
                                                                     Width="200px"></asp:TextBox>
 
@@ -474,10 +474,8 @@
                                                                         aria-hidden="true"></i>Subir Archivo</button>
 
                                                             </ContentTemplate>                                                            
-                                                            <Triggers>
-                                                                
-                                                            </Triggers>
                                                         </asp:UpdatePanel>
+
                                                     </div>
                                                 </div>
                                             </div>
@@ -1147,6 +1145,7 @@
                                 </div>
                             </div>
                         </div>
+                       </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
             <%--Modal subir archivo--%>
@@ -1220,6 +1219,7 @@
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
+
                             <asp:Button ID="BtnGuardarEventoBitacora" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
 

Transportes/RepContratoDetalle.aspx.vb

@@ -620,15 +620,19 @@ Partial Class RepContratoDetalle
         If Not ErrorProceso Then
 
             ObjContratos.Commit()
-            ObjContratos.Dispose()
             AgregarABitacora($"Actualización del contrato {CveContrato}")
-            CargaDatos()
             Alert("Contrato actualizado correctamente")
         Else
             Alert("Ocurrió un ocurrió un error al actualizar su boleto", TipoMensaje.MsgError)
             ObjContratos.RollBack()
         End If
 
+        ObjContratos.Dispose()
+
+        If Not ErrorProceso Then
+            'CargaDatos()
+        End If
+
     End Sub
 
     Private Function UpdateRemision(ByRef transaccionSql As SqlTransaction, CveSubProyectoNew As Integer, CveMonedaNew As Integer, TotalNew As Decimal, DescripcionNew As String) As Boolean

Transportes/RepContratosCalendario.aspx.vb

@@ -182,7 +182,7 @@ Partial Class RepContratosCalendario
         'strData.Append($",new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})")
 
         'RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date({FechaFin.Year},{FechaFin.Month - 1},{FechaFin.Day})"});", "A1")
-        RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
+        ' RegistraScript($"cargaScheduler({strData.ToString().TrimEnd(","c) },{strAFData.ToString().TrimEnd(","c) },{TipoVista}, {$" new Date({FechaInicio.Year},{FechaInicio.Month - 1},{FechaInicio.Day})"}, {$"new Date(2024,09,5)"});", "A1")
 
         UPScheduler.Update()
 

Ventas/ProductosServicios.aspx.vb

@@ -3349,6 +3349,8 @@ Partial Class ProductosyServicios
             Else
 
                 If ObjPS.GetPS(-1, -1, CveEmpresaFranquicia, Codigo:=TxtCodigo.Text.Trim.ToUpper) Then
+
+                    If ObjPS.DtResultados IsNot Nothing AndAlso ObjPS.DtResultados.Rows.Count = 1 Then
                         Dim CvePS As Integer = ObjPS.DtResultados.FiltroPrimeroValor("CvePS", String.Format(" Codigo  = '{0}'", TxtCodigo.Text.Trim.ToUpper)).ToEntero()
                         If Not ObjPS.UpdatePS(CveClasificacion, -1, CveUnidadMedida, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble,
                                       (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, -1, True, ChkAplicaParaVenta.Checked, ChkEstado.Checked, UsuarioActual.CveUsuario, CvePS, CveMetodoInv,
@@ -3366,10 +3368,16 @@ Partial Class ProductosyServicios
                             Return True
 
                         End If
+
                     Else
                         Alert(String.Format("El producto no existe en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
                         Return True
                     End If
+
+                Else
+                    Alert(String.Format("Se presento un error al consultar la existencia en la franquicia: '{0}'", GlobalDTEmpresas(CveEmpresaFranquicia).FiltroPrimeroValor("Empresa")), TipoMensaje.MsgAdvertencia)
+                    Return True
+                End If
             End If
 
             GlobalDTPSSimplificado(CveEmpresaFranquicia) = Nothing

Ventas/Promociones.aspx.vb

@@ -855,6 +855,7 @@ Partial Class Ventas_Promociones
         If UsuarioActual.Empresa.Funcionalidad(563) <> "" Then
             If Not ObjVentas.SincronizarPromocionesClonar(CvePromocion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) Then
                 TieneError = True
+                CvePromocion = -1
             End If
         End If
 

Ventas/Ventas.aspx

@@ -1987,18 +1987,23 @@
                                                                     <asp:Literal ID="LtlPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:TemplateField HeaderText="Serie">
+                                                            <asp:TemplateField HeaderText="Serie" visible="false">
                                                                 <ItemTemplate>
                                                                     <asp:Literal ID="LtlSerie" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
                                                                     <asp:TextBox ID="TxtSerie" AutoPostBack="false" Text='<%# Eval("Serie") %>' Visible="false" runat="server" />
                                                                     <asp:Button Text="" ID="BtnSerie" Style="display: none;" OnClick="BtnSerie_Click" runat="server" />
                                                                     <asp:HiddenField runat="server" Value='<%# Eval("Serie") %>' ID="HdnSerie" />                                                                   
-
-                                                                    <%--<asp:HiddenField runat="server" ID="HdnSerieLote" Value='<%# Eval("SerieLote")%>' />--%>
                                                                 </ItemTemplate>
                                                             </asp:TemplateField>
-                                                            <asp:BoundField DataField="Lote" HeaderText="Lote" />
+                                                             <asp:BoundField DataField="Lote" HeaderText="Lote" Visible="False" />
                                                             <asp:BoundField DataField="FechaCaducidad" HeaderText="F. Caducidad" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
+                                                             <asp:TemplateField HeaderText="Lote/Caducidad" ItemStyle-HorizontalAlign="Left" Visible="false" ItemStyle-Width="270px">
+                                                                 <ItemTemplate>
+                                                                     <asp:DropDownList ID="DdlCaducidadProducto" CssClass="select2me" Width="100%" runat="server" Visible="false" CausesValidation="true"  >
+                                                                         <asp:ListItem Selected="True" Text="-" Value="|"></asp:ListItem>
+                                                                     </asp:DropDownList>
+                                                                 </ItemTemplate>
+                                                             </asp:TemplateField>                                                            
                                                         </Columns>
                                                     </asp:GridView>
                                                 </div>

Ventas/Ventas.aspx.vb

@@ -6716,6 +6716,9 @@ Partial Class Ventas
                 ddlAlmacen.Items.Clear()
 
                 DTAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue.ToEntero()}")
+                If UsuarioActual.CveEmpresa = 199 Then
+                    DTAlmacen.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto <> {DdlSubProyectoDatos.SelectedValue.ToEntero()}"))
+                End If
                 ddlAlmacen.DataSource = DTAlmacen
 
                 ddlAlmacen.Items.Insert(0, New ListItem("Seleccione ", "-1"))
@@ -9526,18 +9529,18 @@ Partial Class Ventas
                 e.Row.FCLiteral("LtlSerie").Visible = True
             End If
 
-            If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 And CveVenta <= 0 Then
+            If CveVenta <= 0 Then
-
+                If e.Row.DBCampo("AplicaSerie").ToEntero() = 1 Then
+                    GvInv.Columns(4).Visible = True
                     e.Row.FCTextBox("TxtSerie").Visible = True
                     e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
                     e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
                     e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
                     e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
-
+                End If
-                'e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))
+                If e.Row.DBCampo("AplicaLote").ToEntero() = 1 Then
-
+                    CargarCaducidadProducto(e.Row.DBCampo("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"), "", Nothing)
-                'e.Row.FCTextBox("LblCodigo").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))
+                End If
-                'e.Row.FCTextBox("LblCodigo").Attributes.Add("onblur", String.Format("LimpiaAF(1, '{0}'); AFBlurEdit(this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))
             End If
 
             If e.Row.DBCampo("CvePS") = "" Then
@@ -9590,6 +9593,37 @@ Partial Class Ventas
         End If
     End Sub
 
+    Private Sub CargarCaducidadProducto(CvePS As Integer, ByRef DdlLoteFechaCaducidad As DropDownList, ValorAsignado As String, DtDatosDevolucion As DataTable)
+        DdlLoteFechaCaducidad.Items.Clear()
+        DdlLoteFechaCaducidad.Items.Add(New ListItem("-", "|"))
+
+        Dim almacenes As String = ddlAlmacen.SelectedValue
+        If almacenes = "" Then
+            almacenes = "-1"
+        End If
+        GvInv.Columns(7).Visible = True
+        If DtDatosDevolucion IsNot Nothing Then
+            DdlLoteFechaCaducidad.Visible = True
+            For Each dr As DataRow In DtDatosDevolucion.FiltraParametros($"CvePS = {CvePS}", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
+                DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
+            Next
+        Else
+            Dim ObjInventarios As New ClsInventarios
+            If ObjInventarios.GetExistenciasCaducidad(CvePS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, almacenes) Then
+                DdlLoteFechaCaducidad.Visible = True
+                For Each dr As DataRow In ObjInventarios.DtResultados.FiltraParametros("", DistinctColumns:={"Lote", "FechaCaducidad"}).Rows
+                    DdlLoteFechaCaducidad.Items.Add(New ListItem($"Lote: {dr("Lote").ToString} - Cad: {dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}", $"{dr("Lote").ToString}|{dr("FechaCaducidad").ToString.ToDate.ToString("dd/MM/yyyy")}"))
+                Next
+            End If
+            ObjInventarios.Dispose()
+        End If
+
+        If Not String.IsNullOrEmpty(ValorAsignado) Then
+            DdlLoteFechaCaducidad.SelectedValueExist(ValorAsignado)
+        End If
+
+    End Sub
+
     Protected Sub GVINV_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvInv.RowEditing
         GvInv.EditIndex = e.NewEditIndex
         CargaGVInv(DtInv.FiltraParametros("CveTipoPS=2"))
@@ -10132,6 +10166,8 @@ Partial Class Ventas
                 Dim CveProducto As Integer
                 Dim Existencia As Double
                 Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero()
+                Dim tCveSubProyecto As Integer = DdlSubProyectoDatos.SelectedValue.ToEntero()
+                If UsuarioActual.CveEmpresa = 199 Then tCveSubProyecto = -1
                 For Each dr As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
 
                     If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then
@@ -10141,7 +10177,7 @@ Partial Class Ventas
                         Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") 'VALIDA CONTRA LA SUMA DEL MISMO PS
                         If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString().ToEntero() < 1 Then
                             Dim BuscarEnTabla As Boolean = If(UsuarioActual.Empresa.Funcionalidad(715) = "1", True, False)
-                            Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(),
+                            Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=tCveSubProyecto,
                                                                          CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1,
                                                                          RestringirAlmacenes:=1, ExcluyeApartados:=-1, BuscarEnTabla:=BuscarEnTabla)
                             If Existencia < Cantidad Then
@@ -16606,8 +16642,16 @@ Partial Class Ventas
                                     End If
                                     Dim CveSeccionAlmacen As Integer = -3
                                     'If AplicaSeccion Then CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, CveAlmacen, CveProducto).FiltroPrimeroValor("CveSeccionAlmacen", "").ToEntero
+                                    Dim Lote As String = "-1"
+                                    Dim FCaducidad As Date = MinFecha
 
-                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Dr("Serie").ToString(), CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
+                                    If GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto") IsNot Nothing AndAlso GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto").Visible Then
+                                        Dim ArrayCaducidad As String() = GvInv.Rows(i).FCDropDownList("DdlCaducidadProducto").SelectedValue.Split("|"c)
+                                        Lote = ArrayCaducidad(0)
+                                        FCaducidad = ArrayCaducidad(1).ToDate
+                                    End If
+
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, Cantidad, CveUnidad, CveProducto, PU, -1, Serie:=Dr("Serie").ToString(), Lote:=Lote, FechaCaducidad:=FCaducidad, CveSeccionAlmacen:=CveSeccionAlmacen, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero()) Then
                                         OcurrioError = True
                                         ErrorList.Add("Ocurrió un error al agregar los Movimientos de salida al Inventario.<br />")
                                         Exit For
@@ -20341,6 +20385,9 @@ Partial Class Ventas
             Row("CodigoPS") = DrPS("PSCodigo").ToString()
             Row("CveTipoPS") = DrPS("CveTipoPS")
             Row("CveTipoInvPS") = DrPS("Inv_CveMetodoInventario")
+            Row("AplicaSerie") = DrPS("AplicaSerie")
+            Row("AplicaLote") = DrPS("AplicaLote")
+            Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
             Row("CveTamaño") = DrPS("CveTamaño")
             Row("CodigoObjetoImpuesto") = DrPS("CodigoObjetoImpuesto")
 
@@ -20599,6 +20646,9 @@ Partial Class Ventas
         TmpDT.Columns.Add("NoIdentificacion", GetType(String))
         TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
         TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
+        TmpDT.Columns.Add("AplicaSerie", GetType(Integer))
+        TmpDT.Columns.Add("AplicaLote", GetType(Integer))
+        TmpDT.Columns.Add("AplicaCaducidad", GetType(Integer))
         TmpDT.Columns.Add("Serie", GetType(String))
         TmpDT.Columns.Add("CuentaPredial", GetType(String))
         TmpDT.Columns.Add("Obs", GetType(String))
@@ -24959,6 +25009,8 @@ Partial Class Ventas
         ObjInventarios.Dispose()
         UpINV.Update()
     End Sub
+
+
     Private Function ValidaSerieINV() As Boolean
         Dim Retorno As Boolean = False
         Dim Existencia As Decimal = 0
@@ -25305,7 +25357,7 @@ Partial Class Ventas
             DtTemporal.Columns.Add(colNew)
         End If
 
-        GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> "" Or CveVenta <= 0
+        GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> ""
         GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
         GvInv.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad").ToDate > MinFecha