Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsGenerales.vb

@@ -4160,14 +4160,15 @@ Public Class ClsGenerales
     End Function
 
 
-    Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer) As Boolean
+    Public Function GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen As Integer, Optional ValidaEntrega As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Inv_EntregaAlmacenRutaDetalleGet")
 
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
+            .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen
+            .Add("@ValidaEntrega", SqlDbType.Bit).Value = ValidaEntrega
         End With
 
         Try

App_Code/ClsVentas.vb

@@ -6197,7 +6197,8 @@ Public Class ClsVentas
     End Function
 
     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, Optional CvePeriodoPago As Integer = 1) As Integer
 
         Dim Retorno As Boolean = False
         CveMedicoNuevo = -1
@@ -6218,6 +6219,7 @@ Public Class ClsVentas
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CvePeriodoPago", SqlDbType.Int).Value = CvePeriodoPago
             .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output
 
         End With
@@ -6234,7 +6236,8 @@ Public Class ClsVentas
     End Function
 
     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, Optional CvePeriodoPago As Integer = 1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosUpdate")
@@ -6259,6 +6262,7 @@ Public Class ClsVentas
             '.Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
             .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CvePeriodoPago", SqlDbType.Int).Value = CvePeriodoPago
             '.Add("@Torre", SqlDbType.VarChar).Value = Torre
 
 
@@ -6827,7 +6831,7 @@ Public Class ClsVentas
 
     End Function
 
-    Public Function AddUpdateComisionesMedicas(CvePS As Integer, CveEmpresa As Integer, ComisionMedico As Decimal, ComisionVendedor As Decimal, ComisionTecnico As Decimal) As Boolean
+    Public Function AddUpdateComisionesMedicas(CvePS As Integer, CveEmpresa As Integer, ComisionMedico As Decimal, ComisionVendedor As Decimal, ComisionTecnico As Decimal, ComisionGerente As Decimal) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ComisionesMedicasAddUpdate")
@@ -6838,6 +6842,7 @@ Public Class ClsVentas
             .Add("@ComisionMedico", SqlDbType.Money).Value = ComisionMedico
             .Add("@ComisionVendedor", SqlDbType.Money).Value = ComisionVendedor
             .Add("@ComisionTecnico", SqlDbType.Money).Value = ComisionTecnico
+            .Add("@ComisionGerente", SqlDbType.Money).Value = ComisionGerente
         End With
 
         Try

Compras/PopUpVerFactura.aspx.vb

@@ -1582,7 +1582,7 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
             If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
                 DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
             End If
@@ -1610,19 +1610,19 @@ Partial Class PopUpVerFactura
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                 DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
             End If
-    Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
-    If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
+            Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
+            If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
                 DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
             End If
 
-    Dim params As New List(Of ReportParameter)
+            Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
             params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
             params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
-            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
                 If DtReporteCorte IsNot Nothing Then
                     Dim DtTT = GenerateTransposedTable(DtReporteCorte)
                     Dim DtDatosVentas As New DataTable()
@@ -1756,32 +1756,48 @@ Partial Class PopUpVerFactura
                     lrds.Add(rds5)
 
 
-                    If UsuarioActual.CveEmpresa = 193 Then
-    Dim CveCuenta As Integer = 186367
-    Using ObjConta As New ClsContabilidad
-    If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
-    Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
-                                lrds.Add(rdsConta)
-                            End If
-    End Using
+                    If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
+                        Dim CveCuenta As Integer = -1
+                        If UsuarioActual.CveEmpresa = 193 Then
+                            CveCuenta = 186367
+                        Else
+                            CveCuenta = 0
 
-    If DtDepositos IsNot Nothing Then
-    Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
+                            If CveSubProyecto = 12756 Then 'nav
+                                CveCuenta = 188796
+                            End If
+
+                            If CveSubProyecto = 12755 Then 'hillo
+                                CveCuenta = 188795
+                            End If
+                        End If
+
+                        If CveCuenta >= 0 Then
+                            Using ObjConta As New ClsContabilidad
+                                If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
+                                    Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
+                                    lrds.Add(rdsConta)
+                                End If
+                            End Using
+                        End If
+
+                        If DtDepositos IsNot Nothing Then
+                            Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
                             lrds.Add(rdsDepositos)
                         End If
 
