From c04e6302d18e124d121db72b5f6d05ad8313b0c8 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 7 Dec 2023 13:16:43 -0700
Subject: [PATCH] RegPrepolizas TC

---
 Contabilidad/RegPrePolizaS.aspx.vb  | 28 ++++++++++++++++++----------
 Ventas/CatProcedimientoDetalle.aspx | 16 ++++++++++------
 2 files changed, 28 insertions(+), 16 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index d932c2a87..7fa9bebf6 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -559,17 +559,17 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             Dim CveConceptoContable As Integer = e.Row.DataKey("CveConceptoContable").ToEntero
 
-                    If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
-                    If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
-                    If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
-                    If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
+            If CveConceptoContable.Contiene(1, 2, 12, 91, 13, 38, 207, 203, 39, 61, 62, 63, 4, 278, 291, 292, 293, 294, 272, 150, 251, 301) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DataKey("CveVenta"))
+            If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 205, 225, 234, 235, 240, 305, 306, 307, 308, 309, 310, 311, 312, 201, 206, 323, 324, 341, 342, 343, 344, 304, 272, 259, 287, 288) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
+            If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
+            If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
 
-                    If e.Row.DBCampo("Modificado") = "True" Then
-                        e.Row.FCCheckBox("chkModificado").Checked = True
-                    End If
-                End If
+            If e.Row.DBCampo("Modificado") = "True" Then
+                e.Row.FCCheckBox("chkModificado").Checked = True
+            End If
+        End If
 
-                If e.Row.RowType = DataControlRowType.Header Then
+        If e.Row.RowType = DataControlRowType.Header Then
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").DataBind()
             'e.Row.FCDropDownList("DdlSubProyectoFiltro").Items.Insert(0, New ListItem("Todos", "-1"))
@@ -991,8 +991,16 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                             Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero
 
+                            Dim TC As Decimal = 0D
+                            Try
+                                TC = gvr.DataKey("TC").ToDecimal
+                            Catch ex As Exception
+
+                            End Try
+
+
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text.ToDate, tFolio,
-                                                       gvr.DataKey("ContadoBeneficiario"), ImporteIE, tCveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
+                                                       gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, tCveMoneda, TC, gvr.DataKey("ContadoObservaciones"), "",
                                                        False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CveIE < 0 Then
                                 MsgError = "No se pudo registrar movimiento bancario"
diff --git a/Ventas/CatProcedimientoDetalle.aspx b/Ventas/CatProcedimientoDetalle.aspx
index 34d26b50e..0efda7029 100644
--- a/Ventas/CatProcedimientoDetalle.aspx
+++ b/Ventas/CatProcedimientoDetalle.aspx
@@ -101,6 +101,14 @@
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>
 
+                                                 <asp:BoundField DataField="FechaVenta" HeaderText="Ultima Venta" ItemStyle-Width="80px" DataFormatString="{0:dd/MM/yyyy}">
+                                                    <ItemStyle HorizontalAlign="Left" />
+                                                </asp:BoundField>   
+
+                                                 <asp:BoundField DataField="SerieFolioVenta" HeaderText="Serie Folio">
+                                                    <ItemStyle HorizontalAlign="Left" />
+                                                </asp:BoundField>
+
                                                 <asp:BoundField DataField="EstatusStr" HeaderText="Estatus">
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>
@@ -117,13 +125,9 @@
                                                     <ItemStyle HorizontalAlign="Left" />
                                                 </asp:BoundField>
 
-                                                 <asp:BoundField DataField="SerieFolioVenta" HeaderText="Serie Folio">
-                                                    <ItemStyle HorizontalAlign="Left" />
-                                                </asp:BoundField>
+                                          
 
-                                                 <asp:BoundField DataField="FechaVenta" HeaderText="Fecha Venta" ItemStyle-Width="80px" DataFormatString="{0:dd/MM/yyyy}">
-                                                    <ItemStyle HorizontalAlign="Left" />
-                                                </asp:BoundField>                                                
+                                                                                             
 
                                                  <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px" >
                                                     <ItemTemplate>