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

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

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-07-04 20:52:40 -07:00
parent 99edc08a95 ad2b2666b8
commit c3fe483d65
23 changed files with 2640 additions and 6033 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
App_Code/ClsPaginas.vb
View File

@@ -4101,26 +4101,51 @@ Public Class ClsPaginas
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
Property GlobalDTAcumGarantiasTipoUso(CveEmpresa As Integer, CveMarca As Integer, CveTipoUso As Integer) As DataTable
Get Get
Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTAcumGarantiasTipoUso-{CveEmpresa}"
If Application(AppNombre) Is Nothing Then If Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores() Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.GarantiasMesesGet(-1, CveEmpresa) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) If ObjAcumuladores.GarantiasMesesGet(-1, CveEmpresa) Then Application(AppNombre) = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"})
ObjAcumuladores.Dispose() ObjAcumuladores.Dispose()
End If End If
If CveMarca <> -1 Then
Dim Str As StringBuilder = New StringBuilder() Dim filtros As New List(Of String)
If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca) If CveMarca <> -1 Then filtros.Add($"CveMarca = {CveMarca}")
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) If CveTipoUso <> -1 Then filtros.Add($"CveTipoUso = {CveTipoUso}")
GlobalDTAcumGarantiasMesesTipoUso = Dv.ToTable
Dv.Dispose() Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
Else GlobalDTAcumGarantiasTipoUso = Dv.ToTable
GlobalDTAcumGarantiasMesesTipoUso = DirectCast(Application(AppNombre), DataTable) Dv.Dispose()
End If
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}" Dim AppNombre As String = $"GlobalDTAcumGarantiasTipoUso-{CveEmpresa}"
Application(AppNombre) = value
End Set
End Property
Property GlobalDTAcumGarantiasTipoUsoMeses(CveEmpresa As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer) As DataTable
Get
Dim AppNombre As String = $"GlobalDTAcumGarantiasTipoUsoMeses-{CveEmpresa}"
If Application(AppNombre) Is Nothing Then
Dim ObjAcumuladores As New ClsAcumuladores()
If ObjAcumuladores.GarantiasMesesGet(-1, CveEmpresa) Then Application(AppNombre) = ObjAcumuladores.DtResultados
ObjAcumuladores.Dispose()
End If
Dim filtros As New List(Of String)
If CveMarca <> -1 Then filtros.Add($"CveMarca = {CveMarca}")
If CveTipoUso <> -1 Then filtros.Add($"CveTipoUso = {CveTipoUso}")
If Mes <> -1 Then filtros.Add($"Mes = {Mes}")
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Join(" AND ", filtros), "", DataViewRowState.CurrentRows)
GlobalDTAcumGarantiasTipoUsoMeses = Dv.ToTable
Dv.Dispose()
End Get
Set(value As DataTable)
Dim AppNombre As String = $"GlobalDTAcumGarantiasTipoUsoMeses-{CveEmpresa}"
Application(AppNombre) = value Application(AppNombre) = value
End Set End Set
End Property End Property
@@ -8121,6 +8146,7 @@ Public Class ClsPaginas
PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1) PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1) PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907) PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
'PaginaDict.Add("/OI/GraficaGantt.aspx".ToUpper(), 371)
PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907) PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910) PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910) PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
@@ -9173,9 +9199,9 @@ Public Class ClsPaginas
PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352) PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352)
PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352) PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352)
PaginaDict.Add("/Ventas/RepPS.aspx".ToUpper(), 701) PaginaDict.Add("/Ventas/RepPS.aspx".ToUpper(), 701)
PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353) 'PaginaDict.Add("/Ventas/RepABT.aspx".ToUpper(), 353)
PaginaDict.Add("/Ventas/CatPromociones.aspx".ToUpper(), 123) PaginaDict.Add("/Ventas/CatPromociones.aspx".ToUpper(), 123)
PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 124) PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 123)
PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372) PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372)
PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382) PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382)
PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382) PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382)

30
App_Code/ClsVentas.vb
View File

@@ -2126,24 +2126,24 @@ Public Class ClsVentas
End Function End Function
#End Region #End Region
Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean 'Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean
Dim Retorno As Boolean = False ' Dim Retorno As Boolean = False
DataAdapter("PA_VentasGetRepABT") ' DataAdapter("PA_VentasGetRepABT")
With SqlAdapter.SelectCommand.Parameters ' With SqlAdapter.SelectCommand.Parameters
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio ' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
.Add("@Periodo", SqlDbType.Int).Value = Periodo ' .Add("@Periodo", SqlDbType.Int).Value = Periodo
End With ' End With
Try ' Try
SqlAdapter.Fill(Data) ' SqlAdapter.Fill(Data)
Retorno = True ' Retorno = True
Catch ex As Exception ' Catch ex As Exception
OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) ' OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try ' End Try
Return Retorno ' Return Retorno
End Function 'End Function
#Region " PROMOCIONES " #Region " PROMOCIONES "
Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,

3651
App_Code/Timbrado.vb
View File

File diff suppressed because it is too large Load Diff

20
Ashx/E119.ashx
View File

@@ -100,18 +100,18 @@ Public Class E119 : Implements IHttpHandler
Try Try
Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString()) Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
'OBTENER EXISTENCIAS 'OBTENER EXISTENCIAS
If Metodo = "BASF_POG40" Then 'If Metodo = "BASF_POG40" Then
context.Response.ContentType = "application/json" ' context.Response.ContentType = "application/json"
Dim Auth = ValidarSolicitud(context) ' Dim Auth = ValidarSolicitud(context)
If Auth.IsSucces Then ' If Auth.IsSucces Then
retorno = ConsultaDatos(context) ' retorno = ConsultaDatos(context)
Else ' Else
context.Response.StatusCode = Auth.StatusCode ' context.Response.StatusCode = Auth.StatusCode
retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) ' retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
End If ' End If
End If 'End If
context.Response.Write(retorno) context.Response.Write(retorno)

3
Bancos/IE.aspx.vb
View File

@@ -4778,7 +4778,8 @@ Partial Class Bancos_IE
filemove = fileItem.filename filemove = fileItem.filename
Next Next
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
If filemove <> "" Then If filemove <> "" Then
filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
End If End If

64
Bancos/RepEgresosSinComprobante.aspx
View File