-    End If
+                    End If
 
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
-    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
-    'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    End If
-    End If
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
+                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
+                    'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                End If
+            End If
 
-    Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
+            Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
             lrds.Add(rds)
             Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
             lrds.Add(rds2)
@@ -6277,7 +6293,7 @@ Partial Class PopUpVerFactura
             DtPrecios.Columns.Add(New DataColumn("CBBase64", GetType(String)))
 
             For Each Row As DataRow In DtPrecios.Rows
-                Row("CBBase64") = system.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
+                Row("CBBase64") = System.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
             Next
 
             Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"

Inventarios/EntradasSalidas.aspx.vb

@@ -1781,6 +1781,25 @@ Partial Class Inventarios_EntradasSalidas
             Exit Sub
         End If
 
+        If CveMovimiento <= 0 Then
+            If Request("CveEntregaAlmacen") IsNot Nothing AndAlso Request("CveEntregaAlmacen").ToString.ToEntero > 0 Then
+                Dim TieneRegistros As Boolean = False
+
+                Dim ObjGenerales As New ClsGenerales()
+                If ObjGenerales.GetEntregaAlmacenRutaDetalle(Request("CveEntregaAlmacen").ToString.ToEntero, ValidaEntrega:=True) Then
+                    If ObjGenerales.DtResultados.Rows.Count = 0 Then
+                        TieneRegistros = True
+                    End If
+                End If
+                ObjGenerales.Dispose()
+
+                If TieneRegistros Then
+                    Alert("La recolección ya ha sido realizada.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
+            End If
+        End If
+
         If GvM.Rows.Count > 0 Then
 
             'Dim CveMovimiento As Integer

UserControl/AddMedico.ascx

@@ -21,7 +21,7 @@
                         <h4 class="modal-title">
                             <asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</asp:Literal></h4>
                     </div>
-                    <div class="modal-body" >
+                    <div class="modal-body">
                         <div class="row">
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
@@ -34,12 +34,12 @@
                             </div>
                             <div class="col-md-4">
                                 <div class="form-group form-md-line-input input-iconright">
-                                <asp:TextBox ID="TxtAPellidos" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
-                                <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>
-                                <label for="<%= TxtAPellidos.ClientID.ToString()%>">Apellidos:</label>
-                                    </div>
-                            </div>                           
+                                    <asp:TextBox ID="TxtAPellidos" CssClass="form-control " runat="server" MaxLength="100" CausesValidation="true"></asp:TextBox>
+                                    <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>
+                                    <label for="<%= TxtAPellidos.ClientID.ToString()%>">Apellidos:</label>
+                                </div>
+                            </div>
                             <div class="col-md-4">
                             </div>
                         </div>
@@ -50,7 +50,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtCedulaProfesional" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
                                     <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="<%= TxtCedulaProfesional.ClientID.ToString()%>">Cédula Profesional:</label>
                                 </div>
                             </div>
@@ -74,15 +74,15 @@
 
                                 </div>
                             </div>
-                             <div class="col-md-4">
-                                 <div class="form-group form-md-line-input input-iconright">
-                                     <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
-                                     <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
-                                     <asp:RequiredFieldValidator ID="RfvTxtTelefono" runat="server" ControlToValidate="TxtTelefono" CssClass="help-block errorimput"
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtTelefono" CssClass="form-control " runat="server" MaxLength="10" CausesValidation="true"></asp:TextBox>
+                                    <ajax:MaskedEditExtender ID="MEETelefono" runat="server" TargetControlID="TxtTelefono" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
+                                    <asp:RequiredFieldValidator ID="RfvTxtTelefono" runat="server" ControlToValidate="TxtTelefono" CssClass="help-block errorimput"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Telefono''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
-                                     <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
-                                 </div>
-                             </div>
+                                    <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                </div>
+                            </div>
                         </div>
 
                         <div class="row">
@@ -93,7 +93,7 @@
                         <br />
 
                         <div class="row">
-                           
+
                             <div class="col-md-4">
 
                                 <div class="form-group form-md-line-input input-iconright">
@@ -101,23 +101,23 @@
                                     <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtCelular" ClearMaskOnLostFocus="false" MaskType="Number" Mask="(999) 999-9999" MessageValidatorTip="true" InputDirection="LeftToRight" ErrorTooltipEnabled="True"></ajax:MaskedEditExtender>
                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtCelular" CssClass="help-block errorimput"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Celular''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico">
-                                    </asp:RequiredFieldValidator>                                    
+                                    </asp:RequiredFieldValidator>
                                     <label for="<%= TxtCelular.ClientID.ToString()%>">Celular:</label>
                                 </div>
 
                             </div>
-                             <div class="col-md-4">
-                                 <div class="form-group form-md-line-input input-iconright">
-                                     <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
-                                     <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
-                                     <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
-                                         ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
-                                         ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
-                                     <asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput"
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtMail" CssClass="form-control " runat="server" MaxLength="300" CausesValidation="true"></asp:TextBox>
+                                    <ajax:FilteredTextBoxExtender ID="FilTxtMail" runat="server" FilterType="Numbers, LowercaseLetters, UppercaseLetters, Custom" ValidChars=".;@_-ñ" TargetControlID="TxtMail" />
+                                    <asp:RegularExpressionValidator ID="RETxtMail" runat="server" CssClass="help-block errorimput"
+                                        ValidationExpression="(([a-zA-Z0-9ñÑ_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*"
+                                        ControlToValidate="TxtMail" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardarMedico"></asp:RegularExpressionValidator>
+                                    <asp:RequiredFieldValidator ID="RfvTxtMail" runat="server" ControlToValidate="TxtMail" CssClass="help-block errorimput"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico"></asp:RequiredFieldValidator>
-                                     <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
-                                 </div>
-                             </div>
+                                    <label for="<%= TxtMail.ClientID.ToString()%>">Correo:</label>
+                                </div>
+                            </div>
                         </div>
 
                         <div class="row">
@@ -145,20 +145,35 @@
                                 </div>
                             </div>
                         </div>
+                        <div class="row">
+                            <div class="col-md-4">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlPeriodoPago" CssClass="form-control select2me" runat="server" Width="100%">
+                                        <asp:ListItem Value="-1">-</asp:ListItem>
+                                        <asp:ListItem Value="1">Mensual</asp:ListItem>
+                                        <asp:ListItem Value="2">Quincenal</asp:ListItem>
+                                        <asp:ListItem Value="3">Semanal</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlPeriodoPago.ClientID.ToString()%>">Perido de Pago:</label>
+                                </div>
+                            </div>
+                            <div class="col-md-8">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <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 class="form-group form-md-line-input input-iconright">
-                            <asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
-                            <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
                         </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"
-                                     Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
-                             </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"
+                                    Text="<i class='fa fa-plus'></i> Agregar"></asp:LinkButton>
+                            </div>
+                        </div>
 
                         <div class="row">
                             <div class="col-md-12">
@@ -171,7 +186,7 @@
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlClienteSucursal" runat="server" Text='<%# Eval("ClienteSucursal") %>'></asp:Literal>
                                             </ItemTemplate>
-                                        </asp:TemplateField>                                         				
+                                        </asp:TemplateField>
 
 
                                         <asp:TemplateField HeaderText="Dias de Atencion" ItemStyle-HorizontalAlign="Left">
@@ -186,26 +201,26 @@
                                             </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="Consultorio" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlConsultorio" runat="server" Text='<%# Eval("Consultorio") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
-                                         <asp:TemplateField HeaderText="Torre" ItemStyle-HorizontalAlign="Left">
-                                             <ItemTemplate>
-                                                 <asp:Literal ID="LtlTorre" runat="server" Text='<%# Eval("Torre") %>'></asp:Literal>
-                                             </ItemTemplate>
-                                         </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Torre" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlTorre" runat="server" Text='<%# Eval("Torre") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
 
-                                          <asp:TemplateField HeaderText="Asistente" ItemStyle-HorizontalAlign="Left">
-                                              <ItemTemplate>
-                                                  <asp:Literal ID="LtlAsistente" runat="server" Text='<%# Eval("AsistenteNombre") %>'></asp:Literal>
-                                              </ItemTemplate>
-                                          </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Asistente" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlAsistente" runat="server" Text='<%# Eval("AsistenteNombre") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
 
-                                       <%-- <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                        <%-- <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
                                             <ItemTemplate>
                                                 <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
                                             </ItemTemplate>

UserControl/AddMedico.ascx.vb

@@ -170,7 +170,7 @@ Partial Class UserControl_AddMedico
         TxtCelular.Text = ""
         DdlEspecialidad.SelectedValueExist(-1)
         DdlSubEspecialidad.SelectedValueExist(-1)
-
+        DdlPeriodoPago.SelectedValueExist(-1)
         DVUsuarioFechaIng.Visible = False
         TxtFechaIng.Text = ""
         TxtUsuario.Text = ""
@@ -209,7 +209,8 @@ Partial Class UserControl_AddMedico
     End Sub
 
     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, Optional CvePeriodoPago As Integer = -1)
 
         CargaCombos()
         CargaCombosMedicoClientesucursal()
