Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Bancos/RepProgramarRecursos.aspx

@@ -116,6 +116,7 @@
                                     </div>
                                     <div class="col-md-1" id="tsubprocto" style="padding-right: 2px; padding-left: 2px; display: none;">
                                         Proyecto:
+                                   
                                     </div>
                                     <div class="col-md-1" runat="server" id="Div1">Aplica NC:</div>
                                     <div class="col-md-1" id="ds" style="width: 120px;">
@@ -463,6 +464,16 @@
                                                     <asp:Literal ID="LtlFV" runat="server" Text='<%# Eval("FechaVencimiento", "{0:d}")%>'></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
+                                            <asp:TemplateField Visible="false">
+<%--                                                <HeaderTemplate>
+                                                    <div>
+                                                       <asp:Literal ID="LtlAlm" runat="server" Text="Almacen"></asp:Literal>
+                                                    </div>
+                                                </HeaderTemplate>--%>
+                                                <ItemTemplate>
+                                                    <asp:Label data-toggle="tooltip" data-html="true" Text='' ID="LbEstatusInv" runat="server" />
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
                                             <asp:TemplateField>
                                                 <HeaderTemplate>
                                                     <div>
@@ -502,6 +513,7 @@
                                                 <HeaderTemplate>
                                                     <div>
                                                     Sel
+                                               
                                                 </HeaderTemplate>
                                                 <ItemTemplate>
                                                     <asp:CheckBox ID="Chk" runat="server" /><asp:Label ID="LblPor" runat="server" Text="" Visible="False" Font-Size="6pt"></asp:Label>

Bancos/RepProgramarRecursos.aspx.vb

@@ -344,6 +344,8 @@ Partial Class Bancos_RepProgramarRecursos
             LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero())
         End If
 
+        Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
+
         Mov.Dispose()
         CargaGrid(Orden)
         UPDatos.Update()
@@ -447,6 +449,28 @@ Partial Class Bancos_RepProgramarRecursos
                 '    e.Row.FCDropDownList("DdlMov").DataBind()
 
                 'End If
+
+                If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+                    Dim Str As New StringBuilder
+                    Str.AppendFormat("Importe Almacen: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
+                    If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
+                    If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%) <br/>", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
+                    Str.AppendFormat(" <i> Importes <b> SIN</b> IVA</i>")
+
+                    e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
+                    Select Case e.Row.DBCampo("EstatusInventario").ToEntero
+                        Case 1
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-o' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
+                        Case 2
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag-checkered' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
+                        Case 3
+                            e.Row.FCLabel("LbEstatusInv").Text = "<i Class='fa fa-flag' aria-hidden='true'></i>"
+                            e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
+                    End Select
+                End If
+
             End If
 
             If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red

Ventas/ClientesAbonar.aspx.vb

@@ -1585,6 +1585,7 @@ Partial Class Ventas_ClientesAbonar
 
                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                     If MsgError = "" Then
+                        If ListaFacturasGenerarNC.Count > 0 Then
                             Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
                             If Resp.CveVenta > 0 Then
                                 NCGeneradas.Add(Resp)
@@ -1593,6 +1594,7 @@ Partial Class Ventas_ClientesAbonar
                             End If
                         End If
                     End If
+                End If
 
                 If MsgError = "" Then
                     'se agregan las pólizas de Armonización Contable
@@ -1911,7 +1913,7 @@ Partial Class Ventas_ClientesAbonar
 
         ObjFacturaDevolucion.DtVentasNC = DtVentasNC
         ObjFacturaDevolucion.GenerarPDFFactura = True
-        Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Trasac:=Trasac, ObjContPaqTransac:=ObjConta)
+        Dim Resp = ObjFacturaDevolucion.EmitirFactura(False, Transac:=Trasac, ObjContPaqTransac:=ObjConta)
         Return Resp
 
     End Function

Ventas/PV.aspx.vb

@@ -5323,7 +5323,7 @@ Partial Class PV
 
                         TxtImporteAjuste.ToolTip = $"La diferencia de ajuste fue: {(TxtPrecio.Text.ToDouble - TxtImporteAjuste.Text.ToDouble).FormatoNumero()}. La diferencia de tamaños fue: {(CargoVendido - CargoGarantia).FormatoNumero}."
                         TxtImporteAjuste.Text = ((TxtPUFactura.Text.ToDouble - TxtImporteAjuste.Text.ToDouble) - (CargoVendido - CargoGarantia)).FormatoNumero
-                        TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
+                        'TxtPagarCliente.Text = ImportePagarCliente.FormatoNumero
                     Else
                         Alert("El producto no tiene ajuste en ese periodo", TipoMensaje.MsgAdvertencia)
                         'cuando no está registrada, no da ajuste