@@ -13,14 +13,11 @@
<asp:UpdatePanel runat="server"> <asp:UpdatePanel runat="server">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton> <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Saldar</asp:LinkButton>
</li> </li>
<li> <li>
<asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton> <asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar Proveedores</asp:LinkButton>
</li>
<li> <li>
<asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton> <asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton>
</li> </li>
@@ -143,8 +140,43 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
<ContentTemplate>
<br /> <div class="row" id="DVSaldar" runat="server" visible="false">
<div class="col-lg-1">
Concepto:
</div>
<div class="col-lg-3">
<asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="200px" MaxLength="100"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtConcepto" runat="server" Enabled="true" CssClass="help-block errorimput" ControlToValidate="TxtConcepto" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
</div>
<div class="col-lg-1">
<asp:Label runat="server" ID="LblSubproyecto"></asp:Label>:
</div>
<div class="col-lg-2">
<asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlSubProyecto" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSubProyecto" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''SubProyecto''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
</div>
<div class="col-lg-1">
<asp:LinkButton ID="LnkSaldar" Visible="true" OnClick="LnkSaldar_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpSaldar">
<i class="fa fa-money"></i> Saldar
</asp:LinkButton>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" > <ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" >
@@ -153,9 +185,9 @@
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None"> <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, TipoCambio, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio, CveTipoProveedor" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns> <Columns>
<asp:TemplateField ItemStyle-Width="10%"> <asp:TemplateField ItemStyle-Width="5%">
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" /> <asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
<asp:Literal ID="LtlTip" runat="server" Text='<%# Eval("ConceptoTexto") %>' ></asp:Literal> <asp:Literal ID="LtlTip" runat="server" Text='<%# Eval("ConceptoTexto") %>' ></asp:Literal>
@@ -166,32 +198,28 @@
<asp:HyperLink ID="Hpl" runat="server" NavigateUrl='<%# String.Format("/Compras/Proveedores.aspx?CveProveedor={0}&Opt=3", Eval("CveProveedor"))%>' Text='<%# Eval("RazonSocial") %>'></asp:HyperLink> <asp:HyperLink ID="Hpl" runat="server" NavigateUrl='<%# String.Format("/Compras/Proveedores.aspx?CveProveedor={0}&Opt=3", Eval("CveProveedor"))%>' Text='<%# Eval("RazonSocial") %>'></asp:HyperLink>
<asp:Literal Text='<%# Eval("Moneda")%>' ID="LtMoneda" runat="server" Visible="false" /> <asp:Literal Text='<%# Eval("Moneda")%>' ID="LtMoneda" runat="server" Visible="false" />
</ItemTemplate> </ItemTemplate>
<ControlStyle CssClass="Texto" /> <ControlStyle CssClass="Texto" />
<ItemStyle HorizontalAlign="Left" Width="250px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Fecha"> <asp:TemplateField HeaderText="Fecha">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LitFechaDocumento" runat="server" Text='<%# Bind("FechaDocumento", "{0:d}") %>'></asp:Literal> <asp:Literal ID="LitFechaDocumento" runat="server" Text='<%# Bind("FechaDocumento", "{0:d}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="25px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Importe"> <asp:TemplateField HeaderText="Importe">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LitImporte" runat="server" Text='<%# Bind("Importe", "{0:N2}") %>'></asp:Literal> <asp:Literal ID="LitImporte" runat="server" Text='<%# Bind("Importe", "{0:N2}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="25px" HorizontalAlign="Right" /> <ItemStyle HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tipo Transacción"> <asp:TemplateField HeaderText="Tipo Transacción">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LitTipoTransaccion" runat="server" Text='<%# Bind("TipoTransaccion")%>'></asp:Literal> <asp:Literal ID="LitTipoTransaccion" runat="server" Text='<%# Bind("TipoTransaccion")%>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="125px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Folio"> <asp:TemplateField HeaderText="Folio">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLFolio" runat="server" Target="_blank" Text='<%# Bind("Folio")%>' CssClass="Texto"></asp:HyperLink> <asp:HyperLink ID="HLFolio" runat="server" Target="_blank" Text='<%# Bind("Folio")%>' CssClass="Texto"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="75px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Saldo" ItemStyle-CssClass="fixMargin"> <asp:TemplateField HeaderText="Saldo" ItemStyle-CssClass="fixMargin">
<ItemTemplate> <ItemTemplate>
@@ -199,7 +227,7 @@
<asp:Literal runat="server" Text="&nbsp;&nbsp;"></asp:Literal> <asp:Literal runat="server" Text="&nbsp;&nbsp;"></asp:Literal>
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="65px" Font-Bold="True" HorizontalAlign="Right" /> <ItemStyle Font-Bold="True" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
</Columns> </Columns>

131
Bancos/RepEgresosSinComprobante.aspx.vb
View File

@@ -2,10 +2,9 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports Extensiones Imports Extensiones
Imports Microsoft.Reporting.WebForms Imports Microsoft.Reporting.WebForms
Imports System.Linq
Partial Class Bancos_RepEgresosSinComprobante Partial Class Bancos_RepEgresosSinComprobante
Inherits ClsPaginas Inherits ClsPaginas
@@ -61,6 +60,8 @@ Partial Class Bancos_RepEgresosSinComprobante
DdlProveedores.SelectedValue = "-1" DdlProveedores.SelectedValue = "-1"
CargaDatos() CargaDatos()
TxtConcepto.Text = "Saldado de Egresos por comprobar"
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
End If End If
End Sub End Sub
@@ -171,14 +172,19 @@ Partial Class Bancos_RepEgresosSinComprobante
End Sub End Sub
Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
For Each gr As GridViewRow In GvESC.Rows For Each gr As GridViewRow In GvESC.Rows
If gr.DataKey("CveIE") <> "" Then If gr.DataKey("CveIE") <> "" Then
gr.FCCheckBox("Chk").Visible = True gr.FCCheckBox("Chk").Visible = True
LnkSaldar.Visible = True
LnkHabilitarSaldar.Visible = False
UPDatos.Update() UPDatos.Update()
End If End If
Next Next
TxtConcepto.Text = "Saldo de Egresos por comprobar"
DVSaldar.Visible = True
UpSaldar.Update()
End Sub End Sub
Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click
For Each gr As GridViewRow In GvPersonal.Rows For Each gr As GridViewRow In GvPersonal.Rows
@@ -193,85 +199,96 @@ Partial Class Bancos_RepEgresosSinComprobante
Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs) Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
Dim Contador As Integer = 0
For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then
Contador += 1
End If
Next
If Not Contador > 0 Then
Alert("No se hay movimientos seleccionados")
Exit Sub
End If
Dim ObjConta As New ClsContabilidad Dim ObjConta As New ClsContabilidad
Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL()) Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True) Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
Dim CvePrePoliza As Integer = 0 Dim CvePrePoliza As Integer = 0
Dim MsgError As String = "" Dim MsgError As String = ""
Try Try
For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then
Dim IdCtaContable As Integer = 0
Dim TipoMovtoOtIngresos As Boolean = False
Dim TipoMovtoConcepto As Boolean = True
Dim CveConceptoContable As Integer
Select Case gr.DataKey("CveConceptoContable").ToEntero
Case 10
CveConceptoContable = 21
Case 28
CveConceptoContable = 29
TipoMovtoOtIngresos = False
TipoMovtoConcepto = True
Case 37
CveConceptoContable = 43
Case 42
CveConceptoContable = 41
Case 43
CveConceptoContable = 37
End Select
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, gr.DataKey("CveProveedor").ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then If Contador > 0 Then
If ObjProveedor.DtResultados.Rows.Count > 0 Then CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
IdCtaContable = ObjProveedor.IdCtaContProveedores TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
Dim ImporteSaldoGral As Decimal = 0
Dim TipoMovtoConcepto As Boolean = True
For Each gr As GridViewRow In GvESC.Rows
If gr.FCCheckBox("Chk").Checked Then
Dim ImporteSaldo As Decimal = gr.DataKey("Saldo").ToDecimal
Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, gr.DataKey("CveMoneda").ToEntero, True, gr.DataKey("CveTipoProveedor").ToEntero)
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteSaldo, ImporteSaldo, ConPrepAplicacion.CveConcepto, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If End If
End If If gr.DataKey("CveMoneda").ToEntero > 1 Then
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now, Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
"Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, ImporteMN, ImporteMN, ConPrepAplicacion.CveConceptoComplementario, gr.DataKey("Folio"), TxtConcepto.Text, -1,
CveIE:=gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1, ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero, MsgError = "Ocurrio un error al saldar el movimiento"
ImporteMX:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then Exit For
MsgError = "Ocurrio un error al saldar el movimiento" End If
Exit For ImporteSaldo += ImporteMN
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
Exit For
End If
If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
End If End If
ImporteSaldoGral += ImporteSaldo
End If
Next
If MsgError = "" Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoConcepto, ImporteSaldoGral, ImporteSaldoGral, 211, "", TxtConcepto.Text, -1,
CveIE:=-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
MsgError = "Ocurrio un error al saldar el movimiento"
End If End If
If MsgError = "" AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
MsgError = "Error al validar."
End If
End If End If
Next Else
Alert("No se especificaron")
End If
Catch ex As Exception Catch ex As Exception
MsgError = "Ocurrió un error al generar la prepoliza" MsgError = "Ocurrió un error al generar la prepoliza"
OnError(MsgError, ex) OnError(MsgError, ex)
End Try End Try
If MsgError = "" Then If MsgError = "" Then
'LnkSaldar.Visible = False
'LnkHabilitarSaldar.Visible = True
DVSaldar.Visible = False
ObjConta.Commit() ObjConta.Commit()
CargaDatos() CargaDatos()
Alert("Los movimientos se saldaron correctamente.") Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
Else Else
ObjConta.RollBack() ObjConta.RollBack()
Alert(MsgError, TipoMensaje.MsgError) Alert(MsgError, TipoMensaje.MsgError)
End If End If
LnkSaldar.Visible = False
LnkHabilitarSaldar.Visible = True
ObjConta.Dispose() ObjConta.Dispose()
ObjProveedor.Dispose() ObjProveedor.Dispose()
End Sub End Sub

