Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
Oscar Irigoyen
@@ -4101,7 +4101,7 @@ Public Class ClsPaginas
|
||||
HttpContext.Current.Application(AppNombre) = value
|
||||
End Set
|
||||
End Property
|
||||
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer) As DataTable
|
||||
Property GlobalDTAcumGarantiasMesesTipoUso(CveEmpresa As Integer, CveMarca As Integer, CveTipoUso As Integer, Mes As Integer) As DataTable
|
||||
Get
|
||||
Dim AppNombre As String = $"GlobalDTAcumGarantiasMesesTipoUso-{CveEmpresa}"
|
||||
If Application(AppNombre) Is Nothing Then
|
||||
@@ -4112,6 +4112,9 @@ Public Class ClsPaginas
|
||||
If CveMarca <> -1 Then
|
||||
Dim Str As StringBuilder = New StringBuilder()
|
||||
If CveMarca <> -1 Then Str.AppendFormat("CveMarca = {0}", CveMarca)
|
||||
If CveTipoUso <> -1 Then Str.AppendFormat("CveTipoUso = {0}", CveTipoUso)
|
||||
If Mes <> -1 Then Str.AppendFormat("Mes = {0}", CveTipoUso)
|
||||
|
||||
Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
|
||||
GlobalDTAcumGarantiasMesesTipoUso = Dv.ToTable
|
||||
Dv.Dispose()
|
||||
@@ -8127,6 +8130,7 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/CargaCuentas.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/OI/Tareas.aspx".ToUpper(), -1)
|
||||
PaginaDict.Add("/OI/RepProyectos.aspx".ToUpper(), 907)
|
||||
'PaginaDict.Add("/OI/GraficaGantt.aspx".ToUpper(), 371)
|
||||
PaginaDict.Add("/OI/Proyecto.aspx".ToUpper(), 907)
|
||||
PaginaDict.Add("/OI/Tablero.aspx".ToUpper(), 910)
|
||||
PaginaDict.Add("/OI/TableroDetalle.aspx".ToUpper(), 910)
|
||||
@@ -9179,9 +9183,9 @@ Public Class ClsPaginas
|
||||
PaginaDict.Add("/Ventas/RepProductosServicios.aspx".ToUpper(), 352)
|
||||
PaginaDict.Add("/Ventas/RepProductosServiciosDetalle.aspx".ToUpper(), 352)
|
||||
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/Promociones.aspx".ToUpper(), 124)
|
||||
PaginaDict.Add("/Ventas/Promociones.aspx".ToUpper(), 123)
|
||||
PaginaDict.Add("/Ventas/CatFamiliaSubFamilia.aspx".ToUpper(), 372)
|
||||
PaginaDict.Add("/Ventas/RepComisiones.aspx".ToUpper(), 382)
|
||||
PaginaDict.Add("/Ventas/RepComisionesDetalle.aspx".ToUpper(), 382)
|
||||
|
||||
@@ -2126,24 +2126,24 @@ Public Class ClsVentas
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
DataAdapter("PA_VentasGetRepABT")
|
||||
'Public Function GetRepABT(Ejercicio As Integer, Periodo As Integer) As Boolean
|
||||
' Dim Retorno As Boolean = False
|
||||
' DataAdapter("PA_VentasGetRepABT")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
|
||||
.Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||
End With
|
||||
' With SqlAdapter.SelectCommand.Parameters
|
||||
' .Add("@Ejercicio", SqlDbType.Int).Value = Ejercicio
|
||||
' .Add("@Periodo", SqlDbType.Int).Value = Periodo
|
||||
' End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
End Try
|
||||
' Try
|
||||
' SqlAdapter.Fill(Data)
|
||||
' Retorno = True
|
||||
' Catch ex As Exception
|
||||
' OnError("Ocurrió un error al obtener el Reporte ABT.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
|
||||
' End Try
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
' Return Retorno
|
||||
'End Function
|
||||
|
||||
#Region " PROMOCIONES "
|
||||
Public Function GetPromociones(CvePromocion As Integer, Fecha As String, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer,
|
||||
|
||||
@@ -100,18 +100,18 @@ Public Class E119 : Implements IHttpHandler
|
||||
Try
|
||||
Dim Metodo = If(context.Request("Metodo") = Nothing, "", context.Request("Metodo").ToString())
|
||||
'OBTENER EXISTENCIAS
|
||||
If Metodo = "BASF_POG40" Then
|
||||
context.Response.ContentType = "application/json"
|
||||
Dim Auth = ValidarSolicitud(context)
|
||||
'If Metodo = "BASF_POG40" Then
|
||||
' context.Response.ContentType = "application/json"
|
||||
' Dim Auth = ValidarSolicitud(context)
|
||||
|
||||
If Auth.IsSucces Then
|
||||
retorno = ConsultaDatos(context)
|
||||
Else
|
||||
context.Response.StatusCode = Auth.StatusCode
|
||||
retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
|
||||
End If
|
||||
' If Auth.IsSucces Then
|
||||
' retorno = ConsultaDatos(context)
|
||||
' Else
|
||||
' context.Response.StatusCode = Auth.StatusCode
|
||||
' retorno = JsonConvert.SerializeObject(Auth.ErrorMessage)
|
||||
' End If
|
||||
|
||||
End If
|
||||
'End If
|
||||
|
||||
context.Response.Write(retorno)
|
||||
|
||||
|
||||
@@ -140,9 +140,7 @@
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
<br />
|
||||
|
||||
|
||||
<asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
@@ -150,8 +148,8 @@
|
||||
<div class="col-lg-1">
|
||||
Concepto:
|
||||
</div>
|
||||
<div class="col-lg-2">
|
||||
<asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="100%" MaxLength="100"></asp:TextBox>
|
||||
<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>
|
||||
@@ -162,7 +160,7 @@
|
||||
<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>''Pais''</b> es necesario, por favor ingréselo."
|
||||
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">
|
||||
@@ -187,7 +185,7 @@
|
||||
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
|
||||
<asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio" 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">
|
||||
<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>
|
||||
<asp:TemplateField ItemStyle-Width="5%">
|
||||
<ItemTemplate>
|
||||
|
||||
@@ -2,10 +2,9 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Imports System.Linq
|
||||
|
||||
Partial Class Bancos_RepEgresosSinComprobante
|
||||
Inherits ClsPaginas
|
||||
|
||||
@@ -61,7 +60,7 @@ Partial Class Bancos_RepEgresosSinComprobante
|
||||
DdlProveedores.SelectedValue = "-1"
|
||||
|
||||
CargaDatos()
|
||||
TxtConcepto.Text = "Saldo de Egresos por comprobar"
|
||||
TxtConcepto.Text = "Saldado de Egresos por comprobar"
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
|
||||
|
||||
End If
|
||||
@@ -172,12 +171,12 @@ Partial Class Bancos_RepEgresosSinComprobante
|
||||
GvPersonal.DataBind()
|
||||
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
|
||||
If gr.DataKey("CveIE") <> "" Then
|
||||
gr.FCCheckBox("Chk").Visible = True
|
||||
UPDatos.Update()
|
||||
gr.FCCheckBox("Chk").Visible = True
|
||||
UPDatos.Update()
|
||||
|
||||
End If
|
||||
Next
|
||||
@@ -228,52 +227,44 @@ Partial Class Bancos_RepEgresosSinComprobante
|
||||
If Contador > 0 Then
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
|
||||
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 IdCtaContable As Integer = 0
|
||||
Dim TipoMovtoOtIngresos As Boolean = False
|
||||
Dim TipoMovtoConcepto As Boolean = True
|
||||
Dim CveConceptoContable As Integer
|
||||
Dim ImporteSaldo As Decimal = gr.DataKey("Saldo").ToDecimal
|
||||
|
||||
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
|
||||
Case 48
|
||||
CveConceptoContable = 56
|
||||
End Select
|
||||
Dim ConPrepAplicacion As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, gr.DataKey("CveMoneda").ToEntero, True, gr.DataKey("CveTipoProveedor").ToEntero)
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Folio"), CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
|
||||
gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
|
||||
ImporteMX:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
|
||||
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
|
||||
If gr.DataKey("CveMoneda").ToEntero > 1 Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Folio"), 211, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
|
||||
ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.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)
|
||||
Dim ImporteMN As Decimal = (ImporteSaldo * gr.DataKey("TipoCambio").ToDecimal - ImporteSaldo).RoundSQL
|
||||
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,
|
||||
ImporteME:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
|
||||
MsgError = "Ocurrio un error al saldar el movimiento"
|
||||
Exit For
|
||||
End If
|
||||
ImporteSaldo += ImporteMN
|
||||
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
|
||||
|
||||
If MsgError = "" AndAlso Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
|
||||
MsgError = "Error al validar."
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Alert("No se especificaron")
|
||||
End If
|
||||
@@ -298,8 +289,6 @@ Partial Class Bancos_RepEgresosSinComprobante
|
||||
Alert(MsgError, TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
|
||||
|
||||
ObjConta.Dispose()
|
||||
ObjProveedor.Dispose()
|
||||
End Sub
|
||||
|
||||
@@ -6615,112 +6615,112 @@ Partial Class Compras_Compras
|
||||
|
||||
|
||||
If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
|
||||
RegistroCuentaPuente = True
|
||||
Dim ImporteTransito As Decimal = 0
|
||||
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
|
||||
If DdlTipoCompra.SelectedValue = "10" AndAlso ConceptoContabilizacionNC = 68 Then
|
||||
SeContabiliza = False
|
||||
IdCtaContable = 0
|
||||
End If
|
||||
'se lleva saldo de Mercancía en tránsito
|
||||
If ChkNCInvNC.Checked Then
|
||||
For Each Gvr As GridViewRow In GVNCInv.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
Dim diferenciaTransito As Decimal = 0
|
||||
For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
Dim importeMNTemp As Decimal = 0
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL
|
||||
ImporteTransito += importeMNTemp
|
||||
'se registra por cada compra relacionada
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
'la diferencia se va aplicar sobre los
|
||||
|
||||
'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL
|
||||
|
||||
If diferenciaTransito <> 0 Then
|
||||
Dim tCveCon As Integer = 65
|
||||
If diferenciaTransito < 0 Then
|
||||
tCveCon = 64
|
||||
End If
|
||||
diferenciaTransito = Math.Abs(diferenciaTransito)
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(tCveCon = 64, True, False), diferenciaTransito, Referencia, tCveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=diferenciaTransito, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=1, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion
|
||||
If TotalRealDevolucion <> 0 Then
|
||||
|
||||
If Math.Abs(DiferenciaDevolucion) > 0 Then
|
||||
Dim tMovto As Boolean = False
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
tMovto = True
|
||||
Else
|
||||
DiferenciaDevolucion = -DiferenciaDevolucion
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion.RoundSQL(), Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=(TotalRealDevolucion * tipoCambioActual).RoundSQL(), ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion).RoundSQL(), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
RegistroCuentaPuente = True
|
||||
Dim ImporteTransito As Decimal = 0
|
||||
'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
|
||||
If DdlTipoCompra.SelectedValue = "10" AndAlso ConceptoContabilizacionNC = 68 Then
|
||||
SeContabiliza = False
|
||||
IdCtaContable = 0
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.Contiene("11") Then 'clasificación de Bonificación, no se incluirá en el neteo
|
||||
ContienePSNeteoBonif = True
|
||||
Exit For
|
||||
'se lleva saldo de Mercancía en tránsito
|
||||
If ChkNCInvNC.Checked Then
|
||||
For Each Gvr As GridViewRow In GVNCInv.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
If ContienePSNeteoBonif Then
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = 20319 ").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
|
||||
Dim CveSubProyecto259 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
|
||||
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
|
||||
Dim diferenciaTransito As Decimal = 0
|
||||
For Each Gvr As GridViewRow In GVNCInvAlmacen.Rows
|
||||
If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
|
||||
Dim importeMNTemp As Decimal = 0
|
||||
If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
|
||||
ErrorMovInv = True
|
||||
Exit For
|
||||
End If
|
||||
Dim DifTC As Decimal = tipoCambioActual - Gvr.DataKey("TipoCambio").ToDecimal
|
||||
'diferenciaTransito = DifTC * (Gvr.DataKey("IVA").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
'diferenciaTransito += DifTC * (Gvr.DataKey("IEPSPS").ToDecimal / Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal)
|
||||
importeMNTemp = (Gvr.FCTextBox("TxtPU").Text.ToDecimal * Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDecimal * Gvr.DataKey("TipoCambio").ToDecimal).RoundSQL
|
||||
ImporteTransito += importeMNTemp
|
||||
'se registra por cada compra relacionada
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMNTemp, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMNTemp, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=Gvr.DataKey("TipoCambio").ToDecimal, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
End If
|
||||
Next
|
||||
'la diferencia se va aplicar sobre los
|
||||
|
||||
'Dim diferenciaTransito As Decimal = ImporteTransito - importeMN.RoundSQL
|
||||
|
||||
If diferenciaTransito <> 0 Then
|
||||
Dim tCveCon As Integer = 65
|
||||
If diferenciaTransito < 0 Then
|
||||
tCveCon = 64
|
||||
End If
|
||||
diferenciaTransito = Math.Abs(diferenciaTransito)
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, If(tCveCon = 64, True, False), diferenciaTransito, Referencia, tCveCon, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=diferenciaTransito, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=1, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion
|
||||
If TotalRealDevolucion <> 0 Then
|
||||
|
||||
If Math.Abs(DiferenciaDevolucion) > 0 Then
|
||||
Dim tMovto As Boolean = False
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
tMovto = True
|
||||
Else
|
||||
DiferenciaDevolucion = -DiferenciaDevolucion
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tMovto, DiferenciaDevolucion.RoundSQL(), Referencia, 69, Concepto, FechaMovimiento, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=DiferenciaDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, DiferenciaDevolucion), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=tCveSubProyecto, CveClasificacion:=tCveClasif) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion.RoundSQL(), Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=(TotalRealDevolucion * tipoCambioActual).RoundSQL(), ImporteME:=If(tipoCambioActual = 1, 0, TotalRealDevolucion).RoundSQL(), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento.RoundSQL, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, CveClasificacion:=tCveClasif, CveSubProyecto:=tCveSubProyecto, Contabilizable:=SeContabiliza) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'ChkNCInvNC
|
||||
If UsuarioActual.CveEmpresa.Contiene(119) Then
|
||||
Dim ContienePSNeteoBonif As Boolean = False
|
||||
For Each Dr As DataRow In TmpDT.Rows
|
||||
If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Or DdlTipoCompra.SelectedValue.Contiene("11") Then 'clasificación de Bonificación, no se incluirá en el neteo
|
||||
ContienePSNeteoBonif = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
|
||||
If ContienePSNeteoBonif Then
|
||||
importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = 20319 ").ToString.ToDecimal
|
||||
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
|
||||
Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
|
||||
Dim CveSubProyecto259 As Integer = TmpDT.MAX("CveSubProyecto").ToEntero
|
||||
|
||||
If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto259) Then
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
Else
|
||||
ErrorPrepoliza = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
'ChkNCInvNC
|
||||
|
||||
If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
|
||||
'GASTO
|
||||
If UsuarioActual.CveEmpresa = 119 Then
|
||||
DT = TmpDT
|
||||
|
||||
@@ -78,7 +78,7 @@
|
||||
<asp:UpdatePanel ID="UpGenerales" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<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="tools">
|
||||
<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 id="tbEncabezado" runat="server" class="rowpadding" visible="true">
|
||||
<div class="row" style="display: none;">
|
||||
|
||||
<label class="col-md-1 truncate" style="width: 110px">Movimiento:</label>
|
||||
<div class="col-md-2">
|
||||
<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:RadioButtonList>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<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">
|
||||
@@ -192,9 +190,9 @@
|
||||
</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">
|
||||
<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" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -3089,7 +3089,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
End If
|
||||
|
||||
DdlTipoUso.Items.Clear()
|
||||
DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
|
||||
DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca, -1, -1)
|
||||
DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
DdlTipoUso.DataBind()
|
||||
|
||||
@@ -3246,10 +3246,11 @@ Partial Class Inventarios_RecepcionUsados
|
||||
|
||||
CveMarca = GlobalDTPS(UsuarioActual.CveEmpresa, DdlPSAjuste.SelectedValue.ToEntero).FiltroPrimeroValor("CveMarca", "").ToEntero
|
||||
|
||||
Dim ObjAcum As New ClsAcumuladores
|
||||
If ObjAcum.GarantiasMesesGet(-1, UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero) Then
|
||||
If ObjAcum.DtResultados.Rows.Count > 0 Then
|
||||
TxtPorcentajeAjuste.Text = (ObjAcum.DtResultados.Rows(0)("Valor").ToString.ToDouble / 100.0).FormatoNumero
|
||||
Dim dtt As DataTable = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca, DdlTipoUso.SelectedValue.ToEntero, TxtMesesUso.Text.ToEntero)
|
||||
|
||||
If dtt IsNot Nothing Then
|
||||
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
|
||||
|
||||
@@ -3293,7 +3294,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
TxtImporteAjuste.Text = "0.00"
|
||||
End If
|
||||
End If
|
||||
ObjAcum.Dispose()
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
OnError("Ocurrió un error al recalcular el costo", ex)
|
||||
|
||||
@@ -223,6 +223,20 @@ Partial Class LogIn
|
||||
If Usuario IsNot Nothing 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)
|
||||
ADSSessionConfig.sessionUser.MultipleEmpresa = True
|
||||
|
||||
|
||||
@@ -211,7 +211,7 @@
|
||||
<asp:Label runat="server" ID="LblPrioridad" Text="Prioridad:" class="col-md-2" /></b>
|
||||
<div class="col-md-4" id="DivPrioridad" runat="server">
|
||||
<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="Media" Value="2"></asp:ListItem>
|
||||
<asp:ListItem Text="Baja" Value="3"></asp:ListItem>
|
||||
@@ -237,7 +237,7 @@
|
||||
<div class="row" style="padding-bottom: 0.6em;">
|
||||
<label class="col-md-2">Descripción:</label>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEDescrip" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVDescrip" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
@@ -246,7 +246,7 @@
|
||||
<div class="row" style="padding-bottom: 0.6em;">
|
||||
<label class="col-md-2">Justificación:</label>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEJustificacion" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVJustif" Width="300px">
|
||||
</ajax:ValidatorCalloutExtender>
|
||||
|
||||
@@ -5309,7 +5309,7 @@ Partial Class OC_OC
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(108) = "1" Then
|
||||
DivVendedor.Visible = True
|
||||
option72.Visible = True
|
||||
'option72.Visible = True
|
||||
DivFolioAdicional.Visible = True
|
||||
generarAnticipo.Visible = True
|
||||
'Ddlcliente.DataSource = GlobalDTCliente(CveEmpresaActual)
|
||||
|
||||
@@ -6,7 +6,7 @@
|
||||
<asp:UpdatePanel runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<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>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -28,7 +28,7 @@
|
||||
<asp:UpdatePanel ID="UpGenerales" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-6">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
@@ -46,7 +46,7 @@
|
||||
<div class="row">
|
||||
<label class="col-md-2 truncate">Promoción:</label>
|
||||
<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>
|
||||
<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."
|
||||
@@ -99,15 +99,14 @@
|
||||
<%-- <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>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCESubProyecto" runat="server" HighlightCssClass="vco" TargetControlID="RFVSubProyecto" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-2 truncate">Vendedor:</label>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEVendedor" runat="server" HighlightCssClass="vco" TargetControlID="RFVVendedor" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
@@ -115,42 +114,31 @@
|
||||
<div class="row">
|
||||
<label class="col-md-2 truncate">Cliente:</label>
|
||||
<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>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-2 truncate">Moneda:</label>
|
||||
<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>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEMoneda" runat="server" HighlightCssClass="vco" TargetControlID="RFVMoneda" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</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">
|
||||
<label class="col-md-2 truncate">Tipo Aplicacion:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="350px">
|
||||
<asp:ListItem Value ="-1">Seleccione</asp:ListItem>
|
||||
<asp:DropDownList ID="DdlTipoAplicacion" DataTextField="Moneda" DataValueField="CveMoneda" CssClass="select2me" runat="server" Width="100%">
|
||||
<asp:ListItem Value ="-1">-</asp:ListItem>
|
||||
<asp:ListItem Value ="1">Descuento</asp:ListItem>
|
||||
<asp:ListItem Value ="2">PU</asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<label class="col-md-2 truncate">Marca:</label>
|
||||
<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 class="row" id="divDistribuidor" runat="server" visible="false">
|
||||
@@ -163,6 +151,14 @@
|
||||
</asp:DropDownList>
|
||||
</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>
|
||||
@@ -177,7 +173,7 @@
|
||||
<asp:UpdatePanel ID="UpDatos" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light bordered">
|
||||
<div class="portlet light xspadding bordered">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
@@ -361,9 +357,13 @@
|
||||
|
||||
<div class="row">
|
||||
<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" />
|
||||
</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 id="DivRestricciones" runat="server" visible="false">
|
||||
|
||||
@@ -427,12 +427,7 @@
|
||||
</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 class="modal-footer">
|
||||
<button type="button" data-dismiss="modal" class="btn btn-">Cerrar</button>
|
||||
|
||||
Reference in New Issue
Block a user