RepAnt-NC, saldados no contabilizables empresa 13

Compras/Compras.aspx.vb

@@ -4090,6 +4090,10 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
+        If Not ValidaSeleccionAnticipo() Then
+            Alert("El proveedor tiene anticipos sin aplicar, favor de especiar uno.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
 
         Dim TotalRealDevolucion As Decimal = 0
@@ -20563,8 +20567,40 @@ Partial Class Compras_Compras
 
     End Sub
 
+
+    Private Function ValidaSeleccionAnticipo() As Boolean
+
+        Dim Respuesta As Boolean
+
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+            If GVAnticipos.Rows.Count > 0 Then
+
+                For Each GVRow As GridViewRow In GVAnticipos.Rows
+                    If GVRow.FCCheckBox("Chk").Checked AndAlso GVRow.FCTextBox("TxtAnticipo").Text.ToDecimal > 0 Then
+                        Respuesta = True
+                        Exit For
+                    Else
+                        Respuesta = False
+                    End If
+                Next
+
+            Else
+                Respuesta = True
+            End If
+
+        Else
+            Respuesta = True
+        End If
+
+        Return Respuesta
+
+    End Function
+
 End Class
 
+
+
+
 Public Class MMensajeDevolucion
     Public Property CveMovimiento As Integer
     Public Property TieneError As Boolean

Compras/RepAnt-NC-EXCDetalle.aspx

@@ -146,7 +146,7 @@
                     <asp:BoundField DataField="TipoColumna" HeaderText="" ItemStyle-HorizontalAlign="Left"   />
                     <asp:BoundField DataField="SerieFolio" HeaderText="Proveedor/Folio" ItemStyle-HorizontalAlign="Left"   />
                     <asp:BoundField DataField="Fecha" ItemStyle-Width="10%" HeaderText="Fecha" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" />
-                    <asp:BoundField DataField="Dias" HeaderText="Días Transcurridos" ItemStyle-HorizontalAlign="Right"   />
+                    <asp:BoundField DataField="Dias" HeaderText="Días" ItemStyle-HorizontalAlign="Right"   />
                     <asp:BoundField DataField="SubTotal" ItemStyle-Width="10%" HeaderText="Importe" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
                     <asp:BoundField DataField="ImporteAmortizacion" ItemStyle-Width="10%" HeaderText="Aplicado" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />
                     <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" DataFormatString="{0:C}" ItemStyle-HorizontalAlign="right" />

Compras/RepCxPDetalle.aspx

@@ -348,7 +348,7 @@
                             Moneda
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Moneda")%>' CssClass="Moneda"></asp:Label>
+                            <asp:Label ID="LblMoneda" runat="server" Text='<%# Eval("Abreviatura")%>' CssClass="Moneda"></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>