8
Compras/Compras.aspx.vb
View File

@@ -20455,6 +20455,7 @@ Partial Class Compras_Compras
nRowAgrupado("PS") = psPSCodigo nRowAgrupado("PS") = psPSCodigo
nRowAgrupado("CveClasificacion") = psCveClasificacion nRowAgrupado("CveClasificacion") = psCveClasificacion
nRowAgrupado("Clasificacion") = psClasificacion nRowAgrupado("Clasificacion") = psClasificacion
nRowAgrupado("CveTipoPS") = rowPS("CveTipoPS").ToString
nRowAgrupado("IVAPorcentaje") = drIva("IVAPorcentaje") nRowAgrupado("IVAPorcentaje") = drIva("IVAPorcentaje")
nRowAgrupado("RetIVAPorcentaje") = drIva("RetIVAPorcentaje") nRowAgrupado("RetIVAPorcentaje") = drIva("RetIVAPorcentaje")
@@ -20518,6 +20519,7 @@ Partial Class Compras_Compras
dRow91_5("PS") = psPSCodigo dRow91_5("PS") = psPSCodigo
dRow91_5("CveClasificacion") = psCveClasificacion dRow91_5("CveClasificacion") = psCveClasificacion
dRow91_5("Clasificacion") = psClasificacion dRow91_5("Clasificacion") = psClasificacion
dRow91_5("CveTipoPS") = rowPS("CveTipoPS").ToString
dRow91_5("Consec") = Consec + 1 dRow91_5("Consec") = Consec + 1
dRow91_5("PU") = dRow91_5("PU").ToString.ToDecimal * Mul91_5 dRow91_5("PU") = dRow91_5("PU").ToString.ToDecimal * Mul91_5
@@ -20539,6 +20541,12 @@ Partial Class Compras_Compras
Consec = Consec + 2 Consec = Consec + 2
Next Next
DTProtateo.AcceptChanges() DTProtateo.AcceptChanges()
'recorrer
If CveCompra > 0 Then
For Each dbrow As DataRow In TmpDT.Rows
ClavesBorradas.Add(dbrow("CveCompraDetalle").ToString.ToEntero)
Next
End If
TmpDT = DTProtateo TmpDT = DTProtateo
BtnProrateoDeducible.Visible = False BtnProrateoDeducible.Visible = False

4412
Empresas/Grales/Formatos/FlujoDiario.rdlc
View File

File diff suppressed because it is too large Load Diff

27
Empresas/Grales/Formatos/ReciboDePagoGOPDF.rdlc
View File

@@ -2984,7 +2984,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<Width>19.59037cm</Width> <Width>19.59037cm</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>6.48735cm</Height> <Height>6.74082cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -3478,9 +3478,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Serie/Folio:</Value> <Value>Serie/Folio</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
<Color>Brown</Color> <Color>Brown</Color>
</Style> </Style>
@@ -3492,7 +3492,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<rd:DefaultName>Textbox31</rd:DefaultName> <rd:DefaultName>Textbox31</rd:DefaultName>
<Left>0.00031cm</Left> <Left>0.00031cm</Left>
<Height>0.47652cm</Height> <Height>0.47652cm</Height>
<Width>1.90028cm</Width> <Width>1.72389cm</Width>
<ZIndex>7</ZIndex> <ZIndex>7</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3513,7 +3513,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<TextRun> <TextRun>
<Value>=First(Fields!Serie.Value, "Comprobante") + " - " + First(Fields!Folio.Value, "Comprobante")</Value> <Value>=First(Fields!Serie.Value, "Comprobante") + " - " + First(Fields!Folio.Value, "Comprobante")</Value>
<Style> <Style>
<FontSize>9pt</FontSize> <FontSize>8pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -3521,9 +3521,9 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox32</rd:DefaultName> <rd:DefaultName>Textbox32</rd:DefaultName>
<Left>1.90059cm</Left> <Left>1.75948cm</Left>
<Height>0.47652cm</Height> <Height>0.47652cm</Height>
<Width>2.86701cm</Width> <Width>3.00812cm</Width>
<ZIndex>8</ZIndex> <ZIndex>8</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3788,8 +3788,8 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<rd:DefaultName>Textbox43</rd:DefaultName> <rd:DefaultName>Textbox43</rd:DefaultName>
<Top>1.71005cm</Top> <Top>1.71005cm</Top>
<Left>0.00035cm</Left> <Left>0.00035cm</Left>
<Height>0.56193cm</Height> <Height>0.27936in</Height>
<Width>9.99712cm</Width> <Width>3.93587in</Width>
<ZIndex>6</ZIndex> <ZIndex>6</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3890,8 +3890,8 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<rd:DefaultName>Textbox43</rd:DefaultName> <rd:DefaultName>Textbox43</rd:DefaultName>
<Top>1.71005cm</Top> <Top>1.71005cm</Top>
<Left>9.99747cm</Left> <Left>9.99747cm</Left>
<Height>0.56193cm</Height> <Height>0.27936in</Height>
<Width>9.59253cm</Width> <Width>3.77637in</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
<Border> <Border>
@@ -3908,7 +3908,7 @@ First(Fields!MonedaP.Value, "Pago") + " - " + First(Fields!TipoCambioP.Value, "P
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Top>4.21537cm</Top> <Top>4.21537cm</Top>
<Left>0.00007cm</Left> <Left>0.00007cm</Left>
<Height>2.27198cm</Height> <Height>2.41961cm</Height>
<Width>19.59023cm</Width> <Width>19.59023cm</Width>
<ZIndex>9</ZIndex> <ZIndex>9</ZIndex>
<Style> <Style>
@@ -4347,7 +4347,6 @@ First(Fields!NoCertificadoSAT.Value, "TimbreFiscalDigital")</Value>
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox25</rd:DefaultName> <rd:DefaultName>Textbox25</rd:DefaultName>
<Top>0cm</Top>
<Left>1.5001in</Left> <Left>1.5001in</Left>
<Height>0.15625in</Height> <Height>0.15625in</Height>
<Width>6.2125in</Width> <Width>6.2125in</Width>
@@ -4444,7 +4443,7 @@ First(Fields!NoCertificadoSAT.Value, "TimbreFiscalDigital")</Value>
<Style /> <Style />
</Page> </Page>
</ReportSection> </ReportSection>
</ReportSections> </ReportSections>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>01f5892c-0046-409e-9fb9-7645ea4fa54f</rd:ReportID> <rd:ReportID>01f5892c-0046-409e-9fb9-7645ea4fa54f</rd:ReportID>
</Report> </Report>

2
Inventarios/KardexAlmacenHorizontal.aspx.vb
View File

@@ -267,7 +267,7 @@ Partial Class Inventarios_KardexAlmacen
If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText) If DdlProveedor.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("Proveedor: {0},", DdlProveedor.SelectedText)
If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText) If ddlProducto2.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat(" Producto/Servicio: {0},", ddlProducto2.SelectedText)
If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text) If TxtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", TxtFechaF.Text)
ExportToExcelG(GvDatos, "ExistenciasHorizontal.xlsx", "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200) ExportToExcelG(GvDatos, "ExistenciasHorizontal_" & TxtFechaF.Text, "Existencias Almacen", UsuarioActual, StrFiltro.ToString, 100, 200)
Else Else
Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia) Alert("Debe consultar para generar un excel", TipoMensaje.MsgAdvertencia)
End If End If

