+
@@ -759,7 +759,7 @@
Fecha Aplicación
@@ -778,7 +778,7 @@
@@ -790,11 +790,11 @@
- Deducciones Pago:
-
+ Deducciones Pago:
+
-
+
@@ -834,7 +834,7 @@
-
+
Registró:
@@ -993,7 +993,7 @@
-
+
-
+
@@ -1030,13 +1030,14 @@
-
-
-
+
+
+
+
@@ -1220,10 +1221,10 @@
Cuenta Devolución:
-
+
-
-
+
@@ -1231,7 +1232,7 @@
+
@@ -1249,10 +1250,10 @@
-
Motivo de cancelación:
-
-
-
+
Motivo de cancelación:
+
+
+
@@ -1273,7 +1274,7 @@
-<%--
+ <%--
@@ -1383,7 +1384,7 @@
@@ -1395,7 +1396,7 @@
-
@@ -1418,7 +1419,7 @@
-
+
-
+
<%--
@@ -1581,7 +1582,7 @@
-
+
@@ -1767,7 +1768,7 @@
var Dev = 0.00;
debugger; //valida importe
if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
-
+
// considera importe de OT ingresos, para que se peuda exceder
if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 4250b1def..e48061d12 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -646,6 +646,10 @@ Partial Class Bancos_IE
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
DivOtrosIngresosEgresos.Visible = True
End If
+ If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveRol = 1 Then
+ ChkAnticipoPuntual.Visible = True
+ End If
+
End If
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
@@ -711,6 +715,7 @@ Partial Class Bancos_IE
TxtObservaciones.Enabled = False
ChkAplicaImpuestos.Enabled = False
ChkAbonoCuenta.Enabled = False
+ ChkAnticipoPuntual.Enabled = False
Anexo.Visible = False
DdlCliente.Enabled = False
DdlProveedores.Enabled = False
@@ -806,6 +811,8 @@ Partial Class Bancos_IE
End Try
+ ChkAnticipoPuntual.Checked = CBool(ObjIE.DtResultados(0)("AnticipoPuntual").ToString)
+
CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1755,6 +1762,13 @@ Partial Class Bancos_IE
End If
Dep.Dispose()
+ If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+ If String.IsNullOrEmpty(TxtObservaciones.Text.Trim) Then
+ Alert("Las observaciones son obligatorias.", TipoMensaje.MsgAdvertencia)
+ EsValido = False
+ End If
+ End If
+
If CveOCSolicitudAnticipo > 0 Then
Dim ObjOC As New ClsOC
If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
@@ -2001,7 +2015,7 @@ Partial Class Bancos_IE
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
- ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
+ ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo, AnticipoPuntual:=ChkAnticipoPuntual.Checked)
If CveIE > 0 Then
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 837cd65fe..21147d7f7 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9866,7 +9866,7 @@ Partial Class Compras_Compras
e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
End If
- If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+ 'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
'EQUIVALENCIA
If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
@@ -20713,7 +20713,7 @@ Partial Class Compras_Compras
Dim Diferencia As Decimal = saldoTotal - TotalAcumuladoTabla - ValImporte
If (Diferencia) < 0 Then
- Alert($"No hay presupuesto disponible en el subproyecto
{ValSubProyecto} con la clasificación
{ValClasificacion} , Tipo de gasto
{ValTipoGasto} . Se excede por
{Math.Abs(Diferencia).FormatoNumero} ", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible.
SubProyecto:
{ValSubProyecto} Clasificación:
{ValClasificacion} Tipo de gasto:
{ValTipoGasto} . Se excede por
{Math.Abs(Diferencia).FormatoNumero}. ", TipoMensaje.MsgAdvertencia)
respuesta = False
Else
@@ -20721,7 +20721,7 @@ Partial Class Compras_Compras
End If
Else
- Alert($"No hay presupuesto disponible en el subproyecto
{ValSubProyecto} con la clasificación
{ValClasificacion} , Tipo de gasto
{ValTipoGasto} ", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible.
SubProyecto:
{ValSubProyecto} Clasificación:
{ValClasificacion} Tipo de gasto:
{ValTipoGasto} .", TipoMensaje.MsgAdvertencia)
respuesta = False
End If
Else
@@ -20778,16 +20778,24 @@ Partial Class Compras_Compras
Dim tieneRegistrosConCveSubProyecto As Boolean = resultadosFiltrados.Any(Function(row) CType(row("CveSubProyecto"), Integer) = item.CveSubProyecto)
If tieneRegistrosConCveSubProyecto Then
- Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+ 'Dim saldoTotal As Decimal = (From row In resultadosFiltrados
+ ' Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
+ ' row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+ ' Select row.Field(Of Decimal)("Saldo")).Sum()
+
+ Dim saldoTotal As Decimal = (From row In resultadosFiltrados.AsEnumerable()
Where row.Field(Of Integer)("CveSubProyecto") = item.CveSubProyecto AndAlso
- row.Field(Of Integer)("CveClasificacion") = item.CveClasificacion
+ If(row.IsNull("CveClasificacion"),
+ 0,
+ row.Field(Of Integer?)("CveClasificacion").GetValueOrDefault()) = item.CveClasificacion
Select row.Field(Of Decimal)("Saldo")).Sum()
+
If saldoTotal > 0 Then
Dim Diferencia As Decimal = saldoTotal - item.TotalSum
If (Diferencia) < 0 Then
- Alert($"No hay presupuesto disponible en el subproyecto
{item.SubProyecto} con la clasificación
{item.Clasificacion} , Tipo de gasto
{item.TipoGasto} . Se excede por
{Math.Abs(Diferencia).FormatoNumero} ", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible.
SubProyecto:
{item.SubProyecto} Clasificación:
{item.Clasificacion} Tipo de gasto:
{item.TipoGasto} . Se excede por
{Math.Abs(Diferencia).FormatoNumero}. ", TipoMensaje.MsgAdvertencia)
respuesta = False
Exit For
Else
@@ -20795,7 +20803,7 @@ Partial Class Compras_Compras
End If
Else
- Alert($"No hay presupuesto disponible en el subproyecto
{item.SubProyecto} con la clasificación
{item.Clasificacion} , Tipo de gasto
{item.TipoGasto} ", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible.
SubProyecto:
{item.SubProyecto} Clasificación:
{item.Clasificacion} Tipo de gasto:
{item.TipoGasto} .", TipoMensaje.MsgAdvertencia)
respuesta = False
Exit For
End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index a915f096b..427b1e733 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -5746,11 +5746,12 @@ Partial Class PopUpVerFactura
If ObjIE.DtResultados.Rows.Count > 0 Then
Dim reportDataSetsList As New List(Of ReportDataSource)
-
+ Dim CvePrePoliza As Integer = 0
Dim dtMovs As New DataTable
If ObjIE.GetBancosIEFacturasPagadas(CveIE, UsuarioActual.CveEmpresa) Then
dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
+ CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
@@ -5792,7 +5793,25 @@ Partial Class PopUpVerFactura
.Add(New ReportParameter("LogoPath", RutaImagenLogo))
End With
dtMovs.Dispose()
- ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+
+ If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
+
+ Dim ObjContabilidad As New ClsContabilidad
+
+ ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
+ Dim dtPrePoliza As DataTable = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+ ObjContabilidad.Dispose()
+
+ Dim rdsPrePoliza As New ReportDataSource("DSPrePoliza", dtPrePoliza)
+ reportDataSetsList.Add(rdsPrePoliza)
+
+ ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientosPrePoliza.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+ Else
+ ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
+ End If
+
+
+
End If
End If
End If
diff --git a/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
new file mode 100644
index 000000000..22ac7bbe0
--- /dev/null
+++ b/Empresas/Grales/Formatos/rptChequeMovimientos.rdlc
@@ -0,0 +1,1980 @@
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Cuenta.Value
+
+
+
+
+
+
+ Cuenta
+ 0.74936in
+ 0.23622in
+ 1in
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Paguese.Value
+
+
+
+
+
+
+ Paguese
+ 0.25011in
+ 0.73547in
+ 0.22233in
+ 4.91481in
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ="<b>Importe: </b>" & FormatCurrency(Parameters!Importe.Value, 2) & " " & Parameters!MonedaAbreviatura.Value
+ HTML
+
+
+
+
+
+
+ Importe
+ 0.264in
+ 5.71972in
+ 0.20844in
+ 1.9609in
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Observaciones.Value
+
+
+
+
+
+
+ Observaciones
+ 0.48633in
+ 0.73547in
+ 0.23622in
+ 6.8993in
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.57974cm
+
+
+ 6.32386cm
+
+
+ 2.08353cm
+
+
+ 2.00257cm
+
+
+ 2.29951cm
+
+
+ 1.79499cm
+
+
+ 2.18122cm
+
+
+
+
+ 0.4677cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Factura
+
+
+
+
+
+
+ Textbox19
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Descripción
+
+
+
+
+
+
+ Textbox21
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ F. Factura
+
+
+
+
+
+
+ Textbox23
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Original
+
+
+
+
+
+
+ Textbox25
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Abonado
+
+
+
+
+
+
+ Textbox27
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ N.C
+
+
+
+
+
+
+ Textbox2
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Saldo
+
+
+
+
+
+
+ Textbox3
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ SerieFolio
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Descripcion.Value
+
+
+
+
+
+
+ Descripcion
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!FechaCompra.Value
+
+
+
+
+
+
+ FechaCompra
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Total.Value
+
+
+
+
+
+
+ Total
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!ImporteNC.Value)
+
+
+
+
+
+
+ ImporteNC
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Saldo.Value
+
+
+
+
+
+
+ Saldo
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Total
+
+
+
+ :
+
+
+
+
+
+
+ Textbox30
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =IiF(SUM(Fields!Importe.Value) > 0, SUM(Fields!Importe.Value),0.00)
+
+
+
+
+
+
+ Importe2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!ImporteNC.Value)
+
+
+
+
+
+
+ Textbox5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Sum(Fields!Saldo.Value)
+
+
+
+
+
+
+ Textbox6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+
+
+ =Fields!SerieFolio.Value
+ =Fields!Descripcion.Value
+ =Fields!FechaCompra.Value
+ =Fields!Total.Value
+ =Fields!Importe.Value
+ =Fields!Saldo.Value
+
+
+
+
+ Before
+
+
+
+ true
+ DataSet1
+ 2.18687cm
+ 0.25413cm
+ 1.6677cm
+ 19.26542cm
+ 4
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Cuenta:
+
+
+
+
+
+
+ Textbox36
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Paguese:
+
+
+
+
+
+
+ Textbox36
+ 0.6cm
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Obs:
+
+
+
+
+
+
+ Textbox36
+ 1.23528cm
+ 0.22238cm
+ 0.6cm
+ 1.64572cm
+ 7
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 2.03432cm
+ 19.51955cm
+ 0cm
+ -19.47588cm
+ 8
+
+
+
+
+
+ true
+ true
+
+
+
+
+ ="<b> Folio: </b>" & Parameters!Folio.Value
+ HTML
+
+
+
+
+
+
+ Textbox43
+ 7.55254cm
+ 0.6cm
+ 5.23812cm
+ 9
+ ="<b> Folio: </b>" & Parameters!Folio.Value
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+ 2.5cm
+
+
+ 2.95074cm
+
+
+ 2.5cm
+
+
+
+
+ 0.52063cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Resumen Notas de Crédito
+
+
+
+
+
+
+ Textbox7
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 3
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Factura
+
+
+
+
+
+
+ Textbox4
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Nota de Crédito
+
+
+
+
+
+
+ Textbox8
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Importe
+
+
+
+
+
+
+ Textbox10
+
+
+ LightGrey
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ SerieFolio1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!SerieFolioNC.Value
+
+
+
+
+
+
+ SerieFolioNC
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ Total:
+
+
+
+
+
+
+ Textbox13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+ 2
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =SUM(Fields!Importe.Value)
+
+
+
+
+
+
+ Textbox15
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ After
+
+
+ After
+
+
+
+
+ =Fields!SerieFolio.Value
+
+
+
+
+
+
+ Before
+
+
+
+ true
+ DataSet2
+ 4.20735cm
+ 0.25413cm
+ 2.32063cm
+ 7.95074cm
+ 10
+
+ =iif(Sum(Fields!Importe.Value)>0,false, true)
+
+
+
+
+
+
+ 6.70437cm
+ 19.51955cm
+ 0cm
+ -19.51955cm
+ 11
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Fecha:
+
+
+
+
+
+
+ Textbox36
+ 0.0635cm
+ 14.52104cm
+ 0.6cm
+ 1.30176cm
+ 12
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!Fecha.Value
+
+
+
+
+
+
+ Cuenta
+ 0.0635cm
+ 6.22945in
+ 0.23622in
+ 1.40532in
+ 13
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 7.24235cm
+
+
+ 19.51955cm
+
+
+ 2.46175cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox1
+ 0.3175cm
+ 2.52765cm
+ 0.6cm
+ 14.40301cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ REPORTE DE PAGO DE MOVIMIENTOS
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 0.95278cm
+ 2.52765cm
+ 0.55591cm
+ 14.40301cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.15522cm
+ 2.22362cm
+ 2.33715cm
+ 2
+
+
+
+
+
+
+
+
+
+
+ 0.52063cm
+ true
+ true
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox41
+ 0.01764cm
+ 16.41607cm
+ 0.48535cm
+ 2.97625cm
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox8
+ 0.01764cm
+ 0.15522cm
+ 0.50299cm
+ 1.60042cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox9
+ 0.01764cm
+ 1.75564cm
+ 0.48535cm
+ 5.14936cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresión:
+
+
+
+
+
+
+ Textbox10
+ 0cm
+ 7.44414cm
+ 0.50299cm
+ 2.87394cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!FechaImpresion.Value
+
+
+
+
+
+
+ Textbox11
+ 0cm
+ 10.31808cm
+ 0.50299cm
+ 4.58986cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 27.94cm
+ 21.59cm
+ 1cm
+ 1cm
+ 1.5cm
+ 1.5cm
+ 0.13cm
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ c18b6686-bd84-460b-985a-bb3859af70bf
+
+
+
+
+
+ DsBancos
+ /* Local Query */
+
+
+
+ Folio
+ System.String
+
+
+ Descripcion
+ System.String
+
+
+ FechaCompra
+ System.String
+
+
+ Total
+ System.Double
+
+
+ ImporteNC
+ System.Double
+
+
+ Importe
+ System.Double
+
+
+ SerieFolio
+ System.String
+
+
+ Saldo
+ System.Double
+
+
+
+ DsBancos
+ C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
+ DsCheque
+
+
+
+
+ DsBancos
+ /* Local Query */
+
+
+
+ SerieFolio
+ System.String
+
+
+ SerieFolioNC
+ System.String
+
+
+ Fecha
+ System.String
+
+
+ Total
+ System.Double
+
+
+ Importe
+ System.Double
+
+
+
+ DsBancos
+ C:\inetpub\wwwVentas\App_Code\DsBancos.xsd
+ DsCheque
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ DateTime
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+ String
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+
+
+ =5
+
+
+ Cm
+ 806b374c-24e0-40bb-a805-d2a7038259c9
+
\ No newline at end of file
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be1f33adf..6e51b4464 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -3252,7 +3252,7 @@ Partial Class Inventarios_EntregaAlmacen
Msg.AppendFormat("
Consola ", Encripta(String.Format("OP=Alm&CveMovimiento={0}&Consola={1}", CveMovimiento, Consola)))
End If
- If CveMovimientoEntrada > 0 Then
+ If CveMovimientoEntrada > 0 AndAlso Not UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
Msg.AppendFormat("
Movimiento Entrada (Traspaso):
{1} ", CveMovimientoEntrada, FolioEntrada)
Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
End If
diff --git a/Inventarios/KardexAlmacen.aspx b/Inventarios/KardexAlmacen.aspx
index 2970592c7..3c9358519 100644
--- a/Inventarios/KardexAlmacen.aspx
+++ b/Inventarios/KardexAlmacen.aspx
@@ -66,11 +66,11 @@
-
-
diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb
index db9026bd0..f95e5c3b4 100644
--- a/Inventarios/KardexAlmacen.aspx.vb
+++ b/Inventarios/KardexAlmacen.aspx.vb
@@ -1,5 +1,4 @@
Imports System.Data
-Imports ADSNetLibrary.SIGAPI.Models.CGame
Imports Extensiones
Imports Microsoft.Reporting.WebForms
@@ -113,10 +112,7 @@ Partial Class Inventarios_KardexAlmacen
Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero
- Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
- Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
- If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+ If ObjMovimientos.GetKardexAlmacen(CvePS, FechaI, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
dt = ObjMovimientos.DtResultados
GvDatos.DataSource = ObjMovimientos.DtResultados
End If
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx
index 08e57cd0d..770f57010 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx
+++ b/Inventarios/KardexAlmacenHorizontal.aspx
@@ -96,18 +96,17 @@
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
@@ -237,29 +236,8 @@
+
-
-
Código Inicio:
-
-
Código Fin:
-
-
-
-
-
@@ -329,7 +307,7 @@
-
+
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb
index 14b886368..61a191dec 100644
--- a/Inventarios/KardexAlmacenHorizontal.aspx.vb
+++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb
@@ -1,18 +1,18 @@
-Imports System.Data
-Imports System.IO
-Imports ADSNetLibrary.SIGAPI.Models.CGame
-Imports Extensiones
-Imports GemBox.Spreadsheet
-Imports Microsoft.Reporting.WebForms
-
-Partial Class Inventarios_KardexAlmacenHorizontal
- Inherits ClsPaginas
-
- Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
- If Not IsPostBack Then
- 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
+Imports System.Data
+Imports System.IO
+Imports ADSNetLibrary.SIGAPI.Models.CGame
+Imports Extensiones
+Imports GemBox.Spreadsheet
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_KardexAlmacenHorizontal
+ Inherits ClsPaginas
+
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+ 'TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
TxtFechaF.Text = NowADS().ToShortDateString
- CargaCombos()
+ CargaCombos()
ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
LblOrden.Visible = False
DdlOrden.Visible = False
@@ -35,18 +35,14 @@ Partial Class Inventarios_KardexAlmacenHorizontal
DdlIncluyeTransitorios.Items.RemoveAt(0) 'oculta opción "No" en tránsito
End If
- If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
+ If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero)
ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1")
- If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
- DVFiltroCodigo.Visible = True
- End If
-
- End If
- End Sub
- Private Sub CargaCombos()
-
- CargaFuncionalidad105()
+ End If
+ End Sub
+ Private Sub CargaCombos()
+
+ CargaFuncionalidad105()
CargaPS()
'Using ObjPS As New ClsProductosServicios
@@ -56,25 +52,25 @@ Partial Class Inventarios_KardexAlmacenHorizontal
'End Using
DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
DdlMarca.DataBind()
- DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
-
- ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
- ddlAlmacen.DataBind()
-
- Dim ObjInv As New ClsInventarios()
- If ObjInv.GetTiposAlmacenes() Then
- DdlTipoAlmacen.DataSource = ObjInv.DtResultados
- End If
- ObjInv.Dispose()
- DdlTipoAlmacen.DataBind()
-
- DdlTipoAlmacen.SelectedValueExist(1)
-
- If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
- CargaClasificaciones()
- End Sub
-
- Private Sub CargaClasificaciones()
+ DdlMarca.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
+ ddlAlmacen.DataBind()
+
+ Dim ObjInv As New ClsInventarios()
+ If ObjInv.GetTiposAlmacenes() Then
+ DdlTipoAlmacen.DataSource = ObjInv.DtResultados
+ End If
+ ObjInv.Dispose()
+ DdlTipoAlmacen.DataBind()
+
+ DdlTipoAlmacen.SelectedValueExist(1)
+
+ If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValue = Request("CveAlmacen").ToString
+ CargaClasificaciones()
+ End Sub
+
+ Private Sub CargaClasificaciones()
Dim CveClasificacion As Integer = If(Request("CveClasificacion") IsNot Nothing, Request("CveClasificacion").ToString, "-1").ToEntero
Dim ObjClasificaciones As New ClsClasificaciones
@@ -89,193 +85,189 @@ Partial Class Inventarios_KardexAlmacenHorizontal
DdlClasificacion.DataBind()
End If
End If
- ObjClasificaciones.Dispose()
-
- DdlClasificacion.DataBind()
- DdlClasificacion.SelectedValueExist(CveClasificacion)
-
- End Sub
- Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
- CargaPS()
- End Sub
- Private Sub CargaPS()
-
- If Not ddlProducto2.UsaWebService Then
- 'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
- ddlProducto2.ddl.Items.Clear()
- ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
- ddlProducto2.DataBind()
- ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
- End If
- End Sub
- Private Sub CargaFuncionalidad105()
- ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
- DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
- If ddlProducto2.UsaWebService Then
- ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
- ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
- ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
- DdlClasificacion.AutoPostBack = False
-
- DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
- Else
- ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
- ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
-
- DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
- DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
- DdlProveedor.DataBind()
- End If
-
- End Sub
- Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
-
- DdlUnidadMedida.Items.Clear()
- DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
- DdlUnidadMedida.DataBind()
- DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
-
- End Sub
- Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
- Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
- CargarKardex(CveProducto)
- 'If CveProducto > 0 Then
-
- 'Else
- ' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
- 'End If
-
- End Sub
+ ObjClasificaciones.Dispose()
+
+ DdlClasificacion.DataBind()
+ DdlClasificacion.SelectedValueExist(CveClasificacion)
+
+ End Sub
+ Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+ CargaPS()
+ End Sub
+ Private Sub CargaPS()
+
+ If Not ddlProducto2.UsaWebService Then
+ 'Dim Filtro = If(DdlClasificacion.SelectedValue >= 0, String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue), "")
+ ddlProducto2.ddl.Items.Clear()
+ ddlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero).FiltraParametros($"CveTipoPS=2", "PSCodigo")
+ ddlProducto2.DataBind()
+ ddlProducto2.ddl.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
+ End If
+ End Sub
+ Private Sub CargaFuncionalidad105()
+ ddlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+ DdlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+ If ddlProducto2.UsaWebService Then
+ ddlProducto2.ddlWS.Attributes.Add("data-Estatus", "-1")
+ ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+ ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
+ DdlClasificacion.AutoPostBack = False
+
+ DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+ Else
+ ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+ ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+
+ DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+ DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+ DdlProveedor.DataBind()
+ End If
+
+ End Sub
+ Protected Sub ddlProducto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ddlProducto2.selectedindexchange
+
+ DdlUnidadMedida.Items.Clear()
+ DdlUnidadMedida.DataSource = GlobalDTProductosServiciosEquivalencias(ddlProducto2.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+ DdlUnidadMedida.DataBind()
+ DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ End Sub
+ Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+ Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero
+ CargarKardex(CveProducto)
+ 'If CveProducto > 0 Then
+
+ 'Else
+ ' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia)
+ 'End If
+
+ End Sub
Private Sub CargarKardex(CvePS As Integer)
- Dim dt As DataTable = Nothing
- Dim ObjMovimientos As New ClsInventarios
- Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
- ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
- Dim FechaF As Date = TxtFechaF.Text.ToDate
- Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
- Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
- Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
- Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
+ Dim dt As DataTable = Nothing
+ Dim ObjMovimientos As New ClsInventarios
+ Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
+ ' Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
+ Dim FechaF As Date = TxtFechaF.Text.ToDate
+ Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
+ Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
+ Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
+ Dim GPO As Integer = Ddlgrupo.SelectedValue.ToEntero
Dim IncluyeTransitorios As Integer = DdlIncluyeTransitorios.SelectedValue.ToEntero
-
- Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
- Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios,
DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero,
- Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text,
- CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
- If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
- dt = ObjMovimientos.DtResultados
- Dim ListaBorrar As New List(Of DataColumn)
- For index As Integer = 3 To dt.Columns.Count - 1
- Dim TotColumna As Double = 0
- For Each Dr As DataRow In dt.Rows
- TotColumna += Dr.Item(index).ToString.ToDouble
+ Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then
+
+ If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then
+ dt = ObjMovimientos.DtResultados
+ Dim ListaBorrar As New List(Of DataColumn)
+ For index As Integer = 3 To dt.Columns.Count - 1
+ Dim TotColumna As Double = 0
+ For Each Dr As DataRow In dt.Rows
+ TotColumna += Dr.Item(index).ToString.ToDouble
Next
If Not TotColumna > 0 Then
ListaBorrar.Add(dt.Columns(index))
End If
- Next
- For Each item As DataColumn In ListaBorrar
- dt.Columns().Remove(item)
- Next
- dt.AcceptChanges()
- GvDatos.DataSource = dt
- Else
- Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
- GvDatos.Columns.Clear()
+ Next
+ For Each item As DataColumn In ListaBorrar
+ dt.Columns().Remove(item)
+ Next
+ dt.AcceptChanges()
+ GvDatos.DataSource = dt
+ Else
+ Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
+ GvDatos.Columns.Clear()
dt = Nothing
- Exit Sub
+ Exit Sub
End If
Else
ObjMovimientos.Dispose()
Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
- Exit Sub
+ Exit Sub
End If
- GvDatos.DataBind()
-
- For index = 4 To GvDatos.Rows(0).Cells.Count - 1
- GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
- Next
- End Sub
-
- Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
-
- If e.Row.RowType = DataControlRowType.DataRow Then
- 'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
- 'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
-
- If e.Row.RowIndex = 0 Then
- e.Row.CssClass = "Totales"
- End If
-
-
- 'e.Row.Attributes.Add("style", " max-height:31px!important")
-
+ GvDatos.DataBind()
+
+ For index = 4 To GvDatos.Rows(0).Cells.Count - 1
+ GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0)
+ Next
+ End Sub
+
+ Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ 'Dim Liga As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+ 'e.Row.FCHyperLink("HplAlmacen").NavigateUrl = Liga
+
+ If e.Row.RowIndex = 0 Then
+ e.Row.CssClass = "Totales"
+ End If
+
+
+ 'e.Row.Attributes.Add("style", " max-height:31px!important")
+
e.Row.HorizontalAlign = HorizontalAlign.Right
- e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
- e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
- e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
- Dim Index As Integer = 0
-
- For Each Cells As TableCell In e.Row.Cells
- Dim Celda As String = Cells.Text
- If IsNumeric(Celda) Then
- Dim CveAlmacen2 As Integer = -1
- If Index >= 5 Then
- Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
- If Array.Length > 1 Then
- CveAlmacen2 = Array(1).ToEntero
- End If
- End If
-
- If Celda.ToDouble = 0 Then
- Cells.Text = ""
- Else
- Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
-
- If ce.ContainingField.HeaderText = "CP" Then
- Cells.Text = Cells.Text.FormatoNumero(2)
- ElseIf ce.ContainingField.HeaderText = "Valor" Then
- Cells.Text = Cells.Text.FormatoNumero(2)
- 'ElseIf ce.ContainingField.HeaderText = "Total" Then
- ' Cells.Text = Cells.Text.FormatoNumero(2)
- Else
- Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
- End If
- End If
- e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
- 'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
- 'Cells.Text = String.Format("
{0} ", Celda.FormatoNumero(), Liga2)
- End If
- Index = Index + 1
- Next
-
- End If
- End Sub
-
-
-
- Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
- 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
- ' e.Row.Cells(0).Width = New Unit("200px")
- e.Row.Cells(2).Visible = False
- e.Row.Cells(3).Visible = False
- If e.Row.RowType = DataControlRowType.Header Then
- 'e.Row.Cells(6).ToolTip = "Costo"
- End If
- End Sub
-
- Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-
- Imprimir("Excel")
- End Sub
- Private Sub Imprimir(Optional reporte As String = "PDF")
+ e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
+ e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
+ e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
+ Dim Index As Integer = 0
+
+ For Each Cells As TableCell In e.Row.Cells
+ Dim Celda As String = Cells.Text
+ If IsNumeric(Celda) Then
+ Dim CveAlmacen2 As Integer = -1
+ If Index >= 5 Then
+ Dim Array As String() = GvDatos.HeaderRow.Cells(Index).Text.Split("|"c)
+ If Array.Length > 1 Then
+ CveAlmacen2 = Array(1).ToEntero
+ End If
+ End If
+
+ If Celda.ToDouble = 0 Then
+ Cells.Text = ""
+ Else
+ Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell)
+
+ If ce.ContainingField.HeaderText = "CP" Then
+ Cells.Text = Cells.Text.FormatoNumero(2)
+ ElseIf ce.ContainingField.HeaderText = "Valor" Then
+ Cells.Text = Cells.Text.FormatoNumero(2)
+ 'ElseIf ce.ContainingField.HeaderText = "Total" Then
+ ' Cells.Text = Cells.Text.FormatoNumero(2)
+ Else
+ Cells.Text = String.Format("{0:#,###.##}", Cells.Text.ToDecimal)
+ End If
+ End If
+ e.Row.Cells(e.Row.Cells.GetCellIndex(Cells)).Width = Unit.Pixel(80)
+ 'Dim Liga2 As String = String.Format($"/Inventarios/Kardex.aspx?CvePS={ddlProducto2.SelectedValue.ToEntero}&CveAlmacen={CveAlmacen2}&CveUM={DdlUnidadMedida.SelectedValue.ToEntero}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}")
+ 'Cells.Text = String.Format("
{0} ", Celda.FormatoNumero(), Liga2)
+ End If
+ Index = Index + 1
+ Next
+
+ End If
+ End Sub
+
+
+
+ Private Sub GvDatos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowCreated
+ 'Escondo CvePS y CveAlmacén (Se generan por autogeneratecolumns por eso se borran por aqui).
+ ' e.Row.Cells(0).Width = New Unit("200px")
+ e.Row.Cells(2).Visible = False
+ e.Row.Cells(3).Visible = False
+ If e.Row.RowType = DataControlRowType.Header Then
+ 'e.Row.Cells(6).ToolTip = "Costo"
+ End If
+ End Sub
+
+ Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+ Imprimir("Excel")
+ End Sub
+ Private Sub Imprimir(Optional reporte As String = "PDF")
If GvDatos.Rows.Count > 0 Then
Dim StrFiltro As New StringBuilder
If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
@@ -284,7 +276,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
ExportToExcelG(GvDatos, "ExistenciasHorizontal_" & TxtFechaF.Text, "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
Else
Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
- End If
+ End If
End Sub
Public Sub ExportToExcelG(Gv As GridView, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
@@ -371,12 +363,12 @@ Partial Class Inventarios_KardexAlmacenHorizontal
excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
- End Sub
-
+ End Sub
+
Protected Sub LnkProyectado_Click(sender As Object, e As EventArgs)
RegistraScript(String.Format("$('#{0}').modal();", "DivProyeccion"))
- End Sub
-
+ End Sub
+
Protected Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs)
Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\KardexProyeccion.xlsx"
@@ -392,8 +384,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
Response.TransmitFile(Archivo.FullName)
Response.End()
End If
- End Sub
-
+ End Sub
+
Protected Sub BtnAgregarProyeccion_Click(sender As Object, e As EventArgs)
If TxtProyeccionExcel.getfiles().Archivos.Count > 0 Then
Dim file As Archivo = TxtProyeccionExcel.getfiles().Archivos(0)
@@ -418,8 +410,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End If
AgregarProyeccion(dt)
- End Sub
-
+ End Sub
+
Private Sub AgregarProyeccion(dt As DataTable)
Dim TieneError As Boolean = False
Dim StrCodigo As New StringBuilder
@@ -460,8 +452,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
ObjInventarios.Dispose()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivProyeccion"))
- End Sub
-
+ End Sub
+
'Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
' SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
' Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
@@ -512,8 +504,8 @@ Partial Class Inventarios_KardexAlmacenHorizontal
' Return dataTable
- 'End Function
- Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+ 'End Function
+ Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
End Sub
Private Sub LnkPOG_Click(sender As Object, e As EventArgs) Handles LnkPOG.Click
@@ -538,65 +530,4 @@ Partial Class Inventarios_KardexAlmacenHorizontal
End Sub
-
-
- Protected Sub LnkPSAntyerior_Click(sender As Object, e As EventArgs)
- NavegacionPS(Siguiente:=False)
- End Sub
-
- Protected Sub LnkPSSiguiente_Click(sender As Object, e As EventArgs)
- NavegacionPS(Siguiente:=True)
- End Sub
- Private Sub NavegacionPS(Siguiente As Boolean)
- Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
-
- If Not CvePS > 0 Then
- Exit Sub
- End If
- Dim dt As DataTable = New DataTable
-
- Dim Entrada As Boolean = True
- Dim Salida As Boolean = True
-
- Dim FechaI As String = "-1"
- Dim FechaF As String = If(TxtFechaF.Text <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
- Dim CveAlmacen As Integer = If(ddlAlmacen.SelectedValue.ToEntero = 0, -1, ddlAlmacen.SelectedValue.ToEntero)
- Dim CveAlmacenes As String = ddlAlmacen.GetSelectedValues()
- If CveAlmacenes.Contains(",") Then
- CveAlmacen = -1
- End If
- If CvePS > 0 Then
- Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
- If dr IsNot Nothing Then
- ddlProducto2.SelectedText = dr("PSCodigo").ToString
- ddlProducto2.SelectedValue = CvePS.ToString
- End If
-
- End If
-
- Dim CveTiposAlmacen As String = "-1"
-
-
- Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
- Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
- Dim ObjInventarios As New ClsInventarios
- If ObjInventarios.GetKardexPSNavegacion(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
- CveAlmacenes, Siguiente:=Siguiente, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
- dt = ObjInventarios.DtResultados.Copy
- End If
- ObjInventarios.Dispose()
-
- If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
- ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString
- ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString
- ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString
- ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString
- CargarKardex(dt.Rows(0)("CvePS").ToString.ToEntero)
- UPFiltros.Update()
-
- End If
-
- End Sub
-
-End Class
+End Class
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index 170435582..bcba0f2df 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -11,11 +11,11 @@
-
-
diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb
index 2d6816414..586d6d878 100644
--- a/Inventarios/RepEntradasSalidas.aspx.vb
+++ b/Inventarios/RepEntradasSalidas.aspx.vb
@@ -256,13 +256,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
CveMarca = DdlMarca.SelectedValue.ToEntero
End If
- Dim CodigoInicio As String = If(TxtCodigoInicio.Text.Trim.Length = 0, "-1", TxtCodigoInicio.Text.Trim)
- Dim CodigoFin As String = If(TxtCodigoFinal.Text.Trim.Length = 0, "-1", TxtCodigoFinal.Text.Trim)
-
If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
- Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero, CodigoInicio:=CodigoInicio, CodigoFin:=CodigoFin) Then
+ Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
dt = Reporte.DtResultados
diff --git a/RH/RepChecadorPreAsistencia.aspx b/RH/RepChecadorPreAsistencia.aspx
index 05d4023ec..b475984ea 100644
--- a/RH/RepChecadorPreAsistencia.aspx
+++ b/RH/RepChecadorPreAsistencia.aspx
@@ -16,11 +16,15 @@
-
+
+
+
@@ -32,46 +36,28 @@
-
+
+
+
+ Ejercicio:
+
+
Tipo Periodo:
- Periodo:
-
-
+
+ Período:
+
+
- <%--Fecha Inicio:
-
-
- Fecha Fin:
-
- --%>
+
SubProyecto:
@@ -340,7 +326,7 @@
+
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 0d29ad282..29b871eef 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -110,6 +110,15 @@ Partial Class RepVentaDetalle
ViewState("Primeracontsulta") = value
End Set
End Property
+ Private Property ConsultaAlCargar As Boolean
+ Get
+ Return CBool((IfNull(ViewState("ConsultaAlCargar"), False, ViewState("ConsultaAlCargar"))))
+ End Get
+ Set(value As Boolean)
+ ViewState("ConsultaAlCargar") = value
+ End Set
+ End Property
+
#End Region
'pRivate ReadOnly Property ColumnasVisibles As
@@ -120,15 +129,16 @@ Partial Class RepVentaDetalle
CargaCombos()
InicializaValores()
ConfiguraEmpresa()
- If Request("Gpo") IsNot Nothing Then
+
+ If ConsultaAlCargar Then
CargaDatos()
End If
- If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
LblServicioDomicilioFiltro.Visible = True
DVServicioDomicilio.Visible = True
-
End If
+
PrePersonalizacion()
CargaPersonalizacion()
End If
@@ -136,6 +146,8 @@ Partial Class RepVentaDetalle
Private Sub InicializaValores()
+ ConsultaAlCargar = True
+
Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String
Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
@@ -276,6 +288,10 @@ Partial Class RepVentaDetalle
DdlVendedor.Enabled = False
End If
+ If Request("Menu") IsNot Nothing AndAlso Request("Menu").ToString() = "1" Then
+ ConsultaAlCargar = False
+ End If
+
End Sub
#Region "CARGA COMBOS"
@@ -539,6 +555,28 @@ Partial Class RepVentaDetalle
If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(12).ForeColor = Drawing.Color.Red
If e.Row.DBCampo("Total").ToDouble < 0 Then e.Row.Cells(13).ForeColor = Drawing.Color.Red
+ Dim Ruta As String = UsuarioActual.Empresa.Ruta
+
+ If IO.File.Exists($"{Ruta}XML\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.xml") Then
+ e.Row.FCLiteral("LtlXML").Text = String.Format("", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+ Else
+ e.Row.FCLiteral("LtlXML").Text = "
"
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+ If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+ e.Row.FCLiteral("LtlPDF").Text = String.Format("", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+ Else
+ e.Row.FCLiteral("LtlPDF").Text = "
"
+ End If
+ Else
+ If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("SerieFolio")}.pdf") Then
+ e.Row.FCLiteral("LtlPDF").Text = String.Format("", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("SerieFolio"))
+ Else
+ e.Row.FCLiteral("LtlPDF").Text = "
"
+ End If
+ End If
+
'If e.Row.DBCampo("MAX_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlMaxSubTotal").Text = ""
'If e.Row.DBCampo("AVG_SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGSubTotal").Text = ""
@@ -708,6 +746,10 @@ Partial Class RepVentaDetalle
If ChkDescripcionVenta.Checked Then ListPersonalizada.Add("DescripcionVenta")
+ If ChkDescargarPDF.Checked Then ListPersonalizada.Add("PDF")
+
+ If ChkDescargarXML.Checked Then ListPersonalizada.Add("XML")
+
If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "RepVentaDetalles.aspx", String.Join("|", ListPersonalizada)) Then
'Alert("Personalizacion guardada")
End If
@@ -765,6 +807,9 @@ Partial Class RepVentaDetalle
ChkFormaPago.Checked = False
ChkUsoCFDI.Checked = False
+ ChkDescargarPDF.Checked = False
+ ChkDescargarXML.Checked = False
+
Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
For Each personalizacion As String In Personalizaciones
@@ -895,6 +940,12 @@ Partial Class RepVentaDetalle
Case "DescripcionVenta"
ChkDescripcionVenta.Checked = True
Exit Select
+ Case "XML"
+ ChkDescargarXML.Checked = True
+ Exit Select
+ Case "PDF"
+ ChkDescargarPDF.Checked = True
+ Exit Select
Case Else
Exit Select
End Select
@@ -954,7 +1005,8 @@ Partial Class RepVentaDetalle
GvDatos.Columns(39).Visible = ChkKilometraje.Checked
GvDatos.Columns(40).Visible = ChkTC.Checked
GvDatos.Columns(41).Visible = ChkDescripcionVenta.Checked
-
+ GvDatos.Columns(42).Visible = ChkDescargarXML.Checked
+ GvDatos.Columns(43).Visible = ChkDescargarPDF.Checked
Personalizo = 1
If Personalizo = 1 Then
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 64a7d1e23..486b8be33 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6862,6 +6862,10 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
DdlUsoCFDI.Enabled = True
End If
+
+ If NuevaFactura = 1 Then
+ DdlUsoCFDI.Enabled = True
+ End If
End If
End If
@@ -16551,6 +16555,14 @@ Partial Class Ventas
DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).ID = "VCOAmortAnti" & e.Row.RowIndex
DirectCast(e.Row.FindControl("CVAmortAnti"), CompareValidator).ControlToValidate = "TxtAnticipo" & e.Row.RowIndex
DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex
+
+ 'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES
+ If GVAnticipos.DataSource IsNot Nothing Then
+ If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
+ e.Row.FCCheckBox("Chk").Enabled = False
+ End If
+ End If
+
End If
End Sub
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound