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

App_Code/ClsInventarios.vb

@@ -2904,28 +2904,28 @@ Public Class ClsInventarios
 
         Return Retorno
     End Function
-    Public Function LoteBatchFechaCaducidadGet(CvePS As Integer, Lote As String, Batch As String, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
+    'Public Function LoteBatchFechaCaducidadGet(CvePS As Integer, Lote As String, Batch As String, CveEmpresa As Integer, Optional CveAlmacen As Integer = -1) As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
 
-        DataAdapter("PA_Inv_LoteBatchFechaCaducidadGet")
+    '    DataAdapter("PA_Inv_LoteBatchFechaCaducidadGet")
 
-        With SqlAdapter.SelectCommand.Parameters
+    '    With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+    '        .Add("@CvePS", SqlDbType.Int).Value = CvePS
-            .Add("@Lote", SqlDbType.VarChar).Value = Lote
+    '        .Add("@Lote", SqlDbType.VarChar).Value = Lote
-            .Add("@Batch", SqlDbType.VarChar).Value = Batch
+    '        .Add("@Batch", SqlDbType.VarChar).Value = Batch
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
+    '        .Add("@CveAlmacen", SqlDbType.Int).Value = CveAlmacen
-        End With
+    '    End With
 
-        Try
+    '    Try
-            SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-            Retorno = True
+    '        Retorno = True
-        Catch ex As Exception
+    '    Catch ex As Exception
-            OnError("Ocurrió un error al obtener la Fecha Caducidad del Lote-Batch.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        OnError("Ocurrió un error al obtener la Fecha Caducidad del Lote-Batch.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    End Try
 
-        Return Retorno
+    '    Return Retorno
-    End Function
+    'End Function
     Public Function ActualizarEsDevolucionVenta(CveVenta As Integer, Valor As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("Vta_UpdateDevolucionVenta")

Bancos/PagoElectronico.aspx.vb

@@ -1566,6 +1566,7 @@ Partial Class Bancos_PagoElectronico
 
                                         Param.Add(ArrayCorreos(index)) 'Para
                                         Param.Add("Notificación de Pago") 'Asunto
+
                                         Param.Add(GeneraCorreo2(DtPago.Rows(index), ObjIE, ArrayCveIEs(index).ToEntero)) 'Body
 
                                         Dim Hilo As New Threading.Thread(AddressOf MandaCorreo)
@@ -2130,11 +2131,11 @@ Partial Class Bancos_PagoElectronico
         End If
 
         Return strBody.ToString
-    End Function
+    End Function
 #End Region
-
+
 #Region " GENERA CORREO 2"
-
+
     Private Function GeneraCorreo2(Dr As DataRow, ByRef ObjIE As ClsBancos, CveIE As Integer) As String
         Dim strBody As New StringBuilder
 
@@ -2456,11 +2457,227 @@ Partial Class Bancos_PagoElectronico
         End If
 
         Return strBody.ToString
-    End Function
+    End Function
+
+
+
+    Private Function GeneraCorreo(CveIE As Integer) As String
+
+        Dim strBody As New StringBuilder
+        Dim objIE As New ClsBancos
+
+        If objIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+            strBody.Append("<html xmlns=""http://www.w3.org/1999/xhtml""> ")
+            strBody.Append("<head> ")
+            strBody.Append("    <style type=""text/css""> ")
+            strBody.Append("        body ")
+            strBody.Append("        { ")
+            strBody.Append("            margin:0px; ")
+            strBody.Append("            padding:0px 0px 0px 0px; ")
+            strBody.Append("            font-family: Verdana, Arial, Helvetica, sans-serif; ")
+            strBody.Append("            font-size: 10px; ")
+            strBody.Append("            background-color:#F0F0F0; ")
+            strBody.Append("        } ")
+            strBody.Append("        a.Texto ")
+            strBody.Append("        { ")
+            strBody.Append("            font-size:11px; ")
+            strBody.Append("            background-color:#F7F6F3; ")
+            strBody.Append("            text-decoration:none; ")
+            strBody.Append("            font-weight:bold; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Texto ")
+            strBody.Append("        { ")
+            strBody.Append("            	background-color:#F7F6F3; color:Black; font-family:Verdana; font-size:10px; text-align:center; vertical-align:middle; height:20px;")
+            strBody.Append("        } ")
+            strBody.Append("        .TextoAlterno ")
+            strBody.Append("        { ")
+            strBody.Append("            background-color:White; color:Black; font-family:Verdana; font-size:10px; text-align:center;  ")
+            strBody.Append("            vertical-align:middle; height:20px;")
+            strBody.Append("        } ")
+            strBody.Append("        .BarraIdentidad ")
+            strBody.Append("        { ")
+            strBody.Append("            color:#FFFFFF; ")
+            strBody.Append("            background:#F0F0F0; ")
+            strBody.Append("            font-weight:bold; ")
+            strBody.Append("            font-size:19px; ")
+            strBody.Append("            font-style:oblique; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Titulos ")
+            strBody.Append("        { ")
+            strBody.Append("            background-color: Gray;")
+            strBody.Append("            color:White;  ")
+            strBody.Append("           font-family:Verdana; font-size:12px; text-align:center;  ")
+            strBody.Append("            vertical-align:middle; font-weight:bold; height:30px; ")
+            strBody.Append("            text-decoration:none; ")
+            strBody.Append("        } ")
+            strBody.Append("        .Verde {color: #00CC00;} ")
+            strBody.Append("        .Negro {color: #000000;} ")
+            strBody.Append("        .Rojo {color: #FF0000;} ")
+            strBody.Append("    </style> ")
+            strBody.Append("</head> ")
+            strBody.Append("<body> ")
+            strBody.AppendFormat("<div id='C_div' style='width: 600px'>")
+            strBody.AppendFormat("    <fieldset>")
+            strBody.AppendFormat("        <legend><b>{0}</b></legend>", UsuarioActual.Empresa.Empresa)
+            strBody.AppendFormat("        <table class='TextoG' border='0' cellpadding='0' cellspacing='0' width='100%'>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td style='width:100px'>{0}</td>", UsuarioActual.Empresa.Direccion)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>Col. {0}</td>", UsuarioActual.Empresa.Colonia)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>{0}, {1}, C.P.{2}</td>", UsuarioActual.Empresa.Ciudad, UsuarioActual.Empresa.Estado, UsuarioActual.Empresa.CP)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("            <tr>")
+            strBody.AppendFormat("                <td>RFC {0}</td>", UsuarioActual.Empresa.RFC)
+            strBody.AppendFormat("            </tr>")
+            strBody.AppendFormat("        </table>")
+            strBody.AppendFormat("    </fieldset>")
+            strBody.AppendFormat("</div><br/><br/>")
+
+            strBody.AppendFormat("<div style='width: 600px'>")
+            strBody.AppendFormat("    <fieldset>")
+            strBody.AppendFormat("        <legend><b> </b></legend>")
+            strBody.AppendFormat("        <table class='TextoG' style='width:100%'>")
+
+            If objIE.CveTipoTransaccion = 1 Then ' cuando es cheque
+                strBody.Append("                <tr style=""height: 22px""> ")
+                strBody.Append("                    <td>Favor de pasar a nuestras oficinas por el cheque con la siguientes instrucciones.</td> ")
+                strBody.Append("                </tr> ")
+            End If
+
+            If objIE.CveTipoTransaccion = 2 Then ' cuando es transf
+                strBody.Append("                <tr style=""height: 22px""> ")
+                strBody.Append("                    <td>Notificación de transferencia de pago realizada.</td> ")
+                strBody.Append("                </tr> ")
+            End If
+
+            strBody.Append("                    <tr style=""height: 22px""> ")
+            strBody.AppendFormat("                  <td>&nbsp;</td> ")
+            strBody.Append("                    </tr> ")
+            strBody.Append("                </table> ")
+            strBody.AppendFormat("      </fieldset>")
+            strBody.Append("    </div> ")
+
+
+            strBody.AppendFormat("<div style='width: 600px'>")
+            strBody.AppendFormat("    <table style='width:100%'>")
+            strBody.AppendFormat("        <tr>")
+            strBody.AppendFormat("            <td style='vertical-align: top'>")
+            strBody.AppendFormat("                <fieldset>")
+            strBody.AppendFormat("                    <legend>Beneficiario:<b>{0}</b> </legend>", objIE.PagueseA)
+            strBody.AppendFormat("                    <table width='100%'>")
+            strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+            strBody.AppendFormat("                            <th scope='col' style='width:150px;'></th>")
+            strBody.AppendFormat("                            <th scope='col' style='width:450px;'></th>")
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Movimiento:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.TipoTransaccion)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Banco:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Banco)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Cuenta:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.NumCuenta)
+            strBody.AppendFormat("                        </tr>")
+            If objIE.CuentaDepositado.ToString <> "" Then
+                strBody.AppendFormat("                        <tr class='Texto'>")
+                strBody.AppendFormat("                            <td>Cuenta Destino:</td>")
+                strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.CuentaDepositado)
+                strBody.AppendFormat("                        </tr>")
+            End If
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Fecha:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.FechaDocumento.ToString("dd/MM/yyyy"))
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Importe:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td>Observaciones:</td>")
+            strBody.AppendFormat("                            <td style='text-align: left'>{0}</td>", objIE.Observaciones)
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                        <tr class='Texto'>")
+            strBody.AppendFormat("                            <td colspan='2'>")
+            strBody.AppendFormat("                                <hr />")
+            strBody.AppendFormat("                            </td>")
+            strBody.AppendFormat("                        </tr>")
+            strBody.AppendFormat("                    </table>")
+            strBody.AppendFormat("                </fieldset>")
+            strBody.AppendFormat("            </td>")
+            strBody.AppendFormat("      </tr>")
+            strBody.AppendFormat("  </table>")
+            strBody.AppendFormat("</div>")
+
+
+            'MOVIMIENTOS CHEQUE
+            If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
+                Dim Textov33 As String = ""
+                If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
+                    Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
+                End If
+
+                strBody.AppendFormat("<div style='width: 1000px'>")
+                strBody.AppendFormat("    <table style='width:1000px'>")
+                strBody.AppendFormat("        <tr>")
+                strBody.AppendFormat("            <td style='vertical-align: top'>")
+                strBody.AppendFormat("                <fieldset>")
+                strBody.AppendFormat("                    <legend><b>Documentos abonados o pagados <br/>{0}</b> </legend>", Textov33)
+                strBody.AppendFormat("                    <table width='1000px'>")
+                strBody.AppendFormat("                        <tr style='background-color: gray; color: White; font-family: Verdana; font-size: 10px; text-align: center; vertical-align: middle; font-weight: bold; height: 20px; text-decoration: none;'>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 10%'>Fecha</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Factura</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 20%'>Importe ($)</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 40%'>Folio Fiscal</th>")
+                strBody.AppendFormat("                            <th scope='col' style='width: 15%'>NC Aplicadas</th>")
+                strBody.AppendFormat("                        </tr>")
+
+
+                For Each dr As DataRow In objIE.DtResultados.FiltraParametros("CveConceptoContable IN (17) AND CveCompra > 0").Rows
+                    strBody.AppendFormat("                        <tr class='Texto'>")
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("Fecha").ToString.ToDate.ToShortDateString())
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("SerieFolio").ToString)
+                    strBody.AppendFormat("                            <td style='text-align: right'>$ {0}</td>", dr("Importe").ToString.FormatoNumero)
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("FolioFiscal"))
+                    strBody.AppendFormat("                            <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
+                    strBody.AppendFormat("                        </tr>")
+                Next
+
+
+                strBody.AppendFormat("                        <tr class='Texto'>")
+                strBody.AppendFormat("                            <td colspan='5'>")
+                strBody.AppendFormat("                                <hr />")
+                strBody.AppendFormat("                            </td>")
+                strBody.AppendFormat("                        </tr>")
+                strBody.AppendFormat("                    </table>")
+                strBody.AppendFormat("                </fieldset>")
+                strBody.AppendFormat("            </td>")
+                strBody.AppendFormat("      </tr>")
+                strBody.AppendFormat("  </table>")
+                strBody.AppendFormat("</div>")
+            End If
+
+            strBody.Append("   <div> Favor de no responder a este correo. </div> ")
+
+            strBody.Append("</body></html>")
+        End If
+
+        objIE.Dispose()
+        Return strBody.ToString
+    End Function
+
+
 #End Region
-
+
-
+
-
+
+
+
 #Region " IMPRIMIR "
     Protected Sub BtnReporteAltaCarga_Click(sender As Object, e As EventArgs)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/LayoutAltaProveedor.rdlc", UsuarioActual.Empresa.Ruta))

Compras/Compras.aspx.vb

@@ -6395,6 +6395,9 @@ Partial Class Compras_Compras
 
                                                             Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
 
+
+                                                            Dim Insertado205 As Boolean = False
+
                                                             If RBLPago.SelectedValue.ToEntero = 4 Then
                                                                 Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                             End If
@@ -6602,6 +6605,7 @@ Partial Class Compras_Compras
                                                                                 End If
                                                                             End If
                                                                         Case 205, 237, 240
+                                                                            Insertado205 = True
                                                                             Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
                                                                             If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso UsaComplementariaFleteImportaciones Then
                                                                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
@@ -6803,14 +6807,17 @@ Partial Class Compras_Compras
                                                                                 End If
 
                                                                                 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+
-                                                                                    ErrorPrepoliza = True
+                                                                                If Not Insertado205 Then
+
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+
                                                                                 End If
 
 
 
-
-
                                                                             End If
 
                                                                         Next

Inventarios/EntregaAlmacen.aspx.vb

@@ -596,7 +596,9 @@ Partial Class Inventarios_EntregaAlmacen
                         DdlAlmacen.SelectedValueExist(CveAlmacenTraspasoOrigen)
                     End If
 
-
+                    If Not DtDatos.Columns.Contains("Serie") Then
+                        DtDatos.Columns.Add("Serie", GetType(String))
+                    End If
                     If Not DtDatos.Columns.Contains("Lote") Then
                         DtDatos.Columns.Add("Lote", GetType(String))
                     End If
@@ -744,6 +746,20 @@ Partial Class Inventarios_EntregaAlmacen
                     DdlAlmacen.SelectedValueExist(CveAlmacenTraspasoOrigen)
                 End If
 
+                If Not DtDatos.Columns.Contains("CveSeccion") Then
+                    DtDatos.Columns.Add("CveSeccion", GetType(Integer))
+                End If
+
+                If Not DtDatos.Columns.Contains("FechaCaducidad") Then
+                    DtDatos.Columns.Add("FechaCaducidad", GetType(Date))
+                End If
+                If Not DtDatos.Columns.Contains("Seleccionado") Then
+                    DtDatos.Columns.Add("Seleccionado", GetType(Boolean))
+                End If
+                If Not DtDatos.Columns.Contains("CantidadSeleccionada") Then
+                    DtDatos.Columns.Add("CantidadSeleccionada", GetType(Double))
+                End If
+
                 If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
                     DivCodigoSeriePS.Visible = True
                 Else
@@ -812,7 +828,8 @@ Partial Class Inventarios_EntregaAlmacen
                 If e.Row.DBCampo("Consec") <> "" AndAlso DtDatosDetalle IsNot Nothing Then
                     Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count
                     e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString
-                    'e.Row.FCTextBox("TbCantidadF").Text = "0"
+                Else
+                    e.Row.FCTextBox("TbCantidadF").Text = "0"
                 End If
 
 
@@ -867,6 +884,7 @@ Partial Class Inventarios_EntregaAlmacen
 
             'FUNCIONALIDAD PISTOLA DE CODIGOS
             If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
+                e.Row.FCTextBox("TbCantidadF").Text = "0"
                 'NO BLOQUEA PARA ROL AD
                 If UsuarioActual.CveRol = 1 Then
                     If e.Row.DBCampo("Inv_CveMetodoInventario").Contiene("5", "6") Then
@@ -2540,10 +2558,10 @@ Partial Class Inventarios_EntregaAlmacen
                 If CBool(Dr("AplicaSerie")) Then
                     DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", Dr("Consec")))
                     For Each Dr1 As DataRow In DtDetalle.Rows
-                        StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("YYYY/MM/DD"))
+                        StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr1("CvePS"), Dr1("CveUM"), 1, IfNull(Dr("CveSeccion"), -1), Dr1("Serie"), Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                     Next
                 Else
-                    StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("YYYY/MM/DD"))
+                    StrXML.AppendFormat("<concepto CvePS=""{0}"" CveUM=""{1}"" Cantidad= ""{2}"" CveSeccionAlmacen=""{3}""  Serie=""{4}"" Lote=""{5}"" FechaCaducidad=""{6}"" ></concepto>", Dr("CvePS"), Dr("CveUM"), Dr("CantidadGV"), IfNull(Dr("CveSeccion"), -1), "-1", Lote, FechaCaducidad.ToString("yyyy/MM/dd"))
                 End If
             End If
         Next

Ventas/Ventas.aspx.vb

@@ -18371,6 +18371,10 @@ Partial Class Ventas
             DtTemporal.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
         End If
 
+        If Not DtTemporal.Columns.Contains("Serie") Then
+            DtTemporal.Columns.Add("Serie", Type.GetType("System.String"))
+        End If
+
         GvInv.Columns(4).Visible = DtTemporal.MAX("Serie", "Serie <> ''") <> "" Or CveVenta <= 0
         GvInv.Columns(5).Visible = DtTemporal.MAX("Lote", "Lote <> ''") <> ""
         GvInv.Columns(6).Visible = DtTemporal.MAX("FechaCaducidad").ToDate > MinFecha