8
Inventarios/RecepcionUsados.aspx
View File

@@ -78,7 +78,7 @@
<asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet smmallpadding light bordered infomov" style="width: 100%"> <div class="portlet smmallpadding light xspadding bordered infomov" style="width: 100%">
<div class="portlet-title"> <div class="portlet-title">
<div class="tools"> <div class="tools">
<a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a> <a href="javascript;" data-idchekbox="<%= chkexpand.ClientID%>" class=" <%= IIf(chkexpand.Checked = True, "collapse", "expand")%>"></a>
@@ -92,7 +92,6 @@
<div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>> <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
<div id="tbEncabezado" runat="server" class="rowpadding" visible="true"> <div id="tbEncabezado" runat="server" class="rowpadding" visible="true">
<div class="row" style="display: none;"> <div class="row" style="display: none;">
<label class="col-md-1 truncate" style="width: 110px">Movimiento:</label> <label class="col-md-1 truncate" style="width: 110px">Movimiento:</label>
<div class="col-md-2"> <div class="col-md-2">
<asp:RadioButtonList runat="server" ID="RBLOpcion" RepeatDirection="Horizontal" AutoPostBack="true" Font-Size="18pt"> <asp:RadioButtonList runat="server" ID="RBLOpcion" RepeatDirection="Horizontal" AutoPostBack="true" Font-Size="18pt">
@@ -100,7 +99,6 @@
<asp:ListItem Value="3">Salida</asp:ListItem> <asp:ListItem Value="3">Salida</asp:ListItem>
</asp:RadioButtonList> </asp:RadioButtonList>
</div> </div>
</div> </div>
<div class="row" style="margin-left: 105px"> <div class="row" style="margin-left: 105px">
<asp:RadioButtonList runat="server" ID="RblUsadosAjuste" RepeatDirection="Horizontal" AutoPostBack="true" Font-Size="18pt" Width="70%" OnSelectedIndexChanged="OnRblUsadosAjuste_Change"> <asp:RadioButtonList runat="server" ID="RblUsadosAjuste" RepeatDirection="Horizontal" AutoPostBack="true" Font-Size="18pt" Width="70%" OnSelectedIndexChanged="OnRblUsadosAjuste_Change">
@@ -192,9 +190,9 @@
</div> </div>
</div> </div>
</div> </div>
<label class="col-md-1 truncate" style="width: 110px" id="DivFolio1" runat="server">Folio:</label> <label class="col-md-1 truncate" style="width: 80px" id="DivFolio1" runat="server">Folio:</label>
<div class="col-md-2" id="DivFolio2" runat="server"> <div class="col-md-2" id="DivFolio2" runat="server">
<asp:TextBox ID="TxtFolio" runat="server" Style="" Width="100%"></asp:TextBox> <asp:TextBox ID="TxtFolio" runat="server" Style="" Width="100px"></asp:TextBox>
<ajax:FilteredTextBoxExtender ID="SoloNumerosFolio" runat="server" TargetControlID="TxtFolio" FilterType="Numbers" /> <ajax:FilteredTextBoxExtender ID="SoloNumerosFolio" runat="server" TargetControlID="TxtFolio" FilterType="Numbers" />
</div> </div>
</div> </div>

13
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -3089,7 +3089,7 @@ Partial Class Inventarios_RecepcionUsados
End If End If
DdlTipoUso.Items.Clear() DdlTipoUso.Items.Clear()
DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) DdlTipoUso.DataSource = GlobalDTAcumGarantiasTipoUso(UsuarioActual.CveEmpresa, CveMarca, -1)
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoUso.DataBind() DdlTipoUso.DataBind()
@@ -3246,10 +3246,11 @@ Partial Class Inventarios_RecepcionUsados
CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
Dim ObjAcum As New ClsAcumuladores Dim dtt As DataTable = GlobalDTAcumGarantiasTipoUsoMeses(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If ObjAcum.DtResultados.Rows.Count > 0 Then If dtt IsNot Nothing Then
TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100.0).FormatoNumero If dtt.Rows.Count > 0 Then
TxtPorcentajeAjuste.Text = (dtt.Rows(0)("Valor").ToString.ToDouble / 100.0).FormatoNumero
TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero TxtImporteAjuste.Text = (TxtPorcentajeAjuste.Text.ToDecimal * TxtPUFactura.Text.ToDecimal).FormatoNumero
@@ -3293,7 +3294,7 @@ Partial Class Inventarios_RecepcionUsados
TxtImporteAjuste.Text = "0.00" TxtImporteAjuste.Text = "0.00"
End If End If
End If End If
ObjAcum.Dispose()
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al recalcular el costo", ex) OnError("Ocurrió un error al recalcular el costo", ex)

14
LogIn.aspx.vb
View File

@@ -223,6 +223,20 @@ Partial Class LogIn
If Usuario IsNot Nothing Then If Usuario IsNot Nothing Then
If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then If Not Usuario.AutorizadoxIP OrElse (HddAdsCodex.Text.Length > 0 AndAlso Usuario.CodigoAutorizado = HddAdsCodex.Text) Then
If Usuario.CveRol = 1 Then
Dim tcveEmpresa As Integer = Usuario.CveEmpresa
If Request.Url.Host.ToUpper().Contains("BDH".ToUpper()) Then tcveEmpresa = 140
If Request.Url.Host.ToUpper().Contains("ECONOLLANTAS".ToUpper()) Then tcveEmpresa = 141
If Request.Url.Host.ToUpper().Contains("JAM".ToUpper()) Then tcveEmpresa = 119
If Request.Url.Host.ToUpper().Contains("CITRUS".ToUpper()) Then tcveEmpresa = 172
If Request.Url.Host.ToUpper().Contains("KINO".ToUpper()) Then tcveEmpresa = 173
If Request.Url.Host.ToUpper().Contains("VSH".ToUpper()) Then tcveEmpresa = 7
If Request.Url.Host.ToUpper().Contains("AJAM".ToUpper()) Then tcveEmpresa = 158
If Request.Url.Host.ToUpper().Contains("ALATEL".ToUpper()) Then tcveEmpresa = 183
If Request.Url.Host.ToUpper().Contains("SERVEC".ToUpper()) Then tcveEmpresa = 153
If Request.Url.Host.ToUpper().Contains("EMD".ToUpper()) Then tcveEmpresa = 13
Usuario.CveEmpresa = tcveEmpresa
End If
CreaObjetoEmpresa(Usuario) CreaObjetoEmpresa(Usuario)
ADSSessionConfig.sessionUser.MultipleEmpresa = True ADSSessionConfig.sessionUser.MultipleEmpresa = True

6
OC/OC.aspx
View File

