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
2024-03-20 17:16:13 -07:00
parent b2a491021c ff4c0773f4
commit 6ca0b02ee7
18 changed files with 432 additions and 336 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/ClsCompProveedores.vb
View File

@@ -65,6 +65,7 @@ Public Class ClsCompProveedores
Public Property Situacion As String = "" Public Property Situacion As String = ""
Public Property DIOTNacionalidad As String Public Property DIOTNacionalidad As String
Public Property CveRegimenFiscal As Integer = -1 Public Property CveRegimenFiscal As Integer = -1
Public Property PorcentajeProntoPago As Decimal = 0D
Public ReadOnly Property DtResultados() As DataTable Public ReadOnly Property DtResultados() As DataTable
Get Get
@@ -300,6 +301,7 @@ Public Class ClsCompProveedores
Me.Situacion = Data.Rows(0)("Situacion").ToString Me.Situacion = Data.Rows(0)("Situacion").ToString
Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString Me.DIOTNacionalidad = Data.Rows(0)("DIOTNacionalidad").ToString
Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero Me.CveRegimenFiscal = Data.Rows(0)("CveRegimenFiscal").ToString.ToEntero
Me.PorcentajeProntoPago = Data.Rows(0)("PorcentajeProntoPago").ToString.ToDecimal
End If End If
@@ -317,7 +319,7 @@ Public Class ClsCompProveedores
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveUsuario As Integer, CveEmpresa As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "",
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -367,6 +369,7 @@ Public Class ClsCompProveedores
.Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador .Add("@CveUsuarioEvaluador", SqlDbType.Int).Value = CveUsuarioEvaluador
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
.Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
.Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
End With End With
@@ -402,7 +405,7 @@ Public Class ClsCompProveedores
CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer, CveProveedorClasificacion As Integer, CveUsuarioResponsable As Integer, Estatus As Boolean, NotificarA As String, CorreoCobranza As String, FolioDuplicado As Boolean, CveProveedor As Integer,
Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1, Optional CveTipoProveedor As Integer = 1, Optional CveMonedaPreferente As Integer = 1, Optional UsaLimiteCredito As Boolean = False, Optional DIOTCveTipoTercero As Integer = -1, Optional DIOTCveTipoOperacion As Integer = -1, Optional DIOTNumeroIDFiscal As String = "", Optional CveUsuarioModifico As Integer = -1,
Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "", Optional AplicarEvaluacion As Boolean = False, Optional FechaEvaluacion As String = "-1", Optional CicloEvaluacion As Integer = -1, Optional DIOTCvePais As Integer = -1, Optional CveUsuarioEvaluador As Integer = -1, Optional CP As Integer = 0, Optional DIOTNacionalidad As String = "",
Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1) As Boolean Optional CveConfianzaProveedor As Integer = -1, Optional CveRegimenFiscal As Integer = -1, Optional PorcentajeProntoPago As Decimal = 0) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Comp_ProveedorUpdate") DataAdapter("PA_Comp_ProveedorUpdate")
@@ -455,6 +458,7 @@ Public Class ClsCompProveedores
.Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor .Add("@CveConfianzaProveedor", SqlDbType.Int).Value = CveConfianzaProveedor
.Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal .Add("@CveRegimenFiscal", SqlDbType.TinyInt).Value = CveRegimenFiscal
.Add("@PorcentajeProntoPago", SqlDbType.Decimal).Value = PorcentajeProntoPago
''Proveedores ''Proveedores
'.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores '.Add("@IdCtaContProveedores", SqlDbType.Int).Value = IdCtaContProveedores

7
App_Code/ClsTransportes.vb
View File

@@ -275,7 +275,7 @@ Public Class ClsTransportes
Return Retorno Return Retorno
End Function End Function
Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer Public Function AddDestino(Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer) As Integer
Dim Retorno As Integer = -1 Dim Retorno As Integer = -1
DataAdapter("PA_Trans_DestinosAdd") DataAdapter("PA_Trans_DestinosAdd")
@@ -286,6 +286,7 @@ Public Class ClsTransportes
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -297,7 +298,7 @@ Public Class ClsTransportes
Return Retorno Return Retorno
End Function End Function
Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function UpdateDestino(CveDestino As Integer, Destino As String, Estatus As String, EsNacional As String, CveUsuario As Integer, CveEmpresa As Integer, CveEstado As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Trans_DestinosUpdate") DataAdapter("PA_Trans_DestinosUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -307,6 +308,8 @@ Public Class ClsTransportes
.Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus)
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveEstado", SqlDbType.Int).Value = CveEstado
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

23
App_Code/ClsVentas.vb
View File

