-- PERSONALIZAR COLUMNA 'TC'

Ventas/RepVentaDetalle.aspx

@@ -579,6 +579,12 @@
                             <asp:Literal ID="LtlKm" runat="server" Text='<%# Eval("Kilometraje") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%-- 39--%>
+                    <asp:TemplateField HeaderText="TC" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTC" runat="server" Text='<%# Eval("TipoCambio") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
 
                 </Columns>
             </asp:GridView>
@@ -717,7 +723,7 @@
                                          <td style="text-align: left;"><asp:CheckBox ID="ChkSeTimbro" runat="server" Text="&nbsp;Se Timbró" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"></td>
+                                        <td style="text-align: left;"><asp:CheckBox ID="ChkTC" runat="server" Text="&nbsp;TC"  /></td>
                                         <td style="text-align: left;"><asp:CheckBox ID="ChkUsoCFDI" runat="server" Text="&nbsp;Uso CFDI" Checked="false" /></td>                                   
                                         <td style="text-align: left;"><asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="&nbsp; Se envió Mail" /></td>                           
                                     </tr>

Ventas/RepVentaDetalle.aspx.vb

@@ -625,160 +625,85 @@ Partial Class RepVentaDetalle
         Dim objUsuario As New ClsSisUsuarios
         Dim ListPersonalizada As New List(Of String)
 
-        If ChkOrdenCompra.Checked Then
+        If ChkOrdenCompra.Checked Then ListPersonalizada.Add("OrdenCompra")
-            ListPersonalizada.Add("OrdenCompra")
-        End If
 
-        If ChkFolio.Checked Then
+        If ChkFolio.Checked Then ListPersonalizada.Add("Folio")
-            ListPersonalizada.Add("Folio")
-        End If
 
-        If ChkPedidoContrato.Checked Then
+        If ChkPedidoContrato.Checked Then ListPersonalizada.Add("PedidoContrato")
-            ListPersonalizada.Add("PedidoContrato")
-        End If
 
+        If ChkFolio.Checked Then ListPersonalizada.Add("Folio")
 
-        If ChkFolio.Checked Then
+        If ChkFecha.Checked Then ListPersonalizada.Add("Fecha")
-            ListPersonalizada.Add("Folio")
-        End If
 
-        If ChkFecha.Checked Then
+        If ChkCliente.Checked Then ListPersonalizada.Add("Cliente")
-            ListPersonalizada.Add("Fecha")
-        End If
 
-        If ChkCliente.Checked Then
+        If ChkSubTotal.Checked Then ListPersonalizada.Add("SubTotal")
-            ListPersonalizada.Add("Cliente")
-        End If
 
-        If ChkSubTotal.Checked Then
+        If ChkDescuento.Checked Then ListPersonalizada.Add("Descuento")
-            ListPersonalizada.Add("SubTotal")
-        End If
 
-        If ChkDescuento.Checked Then
+        If ChlMotivoDescuento.Checked Then ListPersonalizada.Add("MotivoDescuento")
-            ListPersonalizada.Add("Descuento")
-        End If
 
-        If ChlMotivoDescuento.Checked Then
+        If ChkAmortizacion.Checked Then ListPersonalizada.Add("Amortizacion")
-            ListPersonalizada.Add("MotivoDescuento")
-        End If
 
-        If ChkAmortizacion.Checked Then
+        If ChkIVA.Checked Then ListPersonalizada.Add("IVA")
-            ListPersonalizada.Add("Amortizacion")
-        End If
 
-        If ChkIVA.Checked Then
+        If ChkIEPS.Visible AndAlso ChkIEPS.Checked Then ListPersonalizada.Add("IEPS")
-            ListPersonalizada.Add("IVA")
-        End If
 
-        If ChkIEPS.Checked Then
+        If ChkRetIVA.Checked Then ListPersonalizada.Add("RetIVA")
-            ListPersonalizada.Add("IEPS")
-        End If
 
-        If ChkRetIVA.Checked Then
+        If ChkRetISR.Checked Then ListPersonalizada.Add("RetISR")
-            ListPersonalizada.Add("RetIVA")
-        End If
 
-        If ChkRetISR.Checked Then
+        If ChkTotalImpuestos.Checked Then ListPersonalizada.Add("TotalImpuestos")
-            ListPersonalizada.Add("RetISR")
-        End If
 
-        If ChkTotalImpuestos.Checked Then
+        If ChkTotal.Checked Then ListPersonalizada.Add("Total")
-            ListPersonalizada.Add("TotalImpuestos")
-        End If
 
-        If ChkTotal.Checked Then
+        If ChkMoneda.Checked Then ListPersonalizada.Add("Moneda")
-            ListPersonalizada.Add("Total")
-        End If
 
-        If ChkMoneda.Checked Then
+        If ChkSucursal.Checked Then ListPersonalizada.Add("Sucursal")
-            ListPersonalizada.Add("Moneda")
-        End If
 
-        If ChkSucursal.Checked Then
+        If ChkSucursalEjecucion.Checked Then ListPersonalizada.Add("SucursalEjecucion")
-            ListPersonalizada.Add("Sucursal")
-        End If
 