@@ -233,11 +234,15 @@ Partial Class UserControl_AddMedico
         TxtUsuario.Text = Usuario
 
         DdlVendedor.SelectedValueExist(CveVendedor)
+        DdlPeriodoPago.SelectedValueExist(CvePeriodoPago)
 
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
         LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}"
 
+
+
+
         UpModal.Update()
 
         CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa)
@@ -257,13 +262,15 @@ Partial Class UserControl_AddMedico
 
         If CveMedico > 0 Then
             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, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then
                 ProcesoOK = True
             End If
         Else
 
             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, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero)
 
             If CveMedicoNuevo > 0 Then
 

Ventas/CatMedicos.aspx

@@ -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"--%>
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"                                    
-                                    DataKeyNames="CveMedico,Nombre,Apellidos,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,CvePeriodoPago"
                                     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">
                                     <Columns>

Ventas/CatMedicos.aspx.vb

@@ -188,7 +188,7 @@ Partial Class Ventas_CatMedicos
 
         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,
-                                        GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero)
+                                        GvRow.DataKey("FechaIng").ToDateTime, GvRow.DataKey("Usuario"), GvRow.DataKey("CveVendedor").ToEntero, CvePeriodoPago:=GvRow.DataKey("CvePeriodoPago").ToEntero)
 
 
 