@@ -6117,7 +6117,7 @@ Public Class ClsVentas
End Function End Function
Public Function AddMedico(Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, Public Function AddMedico(Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Integer CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Integer
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -6126,16 +6126,10 @@ Public Class ClsVentas
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre .Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@APaterno", SqlDbType.VarChar).Value = APaterno .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos
.Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno
'.Add("@Medico", SqlDbType.VarChar).Value = Medico
.Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional
'.Add("@Medico", SqlDbType.VarChar).Value = Medico
.Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento
.Add("@Notas", SqlDbType.VarChar).Value = Notas .Add("@Notas", SqlDbType.VarChar).Value = Notas
'.Add("@DiasAtencion", SqlDbType.VarChar).Value = DiasAtencion
'.Add("@Horario", SqlDbType.VarChar).Value = Horario
'.Add("@Lugar", SqlDbType.VarChar).Value = Lugar
.Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -6143,14 +6137,10 @@ Public Class ClsVentas
.Add("@Mail", SqlDbType.VarChar).Value = Mail .Add("@Mail", SqlDbType.VarChar).Value = Mail
.Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
.Add("@Celular", SqlDbType.VarChar).Value = Celular .Add("@Celular", SqlDbType.VarChar).Value = Celular
'.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
.Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
'.Add("@Torre", SqlDbType.VarChar).Value = Torre
.Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
@@ -6164,7 +6154,7 @@ Public Class ClsVentas
End Function End Function
Public Function UpdateMedico(CveMedico As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer, Public Function UpdateMedico(CveMedico As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, CveUsuario As Integer,
CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Boolean CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Optional CveMedicoSubEspecialidad As Integer = -1, Optional CveVendedor As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
@@ -6172,8 +6162,7 @@ Public Class ClsVentas
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
.Add("@Nombre", SqlDbType.VarChar).Value = Nombre .Add("@Nombre", SqlDbType.VarChar).Value = Nombre
.Add("@APaterno", SqlDbType.VarChar).Value = APaterno .Add("@Apellidos", SqlDbType.VarChar).Value = Apellidos
.Add("@AMaterno", SqlDbType.VarChar).Value = AMaterno
'.Add("@Medico", SqlDbType.VarChar).Value = Medico '.Add("@Medico", SqlDbType.VarChar).Value = Medico
.Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional .Add("@CedulaProfesional", SqlDbType.VarChar).Value = CedulaProfesional
.Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento .Add("@FechaNacimiento", SqlDbType.Date).Value = FechaNacimiento
@@ -6783,7 +6772,7 @@ Public Class ClsVentas
End Function End Function
Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer) As Boolean Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ComisionesMedicasRepGet") DataAdapter("PA_Vta_ComisionesMedicasRepGet")
@@ -6797,6 +6786,8 @@ Public Class ClsVentas
.Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento
.Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
End With End With
Try Try

16
Compras/Compras.aspx.vb
View File

@@ -20297,6 +20297,22 @@ Partial Class Compras_Compras
Select row Select row
'Dim dataTable As New DataTable
'Dim rowFilter As String = ""
'Dim orderby As String = ""
'Dim groupByColumns As String()() = {New String() {"SubProyecto", "CveSubProyecto", "Clasificacion", "CveClasificacion", "TipoGasto", "CveTipoGasto"}}
'Dim sumColumns As String() = {"Total"}
'Dim resultDataTable As DataTable = GroupByDT(TmpDT, rowFilter, orderby, groupByColumns, sumColumns)
If resultadosFiltrados.Count > 0 Then If resultadosFiltrados.Count > 0 Then
Dim EnumAgrupado = (From row In TmpDT.AsEnumerable() Dim EnumAgrupado = (From row In TmpDT.AsEnumerable()

11
Compras/Proveedores.aspx
View File

@@ -344,8 +344,8 @@
</div> </div>
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-6">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input" style="width:206px!important">
<asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged"> <asp:DropDownList ID="DdlCveTipoProveedor" runat="server" CssClass="form-control select2me " Width="206px" AutoPostBack="True" OnSelectedIndexChanged="DdlCveTipoProveedor_SelectedIndexChanged">
<asp:ListItem Selected="True" Text="-" Value="0"></asp:ListItem> <asp:ListItem Selected="True" Text="-" Value="0"></asp:ListItem>
<asp:ListItem Text="Proveedor" Value="1"></asp:ListItem> <asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
@@ -356,6 +356,13 @@
<ajax:ValidatorCalloutExtender ID="VCECveTipoProveedor" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RFVCveTipoProveedor" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCECveTipoProveedor" runat="server" HighlightCssClass="vco posicionvalidation" TargetControlID="RFVCveTipoProveedor" Width="350px"></ajax:ValidatorCalloutExtender>
<label for="<%= DdlCveTipoProveedor.ClientID%>">Tipo de Proveedor:</label> <label for="<%= DdlCveTipoProveedor.ClientID%>">Tipo de Proveedor:</label>
</div> </div>
</div>
<div class="col-md-6" runat="server" visible="false" id="DVPorcentajeProntoPago">
<div class="form-group form-md-line-input">
<asp:TextBox ID="TxtPorcentajeProntoPago" CssClass="form-control " runat="server" MaxLength="50" Width="206px"></asp:TextBox>
<label for="<%= TxtPorcentajeProntoPago.ClientID%>">% Pronto Pago:</label>
</div>
</div> </div>
</div> </div>

19
Compras/Proveedores.aspx.vb
View File

@@ -640,9 +640,9 @@ Partial Class Compras_Proveedores
GvA.Columns(5).Visible = True GvA.Columns(5).Visible = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then
DVPorcentajeProntoPago.Visible = True
End If
End If End If
@@ -920,7 +920,7 @@ Partial Class Compras_Proveedores
ChkEstado.Checked = ObjProveedor.Estatus = "Activo" ChkEstado.Checked = ObjProveedor.Estatus = "Activo"
LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString LblFechaCaptura.Text = ObjProveedor.FechaIng.ToShortDateString
LblUsuarioCapturo.Text = ObjProveedor.Usuario LblUsuarioCapturo.Text = ObjProveedor.Usuario
TxtObservaciones.Text = ObjProveedor.Observaciones TxtObservaciones.Text = ObjProveedor.Observaciones.ToString
CargaCombos() CargaCombos()
@@ -950,6 +950,8 @@ Partial Class Compras_Proveedores
Retorno = True Retorno = True
TxtPorcentajeProntoPago.Text = (100 * ObjProveedor.PorcentajeProntoPago).ToString("###.00")
' enviaractivacion() ' enviaractivacion()
CargaEventoBitacora() CargaEventoBitacora()
@@ -1403,6 +1405,11 @@ Partial Class Compras_Proveedores
Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1) Dim CicloEvaluacion As Integer = If(AplicarEvaluacion, DdlCicloEvaluacion.SelectedValue.ToEntero(), -1)
Dim PorcentajeProntoPago As Decimal = 0
If TxtPorcentajeProntoPago.Text.ToDecimal > 0 Then
PorcentajeProntoPago = TxtPorcentajeProntoPago.Text.ToDecimal / 100
End If
If CveProveedor = -1 Then If CveProveedor = -1 Then
Dim ObjProveedores As New ClsCompProveedores() Dim ObjProveedores As New ClsCompProveedores()
@@ -1414,7 +1421,7 @@ Partial Class Compras_Proveedores
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text,
AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, AplicarEvaluacion:=AplicarEvaluacion, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor Dim NuevoCveProveedor As Integer = ObjProveedores.CveProveedor
@@ -1525,7 +1532,7 @@ Partial Class Compras_Proveedores
DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor, DdlCveClasificacionProveedor.SelectedValue.ToEntero, DdlCveUsuarioResponsable.SelectedValue.ToEntero, ChkEstado.Checked, TxtNotificarA.Text.Trim, TxtCorreoCobranza.Text.Trim, ChkFolioDuplicado.Checked, CveProveedor,
DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlMonedaPrefente.SelectedValue.ToEntero, UsaLimiteCredito:=ChkUsaLimiteCredito.Checked, DIOTCveTipoTercero:=DDlDIOTTipoTercero.SelectedValue.ToEntero, DIOTCveTipoOperacion:=DdlDIOTTipoOperacion.SelectedValue.ToEntero, DIOTNumeroIDFiscal:=TxtDIOTNumIDFiscal.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario,
DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text, DIOTCvePais:=DdlDIOTPais.SelectedValue.ToEntero, AplicarEvaluacion:=ChkAplicarEvaluacion.Checked, FechaEvaluacion:=FechaEvaluacion, CicloEvaluacion:=CicloEvaluacion, CveUsuarioEvaluador:=DdlUsuarioEvaluador.SelectedValue.ToEntero(), CP:=TxtCP.Text.ToEntero, DIOTNacionalidad:=TxtDIOTNacionalidad.Text,
CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero) Then CveConfianzaProveedor:=DdlConfianzaProveedor.SelectedValue.ToEntero(), CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, PorcentajeProntoPago:=PorcentajeProntoPago) Then
GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing

2
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -388,7 +388,7 @@ Partial Class Inventarios_TraspasoAlmacen
DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub))
DdlAlmacenOrigen.DataBind() DdlAlmacenOrigen.DataBind()
DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0}", CveSub)) DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 21).FiltraParametros(String.Format("CveSubProyecto={0} AND Almacen LIKE '%arant%'", CveSub))
DdlAlmacenDestino.DataBind() DdlAlmacenDestino.DataBind()
CargadoDeMov = True CargadoDeMov = True