@@ -211,7 +211,7 @@
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b> <asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
<div class="col-md-4" id="DivPrioridad" runat="server"> <div class="col-md-4" id="DivPrioridad" runat="server">
<asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px"> <asp:DropDownList ID="DdlPrioridad" CssClass="select2me" runat="server" Width="150px">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
<asp:ListItem Text="Alta" Value="1"></asp:ListItem> <asp:ListItem Text="Alta" Value="1"></asp:ListItem>
<asp:ListItem Text="Media" Value="2"></asp:ListItem> <asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Baja" Value="3"></asp:ListItem> <asp:ListItem Text="Baja" Value="3"></asp:ListItem>
@@ -237,7 +237,7 @@
<div class="row" style="padding-bottom: 0.6em;"> <div class="row" style="padding-bottom: 0.6em;">
<label class="col-md-2">Descripción:</label> <label class="col-md-2">Descripción:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:TextBox ID="TxtDescrip" CssClass="form-control input-sm" runat="server" Width="370px" ValidationGroup="GrpGuardar" /> <asp:TextBox ID="TxtDescrip" CssClass="form-control input-sm" runat="server" Width="95%" ValidationGroup="GrpGuardar" />
<asp:RequiredFieldValidator ID="RFVDescrip" runat="server" ControlToValidate="TxtDescrip" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVDescrip" runat="server" ControlToValidate="TxtDescrip" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEDescrip" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVDescrip" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEDescrip" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVDescrip" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -246,7 +246,7 @@
<div class="row" style="padding-bottom: 0.6em;"> <div class="row" style="padding-bottom: 0.6em;">
<label class="col-md-2">Justificación:</label> <label class="col-md-2">Justificación:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:TextBox ID="TxtJustificacion" CssClass="form-control input-sm" runat="server" Style="width: 370px; height: 40px;" ValidationGroup="GrpGuardar" TextMode="MultiLine" Rows="5" /> <asp:TextBox ID="TxtJustificacion" CssClass="form-control input-sm" runat="server" Style="width: 95%; height: 40px;" ValidationGroup="GrpGuardar" TextMode="MultiLine" Rows="5" />
<asp:RequiredFieldValidator ID="RFVJustif" runat="server" ControlToValidate="TxtJustificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Justificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVJustif" runat="server" ControlToValidate="TxtJustificacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Justificación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEJustificacion" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVJustif" Width="300px"> <ajax:ValidatorCalloutExtender ID="VCEJustificacion" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVJustif" Width="300px">
</ajax:ValidatorCalloutExtender> </ajax:ValidatorCalloutExtender>

2
OC/OC.aspx.vb
View File

@@ -5309,7 +5309,7 @@ Partial Class OC_OC
If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
DivVendedor.Visible = True DivVendedor.Visible = True
option72.Visible = True 'option72.Visible = True
DivFolioAdicional.Visible = True DivFolioAdicional.Visible = True
generarAnticipo.Visible = True generarAnticipo.Visible = True
'Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual) 'Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)

93
RH/CatTurno.aspx
View File

@@ -143,12 +143,12 @@
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" /> <asp:CheckBox ID="chkComida" runat="server" CssClass="form-control" AutoPostBack="true" OnCheckedChanged="chkComida_CheckedChanged" />
<label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label> <label for="<%= chkComida.ClientID.ToString()%>">Con Horario de comida:</label>
</div> </div>
<div class="row"> <div class="row" runat="server" id="DVHorarioComida" visible="false">
<div class="col-lg-6"> <div class="col-lg-6">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox> <asp:TextBox ID="TxtComidade" runat="server" CausesValidation="true" CssClass="form-control" MaxLength="10" Width="104px"></asp:TextBox>
@@ -174,17 +174,37 @@
</div> </div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label> <asp:Label AssociatedControlID="TxtRetardo" runat="server" Text="Tolerancia Entrada"></asp:Label>
</div> <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtRetardo" FilterType="Numbers" />
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtFretardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Retardo"></asp:Label> <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Retardo"></asp:Label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFretardo" FilterType="Numbers" />
<asp:CustomValidator ID="CVTxtFretardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtFretardo" ClientValidationFunction="validaRetardoEntrada"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Retardo debe de ser superior al campo Tolerancia Entrada." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
</div> </div>
<div class="form-group form-md-line-input input-iconright" runat="server" id="DvToleranciaSRetardo" visible="false">
<asp:TextBox ID="TxtToleranciaSRetardo" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtToleranciaSRetardo" runat="server" Text="Tolerancia salida Temprano"></asp:Label>
<asp:CustomValidator ID="CVTxtToleranciaSRetardo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtToleranciaSRetardo" ClientValidationFunction="validaSalidaTemprano"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br /> El campo Tolerancia salida Temprano debe de ser menor al campo Tolerancia salida." ValidationGroup="GrpObligatorio"></asp:CustomValidator>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtToleranciaSRetardo" FilterType="Numbers" />
</div>
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio"></asp:TextBox> <asp:TextBox ID="TxtFsalida" runat="server" CausesValidation="true" CssClass="form-control" ValidationGroup="GrpObligatorio" MaxLength="3"></asp:TextBox>
<asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Tolerancia salida"></asp:Label> <asp:Label AssociatedControlID="TxtFretardo" runat="server" Text="Tolerancia salida"></asp:Label>
<ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtFsalida" FilterType="Numbers" />
</div> </div>
<div class="form-group form-md-line-input input-iconright ocultar"> <div class="form-group form-md-line-input input-iconright ocultar">
<asp:DropDownList ID="ddlDiaDescanso" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%"> <asp:DropDownList ID="ddlDiaDescanso" CssClass="form-control select2me" runat="server" AppendDataBoundItems="true" Style="width: 100%">
<asp:ListItem Value="-1" Text="Sin Asignar" Selected="True"></asp:ListItem> <asp:ListItem Value="-1" Text="Sin Asignar" Selected="True"></asp:ListItem>
@@ -219,4 +239,63 @@
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
<script>
function validaRetardoEntrada(sender, args) {
let respuesta = false;
let StrToleranciaEntrada = $('#<%= TxtRetardo.ClientID %>').val()
let ToleranciaEntrada = isNaN(StrToleranciaEntrada) ? 0 : parseFloat(StrToleranciaEntrada);
let StrToleranciaEntradaRetardo = $('#<%= TxtFretardo.ClientID %>').val()
let ToleranciaEntradaRetardo = isNaN(StrToleranciaEntradaRetardo) ? 0 : parseFloat(StrToleranciaEntradaRetardo);
if (ToleranciaEntradaRetardo > 0) {
if (ToleranciaEntradaRetardo > ToleranciaEntrada) {
respuesta = true;
} else {
respuesta = false;
}
} else {
respuesta = true;
}
args.IsValid = respuesta;
}
function validaSalidaTemprano(sender, args) {
let respuesta = false;
let StrToleranciaSRetardo = $('#<%= TxtToleranciaSRetardo.ClientID %>').val()
let ToleranciaSRetardo = isNaN(StrToleranciaSRetardo) ? 0 : parseFloat(StrToleranciaSRetardo);
let StrFsalida = $('#<%= TxtFsalida.ClientID %>').val()
let Fsalida = isNaN(StrFsalida) ? 0 : parseFloat(StrFsalida);
if (ToleranciaSRetardo > 0) {
if (ToleranciaSRetardo < Fsalida) {
respuesta = true;
} else {
respuesta = false;
}
} else {
respuesta = true;
}
args.IsValid = respuesta;
}
</script>
</asp:Content> </asp:Content>

28
RH/CatTurno.aspx.vb
View File

