reembolso, cambio en fecha de movimientos sin bancos,

prepoliza, colimna TC

Compras/ReembolsosComprobaciones.aspx.vb

@@ -434,7 +434,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         End If
                     End If
                     Dim FolioIENew = ObjIE.GetNextFolio(If(CveCajaChica > 0, CveCajaChica, CvePersonal), 8).ToString
-                    CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, TxtFechaDocumento.Text.Trim.ToDate, FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporteVinculado.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                    CveIECajaChica = ObjIE.AddBancos_IE(CveCajaChica, 8, If(ChkReembolsarSinBancos.Checked, TxtFechaPrePoliza.Text.ToDate, TxtFechaDocumento.Text.Trim.ToDate), FolioIENew, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), TxtImporteVinculado.Text.ToDecimal, CveMoneda, 0, TxtObservaciones.Text.Trim, "", False, False, -1, CvePrePolizaIERegistrado, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
                     'AGREGO PREPOLIZA IE BANCOS
                     If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaIERegistrado, True, TxtImporteVinculado.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporteVinculado.Text.ToDecimal), ImporteMX:=TxtImporteVinculado.Text.ToDecimal * tipoCambio) Then
                         MsgError = "Error al registrar detalle de concepto bancario"

Contabilidad/RegPrePoliza1.aspx

@@ -462,6 +462,13 @@
                             </ItemTemplate>
                             <ItemStyle HorizontalAlign="Left" Width="300px" />
                         </asp:TemplateField>
+                        <asp:TemplateField Visible="false">
+                            <HeaderTemplate>TC</HeaderTemplate>
+                            <ItemTemplate>
+                                <asp:Literal ID="LtlTC" runat="server" Text='<%#  String.Format("{0}-${1}", Eval("TC"), Eval("ImporteME", "{0:N2}")) %>'></asp:Literal><br />
+                            </ItemTemplate>
+                            <ItemStyle HorizontalAlign="Left" Width="300px" />
+                        </asp:TemplateField>
                         <asp:TemplateField>
                             <HeaderTemplate>Cargo</HeaderTemplate>
                             <ItemTemplate>

Contabilidad/RegPrePoliza1.aspx.vb

@@ -396,6 +396,10 @@ Partial Class ContabilidadC_RegPrePoliza
                 GvPrePoliza.DataSource = DtMovimientos
                 GvPrePoliza.DataBind()
 
+                If UsuarioActual.CveRol = 1 AndAlso DtMovimientos.COUNT("TC", "TC > 1") > 0 Then
+                    GvPrePoliza.Columns(7).Visible = True
+                End If
+
                 If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
                     LnkComplementoPago.Visible = True
                 End If