28
Transportes/CatRutas.aspx
View File

@@ -48,7 +48,7 @@
</div> </div>
<asp:GridView ID="GvDestinos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado" <asp:GridView ID="GvDestinos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
data-sort="true" DataKeyNames="CveDestino, Destino, EsNacional, Estatus, CveUsuario, FechaIng, CveEmpresa"> data-sort="true" DataKeyNames="CveDestino, Destino, EsNacional, Estatus, CveUsuario, FechaIng, CveEmpresa, CveEstado">
<Columns> <Columns>
<asp:TemplateField HeaderText="Destino"> <asp:TemplateField HeaderText="Destino">
<ItemTemplate> <ItemTemplate>
@@ -69,6 +69,12 @@
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Estado">
<ItemTemplate>
<asp:Literal ID="LtlEstado" runat="server" Text='<%# Eval("NombreEstado") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones"> <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
<ItemTemplate> <ItemTemplate>
<asp:LinkButton ID="BtnEditarDestino" runat="server" AlternateText="Editar" <asp:LinkButton ID="BtnEditarDestino" runat="server" AlternateText="Editar"
@@ -215,7 +221,7 @@
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList ID="DdlEsNacional" runat="server" Class="table-group-action-input form-control input-inline select2me" <asp:DropDownList ID="DdlEsNacional" runat="server" Class="table-group-action-input form-control input-inline select2me"
AppendDataBoundItems="true" AppendDataBoundItems="true"
Width="99.9%"> Width="99.9%" OnSelectedIndexChanged="OnChangeNacional" AutoPostBack="true">
<asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem> <asp:ListItem Text="Seleccione" Value="" Selected="True"></asp:ListItem>
<asp:ListItem Text="Sí" Value="True"></asp:ListItem> <asp:ListItem Text="Sí" Value="True"></asp:ListItem>
<asp:ListItem Text="No" Value="False"></asp:ListItem> <asp:ListItem Text="No" Value="False"></asp:ListItem>
@@ -247,6 +253,24 @@
</ajax:ValidatorCalloutExtender> </ajax:ValidatorCalloutExtender>
</div> </div>
</div> </div>
<div class="row my-1">
<label class="col-md-4">Estado:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlEstado" runat="server" Class="table-group-action-input form-control input-inline select2me"
DataTextField="NombreEstado"
DataValueField="CveEstado"
AppendDataBoundItems="true"
Width="99.9%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVEstado" runat="server" ControlToValidate="DdlEstado"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Estado''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCEEstado" runat="server" HighlightCssClass="vco"
TargetControlID="RFVEstado" Width="400px" BehaviorID="VCEEstado">
</ajax:ValidatorCalloutExtender>
</div>
</div>
</asp:Panel> </asp:Panel>
<%-- Importes --%> <%-- Importes --%>
<asp:Panel ID="PnImporte" runat="server" Visible="false"> <asp:Panel ID="PnImporte" runat="server" Visible="false">

104
Transportes/CatRutas.aspx.vb
View File

