En el reporte de utilidades cuando una factura no tiene un pago pondra de color la celda de rentabilidad En reembolsos comprobaciones se habilito la opcion otros ingresos para cuando se seleccione algun cheque

Compras/ReembolsosComprobaciones.aspx

@@ -117,6 +117,8 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
 
                                 <asp:CheckBox runat="server" ID="ChkReembolsarSinBancos" OnCheckedChanged="ChkReembolsarSinBancos_CheckedChanged" AutoPostBack="true" Text="Comprobación sin bancos" Visible="false" Checked="false" />
+
+                                <asp:CheckBox ID="ChkOtrosIngresosCheque" runat="server" Text="Otros Ingresos" AutoPostBack="true" OnCheckedChanged="ChkOtrosIngresosCheque_CheckedChanged" />
                             </div>
 
                         </asp:Panel>
@@ -420,7 +422,7 @@
                     <asp:TemplateField>
                         <HeaderTemplate>Cheque</HeaderTemplate>
                         <ItemTemplate>
-                            <asp:HyperLink ID="HLCheque" Target="_blank" CssClass="Texto" Text='<%# Eval("Folio")%>' runat="server"></asp:HyperLink>
+                            <asp:HyperLink ID="HyperLink1" Target="_blank" CssClass="Texto" Text='<%# Eval("Folio")%>' runat="server"></asp:HyperLink>
                         </ItemTemplate>
                         <ItemStyle Width="80px" />
                     </asp:TemplateField>
@@ -511,7 +513,12 @@
                             }
 
                         }
-                    }                  
+                    }
+                    if (textBoxes[i].id.indexOf('C_GvCxP_TxtComision') >= 0) {
+                        if (textBoxes[i].value != '') {
+                            Comision = parseFloat(Comision) + parseFloat(textBoxes[i].value.split(',').join(''));
+                        }
+                    }
                 }
             }
 
@@ -544,7 +551,7 @@
                     
                 }
 
-                $get('TxtImporteVinculado').value = FormatoNumero(Importe, 2);
+                $get('TxtImporteVinculado').value = FormatoNumero(Importe + Comision, 2);
 
             } else {
                 $get('TxtImporte').value = FormatoNumero(Importe, 2);

Compras/ReembolsosComprobaciones.aspx.vb

@@ -263,6 +263,26 @@ Partial Class Compras_ReembolsosComprobaciones
         UPCompras.Update()
     End Sub
 
+    Protected Sub ChkOtrosIngresosCheque_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkOtrosIngresosCheque.Checked Then
+            TxtOtrosImportes.Visible = True
+            TxtTotal.Visible = True
+            GvCxP.Columns(15).Visible = True
+        Else
+            TxtOtrosImportes.Visible = False
+            TxtTotal.Visible = False
+            GvCxP.Columns(15).Visible = False
+            TxtOtrosImportes.Text = ""
+            TxtTotal.Text = ""
+            RegistraScript("$get('TxtImporte').value = FormatoNumero(SumaValores(), 2);")
+        End If
+
+        UpDatos.Update()
+        UPCompras.Update()
+
+    End Sub
+
 #End Region
 
 #Region " SELECTED INDEX CHANGED "
@@ -301,6 +321,8 @@ Partial Class Compras_ReembolsosComprobaciones
 
             PnlChequeInfo.Visible = True
 
+            ChkOtrosIngresosCheque.Visible = True
+
             If UsuarioActual.TienePermisoProceso(113) Then TrChequeExcedente.Visible = True
 
             CargaDatos(DDlCheques.SelectedValue.ToEntero)
@@ -315,6 +337,8 @@ Partial Class Compras_ReembolsosComprobaciones
 
             HdnCheque.Value = "-1"
 
+            ChkOtrosIngresosCheque.Visible = False
+
             If UsuarioActual.TienePermisoProceso(113) Then TableExpedirCheque.Visible = True
 
             LimpiaDatos()
@@ -410,9 +434,9 @@ 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), TxtImporte.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, 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, TxtImporte.Text.ToDecimal, String.Format("Transferencia Cta: {0}", DdlCajaChica.SelectedItem), 30, TxtObservaciones.Text, TxtFechaDocumento.Text.ToDate, IdCuentaBancaria, -1, CveIE:=CveIECajaChica, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal), ImporteMX:=TxtImporte.Text.ToDecimal * tipoCambio) Then
+                    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"
                     End If
                 Else
@@ -620,11 +644,12 @@ Partial Class Compras_ReembolsosComprobaciones
                             End If
 
                             'Otros Ingresos
-                            If ChkAjusteOI.Checked AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then
+                            If (ChkAjusteOI.Checked Or ChkOtrosIngresosCheque.Checked) AndAlso gvr.FCTextBox("TxtComision").Text.ToDecimal > 0 Then
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor) Then
                                     MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                 End If
-                                If CveCajaChica > 0 Then
+                                If CveCajaChica > 0 AndAlso Not HdnCheque.Value.ToEntero > 0 Then
+
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.FCTextBox("TxtComision").Text.ToDecimal, Referencia, 211, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIERegistrado, CvePersonal:=CvePersonal, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.FCTextBox("TxtComision").Text.ToDecimal), ImporteMX:=gvr.FCTextBox("TxtComision").Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaProveedor, Contabilizable:=False) Then
                                         MsgError = "no se pudo insertar el detalle de la poliza de otros ingresos"
                                     End If
@@ -1919,4 +1944,5 @@ Partial Class Compras_ReembolsosComprobaciones
 
 #End Region
 
+
 End Class

Ventas/RepVentasUtilidad.aspx.vb

@@ -216,7 +216,9 @@ Partial Class Ventas_RepVentasUtilidad
                 e.Row.CssClass = "Totales"
             End If
 
-
+            If e.Row.DBCampo("CveVenta").ToEntero > 0 AndAlso Not CBool(e.Row.DBCampo("TienePago")) Then
+                e.Row.Cells(15).BackColor = Drawing.Color.LightPink
+            End If
 
 
             Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",