@@ -12,6 +12,11 @@ Partial Class RH_CatTurno
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
CargaDdlChecadorHorario() CargaDdlChecadorHorario()
CargaDatos() CargaDatos()
If UsuarioActual.CveEmpresa <> 158 Then
DvToleranciaSRetardo.Visible = True
End If
End If End If
End Sub End Sub
@@ -39,17 +44,22 @@ Partial Class RH_CatTurno
Using ObjRH As New ClsRH Using ObjRH As New ClsRH
Dim Estatus As Boolean = False Dim Estatus As Boolean = False
Dim comida As Integer = If(chkComida.Checked, 1, 0) Dim comida As Integer = If(chkComida.Checked, 1, 0)
Dim ComidaDe As String = If(TxtComidade.Text.Trim = "", "00:00:00", TxtComidade.Text.Trim)
Dim ComidaA As String = If(TxtComidaA.Text.Trim = "", "00:00:00", TxtComidaA.Text.Trim)
If ChkEstatus.Checked Then Estatus = True If ChkEstatus.Checked Then Estatus = True
If HdnModalidad.Value = "A" Then If HdnModalidad.Value = "A" Then
If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, ComidaDe, ComidaA, ddlDiaDescanso.SelectedValue.ToEntero()) Then
CargaDatos() CargaDatos()
CargaGlobalDTTurno() CargaGlobalDTTurno()
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If End If
ElseIf HdnModalidad.Value = "U" Then ElseIf HdnModalidad.Value = "U" Then
If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(),
TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text, ddlDiaDescanso.SelectedValue.ToEntero()) Then TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), TxtToleranciaSRetardo.Text.ToEntero(), TxtFsalida.Text.ToEntero(), comida, ComidaDe, ComidaA, ddlDiaDescanso.SelectedValue.ToEntero()) Then
CargaDatos() CargaDatos()
CargaGlobalDTTurno() CargaGlobalDTTurno()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
@@ -80,8 +90,11 @@ Partial Class RH_CatTurno
chkComida.Checked = (GvRow.DataKey("Comida") = "1") chkComida.Checked = (GvRow.DataKey("Comida") = "1")
TxtComidade.Text = GvRow.DataKey("ComidaDe") TxtComidade.Text = GvRow.DataKey("ComidaDe")
TxtComidaA.Text = GvRow.DataKey("ComidaA") TxtComidaA.Text = GvRow.DataKey("ComidaA")
TxtToleranciaSRetardo.Text = GvRow.DataKey("ToleranciaSRetardo")
ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso")) ddlDiaDescanso.SelectedValueExist(GvRow.DataKey("DiaDescanso"))
chkComida_CheckedChanged(Nothing, Nothing)
UpAddTurno.Update() UpAddTurno.Update()
'CargaGlobalDTTurno() 'CargaGlobalDTTurno()
@@ -103,6 +116,7 @@ Partial Class RH_CatTurno
ddlDiaDescanso.SelectedValueExist("-1") ddlDiaDescanso.SelectedValueExist("-1")
CargaDdlChecadorHorario() CargaDdlChecadorHorario()
ChkEstatus.Checked = True ChkEstatus.Checked = True
DVHorarioComida.Visible = True
UpAddTurno.Update() UpAddTurno.Update()
@@ -154,4 +168,14 @@ Partial Class RH_CatTurno
End If End If
End If End If
End Sub End Sub
Protected Sub chkComida_CheckedChanged(sender As Object, e As EventArgs)
If chkComida.Checked Then
DVHorarioComida.Visible = True
Else
DVHorarioComida.Visible = False
End If
UpAddTurno.Update()
End Sub
End Class End Class

4
Ventas/CatPromociones.aspx
View File

@@ -6,7 +6,7 @@
<asp:UpdatePanel runat="server" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="ImgAddPromocion" PostBackUrl="/Ventas/Promociones.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i> Registrar Nueva Promoción</asp:LinkButton> <asp:LinkButton ID="ImgAddPromocion" PostBackUrl="/Ventas/Promociones.aspx" CommandArgument="-1" runat="server"><i class="fa fa-plus-circle"></i>Nueva Promoción</asp:LinkButton>
</li> </li>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
@@ -57,7 +57,7 @@
<asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" runat="server" AutoGenerateColumns="False" GridLines="None"> <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover" runat="server" AutoGenerateColumns="False" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Promoción" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>

14
Ventas/ClientesAbonar.aspx
View File

@@ -541,17 +541,23 @@
<%--26--%> <%--26--%>
<asp:TemplateField Visible="false"> <asp:TemplateField Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtLiqColT" Width="55px" runat="server" Font-Bold="true" Style="text-align: right;" onkeypress="return disablekeys();"></asp:TextBox> <asp:TextBox ID="TxtLiqCol10" Width="55px" runat="server" Style="text-align: right;"></asp:TextBox>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--27--%> <%--27--%>
<asp:TemplateField Visible="false">
<ItemTemplate>
<asp:TextBox ID="TxtLiqColT" Width="55px" runat="server" Font-Bold="true" Style="text-align: right;" onkeypress="return disablekeys();"></asp:TextBox>
</ItemTemplate>
</asp:TemplateField>
<%--28--%>
<asp:TemplateField Visible="false" HeaderText="Anticipo" ItemStyle-Width="120px"> <asp:TemplateField Visible="false" HeaderText="Anticipo" ItemStyle-Width="120px">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtAmort" Width="50px" runat="server" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtAmort" Width="50px" runat="server" Style="text-align: right;"></asp:TextBox>
<asp:DropDownList ID="DdlAnti" runat="server" Width="40px" DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList> <asp:DropDownList ID="DdlAnti" runat="server" Width="40px" DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--28--%> <%--29--%>
<asp:TemplateField Visible="false" HeaderText="Anticipo2" ItemStyle-Width="120px"> <asp:TemplateField Visible="false" HeaderText="Anticipo2" ItemStyle-Width="120px">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtAmort2" Width="50px" runat="server" Style="text-align: right;"></asp:TextBox> <asp:TextBox ID="TxtAmort2" Width="50px" runat="server" Style="text-align: right;"></asp:TextBox>
@@ -559,7 +565,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--29--%> <%--30--%>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate>Auxiliar</HeaderTemplate> <HeaderTemplate>Auxiliar</HeaderTemplate>
<ItemTemplate> <ItemTemplate>
@@ -567,7 +573,7 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<%--30--%> <%--31--%>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate> <HeaderTemplate>
Comp<br> Comp<br>

17
Ventas/ClientesAbonar.aspx.vb
View File