Ventas/Clientes.aspx.vb

@@ -9587,13 +9587,26 @@ Partial Class Clientes
         Dim IVAFactura As Decimal = TmpDT.SUMD("ImporteIVA")
 
         Dim Folio As Integer = -1
-        Dim Serie As String = ""
-
-        'If FolioNotaCredito(Tipo) Then
-        '    Folio = FolioNotaAcumulador
-        '    Serie = SerieNotaAcumulador
-        'End If
-
+        Dim Serie As String = ""
+
+        If CveSubProyecto > 0 Then
+            Dim ObjFolios As New ClsGralFolios()
+            If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa, CveSubProyecto:=CveSubProyecto) Then
+                Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'")
+                If DT.Rows.Count > 0 Then
+                    Serie = DT.Rows(0)("Serie").ToString()
+                End If
+                DT.Dispose()
+            End If
+            ObjFolios.Dispose()
+        End If
+
+
+        'If FolioNotaCredito(Tipo) Then
+        '    Folio = FolioNotaAcumulador
+        '    Serie = SerieNotaAcumulador
+        'End If
+
         If ObjFactura IsNot Nothing Then
             ObjFactura.Dispose()
             ObjFactura = Nothing
@@ -9678,9 +9691,9 @@ Partial Class Clientes
         End If
 
         ObjFactura.FechaEjecucion = NowADS()
-        ObjFactura.CveSubProyecto = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoCobranza = UsuarioActual.CveSubProyecto
-        ObjFactura.CveSubProyectoEjecucion = UsuarioActual.CveSubProyecto
+        ObjFactura.CveSubProyecto = CveSubProyecto
+        ObjFactura.CveSubProyectoCobranza = CveSubProyecto
+        ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
 
 
         ObjFactura.SubTotal = SubTotalFactura