@@ -22,16 +22,7 @@ Partial Class CatRutas
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
'Lista Rutas'
Dim ObjRutas As New ClsTransportes() Dim ObjRutas As New ClsTransportes()
'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
' If ObjRutas.DtResultados.Rows.Count > 0 Then
' GvRutas.DataSource = ObjRutas.DtResultados
' GvRutas.DataBind()
' End If
'End If
'Lista Destinos' 'Lista Destinos'
If ObjRutas.GetDestinos() Then If ObjRutas.GetDestinos() Then
@@ -60,29 +51,20 @@ Partial Class CatRutas
If ObjDestinos.DtResultados.Rows.Count > 0 Then If ObjDestinos.DtResultados.Rows.Count > 0 Then
DdlOrigen.DataSource = ObjDestinos.DtResultados DdlOrigen.DataSource = ObjDestinos.DtResultados : DdlOrigen.DataBind()
DdlOrigen.DataBind()
DdlOrigen.Items.Insert(0, New ListItem("Seleccione Partida", "")) DdlOrigen.Items.Insert(0, New ListItem("Seleccione Partida", ""))
DdlFinal.DataSource = ObjDestinos.DtResultados DdlFinal.DataSource = ObjDestinos.DtResultados : DdlFinal.DataBind()
DdlFinal.DataBind()
DdlFinal.Items.Insert(0, New ListItem("Seleccione Destino", "")) DdlFinal.Items.Insert(0, New ListItem("Seleccione Destino", ""))
End If End If
End If End If
ObjDestinos.Dispose() ObjDestinos.Dispose()
DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") DdlRutas.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveSubProyecto in (12699,12700)") : DdlRutas.DataBind()
DdlRutas.DataBind() DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", "")) DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
'Dim ObjRutas As New ClsTransportes()
'If ObjRutas.GetRutas(-1, -1, -1, "", True, DateTime.Now) Then
' If ObjRutas.DtResultados.Rows.Count > 0 Then
' DdlRutas.DataSource = ObjRutas.DtResultados
' DdlRutas.DataBind()
' DdlRutas.Items.Insert(0, New ListItem("Seleccione Ruta", ""))
' End If
'End If
End Sub End Sub
Protected Sub MostrarModal(sender As Object, e As EventArgs) Protected Sub MostrarModal(sender As Object, e As EventArgs)
@@ -100,7 +82,6 @@ Partial Class CatRutas
PnDestino.Visible = False PnDestino.Visible = False
PnImporte.Visible = False PnImporte.Visible = False
Dim id As String = DirectCast(sender, LinkButton).ID Dim id As String = DirectCast(sender, LinkButton).ID
If id.Contains("Editar") Then If id.Contains("Editar") Then
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -115,8 +96,19 @@ Partial Class CatRutas
Case "BtnEditarDestino" Case "BtnEditarDestino"
ModalLabel.Text = "Editar Destino" ModalLabel.Text = "Editar Destino"
TxtDestino.Text = GvRow.DataKey("Destino") TxtDestino.Text = GvRow.DataKey("Destino")
DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional")
DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus") DdlDestinoEstatus.SelectedValue = GvRow.DataKey("Estatus")
DdlEsNacional.SelectedValue = GvRow.DataKey("EsNacional")
DdlEstado.Items.Clear()
If Convert.ToBoolean(DdlEsNacional.SelectedValue) Then
DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
Else
DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind()
End If
UpModal.Update()
DdlEstado.SelectedValue = GvRow.DataKey("CveEstado")
PnDestino.Visible = True PnDestino.Visible = True
BtnAddDestino.Visible = True BtnAddDestino.Visible = True
BtnAddDestino.Text = "Editar" BtnAddDestino.Text = "Editar"
@@ -158,48 +150,6 @@ Partial Class CatRutas
RegistraScript(String.Format("$('#{0}').modal('show');", "Modal")) RegistraScript(String.Format("$('#{0}').modal('show');", "Modal"))
End Sub End Sub
'#Region "Rutas"
' Protected Sub AddRuta(sender As Object, e As EventArgs)
' Dim ObjRuta As New ClsTransportes
' ObjRuta.IniciaTransacSQL()
' Try
' If BtnAddRuta.Text = "Guardar" Then
' If ObjRuta.AddRuta(TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then
' ObjRuta.Commit()
' Alert("Ruta Agregada Correctamente.")
' End If
' End If
' If BtnAddRuta.Text = "Editar" Then
' If ObjRuta.UpdateRuta(Cve, TxtRuta.Text, DdlRutaEstatus.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
' ObjRuta.Commit()
' Alert("Ruta Actualizada Correctamente.")
' End If
' End If
' Catch ex As Exception
' ObjRuta.RollBack()
' Finally
' CargaDatos()
' ObjRuta.Dispose()
' End Try
' End Sub
' Protected Sub RemoveRuta(sender As Object, e As EventArgs)
' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
' Dim ObjRuta As New ClsTransportes
' If ObjRuta.RemoveRuta(GvRow.DataKey("CveRuta").ToEntero) Then
' Alert("Ruta eliminada correctamente")
' CargaDatos()
' End If
' ObjRuta.Dispose()
' End Sub
'#End Region
#Region "Destinos" #Region "Destinos"
Protected Sub AddDestino(sender As Object, e As EventArgs) Protected Sub AddDestino(sender As Object, e As EventArgs)
@@ -207,14 +157,14 @@ Partial Class CatRutas
ObjDestino.IniciaTransacSQL() ObjDestino.IniciaTransacSQL()
Try Try
If BtnAddDestino.Text = "Guardar" Then If BtnAddDestino.Text = "Guardar" Then
If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 1 Then If ObjDestino.AddDestino(TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) > 1 Then
ObjDestino.Commit() ObjDestino.Commit()
Alert("Destino agregado correctamente.") Alert("Destino agregado correctamente.")
End If End If
End If End If
If BtnAddDestino.Text = "Editar" Then If BtnAddDestino.Text = "Editar" Then
If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjDestino.UpdateDestino(Cve, TxtDestino.Text, DdlDestinoEstatus.SelectedValue, DdlEsNacional.SelectedValue, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlEstado.SelectedValue.ToEntero) Then
ObjDestino.Commit() ObjDestino.Commit()
Alert("Destino actualizado correctamente.") Alert("Destino actualizado correctamente.")
End If End If
@@ -239,6 +189,20 @@ Partial Class CatRutas
ObjDestino.Dispose() ObjDestino.Dispose()
End Sub End Sub
Protected Sub OnChangeNacional(sender As Object, e As EventArgs, Optional EsNacional As Boolean = True)
DdlEstado.Items.Clear()
If Convert.ToBoolean(DdlEsNacional.SelectedValue.ToString) And EsNacional Then
DdlEstado.DataSource = GlobalDTGralEstados("MEX") : DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
Else
DdlEstado.DataSource = GlobalDTGralEstados("USA") : DdlEstado.DataBind()
DdlEstado.Items.Insert(0, New ListItem("Seleccione Estado", ""))
End If
UpModal.Update()
End Sub
#End Region #End Region
#Region "Importes" #Region "Importes"

192
Transportes/RepContratoDetalle.aspx
View File

