-
-
Proveedor:
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepProgramarRecursos.aspx.vb" Inherits="Bancos_RepProgramarRecursos" %>
+
+<%@ Import Namespace="Extensiones" %>
+
+
+
+
+
+
+
+
+ PDF
+
+
+
+ Excel
+
+
+
+
+ Programación de Recursos
+
+
+
+
+
+
+
+
+
+
+
+
+
Proveedor:
+
-
Clasificaciones:
-
-
+ --%>
+
+
Clasificaciones:
+
+
Proyecto:
-
-
Aplica NC:
-
-
-
-
-
-
-
>
-
-
Tipo Prov.:
-
-
F.I.:
-
-
F.F.:
-
-
-
-
-
-
Moneda:
-
-
F.I.V.:
-
-
F.F.V.:
-
-
-
-
Registró:
-
-
Responsable:
-
-
-
-
-
-
Estatus:
-
-
Proyecto:
-
-
SubProyecto:
-
-
Comprobación:
-
-
-
-
-
-
-
-
- Total
-
-
Pesos
-
-
Dólares
-
-
T.C.
-
-
Total
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- <%# Eval("RazonSocial")%>
-
-
-
-
-
+
+
+
Aplica NC:
+
+
+
+
+
+
>
+
+
Tipo Prov.:
+
+
F.I.:
+
+
F.F.:
+
+
+
+
+
+
Moneda:
+
+
F.I.V.:
+
+
F.F.V.:
+
+
+
+
Registró:
+
+
Responsable:
+
+
+
+
+
+
Estatus:
+
+
Proyecto:
+
+
SubProyecto:
+
+
Comprobación:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Total
+
+
Pesos
+
+
Dólares
+
+
T.C.
+
+
Total
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ <%# Eval("RazonSocial")%>
+
+
+
+
+
<%--
@@ -402,158 +403,169 @@
- --%>
-
-
-
-
-
-
-
-
-
-
+ --%>
+
+
+
+
+
+
+
+
+
+
<%--
Aplica NC
- --%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+ --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<%--
+
+ --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
+
+
+
+
-
+
+
-
-
+
+
+
diff --git a/Bancos/RepProgramarRecursos.aspx.vb b/Bancos/RepProgramarRecursos.aspx.vb
index af93c7aca..5c2cd3230 100644
--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -342,7 +342,9 @@ Partial Class Bancos_RepProgramarRecursos
LblPesosTotal.Text = String.Format("$ {0}", DtDatos.SUM("SaldoPesos", "CveCompra > 0").ToString.FormatoNumero())
LblAcumulado.Text = String.Format("$ {0}", DtDatos.MAX("TotalProgramado", "CveCompra > 0").ToString.FormatoNumero())
- End If
+ End If
+
+ Gv.Columns(6).Visible = (UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
Mov.Dispose()
CargaGrid(Orden)
@@ -434,19 +436,41 @@ Partial Class Bancos_RepProgramarRecursos
e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format(" $get('{0}').readOnly = !this.checked;", e.Row.FCTextBox("TxtS").ClientID))
'cuando estan programado, el saldo es el importe programado, para saber el total que se limite el rango, debe de ser el saldo real, saldo + importeprogramado
e.Row.FCTextBox("TxtS").Attributes.Add("onkeyup", String.Format("FnMonedaRango(this,{0});", e.Row.DBCampo("Original").ToDouble + e.Row.DBCampo("Abonado").ToDouble))
+ End If
+
+
+ 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
+ ' e.Row.FCDropDownList("DdlCuenta").Visible = True
+ ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas
+ ' e.Row.FCDropDownList("DdlCuenta").DataBind()
+
+ ' e.Row.FCDropDownList("DdlMov").Visible = True
+ ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion
+ ' 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}%)
", e.Row.DBCampo("ImporteAlmacen").FormatoNumero, e.Row.DBCampo("ImporteAlmacenPorcentaje"))
+ If e.Row.DBCampo("ImporteServicios").ToDouble > 0 Then Str.AppendFormat("Importe Servicios: ${0} ({1}%)
", e.Row.DBCampo("ImporteServicios").FormatoNumero, e.Row.DBCampo("ImporteServiciosPorcentaje"))
+ If e.Row.DBCampo("ImporteDevolucion").ToDouble > 0 Then Str.AppendFormat("Importe Devuelto: ${0} ({1}%)
", e.Row.DBCampo("ImporteDevolucion").FormatoNumero, e.Row.DBCampo("ImporteDevolucionPorcentaje"))
+ Str.AppendFormat("
Importes SIN IVA")
+
+ e.Row.FCLabel("LbEstatusInv").Attributes.Add("title", Str.ToString)
+ Select Case e.Row.DBCampo("EstatusInventario").ToEntero
+ Case 1
+ e.Row.FCLabel("LbEstatusInv").Text = "
"
+ e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Red
+ Case 2
+ e.Row.FCLabel("LbEstatusInv").Text = "
"
+ e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.DarkOrange
+ Case 3
+ e.Row.FCLabel("LbEstatusInv").Text = "
"
+ e.Row.FCLabel("LbEstatusInv").ForeColor = Drawing.Color.Green
+ End Select
End If
-
- 'If UsuarioActual.Empresa.GralSoloProyecto Then ' solo muestar el subproyecto
- ' e.Row.FCDropDownList("DdlCuenta").Visible = True
- ' e.Row.FCDropDownList("DdlCuenta").DataSource = DtCuentas
- ' e.Row.FCDropDownList("DdlCuenta").DataBind()
-
- ' e.Row.FCDropDownList("DdlMov").Visible = True
- ' e.Row.FCDropDownList("DdlMov").DataSource = DtTipoTransaccion
- ' e.Row.FCDropDownList("DdlMov").DataBind()
-
- 'End If
End If
If e.Row.DBCampo("Saldo").ToDouble < 0 Then e.Row.Cells(1).ForeColor = Drawing.Color.Red
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 99e1f03d7..4b8a485f2 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -1585,11 +1585,13 @@ Partial Class Ventas_ClientesAbonar
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If MsgError = "" Then
- Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
- If Resp.CveVenta > 0 Then
- NCGeneradas.Add(Resp)
- Else
- MsgError = "No se pudo generar la nota de credito"
+ If ListaFacturasGenerarNC.Count > 0 Then
+ Dim Resp = GenerarNC(ObjIE.IniciaTransacSQL(), ObjConta, ListaFacturasGenerarNC)
+ If Resp.CveVenta > 0 Then
+ NCGeneradas.Add(Resp)
+ Else
+ MsgError = "No se pudo generar la nota de credito"
+ End If
End If
End If
End If
@@ -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
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 1cb6a40b2..83b8cd235 100644
--- a/Ventas/PV.aspx.vb
+++ b/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