-- corrección de error en columnas de ot. ingresos

Compras/ReembolsosComprobaciones.aspx

@@ -401,20 +401,7 @@
                         <ItemTemplate>
                             <asp:Literal ID="LtlAux" runat="server"></asp:Literal>
                         </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField Visible="False">
-                        <HeaderTemplate>CveCompra</HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HplF2" CssClass="Texto" Text='<%# Eval("CveCompra")%>' runat="server"></asp:HyperLink>
-                        </ItemTemplate>
-                    </asp:TemplateField>
-                    <asp:TemplateField Visible="False">
-                        <HeaderTemplate>CveProveedor</HeaderTemplate>
-                        <ItemTemplate>
-                            <asp:HyperLink ID="HLProv" CssClass="Texto" Text='<%# Eval("CveProveedor")%>' runat="server"></asp:HyperLink>
-                        </ItemTemplate>
-                    </asp:TemplateField>                  
-
+                    </asp:TemplateField> 
                     <asp:TemplateField Visible="false">
                         <HeaderTemplate>Ot. Ing.</HeaderTemplate>
                         <ItemTemplate>

Compras/ReembolsosComprobaciones.aspx.vb

@@ -273,11 +273,11 @@ Partial Class Compras_ReembolsosComprobaciones
         If ChkAjusteOI.Checked Then
             TxtOtrosImportes.Visible = True
             TxtTotal.Visible = True
-            GvCxP.Columns(15).Visible = True
+            GvCxP.Columns(12).Visible = True
         Else
             TxtOtrosImportes.Visible = False
             TxtTotal.Visible = False
-            GvCxP.Columns(15).Visible = False
+            GvCxP.Columns(12).Visible = False
             TxtOtrosImportes.Text = ""
             TxtTotal.Text = ""
             RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);")
@@ -292,11 +292,11 @@ Partial Class Compras_ReembolsosComprobaciones
         If ChkOtrosIngresosCheque.Checked Then
             TxtOtrosImportes.Visible = True
             TxtTotal.Visible = True
-            GvCxP.Columns(15).Visible = True
+            GvCxP.Columns(14).Visible = True
         Else
             TxtOtrosImportes.Visible = False
             TxtTotal.Visible = False
-            GvCxP.Columns(15).Visible = False
+            GvCxP.Columns(14).Visible = False
             TxtOtrosImportes.Text = ""
             TxtTotal.Text = ""
             RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);")
@@ -687,7 +687,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 If Not ChkReembolsarSinBancos.Checked AndAlso (Not HdnCheque.Value.ToEntero > 0 Or Not UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso Not ChkMesSiguiente.Checked) Then
                                     'Si es caja chica metemos el concepto 30, si es funcionario metemos 29
                                     ImporteMovto += Pago.OtroGastoIngreso ' si ajuste, sedebe de aplicar en su contraparte
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, ImporteMovto, ImporteMovto * tipoCambio, If(CveCajaChica > 0, 30, 29), Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveIEDevolucion:=If(CveCajaChica > 0, If(DDlCheques.SelectedValue.ToEntero = -1, CveIECajaChica, DDlCheques.SelectedValue.ToEntero), -1), CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto), CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, Contabilizable:=If(CveCajaChica > 0 Or CvePersonal > 0, Not UsaSimplificacionCajaChica, True)) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -698,13 +698,13 @@ Partial Class Compras_ReembolsosComprobaciones
                             If MsgError = "" AndAlso UsuarioActual.Empresa.Funcionalidad(506) = "1" And CbPermitirExcedente.Checked = True And SaldoExcedente > 0 Then
                                 If DDlPermitirExcedente.SelectedValue = "1" Then
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 132, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
                                         MsgError = "Detalle Reembolso Personal"
                                     End If
 
                                 ElseIf DDlPermitirExcedente.SelectedValue = "2" Then
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, SaldoExcedente * tipoCambio, 29, Referencia, ConceptoMovimiento, CveIE:=CveIEPago, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
                                         MsgError = "Detalle Reembolso Personal Excedente"
                                     End If
                                 End If
@@ -747,7 +747,7 @@ Partial Class Compras_ReembolsosComprobaciones
                             Pago.CveMonedaPago = CveMoneda
                             Pago.CvePersonal = CvePersonal
 
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, ImporteMovto, ImporteMovto * tipoCambio, 30, Referencia, ConceptoMovimiento, CveIE:=CveIEExcedente, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteMovto)) Then
                                 MsgError = "no se pudo insertar el detalle de la poliza"
                             End If
 
@@ -757,7 +757,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
                             'Otros Ingresos
                             If ChkAjusteOI.Checked Then
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, 78, Referencia, ConceptoMovimiento, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveSubProyecto:=gvr.DataKey("CveSubProyecto").ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal)) Then
                                     MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                 End If
                             End If