@@ -7,11 +7,14 @@
Detalles del Contrato Detalles del Contrato
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton runat="server" OnClick="ImprimirContrato"><i class="fa fa-print"></i> Imprimir Contrato</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
<style> <style>
.my-1 {
}
.mx-1 { .mx-1 {
margin: 0 5px 0 5px; margin: 0 5px 0 5px;
} }
@@ -121,130 +124,179 @@
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Cliente</label> <label class="col-md-4">Cliente</label>
<div class="col-md-8"> <div class="col-md-8">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="86%" data-metodo="getcliente" <div class="input-group">
runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 86%;" <ADS:Dropdownlost ID="DdlClientes" CssClass="form-control" data-metodo="getcliente"
UsaWebService="true" Enabled="false"></ADS:Dropdownlost> runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"
<asp:LinkButton runat="server" CssClass="btn btn-primary fa-add" Width="12%" UsaWebService="true" Enabled="false"></ADS:Dropdownlost>
PostBackUrl="~/Ventas/Clientes.aspx?CveCliente=-1"></asp:LinkButton> <div class="input-group-addon" style="background-color: #428bca">
<asp:LinkButton runat="server" ForeColor="White" Text="<i class='fa fa-add'></i>"
PostBackUrl="~/Ventas/Clientes.aspx?CveCliente=-1"></asp:LinkButton>
</div>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Servicio</label> <label class="col-md-4">Servicio</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%" <div class="input-group">
TextMode="MultiLine" <asp:TextBox ID="TxtDescripcion" runat="server" MaxLength="70" Width="100%"
Rows="2"></asp:TextBox> TextMode="MultiLine"
<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" Rows="3"></asp:TextBox>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Servicio''</b> es necesario, por favor ingréselo." <asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Servicio''</b> es necesario, por favor ingréselo."
<ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
TargetControlID="RFVDescripcion" Width="100%"> <ajax:ValidatorCalloutExtender ID="VCEDescripcion" runat="server" HighlightCssClass="vco"
</ajax:ValidatorCalloutExtender> TargetControlID="RFVDescripcion" Width="100%">
</ajax:ValidatorCalloutExtender>
<div class="input-group-addon">
<i class="fa fa-pencil"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row">
<label class="col-md-4">Observaciones</label> <label class="col-md-4">Observaciones</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%" <div class="input-group">
TextMode="MultiLine" <asp:TextBox ID="TxtObservaciones" runat="server" MaxLength="70" Width="100%"
Rows="2"></asp:TextBox> TextMode="MultiLine"
Rows="3"></asp:TextBox>
<div class="input-group-addon">
<i class="fa fa-eye"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Lugar de Salida</label> <label class="col-md-4">Lugar de Salida</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtUbicacion" runat="server" MaxLength="70" Width="100%"></asp:TextBox> <div class="input-group">
<asp:TextBox ID="TxtUbicacion" runat="server" CssClass="form-control"></asp:TextBox>
<div class="input-group-addon">
<i class="fa fa-location"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Fecha Salida</label> <label class="col-md-4">Fecha Salida</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True" <div class="input-group">
Width="100%" <asp:TextBox ID="TxtFechaSalida" runat="server" CssClass="form-control" CausesValidation="True"
type="datetime"></asp:TextBox> Width="100%"
<asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida" type="datetime"></asp:TextBox>
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo." <asp:RequiredFieldValidator ID="RFVTxtFechaSalida" runat="server" ControlToValidate="TxtFechaSalida"
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Salida''</b> es necesario, por favor ingréselo."
<ajax:ValidatorCalloutExtender ID="VCETxtFechaSalida" runat="server" HighlightCssClass="vco" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
TargetControlID="RFVTxtFechaSalida" Width="100%"> <ajax:ValidatorCalloutExtender ID="VCETxtFechaSalida" runat="server" HighlightCssClass="vco"
</ajax:ValidatorCalloutExtender> TargetControlID="RFVTxtFechaSalida" Width="100%">
</ajax:ValidatorCalloutExtender>
<div class="input-group-addon">
<i class="fa fa-calendar"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Fecha Regreso</label> <label class="col-md-4">Fecha Regreso</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True" <div class="input-group">
Width="100%"
type="datetime"></asp:TextBox> <asp:TextBox ID="TxtFechaRegreso" runat="server" CssClass="form-control" CausesValidation="True"
<asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso" Width="100%"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo." type="datetime"></asp:TextBox>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTxtFechaRegreso" runat="server" ControlToValidate="TxtFechaRegreso"
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Regreso''</b> es necesario, por favor ingréselo."
TargetControlID="RFVTxtFechaRegreso" Width="100%"> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco"
TargetControlID="RFVTxtFechaRegreso" Width="100%">
</ajax:ValidatorCalloutExtender>
<div class="input-group-addon">
<i class="fa fa-calendar"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row my-1">
<label class="col-md-4">Cantidad de pasajeros</label> <label class="col-md-4">Cantidad de pasajeros</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtCantidadPasajeros" CssStyle="col-md-8 form-control" runat="server" <div class="input-group">
type="number"
Width="100%"></asp:TextBox> <asp:TextBox ID="TxtCantidadPasajeros" runat="server" CssClass="form-control" CausesValidation="True"
<asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros" Width="100%"
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad de pasajeros''</b> es necesario, por favor ingréselo." type="number"></asp:TextBox>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVCantidadPasajeros" runat="server" ControlToValidate="TxtCantidadPasajeros"
<ajax:ValidatorCalloutExtender ID="VCECantidadPasajeros" runat="server" HighlightCssClass="VCOCantidadPasajeros" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad de pasajeros''</b> es necesario, por favor ingréselo."
TargetControlID="RFVCantidadPasajeros" Width="100%"> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCECantidadPasajeros" runat="server" HighlightCssClass="VCOCantidadPasajeros"
TargetControlID="RFVCantidadPasajeros" Width="100%">
</ajax:ValidatorCalloutExtender>
<div class="input-group-addon">
<i class="fa fa-users"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Tipo Unidad</label> <label class="col-md-4">Tipo Unidad</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:DropDownList ID="DdlTipoAF" AppendDataBoundItems="true" DataTextField="TipoActivoFijo" <div class="input-group">
DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
Width="100%" runat="server"> <asp:DropDownList ID="DdlTipoAF" AppendDataBoundItems="true" DataTextField="TipoActivoFijo"
</asp:DropDownList> DataValueField="CveTipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
<asp:RequiredFieldValidator ID="RFVTipoAF" runat="server" ControlToValidate="DdlTipoAF" Width="100%" runat="server">
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Unidad''</b> es necesario, por favor ingréselo." </asp:DropDownList>
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVTipoAF" runat="server" ControlToValidate="DdlTipoAF"
<ajax:ValidatorCalloutExtender ID="VCETipoAF" runat="server" HighlightCssClass="vco" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Unidad''</b> es necesario, por favor ingréselo."
TargetControlID="RFVTipoAF" Width="400px"> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="VCETipoAF" runat="server" HighlightCssClass="vco"
TargetControlID="RFVTipoAF" Width="400px">
</ajax:ValidatorCalloutExtender>
<div class="input-group-addon">
<i class="fa fa-bus"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row">
<label class="col-md-4">Costo dólares</label> <label class="col-md-4">Costo dólares</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtDolares" CssStyle=" form-control" runat="server" type="number" <div class="input-group">
Width="95%"></asp:TextBox> <asp:TextBox ID="TxtDolares" runat="server" CssClass="form-control" type="number"></asp:TextBox>
<span class="fa fa-dollar"></span> <div class="input-group-addon">
<i class="fa fa-usd"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row"> <div class="row">
<label class="col-md-4">Costo pesos</label> <label class="col-md-4">Costo pesos</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtPesos" CssStyle=" form-control" runat="server" type="number" <div class="input-group">
Width="95%"></asp:TextBox> <asp:TextBox ID="TxtPesos" runat="server" CssClass="form-control" type="number"></asp:TextBox>
<span class="fa fa-dollar"></span> <div class="input-group-addon">
<i class="fa fa-usd"></i>
</div>
</div>
</div> </div>
</div> </div>
<div class="row my-1"> <div class="row">
<label class="col-md-4">Anticipo</label> <label class="col-md-4">Anticipo</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtAnticipo" CssStyle=" form-control" Width="95%" runat="server" <div class="input-group">
type="decimal"></asp:TextBox> <asp:TextBox ID="TxtAnticipo" runat="server" CssClass="form-control" type="number"></asp:TextBox>
<span class="fa fa-percent"></span> <div class="input-group-addon">%</div>
</div>
</div> </div>
</div> </div>
</div> </div>

20
Transportes/RepContratoDetalle.aspx.vb
View File

@@ -283,6 +283,26 @@ Partial Class RepContratoDetalle
End If End If
End Sub End Sub
Protected Sub ImprimirContrato(sender As Object, e As EventArgs)
Dim dtResult As New DataTable()
Dim params As New List(Of ReportParameter) From {
New ReportParameter("Folio", LbFolio.Text),
New ReportParameter("Cliente", DdlClientes.SelectedText),
New ReportParameter("Servicio", TxtDescripcion.Text),
New ReportParameter("Observaciones", TxtObservaciones.Text),
New ReportParameter("Ubicacion", TxtUbicacion.Text),
New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm")),
New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")),
New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text),
New ReportParameter("TipoAF", DdlTipoAF.Text),
New ReportParameter("Dolares", Math.Round(TxtDolares.Text.ToDecimal, 2).ToString),
New ReportParameter("Pesos", Math.Round(TxtPesos.Text.ToDecimal, 2).ToString),
New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString)
}
ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato")
End Sub
#End Region #End Region
#Region "Boletos" #Region "Boletos"

