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

App_Code/ClsVentas.vb

@@ -6932,6 +6932,78 @@ Public Class ClsVentas
 #End Region
 
 
+#Region "VENTAS MEDICAS COMISIONES ESPECIALES"
+
+    Public Function GetComisionesMedicasEsPeciales(CveMedico As Integer, CvePS As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ComisionesMedicasEspecialesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las comisiones especiales.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function AddComisionesMedicasEspeciales(CveMedico As Integer, CvePS As Integer, TipoComision As Integer, Comision As Decimal, CveUsuario As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ComisionesMedicasEspecialesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@TipoComision", SqlDbType.Int).Value = TipoComision
+            .Add("@Comision", SqlDbType.Money).Value = Comision
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agegar la comisión especial", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+    Public Function RemoveComisionesMedicasEspeciales(CveMedicoComision As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_ComisionesMedicasEspecialesRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoComision", SqlDbType.Int).Value = CveMedicoComision
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la comision especial.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+#End Region
+
 #Region "DEVOLUICON"
 
     Public Function UpdateVentasDetalleCantidadDevolucion(CveVentaDetalle As Integer, CantidadDevolucion As Decimal) As Boolean

Bancos/ProveedoresAbonar.aspx

@@ -67,7 +67,7 @@
                             </div>
                             <div class="col-md-5" runat="server" id="DivTC" visible="false">
                                 T.C.:
-                                <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaPesosDolares();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
+                                <asp:TextBox ID="TxtTC" runat="server" Text="1" placeholder="Tipo de Cambio" CssClass="form-control input-sm" MaxLength="12" onblur="CambiaDolaresPesos();" Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />
                                 <asp:RequiredFieldValidator ID="RFVTC" Enabled="false" runat="server" ControlToValidate="TxtTC" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Cambio''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                 <ajax:ValidatorCalloutExtender ID="VCETC" runat="server" HighlightCssClass="vco" TargetControlID="RFVTC" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <asp:Label ID="LbImporteME" Text="" ClientIDMode="Static" runat="server" />                             

Bancos/ProveedoresAbonar.aspx.vb

@@ -327,9 +327,21 @@ Partial Class Bancos_ProveedoresAbonar
     Private Sub CambiaTipoMoneda()
 
         If DivTC.Visible Then
+
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
-            If ChkPagarDolares.Checked Then RegistraScript("CambiaPesosDolares();")
+
-            If ChkPagarPesos.Checked Then RegistraScript("CambiaDolaresPesos();")
+            If ChkPagarDolares.Checked Then
+                'RegistraScript("CambiaPesosDolares();")
+                RegistraScript("CambiaDolaresPesos();")
+
+            End If
+
+            If ChkPagarPesos.Checked Then
+                'RegistraScript("CambiaDolaresPesos();")
+                RegistraScript("CambiaPesosDolares();")
+
+            End If
+
         End If
         UpDatos.Update()
     End Sub
@@ -1343,6 +1355,7 @@ Partial Class Bancos_ProveedoresAbonar
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
             TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+            TxtTC.Attributes.Add("onblur", "CambiaPesosDolares()")
         Else
             DivTC.Visible = False
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
@@ -1362,6 +1375,7 @@ Partial Class Bancos_ProveedoresAbonar
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
             TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+            TxtTC.Attributes.Add("onblur", "CambiaDolaresPesos()")
         Else
             'DivDolaresDolares.Visible = False
             CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)

Contabilidad/RegPrePolizaS.aspx

@@ -187,8 +187,8 @@
                                             </div>
                                             <div class="col-md-6">
                                                 <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox CssClass="form-control" ID="TxtUsuarioElaboro" runat="server" MaxLength="15" Enabled="false"></asp:TextBox>
+                                                    <asp:Label CssClass="form-control" ID="LblUsuarioElaboro" runat="server" MaxLength="15" ></asp:Label>
-                                                    <label for="<%= TxtUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>
+                                                    <label for="<%= LblUsuarioElaboro.ClientID.ToString()%>">Usuario Elaboró: </label>
                                                 </div>
                                             </div>
                                         </div>

Contabilidad/RegPrePolizaS.aspx.vb

@@ -324,7 +324,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                     TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
                     TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
                     TxtConcepto.Enabled = True
-                    TxtUsuarioElaboro.Text = UsuarioActual.Nombre
+                    LblUsuarioElaboro.Text = UsuarioActual.Nombre
                 End If
 
 
@@ -352,7 +352,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFechaDocumento.Text = NowADS().ToString("dd/MM/yyyy")
                 TxtFechaelaboracion.Text = NowADS().ToString("dd/MM/yyyy")
                 TxtConcepto.Enabled = True
-                TxtUsuarioElaboro.Text = UsuarioActual.Usuario
+                LblUsuarioElaboro.Text = UsuarioActual.Usuario
 
             End If
 