Ventas/PV.aspx.vb

@@ -2169,7 +2169,7 @@ Partial Class PV
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-1)
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then
+                If UsuarioActual.Empresa.Funcionalidad(180) = "1" AndAlso FechaICorte < NowADS().Date Then
                     DebeCerrarCorte = True
                     LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
                 Else

Ventas/PVCobranza.aspx.vb

@@ -143,7 +143,7 @@ Partial Class Ventas_PVCobranza
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5)
-                If FechaICorte < NowADS().Date Then
+                If UsuarioActual.Empresa.Funcionalidad(180) = "1" AndAlso FechaICorte < NowADS().Date Then
                     DebeCerrarCorte = True
                     LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
                 Else

Ventas/RepComisionesSMS.aspx

@@ -164,7 +164,7 @@
 
 
      <div id="DvModalComisiones" class="modal ADS fade" role="dialog">
-     <div class="modal-dialog" style="width: 800px;">
+     <div class="modal-dialog" style="width: 900px;">
          <asp:UpdatePanel runat="server" class="modal-content" ID="UpDvModalComisiones" UpdateMode="Conditional">
              <ContentTemplate>
                  <div class="modal-header ">
@@ -183,7 +183,7 @@
 
 
                              <asp:GridView ID="GvComisiones" runat="server" AutoGenerateColumns="False"
-                                 DataKeyNames="CvePS"
+                                 DataKeyNames="CvePS,ComisionMedico,ComisionGerente,ComisionVendedor,ComisionTecnico"
                                  data-sort="true" OnRowDataBound="GvComisiones_RowDataBound"
                                  EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                  <Columns>
@@ -200,15 +200,21 @@
                                          </ItemTemplate>
                                      </asp:TemplateField>
 
-                                     <asp:TemplateField HeaderText="Vendedor" ItemStyle-HorizontalAlign="Left">
+                                      <asp:TemplateField HeaderText="% Gerente" ItemStyle-HorizontalAlign="Left">
                                          <ItemTemplate>
-                                             <asp:TextBox ID="TxtComisionVendedor" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionVendedor")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
+                                             <asp:TextBox ID="TxtComisionGerente" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionGerente")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this);validaPorcentaje(this);" AutoComplete="off" ></asp:TextBox>
                                          </ItemTemplate>
                                      </asp:TemplateField>
 
-                                     <asp:TemplateField HeaderText="Técnico" ItemStyle-HorizontalAlign="Left">
+                                     <asp:TemplateField HeaderText="% Vendedor" ItemStyle-HorizontalAlign="Left">
                                          <ItemTemplate>
-                                             <asp:TextBox ID="TxtComisionTecnico" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionTecnico")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
+                                             <asp:TextBox ID="TxtComisionVendedor" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionVendedor")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this);validaPorcentaje(this);" AutoComplete="off"  ></asp:TextBox>
+                                         </ItemTemplate>
+                                     </asp:TemplateField>
+
+                                     <asp:TemplateField HeaderText="% Técnico" ItemStyle-HorizontalAlign="Left">
+                                         <ItemTemplate>
+                                             <asp:TextBox ID="TxtComisionTecnico" Width="75px" runat="server" Text='<%# String.Format("{0:#.00}", Eval("ComisionTecnico")) %>' Style="text-align: right;" onkeyup="FormatoMoneda(this);validaPorcentaje(this);" AutoComplete="off" ></asp:TextBox>
                                          </ItemTemplate>
                                      </asp:TemplateField>                                   
 
@@ -235,7 +241,19 @@
 
     <script>
         
-                                     
+        function validaPorcentaje(textbox) {            
+            
+            var valor = parseFloat(textbox.value.replace(/,/g, ''));
+            
+            if (valor > 100) {
+
+                textbox.value = '100';
+            } else if ( isNaN(valor) || valor == 0) {
+
+                textbox.value = '';
+            }            
+
+        }                      
     </script>
   
 </asp:Content>

Ventas/RepComisionesSMS.aspx.vb

