Merge branch 'master' of http://192.168.10.111:8383/SIG
This commit is contained in:
@@ -2394,10 +2394,10 @@ Partial Class AF_AF
|
||||
End If
|
||||
NewName = String.Format("{0}{1}", NewName, IO.Path.GetExtension(DirectorioOld.ToString()))
|
||||
DirectorioNew.Append(NewName)
|
||||
If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario) Then
|
||||
If ObjActivosFijos.AddActivosFijosImagenes(CveActivoFijo, String.Format("AF/{0}", NewName), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
|
||||
CargarArchivo()
|
||||
My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString)
|
||||
Else
|
||||
My.Computer.FileSystem.MoveFile(DirectorioOld.ToString, DirectorioNew.ToString)
|
||||
|
||||
End If
|
||||
Retorno = True
|
||||
Catch ex As Exception
|
||||
@@ -2409,8 +2409,6 @@ Partial Class AF_AF
|
||||
UpUpFotos.Update()
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnEliminarFoto_Click(sender As Object, e As System.EventArgs)
|
||||
|
||||
@@ -698,20 +698,21 @@ Public Class ClsAF
|
||||
|
||||
Return Retorno
|
||||
End Function
|
||||
Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
Public Function AddActivosFijosImagenes(CveActivoFijo As Integer, URL As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer
|
||||
Dim Retorno As Integer = 0
|
||||
|
||||
DataAdapter("PA_AF_ActivosFijosImagenesAdd")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
.Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo
|
||||
.Add("@URL", SqlDbType.VarChar).Value = URL
|
||||
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@CveImagenActivoFijo", SqlDbType.Int).Direction = ParameterDirection.Output
|
||||
End With
|
||||
|
||||
Try
|
||||
SqlAdapter.Fill(Data)
|
||||
Retorno = True
|
||||
Retorno = SqlAdapter.SelectCommand.Parameters("@CveImagenActivoFijo").Value.ToString().ToEntero()
|
||||
Catch Ex1 As SqlException
|
||||
If Ex1.Message.Contains("Número: 2627;") Then
|
||||
Alert("Ya existe una Imagen en Fijo Imagenes con el mismo nombre: " & Descripcion & ".", TipoMensaje.MsgAdvertencia)
|
||||
|
||||
@@ -437,19 +437,17 @@ Public Class ClsContabilidad
|
||||
Return Retorno
|
||||
End Function
|
||||
|
||||
Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
|
||||
Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Conta_ClienteAuxiliar")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
|
||||
.Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
|
||||
|
||||
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
|
||||
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
|
||||
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
|
||||
|
||||
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
|
||||
.Add("@Opcion", SqlDbType.Int).Value = Opcion
|
||||
End With
|
||||
|
||||
@@ -1035,18 +1035,8 @@ Public Class ClsInventarios
|
||||
.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
|
||||
.Add("@PedidoContrato", SqlDbType.VarChar).Value = PedidoContrato
|
||||
.Add("@GastoIndirecto", SqlDbType.Money).Value = GastoIndirecto
|
||||
'.Add("@CveChofer", SqlDbType.Int).Value = CveChofer
|
||||
'.Add("@CveCamion", SqlDbType.Int).Value = CveCamion
|
||||
'.Add("@Placa", SqlDbType.VarChar).Value = Placa
|
||||
'.Add("@FechaEntrega", SqlDbType.VarChar).Value = FechaEntrega
|
||||
'.Add("@EspecifUnidad", SqlDbType.VarChar).Value = EspecifUnidad
|
||||
.Add("@ResponsableCarga", SqlDbType.VarChar).Value = ResponsableCarga
|
||||
.Add("@ResponsableRecibio", SqlDbType.VarChar).Value = ResponsableRecibio
|
||||
'.Add("@Identificacion", SqlDbType.VarChar).Value = Identificacion
|
||||
'.Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
|
||||
'.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
|
||||
'.Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
|
||||
'.Add("@Licencia", SqlDbType.VarChar).Value = Licencia
|
||||
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo
|
||||
.Add("@CveOP", SqlDbType.Int).Value = CveOP
|
||||
.Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
|
||||
@@ -1077,7 +1067,6 @@ Public Class ClsInventarios
|
||||
CveVenta As Integer, CveSubProyecto As Integer, CveActivoFijo As Integer, Optional CvePersonal As Integer = -1, Optional Guia As String = "", Optional Observaciones As String = "", Optional Recibio As String = "", Optional TipoCambio As Decimal = -1, Optional CveCliente As Integer = -1, Optional CveProveedor As Integer = -1, Optional Remision As String = "") As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -1118,7 +1107,6 @@ Public Class ClsInventarios
|
||||
Public Function UpdateMovimientoPoliza(IDPoliza As Integer, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosPolizaUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -1140,7 +1128,6 @@ Public Class ClsInventarios
|
||||
Public Function UpdateMovimientoGuia(Guia As String, CveMovimiento As Integer, CveEmpresa As Integer) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosPolizaUpdate")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
@@ -1162,7 +1149,6 @@ Public Class ClsInventarios
|
||||
Public Function MovimientoRemove(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveUsuario As Integer = -1) As Boolean
|
||||
|
||||
Dim Retorno As Boolean = False
|
||||
|
||||
DataAdapter("PA_Inv_MovimientosRemove")
|
||||
|
||||
With SqlAdapter.SelectCommand.Parameters
|
||||
|
||||
@@ -3787,6 +3787,19 @@ Public Class ClsNominas
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
Public Function SolicitudesDetalleSATGet(CveSolicitud As Integer, CveEmpresa As Integer, Estatus As Integer, CveTipoSolicitud As Integer, Optional CveSolicitudDetalle As Integer = -1) As Boolean
|
||||
Dim retorno As Boolean = False
|
||||
DataAdapter("PA_Gral_Sat_SolicitudesDetalleGet")
|
||||
addParameters("@CveSolicitudDetalle", SqlDbType.Int, CveSolicitudDetalle)
|
||||
addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
|
||||
addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
|
||||
addParameters("@Estatus", SqlDbType.Int, Estatus)
|
||||
addParameters("@CveTipoSolicitud", SqlDbType.Int, CveTipoSolicitud)
|
||||
|
||||
retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.")
|
||||
|
||||
Return retorno
|
||||
End Function
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Binary file not shown.
@@ -11632,12 +11632,16 @@ Partial Class Compras_Compras
|
||||
|
||||
If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 Then 'si es negativo, que tome el dato anterior
|
||||
Indice = Indice - 1
|
||||
If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
|
||||
tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
|
||||
Else
|
||||
tPU = 0
|
||||
'VALIDACION ADICIONAL DE OTRO PRODUCTO CON LA MISMA SITUACIÓN
|
||||
If TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU < 0 AndAlso Indice > 0 Then 'si es negativo, que tome el dato anterior
|
||||
Indice = Indice - 1
|
||||
End If
|
||||
End If
|
||||
If TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal > 0 Then
|
||||
tPU = ImporteAjuste / TmpDT.Rows(Indice)("Cantidad").ToString.ToDecimal
|
||||
Else
|
||||
tPU = 0
|
||||
End If
|
||||
|
||||
TmpDT.Rows(Indice)("PU") = TmpDT.Rows(Indice)("PU").ToString.ToDecimal + tPU
|
||||
TmpDT.Rows(Indice)("Total") = TmpDT.Rows(Indice)("Total").ToString.ToDecimal + ImporteAjuste
|
||||
|
||||
@@ -219,6 +219,12 @@ Partial Class PopUpAuxiliar
|
||||
Else
|
||||
e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}|{3}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompraAmortizacion"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
|
||||
End If
|
||||
ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("37") Then 'desaplicar Deudores Diversos- Compra
|
||||
|
||||
e.Row.FCLinkButton("LnkDesAplicar").Visible = True
|
||||
e.Row.FCLinkButton("LnkDesAplicar").CommandName = "DesAplicarDeudorDiversoCompra"
|
||||
e.Row.FCLinkButton("imgD").Visible = False
|
||||
e.Row.FCLinkButton("LnkDesAplicar").CommandArgument = String.Format("{0}|{1}|{2}", e.Row.DBCampo("CvePrePoliza"), e.Row.DBCampo("CveCompra"), e.Row.DBCampo("CveIE"))
|
||||
|
||||
ElseIf e.Row.DBCampo("CveConceptoContable").Contiene("21") Then 'desaplicar anticipo de compra
|
||||
|
||||
@@ -552,5 +558,40 @@ Partial Class PopUpAuxiliar
|
||||
|
||||
End If
|
||||
|
||||
If e.CommandName = "DesAplicarDeudorDiversoCompra" Then
|
||||
|
||||
Dim CvePrePoliza, CveCompra, CveIE As Integer
|
||||
Dim TieneError As Boolean = False
|
||||
|
||||
Dim St As String() = e.CommandArgument.ToString.Split("|"c)
|
||||
If St.Length > 0 Then
|
||||
CvePrePoliza = St(0).ToEntero
|
||||
CveCompra = St(1).ToEntero
|
||||
CveIE = St(2).ToEntero
|
||||
End If
|
||||
|
||||
If CvePrePoliza > 0 Then
|
||||
Dim Conta As New ClsContabilidad()
|
||||
Conta.IniciaTransacSQL()
|
||||
|
||||
If Not Conta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Not TieneError AndAlso Not Conta.DesAplicarPago(CvePrePoliza, 37, CveCompra, CveIE) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
Conta.Commit()
|
||||
Alert("Pago Desaplicado.", TipoMensaje.ToastInformacion)
|
||||
Else
|
||||
Conta.RollBack()
|
||||
Alert("Pago no fue desaplicado.", TipoMensaje.ToastError)
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -1799,6 +1799,21 @@ Partial Class General_SaldosIniciales
|
||||
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero()
|
||||
Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
|
||||
|
||||
If UsuarioActual.CveEmpresa = 189 Then
|
||||
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
|
||||
Dim SubTotal = Row("SubTotal").ToString().ToDecimal.RoundSQL
|
||||
Dim IVA = Row("IVA").ToString().ToDecimal.RoundSQL
|
||||
Dim Total = Row("Total").ToString().ToDecimal.RoundSQL
|
||||
Dim Cantidad = Row("Cantidad").ToString.ToDecimal
|
||||
Dim PU = Row("PU").ToString.ToDecimal
|
||||
|
||||
If Total - SubTotal - IVA <> 0 Then
|
||||
Row("PU") = (Total - IVA) / Cantidad
|
||||
Row("SubTotal") = Row("PU").ToString.ToDecimal * Cantidad
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Dim CountRow As Integer = 1
|
||||
Dim LastSerieFolioTipoDoc As String = String.Empty
|
||||
Dim EsDetalle As Boolean = False
|
||||
|
||||
@@ -1566,14 +1566,14 @@
|
||||
<button type="button" class="close" data-dismiss="modal">×</button>
|
||||
<h4 class="modal-title">Cargar Conceptos</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Descargar Plantilla </span>
|
||||
<span class="caption-subject bold uppercase">Carga por Plantilla </span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
@@ -1583,38 +1583,7 @@
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body formnombottom">
|
||||
<h4>Paso 1 : Descargar Plantilla</h4>
|
||||
<br />
|
||||
<div align="center">
|
||||
<asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
|
||||
</div>
|
||||
<br />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%;">
|
||||
<div class="portlet-title">
|
||||
<div class="caption font-green">
|
||||
<i class="icon-pin font-green"></i>
|
||||
<span class="caption-subject bold uppercase">Cargar Plantilla </span>
|
||||
</div>
|
||||
<div class="actions">
|
||||
<div class="btn-group">
|
||||
</div>
|
||||
</div>
|
||||
<div class="tools">
|
||||
<a href="javascript:;" class="collapse"></a>
|
||||
</div>
|
||||
</div>
|
||||
<div class="portlet-body formnombottom">
|
||||
<h4>Paso 2: Cargar Plantilla</h4>
|
||||
<div class="portlet-body formnombottom">
|
||||
<br />
|
||||
<%-- <div class="row">
|
||||
<div class="col-md-12" align="center">
|
||||
@@ -1633,9 +1602,10 @@
|
||||
</div>
|
||||
<div class="modal-footer">
|
||||
<div class="row">
|
||||
<%-- <div class="col-md-2" style="text-align: left">
|
||||
</div>--%>
|
||||
<div class="col-md-12" style="text-align: center">
|
||||
<div class="col-md-2" style="text-align: left">
|
||||
<asp:LinkButton ID="LbDescargarExcelConceptos" runat="server" CssClass="btn btn-warning" Text="Descargar Plantilla" />
|
||||
</div>
|
||||
<div class="col-md-10" style="text-align: center">
|
||||
<asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Procesar"></asp:Button>
|
||||
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
|
||||
</div>
|
||||
|
||||
@@ -3788,17 +3788,20 @@ Partial Class Inventarios_RecepcionAlmacen
|
||||
|
||||
Private Sub RenombrarBitacoras()
|
||||
Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss")
|
||||
Dim fib As New FileInfo(ArchivoBitacora)
|
||||
Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
|
||||
|
||||
If fib.Exists() Then
|
||||
Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml")
|
||||
fib.MoveTo(nuevoNombre)
|
||||
If ArchivoBitacora <> "" Then
|
||||
Dim fib As New FileInfo(ArchivoBitacora)
|
||||
If fib.Exists() Then
|
||||
Dim nuevoNombre As String = Path.Combine(fib.DirectoryName, Path.GetFileNameWithoutExtension(fib.Name) & "_" & fechaActual & ".xml")
|
||||
fib.MoveTo(nuevoNombre)
|
||||
End If
|
||||
End If
|
||||
|
||||
If fibd.Exists() Then
|
||||
Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
|
||||
fibd.MoveTo(nuevoNombreDetalle)
|
||||
If ArchivoBitacoraDetalle <> "" Then
|
||||
Dim fibd As New FileInfo(ArchivoBitacoraDetalle)
|
||||
If fibd.Exists() Then
|
||||
Dim nuevoNombreDetalle As String = Path.Combine(fibd.DirectoryName, Path.GetFileNameWithoutExtension(fibd.Name) & "_" & fechaActual & ".xml")
|
||||
fibd.MoveTo(nuevoNombreDetalle)
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -81,6 +81,15 @@ Partial Class OC_OC
|
||||
ViewState("CveOrdenCompra") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property InventarioPrePoliza176 As Integer
|
||||
Get
|
||||
InventarioPrePoliza176 = ViewState("InventarioPrePoliza176").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("InventarioPrePoliza176") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveIEAnticipo As Integer
|
||||
Get
|
||||
CveIEAnticipo = ViewState("CveIEAnticipo").ToString.ToEntero
|
||||
@@ -631,11 +640,6 @@ Partial Class OC_OC
|
||||
End Set
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
@@ -644,6 +648,7 @@ Partial Class OC_OC
|
||||
GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa) = Nothing
|
||||
CargaDatosAgregarPS()
|
||||
CveProveedorOriginal = -1
|
||||
InventarioPrePoliza176 = 0
|
||||
'EnviarNotificacionWhatsApp("526621430964", "hola34 https:/sig.adssistemas.mx/ventas/ventas.aspx")
|
||||
'EnviarNotificacionWhatsApp("526621430964", "", "hello_world")
|
||||
'MODALIDAD MULTIEMPRESA
|
||||
@@ -1034,7 +1039,7 @@ Partial Class OC_OC
|
||||
|
||||
Private Sub ValidaCancelacionConAlamcen()
|
||||
|
||||
If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
|
||||
If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And InventarioPrePoliza176 > 0 Then
|
||||
'BtnCancelarPrevio.Attributes.Remove("onclick")
|
||||
BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
|
||||
BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
|
||||
@@ -7405,16 +7410,17 @@ Partial Class OC_OC
|
||||
GVInv.DataSource = ObjInventarios.DtResultados
|
||||
If ObjInventarios.DtResultados.Rows.Count > 0 Then
|
||||
DdlMoneda.Enabled = False
|
||||
InventarioPrePoliza176 = ObjInventarios.DtResultados.MAX("PrePoliza176").ToEntero
|
||||
Dim TipoEstatusTerminado As String = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoTermino", String.Format("CveEstatus = {0}", CboE.SelectedValue))
|
||||
If TipoEstatusTerminado = "3" Then
|
||||
LnkCambiarMoneda.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
GVInv.DataBind()
|
||||
End If
|
||||
|
||||
ObjInventarios.Dispose()
|
||||
GVInv.DataBind()
|
||||
UpAlmacen.Update()
|
||||
UpAcciones.Update()
|
||||
End If
|
||||
|
||||
@@ -824,14 +824,10 @@ Partial Class OI_PopUpAgenda
|
||||
|
||||
If File.Exists(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension) Then
|
||||
Dim ObjActivosFijos As New ClsAF
|
||||
If ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario) Then
|
||||
'CargarArchivo()
|
||||
Else
|
||||
If Not ObjActivosFijos.AddActivosFijosImagenes(CveEvento, CveEvento & "_" & ArchConsecutivo & Extension, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
|
||||
File.Delete(UsuarioActual.Empresa.Ruta & "Eventos\Archivos" & CveEvento & "_" & ArchConsecutivo & Extension)
|
||||
End If
|
||||
|
||||
ObjActivosFijos.Dispose()
|
||||
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1351,7 +1351,7 @@
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright" runat="server">
|
||||
<asp:TextBox ID="TxtObservacionModal" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="250"></asp:TextBox>
|
||||
<label for="<%= TxtFolioRemisionModal.ClientID.ToString()%>">Observaciones:</label>
|
||||
<label for="<%= TxtObservacionModal.ClientID.ToString()%>">Observaciones:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -3015,7 +3015,7 @@ Partial Class OS_OrdenesServicios
|
||||
TxtEpisodioModal.Text = TxtIdentificadorCliente.Text
|
||||
TxtFolioRemisionModal.Text = TxtFolioAdicional.Text
|
||||
|
||||
If DdlTipoVenta.SelectedValue.ToEntero = 5 Then
|
||||
If DdlTipoVenta.SelectedValue = "5" Then
|
||||
DvTxtFolioRemisionModal.Visible = False
|
||||
Else
|
||||
DvTxtFolioRemisionModal.Visible = True
|
||||
@@ -3082,7 +3082,7 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
End If
|
||||
|
||||
If TotalSeleccionado > 0 AndAlso Not TxtFolioRemisionModal.Text.Trim.Length > 0 Then
|
||||
If TotalSeleccionado > 0 AndAlso DvTxtFolioRemisionModal.Visible AndAlso TxtFolioRemisionModal.Text.Trim.Length = 0 Then
|
||||
Alert("El campo Folio es requerido por favor ingréselo.", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
@@ -3091,7 +3091,6 @@ Partial Class OS_OrdenesServicios
|
||||
|
||||
Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero
|
||||
Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero
|
||||
|
||||
Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero
|
||||
Dim CveVentaRemisionGenerada As Integer = -1
|
||||
|
||||
@@ -3104,7 +3103,7 @@ Partial Class OS_OrdenesServicios
|
||||
If DdlTipoVenta.SelectedValue = "5" Then 'Consignación - Uso Material
|
||||
'genera una salida de almacen.
|
||||
Dim Fecha As DateTime = ClsPaginas.NowADS()
|
||||
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVenta, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
|
||||
Dim CveMovimientoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenActual, 8, CveMoneda, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaPedido, CveSubProyectoPedido, -1, CveOS:=CveOS, CveAlmacenDestino:=CveAlmacenDestino, Modulo:="OS/MatUtilConsig")
|
||||
Dim Folio As Integer = ObjInventario.Folio
|
||||
|
||||
If CveMovimientoSalida > 0 Then
|
||||
@@ -3155,7 +3154,7 @@ Partial Class OS_OrdenesServicios
|
||||
End If
|
||||
'asigno la cveventa, como concluido
|
||||
If ProcesoOK Then
|
||||
If Not ObjOS.UpdateVentaOS(CveVenta, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
|
||||
If Not ObjOS.UpdateVentaOS(CveVentaPedido, CveOS, UsuarioActual.CveEmpresa, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim, FolioAdicional:=TxtFolioRemisionModal.Text.Trim) Then
|
||||
ProcesoOK = False
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -909,7 +909,7 @@ Partial Class Sistemas_UsuarioDetalle
|
||||
|
||||
If Row.DataKey("CveProcesoAcceso") <> "" Then
|
||||
'checo si el permiso que tiene es del rol, de ser así, nada más actualizo los denegados
|
||||
If Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked OrElse Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False Then
|
||||
If (Row.DataKey("Permitir") = "" AndAlso Row.FCCheckBox("ChkD").Checked) OrElse (Row.DataKey("Permitir") = "0" AndAlso Row.FCCheckBox("ChkD").Checked = False) Then
|
||||
If Not ObjUsuarios.UpdateUsuariosProcesos(CveUsuario, Row.DataKey("CveProceso").ToEntero, Not Row.FCCheckBox("ChkD").Checked, UsuarioActual.CveUsuario) Then
|
||||
TieneError = True
|
||||
Exit For
|
||||
|
||||
@@ -46,8 +46,6 @@
|
||||
<div class="col-md-4">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-4">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
@@ -79,14 +77,11 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
</div>
|
||||
|
||||
</div>
|
||||
<br />
|
||||
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-4">
|
||||
@@ -161,12 +156,8 @@
|
||||
<asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12" style="text-align: right!important">
|
||||
<asp:LinkButton runat="server" ID="LnkAgregarMedicoClienteSucursal" data-toggle="tooltip" data-placement="right" title="Agregar" CssClass="btn btn-circle btn-default" OnClick="LnkAgregarMedicoClienteSucursal_Click"
|
||||
@@ -176,7 +167,6 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
|
||||
<asp:GridView ID="GvMedicosClientesSucursales" runat="server" AutoGenerateColumns="False"
|
||||
DataKeyNames="CveMedicoClienteSucursal,CveMedico,CveCliente,CveClienteSucursal,DiasAtencion,Horario,Consultorio,Torre,AsistenteNombre"
|
||||
EmptyDataText="No se encontraron Registros" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
|
||||
@@ -186,8 +176,6 @@
|
||||
<asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
<asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
|
||||
<ItemTemplate>
|
||||
<asp:Literal ID="LtlDiasAtención" runat="server" Text='<%# Eval("DiasAtencion") %>'></asp:Literal>
|
||||
@@ -237,28 +225,18 @@
|
||||
<asp:LinkButton ID="LnkEliminarClienteSucursal" OnClick="LnkEliminarClienteSucursal_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
|
||||
</Columns>
|
||||
</asp:GridView>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright" id="DVEstatus" runat="server">
|
||||
<asp:CheckBox ID="ChkEstatus" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
|
||||
<label for="<%= ChkEstatus.ClientID.ToString()%>">Activo:</label>
|
||||
</div>
|
||||
|
||||
|
||||
<div class="row" runat="server" id="DVUsuarioFechaIng" visible="false">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
@@ -273,12 +251,7 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarMedico" />
|
||||
<button id="BtnCancelarMedico" runat="server" type="button" class="btn default" data-dismiss="modal" ClientIDMode="Static" >Cancelar</button>
|
||||
@@ -296,10 +269,9 @@
|
||||
<div class="modal-header ">
|
||||
<a id="XCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" class="close" onclick="closeModal()">×</a>
|
||||
<h4 class="modal-title">
|
||||
<asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
|
||||
<asp:Literal ID="Literal2" runat="server">Agregar Hospital</asp:Literal></h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
|
||||
<div class="modal-body">
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright ">
|
||||
@@ -312,9 +284,7 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input">
|
||||
<asp:Label ID="LblDiasPago" runat="server" ForeColor="#888888" Text="Días de Atención:"></asp:Label>
|
||||
@@ -333,20 +303,31 @@
|
||||
<asp:CheckBox ID="ChkJueves" runat="server" />
|
||||
<asp:CheckBox ID="ChkViernes" runat="server" />
|
||||
<asp:CheckBox ID="ChkSabado" runat="server" />
|
||||
<asp:CheckBox ID="ChkDomingo" runat="server" />
|
||||
|
||||
<asp:CheckBox ID="ChkDomingo" runat="server" />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtHorario" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtHorario.ClientID.ToString()%>">Horario:</label>
|
||||
<asp:ListBox ID="DdlHorario" SelectionMode="Multiple" runat="server" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;">
|
||||
<asp:ListItem Text="07:00"></asp:ListItem>
|
||||
<asp:ListItem Text="08:00"></asp:ListItem>
|
||||
<asp:ListItem Text="09:00"></asp:ListItem>
|
||||
<asp:ListItem Text="10:00"></asp:ListItem>
|
||||
<asp:ListItem Text="11:00"></asp:ListItem>
|
||||
<asp:ListItem Text="12:00"></asp:ListItem>
|
||||
<asp:ListItem Text="13:00"></asp:ListItem>
|
||||
<asp:ListItem Text="14:00"></asp:ListItem>
|
||||
<asp:ListItem Text="15:00"></asp:ListItem>
|
||||
<asp:ListItem Text="16:00"></asp:ListItem>
|
||||
<asp:ListItem Text="17:00"></asp:ListItem>
|
||||
<asp:ListItem Text="18:00"></asp:ListItem>
|
||||
<asp:ListItem Text="19:00"></asp:ListItem>
|
||||
<asp:ListItem Text="20:00"></asp:ListItem>
|
||||
</asp:ListBox>
|
||||
<label for="<%= DdlHorario.ClientID.ToString()%>">Horario:</label>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-6">
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
@@ -364,18 +345,14 @@
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="form-group form-md-line-input input-iconright">
|
||||
<asp:TextBox ID="TxtAsistenteNombre" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
|
||||
<label for="<%= TxtAsistenteNombre.ClientID.ToString()%>">Asistente:</label>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="modal-footer">
|
||||
<asp:Button ID="BtnGaurdarMedicoClienteSucursal" OnClick="BtnGaurdarMedicoClienteSucursal_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpModalMedicoClientesucursal" />
|
||||
<a id="btnCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" onclick="closeModal()" class="btn default">Cancelar</a>
|
||||
|
||||
<a id="btnCerrarmodalMedicoClienteSucursal" runat="server" ClientIDMode="Static" onclick="closeModal()" class="btn default">Cancelar</a>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -350,16 +350,11 @@ Partial Class UserControl_AddMedico
|
||||
ProcesoOK = False
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
ProcesoOK = True
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If ProcesoOK Then
|
||||
ObjVentas.Commit()
|
||||
ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.")
|
||||
@@ -425,7 +420,7 @@ Partial Class UserControl_AddMedico
|
||||
IndexSeleccionado = -1
|
||||
DdlClienteSucursal.SelectedValueExist(-1)
|
||||
'TxtDiasAtencion.Text = ""
|
||||
TxtHorario.Text = ""
|
||||
DdlHorario.ClearSelection()
|
||||
TxtConsultorio.Text = ""
|
||||
TxtTorre.Text = ""
|
||||
TxtAsistenteNombre.Text = ""
|
||||
@@ -446,51 +441,28 @@ Partial Class UserControl_AddMedico
|
||||
Protected Sub BtnGaurdarMedicoClienteSucursal_Click(sender As Object, e As EventArgs)
|
||||
|
||||
Dim TieneError As Boolean = False
|
||||
|
||||
Dim DiasAtencion As String = ""
|
||||
Dim ListaDiasAntencion As New List(Of String)
|
||||
|
||||
If ChkLunes.Checked Then
|
||||
ListaDiasAntencion.Add("L")
|
||||
End If
|
||||
|
||||
If ChkMartes.Checked Then
|
||||
ListaDiasAntencion.Add("M")
|
||||
End If
|
||||
|
||||
If ChkMiercoles.Checked Then
|
||||
ListaDiasAntencion.Add("MI")
|
||||
End If
|
||||
|
||||
If ChkJueves.Checked Then
|
||||
ListaDiasAntencion.Add("J")
|
||||
End If
|
||||
|
||||
If ChkViernes.Checked Then
|
||||
ListaDiasAntencion.Add("V")
|
||||
End If
|
||||
|
||||
If ChkSabado.Checked Then
|
||||
ListaDiasAntencion.Add("S")
|
||||
End If
|
||||
|
||||
If ChkDomingo.Checked Then
|
||||
ListaDiasAntencion.Add("D")
|
||||
End If
|
||||
|
||||
If ChkLunes.Checked Then ListaDiasAntencion.Add("L")
|
||||
If ChkMartes.Checked Then ListaDiasAntencion.Add("M")
|
||||
If ChkMiercoles.Checked Then ListaDiasAntencion.Add("MI")
|
||||
If ChkJueves.Checked Then ListaDiasAntencion.Add("J")
|
||||
If ChkViernes.Checked Then ListaDiasAntencion.Add("V")
|
||||
If ChkSabado.Checked Then ListaDiasAntencion.Add("S")
|
||||
If ChkDomingo.Checked Then ListaDiasAntencion.Add("D")
|
||||
DiasAtencion = String.Join(", ", ListaDiasAntencion)
|
||||
|
||||
|
||||
If CveMedico > 0 Then
|
||||
Dim objVenta As New ClsVentas
|
||||
|
||||
If CveMedicoClienteSucursal > 0 Then
|
||||
If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
|
||||
If Not (objVenta.UpdateMedicosClientesSucursales(CveMedicoClienteSucursal, CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
|
||||
TieneError = True
|
||||
End If
|
||||
Else
|
||||
If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, TxtHorario.Text.Trim, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
|
||||
If Not (objVenta.AddMedicosClientesSucursales(CveMedico, DdlClienteSucursalCliente, DdlClienteSucursalSucursal, DiasAtencion, DdlHorario.GetSelectedValuesM, TxtConsultorio.Text.Trim, TxtTorre.Text.Trim, TxtAsistenteNombre.Text.Trim,
|
||||
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)) Then
|
||||
TieneError = True
|
||||
End If
|
||||
@@ -508,7 +480,7 @@ Partial Class UserControl_AddMedico
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("CveClienteSucursal") = DdlClienteSucursalSucursal()
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("DiasAtencion") = DiasAtencion
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = TxtHorario.Text
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Horario") = DdlHorario.GetSelectedValuesM
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Consultorio") = TxtConsultorio.Text
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("Torre") = TxtTorre.Text
|
||||
DTMedicosClientesSucursales.Rows(IndexSeleccionado)("AsistenteNombre") = TxtAsistenteNombre.Text
|
||||
@@ -526,7 +498,7 @@ Partial Class UserControl_AddMedico
|
||||
nRow("CveClienteSucursal") = DdlClienteSucursalSucursal()
|
||||
nRow("ClienteSucursal") = DdlClienteSucursal.SelectedItem.Text
|
||||
nRow("DiasAtencion") = DiasAtencion
|
||||
nRow("Horario") = TxtHorario.Text
|
||||
nRow("Horario") = DdlHorario.GetSelectedValuesM
|
||||
nRow("Consultorio") = TxtConsultorio.Text
|
||||
nRow("Torre") = TxtTorre.Text
|
||||
nRow("AsistenteNombre") = TxtAsistenteNombre.Text
|
||||
@@ -574,9 +546,7 @@ Partial Class UserControl_AddMedico
|
||||
Protected Sub LnkEditarClienteSucursal_Click(sender As Object, e As EventArgs)
|
||||
|
||||
LimpiarcontrolesDetalle()
|
||||
|
||||
Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
|
||||
|
||||
Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
|
||||
Dim CveClienteSucursal As Integer = GvRow.DataKey("CveClienteSucursal").ToEntero
|
||||
|
||||
@@ -593,7 +563,18 @@ Partial Class UserControl_AddMedico
|
||||
End If
|
||||
|
||||
'TxtDiasAtencion.Text = GvRow.DataKey("DiasAtencion")
|
||||
TxtHorario.Text = GvRow.DataKey("Horario")
|
||||
If GvRow.DataKey("Horario") <> "" Then
|
||||
|
||||
For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
|
||||
DdlHorario.Items.FindByValue(tipoDocto).Selected = True
|
||||
Next
|
||||
'For Each itemTipoDocto As ListItem In DdlHorario.Items
|
||||
' For Each tipoDocto As String In GvRow.DataKey("Horario").Split(","c)
|
||||
' itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper)
|
||||
' Next
|
||||
'Next
|
||||
End If
|
||||
|
||||
TxtConsultorio.Text = GvRow.DataKey("Consultorio")
|
||||
TxtTorre.Text = GvRow.DataKey("Torre")
|
||||
TxtAsistenteNombre.Text = GvRow.DataKey("AsistenteNombre")
|
||||
|
||||
@@ -119,6 +119,11 @@
|
||||
<asp:ListItem Text="Detallado" Value="1"></asp:ListItem>
|
||||
<asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
|
||||
<div runat="server" id="DivSubProyecto" class="col-md-2">
|
||||
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
|
||||
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub CargaFiltros()
|
||||
|
||||
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
|
||||
@@ -59,7 +57,9 @@ Partial Class Ventas_AuxiliarCliente
|
||||
'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
|
||||
'DdlConceptosContables.DataBind()
|
||||
'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
DdlSubProyecto.SelectedValuesIfExist("-1")
|
||||
|
||||
txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
|
||||
txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
|
||||
@@ -71,7 +71,7 @@ Partial Class Ventas_AuxiliarCliente
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
'Falta PA
|
||||
If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
|
||||
If ObjConta.GetClienteAuxiliar(DdlClientes.SelectedValue.ToEntero, -1, DdlSubProyecto.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero) Then
|
||||
If DdlOpcion.SelectedValue.ToEntero = 2 Then
|
||||
GvAuxCliente.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 1 AND Importe >= 0,0,1) = 1")
|
||||
Else
|
||||
|
||||
@@ -12296,7 +12296,6 @@ Partial Class Ventas
|
||||
Return ProcesoCorrecto
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub CreaObjetosVenta(Optional VistaPrevia As Boolean = False, Optional EsCancelacion As Boolean = False, Optional TipoDoctoViejo As String = "", Optional TipoDoctoVistaPrevia As String = "")
|
||||
|
||||
If Me.CveVenta > 0 AndAlso NuevaFactura <> 1 Then
|
||||
@@ -12344,7 +12343,6 @@ Partial Class Ventas
|
||||
'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero(), -1)
|
||||
ObjFactura.Serie = If(VistaPrevia, "VistaPrevia", LblSerie.Text)
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
Dim ObjFolios As New ClsGralFolios()
|
||||
Dim TipoDoctoConsulta As String = If(ObjFactura.TipoDocto = "Ant", "Ing", If(ObjFactura.TipoDocto = "PA", "Rem", ObjFactura.TipoDocto))
|
||||
@@ -12387,10 +12385,8 @@ Partial Class Ventas
|
||||
ObjFactura.CondicionEntrega = If(DdlFormaEntrega.SelectedItem IsNot Nothing, DdlFormaEntrega.SelectedItem.Text, "")
|
||||
ObjFactura.CondicionesPago = If(RBLPago.SelectedValue = "2", 0, If(RBLPago.SelectedValue = "1", 1, 2)) ' 0 - Contado, 1 - Credito, 2 - termianl
|
||||
ObjFactura.FormaPago = 0 'DdlFormaPago.SelectedValue.ToEntero()
|
||||
|
||||
ObjFactura.AtencionA = TxtAtencionA.Text
|
||||
ObjFactura.FordGSDB = ""
|
||||
|
||||
ObjFactura.NumeroContrato = NumeroContrato
|
||||
ObjFactura.DescripcionContrato = DescripcionContrato
|
||||
ObjFactura.NumeroDescripcionContrato = If($"{NumeroContrato} - {NumeroLicitacion}" = " - ", "", $"{NumeroContrato} {If(NumeroLicitacion = "", "", $" - Licitación: {NumeroLicitacion}")}")
|
||||
@@ -12419,9 +12415,6 @@ Partial Class Ventas
|
||||
ObjFactura.Fech1 = TxtFech1.Text.Trim.ToDate
|
||||
ObjFactura.Fech2 = TxtFech2.Text.Trim.ToDate
|
||||
ObjFactura.Fech3 = TxtFech3.Text.Trim.ToDate
|
||||
|
||||
|
||||
|
||||
ObjFactura.Alfa2 = TxtAlfa2.Text.Trim
|
||||
ObjFactura.Alfa3 = TxtAlfa3.Text.Trim
|
||||
ObjFactura.Num1 = TxtNum1.Text.Trim.ToDouble
|
||||
@@ -12442,17 +12435,12 @@ Partial Class Ventas
|
||||
|
||||
ObjFactura.DiasCredito = DiasCredito
|
||||
ObjFactura.EsDiasCreditoFijo = EsDiasCreditoFijo
|
||||
|
||||
ObjFactura.CveCorte = CveCorte
|
||||
'ObjFactura.CveMesa = -1
|
||||
ObjFactura.NumeroPersonas = 0
|
||||
|
||||
|
||||
If ObjFactura.TipoDocto = "Ant" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Ing" And DdlContratosModal.SelectedValue.ToEntero > 0 Or ObjFactura.TipoDocto = "Egs" And DdlContratosModal.SelectedValue.ToEntero > 0 Then
|
||||
CveContrato = DdlContratosModal.SelectedValue.ToEntero
|
||||
End If
|
||||
|
||||
|
||||
ObjFactura.CveContrato = If(CveContrato > 0, CveContrato, CvePresupuesto)
|
||||
|
||||
ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero()
|
||||
@@ -12488,24 +12476,13 @@ Partial Class Ventas
|
||||
ObjFactura.Det_OrdenCompra = TxtDet_OrdenCompra.Text.Trim
|
||||
ObjFactura.Det_FechaOrdenCompra = TxtDet_FechaOrdenCompra.Text.Trim
|
||||
ObjFactura.Det_ContraRecibo = TxtDet_ContraRecibo.Text.Trim
|
||||
ObjFactura.MonedaAbreviatura = ""
|
||||
|
||||
Try
|
||||
ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso DvModalRequiereOSFecha.Visible Then
|
||||
ObjFactura.FechaEjecucion = TxtFechaOS.Text.Trim.ToDateTime
|
||||
ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
|
||||
Else
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
End If
|
||||
ObjFactura.MonedaAbreviatura = GlobalDTMonedas().FiltroPrimeroValor("Moneda", $"CveMoneda = {DdlMoneda.SelectedValue.ToEntero}")
|
||||
ObjFactura.Alfa1 = TxtAlfa1.Text.Trim
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
|
||||
ObjFactura.Medico = DdlMedico.SelectedItem.Text
|
||||
ObjFactura.Procedimiento = DdlProcedimiento.SelectedItem.Text
|
||||
ObjFactura.FechaParaSurtir = TxtFechaOS.Text.Trim.ToDateTime
|
||||
End If
|
||||
|
||||
'CONVERTIR REMISION - TIPO MONEDA -DOLARES A PESOS
|
||||
@@ -16880,7 +16857,18 @@ Partial Class Ventas
|
||||
CartaPorte.Parametros.Add(New ReportParameter($"TieneCartaPorte", "False"))
|
||||
End If
|
||||
|
||||
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), "Factura", "PDF")
|
||||
Dim tNombreSugerido As String = "Vista Previa - Factura"
|
||||
Select Case DdlTipoComprobante.SelectedValue
|
||||
Case "Cot"
|
||||
tNombreSugerido = "Vista Previa - Cotización"
|
||||
Case "Egs"
|
||||
tNombreSugerido = "Vista Previa - Egreso"
|
||||
Case "Ant"
|
||||
tNombreSugerido = "Vista Previa - Anticipo"
|
||||
End Select
|
||||
tNombreSugerido = tNombreSugerido & " - " & LblSerie.Text & "-" & TxtFolio.Text
|
||||
|
||||
ImprimirbytesPDF(PdfFactura(ObjFactura, Guardar:=False, SubReportData:=CartaPorte), tNombreSugerido, "PDF")
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -38507,11 +38495,11 @@ Partial Class Ventas
|
||||
item.Text = $"  {item.Text}"
|
||||
Next
|
||||
|
||||
If Opcion <> "Cot" Then
|
||||
RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
|
||||
Else
|
||||
TrVentasMedicas2.Visible = False
|
||||
If Opcion = "Cot" Then
|
||||
'TrVentasMedicas2.Visible = False
|
||||
TrVentasMedicas3.Visible = False
|
||||
Else
|
||||
RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user