37
Transportes/RepViajesCalendario.aspx
View File

@@ -3,9 +3,44 @@
Inherits="RepViajesCalendario" EnableEventValidation="true" %> Inherits="RepViajesCalendario" EnableEventValidation="true" %>
<asp:Content ID="Content1" ContentPlaceHolderID="E" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="E" runat="Server">
Prueba Prueba s
</asp:Content> </asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server">
<button
type="button"
class="btn btn-lg btn-success"
data-toggle="modal"
data-target="#myModal">
Lauch Modal</button>
<div class="modal" id="myModal">
<div class="modal-dialog">
<div class="modal-content">
<div class="modal-header bg-primary">
<h5 class="modal-title">Modal Title</h5>
<button class="close" data-dismiss="modal">$times;</button>
</div>
<div class="modal-body">
aaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa
aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa aaaaaaaa aaaa
aaaa
</div>
<div class="modal-footer">
<button class="btn btn-danger" data-dismiss="modal">Close</button>
</div>
</div>
</div>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="JS" runat="Server">
<script>
$['[data-toggle="popover"]'].popover();
function showPopover() {
$('#hello').popover('show');
}
</script>
</asp:Content>

20
UserControl/AddMedico.ascx
View File

@@ -34,18 +34,10 @@
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAPaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtAPellidos" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtAPaterno" runat="server" ControlToValidate="TxtAPaterno" CssClass="help-block errorimput" <asp:RequiredFieldValidator ID="RfvTxtAPellidos" runat="server" ControlToValidate="TxtAPellidos" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Paterno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtAPaterno.ClientID.ToString()%>">Apellido Paterno:</label> <label for="<%= TxtAPellidos.ClientID.ToString()%>">Apellidos:</label>
</div>
</div>
<div class="col-md-4">
<div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtAMaterno" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtAMaterno" runat="server" ControlToValidate="TxtAMaterno" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Apellido Materno''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtAMaterno.ClientID.ToString()%>">Apellido Materno:</label>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
@@ -56,10 +48,10 @@
<div class="row"> <div class="row">
<div class="col-md-4"> <div class="col-md-4">
<div class="form-group form-md-line-input input-iconright"> <div class="form-group form-md-line-input input-iconright">
<asp:TextBox ID="TxtCedulaProfecional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox> <asp:TextBox ID="TxtCedulaProfesional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtCedulaProfecional" runat="server" ControlToValidate="TxtCedulaProfecional" CssClass="help-block errorimput" <asp:RequiredFieldValidator ID="RfvTxtCedulaProfesional" runat="server" ControlToValidate="TxtCedulaProfesional" CssClass="help-block errorimput"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator> ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cédula Profecional''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
<label for="<%= TxtCedulaProfecional.ClientID.ToString()%>">Cédula Profesional:</label> <label for="<%= TxtCedulaProfesional.ClientID.ToString()%>">Cédula Profesional:</label>
</div> </div>
</div> </div>
<div class="col-md-4"> <div class="col-md-4">

18
UserControl/AddMedico.ascx.vb
View File

@@ -161,9 +161,8 @@ Partial Class UserControl_AddMedico
LtlTituloModal.Text = "Agregar Médico" LtlTituloModal.Text = "Agregar Médico"
TxtNombre.Text = "" TxtNombre.Text = ""
TxtAPaterno.Text = "" TxtAPellidos.Text = ""
TxtAMaterno.Text = "" TxtCedulaProfesional.Text = ""
TxtCedulaProfecional.Text = ""
TxtFechaNacimiento.Text = "" TxtFechaNacimiento.Text = ""
TxtNotas.Text = "" TxtNotas.Text = ""
TxtMail.Text = "" TxtMail.Text = ""
@@ -209,7 +208,7 @@ Partial Class UserControl_AddMedico
End Sub End Sub
Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean, Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, Apellidos As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean,
Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer) Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer)
CargaCombos() CargaCombos()
@@ -217,9 +216,8 @@ Partial Class UserControl_AddMedico
CveMedico = CveMedicoEditar CveMedico = CveMedicoEditar
TxtNombre.Text = Nombre TxtNombre.Text = Nombre
TxtAPaterno.Text = APaterno TxtAPellidos.Text = Apellidos
TxtAMaterno.Text = AMaterno TxtCedulaProfesional.Text = CedulaProfesional
TxtCedulaProfecional.Text = CedulaProfecional
TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy")
TxtNotas.Text = Notas TxtNotas.Text = Notas
ChkEstatus.Checked = Estatus ChkEstatus.Checked = Estatus
@@ -238,7 +236,7 @@ Partial Class UserControl_AddMedico
DVEstatus.Visible = True DVEstatus.Visible = True
LbAgregar.Text = "Actualizar" LbAgregar.Text = "Actualizar"
LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}"
UpModal.Update() UpModal.Update()
@@ -258,13 +256,13 @@ Partial Class UserControl_AddMedico
Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text)
If CveMedico > 0 Then If CveMedico > 0 Then
If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) Then UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) Then
ProcesoOK = True ProcesoOK = True
End If End If
Else Else
CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPaterno.Text.Trim, TxtAMaterno.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked,
UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero) UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero)
If CveMedicoNuevo > 0 Then If CveMedicoNuevo > 0 Then

21
Ventas/CatMedicos.aspx
View File

@@ -228,7 +228,7 @@
<%--DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"--%> <%--DataKeyNames="CveMedico,Medico,CedulaProfesional,FechaNacimiento,Notas,DiasAtencion,Horario,Lugar,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Consultorio,Torre,Usuario"--%>
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedico,Nombre,APaterno,AMaterno,CedulaProfesional,FechaNacimiento,Notas,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Usuario,CveVendedor" DataKeyNames="CveMedico,Nombre,Apellidos,CedulaProfesional,FechaNacimiento,Notas,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Usuario,CveVendedor"
data-sort="true" data-sort="true"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
@@ -237,24 +237,9 @@
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal> <asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Apellido Paterno" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Apellidos" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlAPaterno" runat="server" Text='<%# Eval("APaterno") %>'></asp:Literal> <asp:Literal ID="LtlApellidos" runat="server" Text='<%# Eval("Apellidos") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Apellido Materno" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlAMaterno" runat="server" Text='<%# Eval("AMaterno") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Cédula Profesional" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlCedulaProfesional" runat="server" Text='<%# Eval("CedulaProfesional") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Nacimiento" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento", "{0:d}") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Teléfono" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Teléfono" ItemStyle-HorizontalAlign="Left">