@@ -408,7 +408,8 @@ Partial Class Ventas_ClientesAbonar
GvCxC.Columns(23).HeaderText = "Aduana<br/>USA" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) GvCxC.Columns(23).HeaderText = "Aduana<br/>USA" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12)
GvCxC.Columns(24).HeaderText = "Material<br/>Empaque" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) GvCxC.Columns(24).HeaderText = "Material<br/>Empaque" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12)
GvCxC.Columns(25).HeaderText = "Semilla" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12) GvCxC.Columns(25).HeaderText = "Semilla" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12)
GvCxC.Columns(26).HeaderText = "Total<br/>Gastos" GvCxC.Columns(26).HeaderText = "Fletes" 'GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacionCol7).FiltroPrimeroValor("Clasificacion").Substring(0, 12)
GvCxC.Columns(27).HeaderText = "Total<br/>Gastos"
DvLiquidacion1.Visible = True DvLiquidacion1.Visible = True
DvLiquidacion2.Visible = True DvLiquidacion2.Visible = True
@@ -565,6 +566,7 @@ Partial Class Ventas_ClientesAbonar
e.Row.FCTextBox("TxtLiqCol7").Visible = False e.Row.FCTextBox("TxtLiqCol7").Visible = False
e.Row.FCTextBox("TxtLiqCol8").Visible = False e.Row.FCTextBox("TxtLiqCol8").Visible = False
e.Row.FCTextBox("TxtLiqCol9").Visible = False e.Row.FCTextBox("TxtLiqCol9").Visible = False
e.Row.FCTextBox("TxtLiqCol10").Visible = False
e.Row.FCTextBox("TxtLiqColT").Visible = False e.Row.FCTextBox("TxtLiqColT").Visible = False
e.Row.FCTextBox("TxtAmort").Visible = False e.Row.FCTextBox("TxtAmort").Visible = False
e.Row.FCTextBox("TxtAmort2").Visible = False e.Row.FCTextBox("TxtAmort2").Visible = False
@@ -655,6 +657,7 @@ Partial Class Ventas_ClientesAbonar
e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}")
e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}")
e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}")
e.Row.FCTextBox("TxtLiqCol10").Attributes.Add("class", $"ClsSelLiq ClsSelLiqVenta{e.Row.DBCampo("CveVenta")}")
e.Row.FCTextBox("TxtLiqColT").Attributes.Add("class", $"ClsSelLiqVentaTotal{e.Row.DBCampo("CveVenta")}") e.Row.FCTextBox("TxtLiqColT").Attributes.Add("class", $"ClsSelLiqVentaTotal{e.Row.DBCampo("CveVenta")}")
e.Row.FCTextBox("TxtAmort").Attributes.Add("class", $"ClsSelLiqAnt") e.Row.FCTextBox("TxtAmort").Attributes.Add("class", $"ClsSelLiqAnt")
@@ -669,6 +672,7 @@ Partial Class Ventas_ClientesAbonar
e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol7").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol8").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtLiqCol9").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
e.Row.FCTextBox("TxtLiqCol10").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
e.Row.FCTextBox("TxtAmort").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtAmort").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
e.Row.FCTextBox("TxtAmort2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})") e.Row.FCTextBox("TxtAmort2").Attributes.Add("onkeyup", $"SumaLiq(this,{e.Row.DBCampo("CveVenta")},{CveMonedaFiltro},{ moneda})")
@@ -1010,7 +1014,7 @@ Partial Class Ventas_ClientesAbonar
End If End If
tipoCambioPago = Pago.TCPago tipoCambioPago = Pago.TCPago
If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * Pago.TCPago If gvr.FCTextBox("TxtComision").Text.ToDecimal <> 0 Then Pago.OtroGastoIngreso = gvr.FCTextBox("TxtComision").Text.ToDecimal * If(Pago.CveMonedaPago = VentaActual.CveMoneda, 1, Pago.TCPago)
'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then 'If gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119, 158) Then
' EsAnticipoEspecial = True ' EsAnticipoEspecial = True
@@ -1038,6 +1042,7 @@ Partial Class Ventas_ClientesAbonar
Dim ImporteLiq7 As Decimal = gvr.FCTextBox("TxtLiqCol7").Text.ToDecimal Dim ImporteLiq7 As Decimal = gvr.FCTextBox("TxtLiqCol7").Text.ToDecimal
Dim ImporteLiq8 As Decimal = gvr.FCTextBox("TxtLiqCol8").Text.ToDecimal Dim ImporteLiq8 As Decimal = gvr.FCTextBox("TxtLiqCol8").Text.ToDecimal
Dim ImporteLiq9 As Decimal = gvr.FCTextBox("TxtLiqCol9").Text.ToDecimal Dim ImporteLiq9 As Decimal = gvr.FCTextBox("TxtLiqCol9").Text.ToDecimal
Dim ImporteLiq10 As Decimal = gvr.FCTextBox("TxtLiqCol10").Text.ToDecimal
Dim CveClasificacionCol1 As Integer = 21514 'comisiones sobre venta Dim CveClasificacionCol1 As Integer = 21514 'comisiones sobre venta
Dim CveClasificacionCol2 As Integer = 21916 ' manejo Dim CveClasificacionCol2 As Integer = 21916 ' manejo
@@ -1048,6 +1053,7 @@ Partial Class Ventas_ClientesAbonar
Dim CveClasificacionCol7 As Integer = 21919 'gastos aduanales usa Dim CveClasificacionCol7 As Integer = 21919 'gastos aduanales usa
Dim CveClasificacionCol8 As Integer = 21211 'material Empaque Dim CveClasificacionCol8 As Integer = 21211 'material Empaque
Dim CveClasificacionCol9 As Integer = 21207 'Semilla Dim CveClasificacionCol9 As Integer = 21207 'Semilla
Dim CveClasificacionCol10 As Integer = 21541 'Flete
Dim CveSubProyectoLiquidacion As Integer = gvr.DataKey("CveSubProyecto").ToEntero Dim CveSubProyectoLiquidacion As Integer = gvr.DataKey("CveSubProyecto").ToEntero
Dim CveConceptoLiquidacion As Integer = 51 Dim CveConceptoLiquidacion As Integer = 51
@@ -1107,6 +1113,12 @@ Partial Class Ventas_ClientesAbonar
End If End If
End If End If
If ImporteLiq10 <> 0 Then
If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteLiq10, gvr.DataKey("SerieFolio"), CveConceptoLiquidacion, ConceptoPartida, Now, -1, -1, CveIE, gvr.DataKey("CveVenta").ToEntero, -1, CveSubProyectoLiquidacion, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=ImporteLiq10 * tipoCambioPago, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=0, CveClasificacion:=CveClasificacionCol10, ImporteME:=If(CveMoneda > 1, ImporteLiq10, 0), CveTipoGasto:=gvr.FCDropDownList("DdlTG").SelectedValue.ToEntero) Then
MsgError = "No se pudo insertar la póliza" : Exit For
End If
End If
If MsgError = "" AndAlso gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero > 0 Then If MsgError = "" AndAlso gvr.FCDropDownList("DdlAnti").SelectedValue.ToEntero > 0 Then
Dim TCP As Decimal = 0 Dim TCP As Decimal = 0
Dim FolioPago As String = " " Dim FolioPago As String = " "
@@ -2899,6 +2911,7 @@ Partial Class Ventas_ClientesAbonar
GvRow.FCTextBox("TxtLiqCol7").Text = Drow("AduanaUSA").ToString GvRow.FCTextBox("TxtLiqCol7").Text = Drow("AduanaUSA").ToString
GvRow.FCTextBox("TxtLiqCol8").Text = Drow("MaterialEmpaque").ToString GvRow.FCTextBox("TxtLiqCol8").Text = Drow("MaterialEmpaque").ToString
GvRow.FCTextBox("TxtLiqCol9").Text = Drow("Semilla").ToString GvRow.FCTextBox("TxtLiqCol9").Text = Drow("Semilla").ToString
GvRow.FCTextBox("TxtLiqCol10").Text = Drow("Fletes").ToString
GvRow.FCDropDownList("DdlAnti").SelectedTextLikeIfExist(Drow("FolioAnticipo1").ToString) GvRow.FCDropDownList("DdlAnti").SelectedTextLikeIfExist(Drow("FolioAnticipo1").ToString)
GvRow.FCTextBox("TxtAmort").Text = Drow("ImporteAnticipo1").ToString GvRow.FCTextBox("TxtAmort").Text = Drow("ImporteAnticipo1").ToString

13
Ventas/PV.aspx.vb
View File