@@ -149,13 +149,16 @@ Partial Class Ventas_RepComisionesSMS
             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 ComisionGerenteDT As Decimal = DTDatos.FiltroPrimeroValor("ComisionGerente", $"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
+            Dim ComisionGerenteGV As Decimal = (GvRow.FCTextBox("TxtComisionGerente").Text.ToDecimal / 100).RoundSQL(2)
+            Dim ComisionVendedorGV As Decimal = (GvRow.FCTextBox("TxtComisionVendedor").Text.ToDecimal / 100).RoundSQL(2)
+            Dim ComisionTecnicoGV As Decimal = (GvRow.FCTextBox("TxtComisionTecnico").Text.ToDecimal / 100).RoundSQL(2)
 
-            If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Then
-                If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, ComisionMedicoGV, ComisionVendedorGV, ComisionTecnicoGV) Then
+
+            If ComisionMedicoDT <> ComisionMedicoGV Or ComisionVendedorDT <> ComisionVendedorGV Or ComisionTecnicoDT <> ComisionTecnicoGV Or ComisionGerenteDT <> ComisionGerenteGV Then
+                If Not objVentas.AddUpdateComisionesMedicas(GvRow.DataKey("CvePS").ToEntero, UsuarioActual.CveEmpresa, ComisionMedicoGV, ComisionVendedorGV, ComisionTecnicoGV, ComisionGerenteGV) Then
                     TieneError = True
                 End If
             End If
@@ -177,16 +180,36 @@ Partial Class Ventas_RepComisionesSMS
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If e.Row.FCTextBox("TxtComisionMedico").Text.ToDecimal = 0 Then
+            'ComisionMedico,ComisionGerente,ComisionVendedor,ComisionTecnico"
+
+            If e.Row.DataKey("ComisionMedico").ToDecimal = 0 Then
                 e.Row.FCTextBox("TxtComisionMedico").Text = ""
+            Else
+                e.Row.FCTextBox("TxtComisionMedico").Text = e.Row.DataKey("ComisionMedico").ToDecimal.ToString("###.00")
             End If
-            If e.Row.FCTextBox("TxtComisionVendedor").Text.ToDecimal = 0 Then
+
+
+            If e.Row.DataKey("ComisionGerente").ToDecimal = 0 Then
+                e.Row.FCTextBox("TxtComisionGerente").Text = ""
+            Else
+                e.Row.FCTextBox("TxtComisionGerente").Text = (e.Row.DataKey("ComisionGerente").ToDecimal * 100).ToString("###.00")
+            End If
+
+
+            If e.Row.DataKey("ComisionVendedor").ToDecimal = 0 Then
                 e.Row.FCTextBox("TxtComisionVendedor").Text = ""
+            Else
+                e.Row.FCTextBox("TxtComisionVendedor").Text = (e.Row.DataKey("ComisionVendedor").ToDecimal * 100).ToString("###.00")
             End If
-            If e.Row.FCTextBox("TxtComisionTecnico").Text.ToDecimal = 0 Then
+
+            If e.Row.DataKey("ComisionTecnico").ToDecimal = 0 Then
                 e.Row.FCTextBox("TxtComisionTecnico").Text = ""
+            Else
+                e.Row.FCTextBox("TxtComisionTecnico").Text = (e.Row.DataKey("ComisionTecnico").ToDecimal * 100).ToString("###.00")
             End If
 
+
+
         End If
 
     End Sub

Ventas/Ventas.aspx.vb

@@ -3771,7 +3771,7 @@ Partial Class Ventas
             If ObjPVenta.DtResultados.Rows.Count > 0 Then
                 CveCorte = ObjPVenta.CveCorte
                 Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5)
-                If (UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso FechaICorte < NowADS().Date Then
+                If (UsuarioActual.Empresa.Funcionalidad(180) = "1") AndAlso FechaICorte < NowADS().Date Then
                     DebeCerrarCorte = True
                     LblMotivoBloqueo.Text = $"Existe un corte del día <b>{FechaICorte.ToString("dd/MM/yyyy")}</b>. Favor de cerrarlo para iniciar un nuevo corte."
                 Else