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: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> <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="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> </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" > <div class="col-md-1" >
<label style="width:70px;">Observaciones:</label> <label style="width:70px;">Observaciones:</label>
</div> </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 'código temporal, para claudia y toñita, monge, anadelia, alba
If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897) Then
DdlCajaChica.Items.Add(New ListItem("Todas", "-1")) DdlCajaChica.Items.Add(New ListItem("Todas", "-1"))
divFolio.Visible = True
End If End If
DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
@@ -187,7 +188,7 @@ Partial Class Bancos_DepositosCaja
Dim FolioIE As Long = -1 Dim FolioIE As Long = -1
Dim CveMoneda As Integer = 1 Dim CveMoneda As Integer = 1
Dim TipoCambio As Decimal = 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 IdCuentaBancariaOrigen As Integer = 0
Dim IdCuentaBancariaDestino As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0
Dim CveCuentaBancariaOrigen 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 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 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 End If
'Entrada a bancos If FolioIE <= 0 Then
FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco) 'Entrada a bancos
If Not FolioIE > 0 Then FolioIE = ObjBancos.GetNextFolio(DdlCuentaDeposito.SelectedValue.ToEntero, CveTransaccionBanco)
End If
If FolioIE <= 0 Then
OcurrioError = True OcurrioError = True
End If 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) 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 'Ventas no timbradas por centro de costo
If UsuarioActual.TienePermisoProceso(208) Then MuestraNoTimbradasCentroCosto() 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 'Ventas sin correo enviado
If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas() 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() 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(); ClsOC ObjOC = new ClsOC();
CveProveedor = DdlProveedores.SelectedValue.ToEntero(); CveProveedor = DdlProveedores.SelectedValue.ToEntero();
@@ -119,25 +130,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
} }
protected void BtnConsultar_Click(object sender, EventArgs e) 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(); CargaDatos();
} }

4
Sistemas/EmpresasModulos.aspx
View File

@@ -41,7 +41,7 @@
<table> <table>
<tr> <tr>
<td> <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>
<td width="100px" align="center"> <td width="100px" align="center">
<asp:Button Text=">>" runat="server" ID="BtnAddTodos" ToolTip="Añadir Todos" OnClick="BtnAddTodos_Click" class="btn btn-primary" /><br /> <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" /> <asp:Button Text="<<" runat="server" ID="BtnRemoveTodos" ToolTip="Quitar Todos" OnClick="BtnRemoveTodos_Click" class="btn btn-primary" />
</td> </td>
<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> </td>
</tr> </tr>
</table> </table>

25
Ventas/Ventas.aspx.vb
View File

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