@@ -7369,7 +7369,7 @@ Partial Class PV
End If End If
DdlTipoUso.Items.Clear() DdlTipoUso.Items.Clear()
DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca) DdlTipoUso.DataSource = GlobalDTAcumGarantiasTipoUso(UsuarioActual.CveEmpresa, CveMarca, -1)
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlTipoUso.DataBind() DdlTipoUso.DataBind()
@@ -7425,12 +7425,13 @@ Partial Class PV
CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero CveMarca = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
Dim ImportePagarCliente As Decimal = 0 Dim ImportePagarCliente As Decimal = 0
Dim ObjAcum As New ClsAcumuladores Dim dtt As DataTable = GlobalDTAcumGarantiasTipoUsoMeses(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
If ObjAcum.DtResultados.Rows.Count > 0 Then If dtt IsNot Nothing Then
If dtt.Rows.Count > 0 Then
''obtener siempre y cuando la fecha de inicio sea mayor ''obtener siempre y cuando la fecha de inicio sea mayor
Dim strDate As Date = ($"20{TxtEtiqueta.Text.Substring(2, 2)}/{TxtEtiqueta.Text.Substring(0, 2)}/01").ToDate Dim strDate As Date = ($"20{TxtEtiqueta.Text.Substring(2, 2)}/{TxtEtiqueta.Text.Substring(0, 2)}/01").ToDate
Dim drg As DataRow = ObjAcum.DtResultados.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# >= FechaInicioVigencia ", "FechaInicioVigencia DESC") Dim drg As DataRow = dtt.FiltroPrimero($" #{strDate.ToString("yyyy/MM/dd")}# >= FechaInicioVigencia ", "FechaInicioVigencia DESC")
If drg IsNot Nothing Then If drg IsNot Nothing Then
TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString TxtPorcentajeAjuste.Text = (drg("Valor").ToString.ToDouble / 100).ToString
@@ -7489,7 +7490,7 @@ Partial Class PV
Else Else
Alert("No se tiene especificado tabla de garantía") Alert("No se tiene especificado tabla de garantía")
End If End If
ObjAcum.Dispose()
Else Else
If DdlPSAjuste.SelectedValue.ToEntero <= 0 Then If DdlPSAjuste.SelectedValue.ToEntero <= 0 Then
Alert("Especificar el producto a recibir") Alert("Especificar el producto a recibir")

59
Ventas/Promociones.aspx
View File

@@ -28,7 +28,7 @@
<asp:UpdatePanel ID="UpGenerales" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="UpGenerales" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>
<div class="col-md-6"> <div class="col-md-6">
<div class="portlet light bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
@@ -46,7 +46,7 @@
<div class="row"> <div class="row">
<label class="col-md-2 truncate">Promoción:</label> <label class="col-md-2 truncate">Promoción:</label>
<div class="col-md-10"> <div class="col-md-10">
<asp:TextBox ID="TxtPromocion" Width="90%" runat="server" /> <asp:TextBox ID="TxtPromocion" Width="90%" runat="server" class="input-group input-sm" />
<div> <div>
<asp:RequiredFieldValidator ID="RfvTxtPromocion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPromocion" Display="Dynamic" <asp:RequiredFieldValidator ID="RfvTxtPromocion" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtPromocion" Display="Dynamic"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Promoción''</b> es necesario, por favor ingréselo." ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Promoción''</b> es necesario, por favor ingréselo."
@@ -99,15 +99,14 @@
<%-- <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <%-- <asp:DropDownList ID="DdlSucursal" DataTextField="Sucursal" DataValueField="CveSucursal" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVSucursal" runat="server" ControlToValidate="DdlSucursal" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%> <ajax:ValidatorCalloutExtender ID="VCESucursal" runat="server" HighlightCssClass="vco" TargetControlID="RFVSucursal" Width="300px"></ajax:ValidatorCalloutExtender>--%>
<asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVSubProyecto" runat="server" ControlToValidate="DdlSubProyecto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div>
<div class="row">
<label class="col-md-2 truncate">Vendedor:</label> <label class="col-md-2 truncate">Vendedor:</label>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <asp:DropDownList ID="DdlVendedor" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVVendedor" runat="server" ControlToValidate="DdlVendedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVVendedor" runat="server" ControlToValidate="DdlVendedor" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Vendedor''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEVendedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVVendedor" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEVendedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVVendedor" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
@@ -115,42 +114,31 @@
<div class="row"> <div class="row">
<label class="col-md-2 truncate">Cliente:</label> <label class="col-md-2 truncate">Cliente:</label>
<div class="col-md-4"> <div class="col-md-4">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:350px;"> <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width:100%;">
</ADS:Dropdownlost> </ADS:Dropdownlost>
</div> </div>
</div>
<div class="row">
<label class="col-md-2 truncate">Moneda:</label> <label class="col-md-2 truncate">Moneda:</label>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <asp:DropDownList ID="DdlMoneda" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVMoneda" runat="server" ControlToValidate="DdlMoneda" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Moneda''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row">
<label class="col-md-2 truncate">Estatus:</label>
<div class="col-md-4">
<asp:CheckBox ID="ChkEstatus" runat="server" />
</div>
</div>
<div class="row"> <div class="row">
<label class="col-md-2 truncate">Tipo Aplicacion:</label> <label class="col-md-2 truncate">Tipo Aplicacion:</label>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px"> <asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="100%">
<asp:ListItem Value ="-1">Seleccione</asp:ListItem> <asp:ListItem Value ="-1">-</asp:ListItem>
<asp:ListItem Value ="1">Descuento</asp:ListItem> <asp:ListItem Value ="1">Descuento</asp:ListItem>
<asp:ListItem Value ="2">PU</asp:ListItem> <asp:ListItem Value ="2">PU</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div>
<div class="row">
<label class="col-md-2 truncate">Marca:</label> <label class="col-md-2 truncate">Marca:</label>
<div class="col-md-4"> <div class="col-md-4">
<asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="350px"></asp:DropDownList> <asp:DropDownList ID="DdlMarca" DataTextField="Marca" DataValueField="CveMarca" CssClass="select2me" runat="server" Width="100%"></asp:DropDownList>
</div> </div>
</div> </div>
<div class="row" id="divDistribuidor" runat="server" visible="false"> <div class="row" id="divDistribuidor" runat="server" visible="false">
@@ -163,6 +151,14 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
</div> </div>
<div class="row">
<label class="col-md-2 truncate">Estatus:</label>
<div class="col-md-4">
<asp:CheckBox ID="ChkEstatus" runat="server" />
</div>
</div>
</div> </div>
</div> </div>
</div> </div>
@@ -177,7 +173,7 @@
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server"> <asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
<ContentTemplate> <ContentTemplate>
<div class="col-md-12"> <div class="col-md-12">
<div class="portlet light bordered"> <div class="portlet light xspadding bordered">
<div class="portlet-title"> <div class="portlet-title">
<div class="caption font-green"> <div class="caption font-green">
<i class="icon-pin font-green"></i> <i class="icon-pin font-green"></i>
@@ -361,9 +357,13 @@
<div class="row"> <div class="row">
<label class="col-md-3 truncate">Condiciones:</label> <label class="col-md-3 truncate">Condiciones:</label>
<div class="col-md-9"> <div class="col-md-3">
<asp:CheckBox ID="ChkRestricciones" OnCheckedChanged="ChkRestricciones_CheckedChanged" AutoPostBack="true" CssClass="md-check" Text="" runat="server" /> <asp:CheckBox ID="ChkRestricciones" OnCheckedChanged="ChkRestricciones_CheckedChanged" AutoPostBack="true" CssClass="md-check" Text="" runat="server" />
</div> </div>
<label class="col-md-3 truncate">Incluye Impuestos:</label>
<div class="col-md-3">
<asp:CheckBox ID="ChkIncluyeImpuesto" AutoPostBack="false" CssClass="md-check" Text="" runat="server" />
</div>
</div> </div>
<div id="DivRestricciones" runat="server" visible="false"> <div id="DivRestricciones" runat="server" visible="false">
@@ -427,12 +427,7 @@
</div> </div>
</div> </div>
</div> </div>
<div class="row">
<label class="col-md-3 truncate">Incluye Impuestos:</label>
<div class="col-md-9">
<asp:CheckBox ID="ChkIncluyeImpuesto" AutoPostBack="false" CssClass="md-check" Text="" runat="server" />
</div>
</div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button> <button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button>