AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-19 17:10:51 -07:00
parent 432763c9e0 4a1d4381b0
commit 24fe7abcc0
6 changed files with 50 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Bancos/DepositosCaja.aspx
View File

@@ -171,10 +171,14 @@
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="TxtFecha" Display="None" ErrorMessage="El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
</div>
</div>
<div class="col-md-1" runat="server" id="divFolio" visible="false" >
<div class="row">
<label style="width:70px;">Folio:</label><asp:TextBox ID="TxtFolio" Width="60px" runat="server"></asp:TextBox>
</div>
</div>
<div class="col-md-1" >
<label style="width:70px;">Observaciones:</label>
</div>

17
Bancos/DepositosCaja.aspx.vb
View File

@@ -46,6 +46,7 @@ Partial Class Bancos_DepositosCaja
'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
divFolio.Visible = True
End If
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
@@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja
Dim FolioIE As Long = -1
Dim CveMoneda As Integer = 1
Dim TipoCambio As Decimal = 1
Dim Fecha As Date = TxtFecha.Text.ToDate
Dim Fecha As Date = TxtFecha.Text.ToDate
Dim IdCuentaBancariaOrigen As Integer = 0
Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen As Integer = 0
@@ -252,11 +253,19 @@ Partial Class Bancos_DepositosCaja
If TotalImporte < 0 Then 'que es una devolución, entonces como es negativo, se cambia el concetpo de bancos, por condición de trigger
CveTransaccionBanco = 6
End If
'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
FolioIE = TxtFolio.Text.ToEntero
End If
'Entrada a bancos
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
If Not FolioIE > 0 Then
If FolioIE <= 0 Then
'Entrada a bancos
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
End If
If FolioIE <= 0 Then
OcurrioError = True
End If
CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, TxtObservaciones.Text, "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorIntermediario:=CveProveedorIntermediario)

5
Inicio.aspx.vb
View File

@@ -194,11 +194,6 @@ Partial Class Inicio
'Ventas no timbradas por centro de costo
If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto()
'Reporte facaturas pendientes por autorizar Oscar 2016-07-06
If UsuarioActual.TienePermisoProceso(158) Then
RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas")
End If
'Ventas sin correo enviado
If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()

31
OC/RepSolicitudesAnticipo.aspx.cs
View File

@@ -101,6 +101,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
protected void CargaDatos()
{
if (DdlEstatus.SelectedValue.ToEntero() == 3)
{
GvSolicitudes.Columns[6].Visible = false; GvSolicitudes.Columns[10].Visible = false;
GvSolicitudes.Columns[7].Visible = true; GvSolicitudes.Columns[8].Visible = true;
}
else
{
GvSolicitudes.Columns[6].Visible = true; GvSolicitudes.Columns[10].Visible = true;
GvSolicitudes.Columns[7].Visible = false; GvSolicitudes.Columns[8].Visible = false;
}
ClsOC ObjOC = new ClsOC();
CveProveedor = DdlProveedores.SelectedValue.ToEntero();
@@ -119,25 +130,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
}
protected void BtnConsultar_Click(object sender, EventArgs e)
{
if (DdlEstatus.SelectedValue.ToEntero() == 3)
{
GvSolicitudes.Columns[6].Visible = false;
GvSolicitudes.Columns[10].Visible = false;
GvSolicitudes.Columns[7].Visible = true;
GvSolicitudes.Columns[8].Visible = true;
}
else
{
GvSolicitudes.Columns[6].Visible = true;
GvSolicitudes.Columns[10].Visible = true;
GvSolicitudes.Columns[7].Visible = false;
GvSolicitudes.Columns[8].Visible = false;
}
{
CargaDatos();
}

4
Sistemas/EmpresasModulos.aspx
View File

@@ -41,7 +41,7 @@
<table>
<tr>
<td>
<asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="200px" Width="250px" SelectionMode="Multiple"></asp:ListBox>
<asp:ListBox runat="server" ID="ListModulosDisponible" DataTextField="Padres" DataValueField="CveModulo" Height="300px" Width="450px" SelectionMode="Multiple"></asp:ListBox>
</td>
<td width="100px" align="center">
<asp:Button Text=">>" runat="server" ID="BtnAddTodos" ToolTip="Añadir Todos" OnClick="BtnAddTodos_Click" class="btn btn-primary" /><br />
@@ -53,7 +53,7 @@
<asp:Button Text="<<" runat="server" ID="BtnRemoveTodos" ToolTip="Quitar Todos" OnClick="BtnRemoveTodos_Click" class="btn btn-primary" />
</td>
<td>
<asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="200px" Width="250px" SelectionMode="Multiple"></asp:ListBox>
<asp:ListBox runat="server" ID="ListModulosEmpresa" DataTextField="Padres" DataValueField="CveModulo" Height="300px" Width="450px" SelectionMode="Multiple"></asp:ListBox>
</td>
</tr>
</table>

25
Ventas/Ventas.aspx.vb
View File

@@ -2242,10 +2242,10 @@ Partial Class Ventas
Private Property SaldoLineaAdicional As Decimal
Get
Return (IfNull(ViewState("ImporteLineaAdicional"), "0", ViewState("ImporteLineaAdicional"))).ToString().ToDecimal()
Return (IfNull(ViewState("SaldoLineaAdicional"), "0", ViewState("SaldoLineaAdicional"))).ToString().ToDecimal()
End Get
Set(value As Decimal)
ViewState("ImporteLineaAdicional") = value
ViewState("SaldoLineaAdicional") = value
End Set
End Property
@@ -14866,16 +14866,14 @@ Partial Class Ventas
Next
End If
If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
If factura.TipoDocto.Contiene("Ing", "Dev") AndAlso DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
Dim Filtro As String = ""
Select Case factura.TipoDocto
Case "Ing", "Ped"
Case "Ing"
Filtro = "CveConcepto IN (3,40)"
Case "Dev"
Filtro = "CveConcepto IN (3,40)"
Case Else
Filtro = "CveConcepto = 9"
End Select
Dim CveConceptoAlmacen As Integer = 3
@@ -33399,11 +33397,14 @@ Partial Class Ventas
TxtPedidoContrato.Enabled = True
TxtObsAlmacen.Enabled = True
RblPaqueteria.Enabled = True
DdlLineaAdicional.Enabled = True
LnkUpdateLineaAdicional.Visible = True
'Acciones
BtnEditar.Text = "Guardar"
CalculaLineasAdicionales()
DdlLineaAdicional.Enabled = True
UpParametros.Update()
UPObservaciones.Update()
UpFacturar.Update()
@@ -35285,9 +35286,17 @@ Partial Class Ventas
Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
End If
Else
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
Me.SaldoLineaAdicional = 0
Me.CveCategoriaLineaAdicional = 0
End If
Else
Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
Me.SaldoLineaAdicional = 0
Me.CveCategoriaLineaAdicional = 0
End If
End Using
Else