-        If ChkSucursalEjecucion.Checked Then
+        If ChkCodigo.Checked Then ListPersonalizada.Add("Codigo")
-            ListPersonalizada.Add("SucursalEjecucion")
-        End If
 
-        If ChkCodigo.Checked Then
+        If ChkSucursalCliente.Checked Then ListPersonalizada.Add("SucursalCliente")
-            ListPersonalizada.Add("Codigo")
-        End If
 
-        If ChkSucursalCliente.Checked Then
+        If ChkSucursalCobranza.Checked Then ListPersonalizada.Add("SucursalCobranza")
-            ListPersonalizada.Add("SucursalCliente")
-        End If
 
-        If ChkSucursalCobranza.Checked Then
+        If ChkVendedor.Checked Then ListPersonalizada.Add("Vendedor")
-            ListPersonalizada.Add("SucursalCobranza")
-        End If
 
-        If ChkVendedor.Checked Then
+        If ChkEstatusFactura.Checked Then ListPersonalizada.Add("EstatusFactura")
-            ListPersonalizada.Add("Vendedor")
-        End If
 
-        If ChkEstatusFactura.Checked Then
+        If ChkMotivoCancelacion.Checked Then ListPersonalizada.Add("MotivoCancelacion")
-            ListPersonalizada.Add("EstatusFactura")
-        End If
 
-        If ChkMotivoCancelacion.Checked Then
+        If ChkSeTimbro.Checked Then ListPersonalizada.Add("SeTimbro")
-            ListPersonalizada.Add("MotivoCancelacion")
-        End If
 
-        If ChkSeTimbro.Checked Then
+        If ChkSeEnvioMail.Checked Then ListPersonalizada.Add("SeEnvioMail")
-            ListPersonalizada.Add("SeTimbro")
-        End If
 
-        If ChkSeEnvioMail.Checked Then
+        If ChkCuentaContable.Checked Then ListPersonalizada.Add("CuentaContable")
-            ListPersonalizada.Add("SeEnvioMail")
-        End If
 
-        If ChkCuentaContable.Checked Then
+        If ChkUsuario.Checked Then ListPersonalizada.Add("Usuario")
-            ListPersonalizada.Add("CuentaContable")
-        End If
 
-        If ChkUsuario.Checked Then
+        If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones")
-            ListPersonalizada.Add("Usuario")
-        End If
 
-        If ChkObservaciones.Checked Then
+        If ChkFolioFiscal.Checked Then ListPersonalizada.Add("FolioFiscal")
-            ListPersonalizada.Add("Observaciones")
-        End If
 
-        If ChkFolioFiscal.Checked Then
+        If ChkMailCliente.Checked Then ListPersonalizada.Add("MailCliente")
-            ListPersonalizada.Add("FolioFiscal")
-        End If
 
-        If ChkMailCliente.Checked Then
+        If ChkEstatusFacturacion.Checked Then ListPersonalizada.Add("EstatusFacturacion")
-            ListPersonalizada.Add("MailCliente")
-        End If
 
-        If ChkEstatusFacturacion.Checked Then
+        If ChkFolioFacturacion.Checked Then ListPersonalizada.Add("FolioFacturacion")
-            ListPersonalizada.Add("EstatusFacturacion")
-        End If
 
-        If ChkFolioFacturacion.Checked Then
+        If ChkSaldo.Checked Then ListPersonalizada.Add("Saldo")
-            ListPersonalizada.Add("FolioFacturacion")
-        End If
 
-        If ChkSaldo.Checked Then
+        If ChkMetodoPago.Checked Then ListPersonalizada.Add("MetodoPago")
-            ListPersonalizada.Add("Saldo")
-        End If
 
-
+        If ChkFormaPago.Checked Then ListPersonalizada.Add("FormaPago")
-        If ChkMetodoPago.Checked Then
-            ListPersonalizada.Add("MetodoPago")
-        End If
-
-        If ChkFormaPago.Checked Then
-            ListPersonalizada.Add("FormaPago")
-        End If
 
         If ChkUsoCFDI.Checked Then ListPersonalizada.Add("UsoCFDI")
 
-        If ChkKilometraje.Checked Then ListPersonalizada.Add("Kilometraje")
+        If ChkKilometraje.Visible AndAlso ChkKilometraje.Checked Then ListPersonalizada.Add("Kilometraje")
 
+        If ChkTC.Checked Then ListPersonalizada.Add("TC")
 
         If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
             'Alert("Personalizacion guardada")
@@ -877,6 +802,9 @@ Partial Class RepVentaDetalle
                     Case "IEPS"
                         ChkIEPS.Checked = True
                         Exit Select
+                    Case "TC"
+                        ChkTC.Checked = True
+                        Exit Select
                     Case "RetIVA"
                         ChkRetIVA.Checked = True
                         Exit Select
@@ -1018,6 +946,7 @@ Partial Class RepVentaDetalle
         GvDatos.Columns(37).Visible = ChkFormaPago.Checked
         GvDatos.Columns(38).Visible = ChkUsoCFDI.Checked
         GvDatos.Columns(39).Visible = ChkKilometraje.Checked
+        GvDatos.Columns(40).Visible = ChkTC.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then