3
Ventas/CatMedicos.aspx.vb
View File

@@ -2,7 +2,6 @@
Option Strict On Option Strict On
Imports Extensiones Imports Extensiones
Imports Microsoft.Extensions.Primitives
Partial Class Ventas_CatMedicos Partial Class Ventas_CatMedicos
Inherits ClsPaginas Inherits ClsPaginas
@@ -179,7 +178,7 @@ Partial Class Ventas_CatMedicos
CveMedico = GvRow.DataKey("CveMedico").ToEntero CveMedico = GvRow.DataKey("CveMedico").ToEntero
AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Nombre"), GvRow.DataKey("APaterno"), GvRow.DataKey("AMaterno"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"), AddMedicoControl.PreparaEdicion(CveMedico, GvRow.DataKey("Nombre"), GvRow.DataKey("Apellidos"), GvRow.DataKey("CedulaProfesional"), GvRow.DataKey("FechaNacimiento").ToDate(), GvRow.DataKey("Notas"),
Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"), GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero, Boolean.Parse(GvRow.DataKey("Estatus")), GvRow.DataKey("Mail"), GvRow.DataKey("Telefono"), GvRow.DataKey("Celular"), GvRow.DataKey("CveMedicoEspecialidad").ToEntero, GvRow.DataKey("CveMedicoSubEspecialidad").ToEntero,
GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero) GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero)

137
Ventas/RepComisionesSMS.aspx
View File

@@ -15,7 +15,7 @@
</asp:Content> </asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<asp:UpdatePanel runat="server" ID="UpAgregar" UpdateMode="Always"> <asp:UpdatePanel runat="server" ID="UpAcciones" UpdateMode="Always">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton runat="server" ID="LnkComisiones" OnClick="LnkComisiones_Click" data-toggle="tooltip" data-placement="left" title="Comisiones" Text="<i class='fa fa-money'></i> Comisiones"></asp:LinkButton> <asp:LinkButton runat="server" ID="LnkComisiones" OnClick="LnkComisiones_Click" data-toggle="tooltip" data-placement="left" title="Comisiones" Text="<i class='fa fa-money'></i> Comisiones"></asp:LinkButton>
@@ -81,21 +81,25 @@
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label class="col-md-1 ">Médico:</label>
<%-- <label class="col-md-1 ">Cliente:</label>
<div class="col-md-1"> <div class="col-md-1">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost> <asp:DropDownList ID="DdlMedico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Medico" DataValueField="CveMedico" Width="100%">
</asp:DropDownList>
</div> </div>
<label class="col-md-1 ">Vendedor:</label>
<label class="col-md-1 ">Grupo:</label>
<div class="col-md-1"> <div class="col-md-1">
<asp:DropDownList ID="DdlGrupo" CssClass="form-control input-sm select2me" runat="server" Width="100%"> <asp:DropDownList ID="DdlVendedor" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" Width="100%">
<asp:ListItem Value="1" Selected="True">Médico</asp:ListItem>
<asp:ListItem Value="2" >Procedimiento</asp:ListItem>
<asp:ListItem Value="3" >Clientes</asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>--%> </div>
<label class="col-md-1 ">Técnico:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlUsuarioAtendio" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveUsuario" Width="100%">
</asp:DropDownList>
</div>
</div> </div>
</div> </div>
@@ -103,19 +107,6 @@
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<%-- <label class="col-md-1 ">Médico:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlMedico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Medico" DataValueField="CveMedico" Width="100%">
<asp:ListItem Value="-1">Todos</asp:ListItem>
</asp:DropDownList>
</div>
<label class="col-md-1 ">Procedimiento:</label>
<div class="col-md-1">
<asp:DropDownList ID="DdlProcedimiento" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="Procedimiento" DataValueField="CveProcedimiento" Width="100%">
<asp:ListItem Value="-1">Todos</asp:ListItem>
</asp:DropDownList>
</div> --%>
</div> </div>
</div> </div>
</div> </div>
@@ -132,80 +123,30 @@
<div class="row"> <div class="row">
<div class="col-md-12"> <div class="col-md-12">
<asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
DataKeyNames="CveMedico,Nombre,APaterno,AMaterno,CedulaProfesional,FechaNacimiento,Notas,Estatus,CveUsuario,FechaIng,CveEmpresa,Telefono,Mail,CveMedicoEspecialidad,CveMedicoSubEspecialidad,Celular,Usuario,CveVendedor" DataKeyNames="CveVenta,SerieFolio,Hospital,Medico,Especialidad,FechaCirugia,Procedimiento,Codigo,PU,Cantidad,Total,CveVendedor,Vendedor,Nombre,ComisionMedico,ComisionVendedor,ComisionTecnico"
data-sort="true" data-sort="true"
EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Nombre" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <asp:BoundField HeaderText="Folio" DataField="SerieFolio" ItemStyle-HorizontalAlign="Left" />
<asp:Literal ID="LtlNombre" runat="server" Text='<%# Eval("Nombre") %>'></asp:Literal> <asp:BoundField HeaderText="Nombre Hospital" DataField="Hospital" ItemStyle-HorizontalAlign="Left" />
</ItemTemplate> <asp:BoundField HeaderText="Especialidad" DataField="Especialidad" ItemStyle-HorizontalAlign="Left" />
</asp:TemplateField> <asp:BoundField HeaderText="Médico" DataField="Medico" ItemStyle-HorizontalAlign="Left" />
<asp:TemplateField HeaderText="Apellido Paterno" ItemStyle-HorizontalAlign="Left"> <asp:BoundField HeaderText="Fecha Hora Cirugia" DataField="FechaCirugia" ItemStyle-HorizontalAlign="Left" DataFormatString="{0:dd/MM/yyyy hh:mm}" />
<ItemTemplate> <asp:BoundField HeaderText="Procedimiento" DataField="Procedimiento" ItemStyle-HorizontalAlign="Left" />
<asp:Literal ID="LtlAPaterno" runat="server" Text='<%# Eval("APaterno") %>'></asp:Literal> <asp:BoundField HeaderText="Código Producto" DataField="Codigo" ItemStyle-HorizontalAlign="Left" />
</ItemTemplate> <asp:BoundField HeaderText="Nombre Del Producto" DataField="PS" ItemStyle-HorizontalAlign="Left" />
</asp:TemplateField> <asp:BoundField HeaderText="Precio Unitario" DataField="PU" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField HeaderText="Apellido Materno" ItemStyle-HorizontalAlign="Left"> <asp:BoundField HeaderText="Cantidad Utilizada" DataField="Cantidad" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<ItemTemplate> <asp:BoundField HeaderText="Monto Venta Total" DataField="Total" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:Literal ID="LtlAMaterno" runat="server" Text='<%# Eval("AMaterno") %>'></asp:Literal> <asp:BoundField HeaderText="Vendedor" DataField="Vendedor" ItemStyle-HorizontalAlign="Left" />
</ItemTemplate> <asp:BoundField HeaderText="Comisión Vendedor" DataField="ComisionVendedor" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cédula Profesional" ItemStyle-HorizontalAlign="Left"> <asp:BoundField HeaderText="Técnico" DataField="Nombre" ItemStyle-HorizontalAlign="Left" />
<ItemTemplate> <asp:BoundField HeaderText="Comisión Técnico" DataField="ComisionTecnico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
<asp:Literal ID="LtlCedulaProfesional" runat="server" Text='<%# Eval("CedulaProfesional") %>'></asp:Literal>
</ItemTemplate> <asp:BoundField HeaderText="Educación Médica" DataField="ComisionMedico" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Nacimiento" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Teléfono" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlTelefono" runat="server" Text='<%# Eval("Telefono") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Correo" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlCorreo" runat="server" Text='<%# Eval("Mail") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Hospital" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlHospital" runat="server" Text='<%# Eval("Hospital") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Consultorio" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlConsultorio" runat="server" Text='<%# Eval("Consultorio") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:Literal ID="LtlVendedor" runat="server" Text='<%# Eval("Vendedor") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
<ItemTemplate>
<asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center" Visible="false">
<ItemTemplate>
<asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
</ItemTemplate>
</asp:TemplateField>
</Columns> </Columns>
@@ -223,7 +164,7 @@
<div id="DvModalComisiones" class="modal ADS fade" role="dialog"> <div id="DvModalComisiones" class="modal ADS fade" role="dialog">
<div class="modal-dialog" style="width: 650px;"> <div class="modal-dialog" style="width: 800px;">
<asp:UpdatePanel runat="server" class="modal-content" ID="UpDvModalComisiones" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" class="modal-content" ID="UpDvModalComisiones" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<div class="modal-header "> <div class="modal-header ">
@@ -247,13 +188,13 @@
EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField HeaderText="Codigo/Producto" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Código/Producto" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:Literal ID="LtlCodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal> <asp:Literal ID="LtlCodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
</ItemTemplate> </ItemTemplate>
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Medico" ItemStyle-HorizontalAlign="Left"> <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
<ItemTemplate> <ItemTemplate>
<asp:TextBox ID="TxtComisionMedico" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionMedico")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox> <asp:TextBox ID="TxtComisionMedico" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionMedico")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
</ItemTemplate> </ItemTemplate>