@@ -453,13 +453,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Folio = dr("FolioPoliza").ToString
 
                 TxtFolio.Text = dr("FolioPoliza").ToString
-                TxtUsuarioElaboro.Text = dr("UsuarioNombre").ToString
+                LblUsuarioElaboro.Text = dr("UsuarioNombre").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
                 TxtFechaelaboracion.ToolTip = dr("FechaIng").ToString.ToDate.ToString("HH:mm:ss")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString.ToEntero
                 DdlPlantilla.SelectedValueExist(CvePlantillaPoliza)
 
-                If UsuarioActual.CveRol = 1 Then TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
+                LblUsuarioElaboro.ToolTip = dr("Modulo").ToString
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     LnkAddConcepto.Visible = True

Ventas/RepComisionesSMS.aspx

@@ -19,6 +19,9 @@
         <ContentTemplate>
             <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>
+            </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkComisionesEspeciales" OnClick="LnkComisionesEspeciales_Click" data-toggle="tooltip" data-placement="left" title="Comisiones" Text="<i class='fa fa-money'></i> Comisiones Especiales"></asp:LinkButton>
             </li>
               <li>
                  <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
@@ -282,6 +285,79 @@
  </div>
 
 
+
+
+         <div id="DvModalComisionesEspeciales" class="modal ADS fade" role="dialog">
+     <div class="modal-dialog" style="width: 900px;">
+         <asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel1" UpdateMode="Conditional">
+             <ContentTemplate>
+                 <div class="modal-header ">
+                     <button type="button" class="close" data-dismiss="modal">×</button>
+                     <h4 class="modal-title">
+                         <asp:Literal ID="Literal2" runat="server">Comisiones Especiales</asp:Literal></h4>
+                 </div>
+                 <div class="modal-body">
+
+                      <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                         <input type="text" id="TxtBusquedaComicionesEspeciales" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaComiciones','{0}')", GvComisionesEspeciales.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaComicionesEspeciales','{0}')", GvComisionesEspeciales.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                     </div>
+                     <div class="row">
+                         <div class="col-md-12">
+
+
+                             <asp:GridView ID="GvComisionesEspeciales" runat="server" AutoGenerateColumns="False"
+                                 DataKeyNames="CveMedicoComision,CveMedico,CvePS,TipoComision,Comision,CveUsuario"
+                                 data-sort="true" 
+                                 EmptyDataText="No se encontraron Comisiones" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                 <Columns>
+
+                                     <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
+                                         <ItemTemplate>
+                                             <asp:Literal ID="LtlMedico" runat="server" Text='<%# Eval("Medico") %>'></asp:Literal>
+                                         </ItemTemplate>
+                                     </asp:TemplateField>
+                                     <asp:TemplateField HeaderText="Código/Producto" ItemStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlCodigoPS" runat="server" Text='<%# Eval("CodigoPS") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>
+                                    <asp:TemplateField HeaderText="TipoComision" ItemStyle-HorizontalAlign="Left">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlTipoComision" runat="server" Text='<%# Eval("TipoComisionStr") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>   
+                                     <asp:TemplateField HeaderText="Comision" ItemStyle-HorizontalAlign="Right">
+                                        <ItemTemplate>
+                                            <asp:Literal ID="LtlTipoComision" runat="server" Text='<%# Eval("Comision") %>'></asp:Literal>
+                                        </ItemTemplate>
+                                    </asp:TemplateField>   
+                                      <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="60px">
+                                         <ItemTemplate>         
+                                             <asp:LinkButton ID="LnkEliminarComisionEspecial" OnClick="LnkEliminarComisionEspecial_Click" runat="server" Visible="true" AlternateText="Eliminar" CausesValidation="False" 
+                                                 CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" 
+                                                 data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                         </ItemTemplate>
+                                     </asp:TemplateField>
+                                                                    
+
+                                 </Columns>
+                             </asp:GridView>
+ 
+
+                         </div>
+                     </div>                      
+                 </div>
+
+                 <div class="modal-footer">
+                     <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
+                 </div>                    
+             </ContentTemplate>
+         </asp:UpdatePanel>
+     </div>
+ </div>
+ 
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 

Ventas/RepComisionesSMS.aspx.vb

@@ -248,4 +248,26 @@ Partial Class Ventas_RepComisionesSMS
         End If
 
     End Sub
+
+#Region "COMISIONES ESPECIALES"
+
+    Protected Sub LnkComisionesEspeciales_Click(sender As Object, e As EventArgs)
+
+        CargaComisionesEspeciales()
+        RegistraScript("$('#DvModalComisionesEspeciales').modal('show');")
+
+    End Sub
+
+    Private Sub CargaComisionesEspeciales()
+
+    End Sub
+
+    Protected Sub LnkEliminarComisionEspecial_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+    End Sub
+
+#End Region
+
+
+
 End Class