94
Ventas/RepComisionesSMS.aspx.vb
View File

@@ -1,40 +1,86 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Data
Imports Extensiones Imports Extensiones
Imports Microsoft.Extensions.Primitives
Partial Class Ventas_RepComisionesSMS Partial Class Ventas_RepComisionesSMS
Inherits ClsPaginas Inherits ClsPaginas
Property DTDatos As DataTable
Get
If ViewState("DTDatos") Is Nothing Then
ViewState("DTDatos") = New DataTable
End If
Return DirectCast(ViewState("DTDatos"), DataTable)
End Get
Set(value As DataTable)
ViewState("DTDatos") = value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
Dim FechaInicial As Date = New Date(10)
txtFechaI.Text = Now.FirstDayOfMonth.ToString("dd/MM/yyyy")
txtFechaF.Text = Now.ToString("dd/MM/yyyy")
CargaCombos()
CargaDatos() CargaDatos()
End If End If
End Sub End Sub
Private Sub CargaCombos()
'If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero() > 0 Then
' DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros(String.Format("VendedorTipo IN (1,4) AND (CveSubProyecto IS NULL OR CveSubProyecto = {0})", DdlSubProyectoDatos.SelectedValue))
'Else
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros("VendedorTipo = 1")
'End If
DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
DdlMedico.DataBind()
DdlMedico.Items.Insert(0, New ListItem("Todos", "-1"))
DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioAtendio.DataBind()
DdlUsuarioAtendio.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Public Sub CargaDatos() Public Sub CargaDatos()
'Dim ObjVentas As New ClsVentas
'If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1) Then LnkExportar.Visible = False
' GvDatos.DataSource = ObjVentas.DtResultados
'Else
' GvDatos.DataSource = Nothing
'End If
'ObjVentas.Dispose() Dim ObjVentas As New ClsVentas
'GvDatos.DataBind() If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1) Then
GvDatos.DataSource = ObjVentas.DtResultados
If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
LnkExportar.Visible = True
End If
Else
GvDatos.DataSource = Nothing
End If
ObjVentas.Dispose()
GvDatos.DataBind()
UpDatos.Update()
'UpDatos.Update()
@@ -49,10 +95,10 @@ Partial Class Ventas_RepComisionesSMS
Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
GvDatos.Columns(10).Visible = False GvDatos.Columns(10).Visible = False
Dim SbFiltros As New StringBuilder() Dim SbFiltros As New StringBuilder()
SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|") SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
GvDatos.Columns(10).Visible = True GvDatos.Columns(10).Visible = True
@@ -70,13 +116,14 @@ Partial Class Ventas_RepComisionesSMS
End Sub End Sub
Private Sub CargaComisiones() Private Sub CargaComisiones()
DTDatos = New DataTable
GvComisiones.DataSource = Nothing GvComisiones.DataSource = Nothing
Dim objVentas As New ClsVentas Dim objVentas As New ClsVentas
If objVentas.GetComisionesMedicas(UsuarioActual.CveEmpresa) Then If objVentas.GetComisionesMedicas(UsuarioActual.CveEmpresa) Then
GvComisiones.DataSource = objVentas.DtResultados GvComisiones.DataSource = objVentas.DtResultados
DTDatos = objVentas.DtResultados
End If End If
objVentas.Dispose() objVentas.Dispose()
@@ -98,8 +145,19 @@ Partial Class Ventas_RepComisionesSMS
For Each GvRow As GridViewRow In GvComisiones.Rows For Each GvRow As GridViewRow In GvComisiones.Rows
If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal, GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal, GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal) Then Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
TieneError = True Dim ComisionMedicoDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionMedico", $"CvePS = {CvePS} ").ToDecimal
Dim ComisionVendedorDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionVendedor", $"CvePS = {CvePS} ").ToDecimal
Dim ComisionTecnicoDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionTecnico", $"CvePS = {CvePS} ").ToDecimal
Dim ComisionMedicoGV As Decimal = GvRow.FCTextBox("TxtComisionMedico").Text.ToDecimal
Dim ComisionVendedorGV As Decimal = GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal
Dim ComisionTecnicoGV As Decimal = GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal
If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Then
If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, ComisionMedicoGV, ComisionVendedorGV, ComisionTecnicoGV) Then
TieneError = True
End If
End If End If
Next Next