EMD - Mejoras Propuestas - Sayri, pendiente verificar correo

OC/OC.aspx

@@ -455,7 +455,7 @@
                                     <tr id="TrMetodoPago" runat="server" visible="false">
                                         <td><b>Método de pago:</b></td>
                                         <td>
-                                            <asp:DropDownList ID="DdlMetodoPago" CssClass="form-control  select2me" runat="server" Width="100%" CausesValidation="true">
+                                            <asp:DropDownList ID="DdlMetodoPago" CssClass="form-control  select2me" runat="server" Width="100%" CausesValidation="true" AutoPostBack="true" OnSelectedIndexChanged="DdlMetodoPago_SelectedIndexChanged">
                                                 <asp:ListItem Text="-" Value="-1"></asp:ListItem>
                                                 <asp:ListItem Text="Contado" Value="0"></asp:ListItem>
                                                 <asp:ListItem Text="Crédito" Value="1"></asp:ListItem>
@@ -1563,6 +1563,89 @@
 
     <br />
     <div class="row">
+
+        <asp:UpdatePanel runat="server" ID="UpPanelDVAnticiposContado" class="portlet-body form" UpdateMode="Conditional">
+            <ContentTemplate>                
+                <div class="col-md-3" runat="server" id="DVAnticposContado" visible="false">
+
+
+
+                    <div class="portlet light xspadding  bordered">
+                        <div class="portlet-title">
+                            <div class="caption font-green">
+                                <i class="icon-pin font-green"></i>
+                                <span class="caption-subject bold uppercase">Anticipos </span>
+                            </div>
+                            <div class="tools">
+                                <a href="javascript;" class="expand" data-original-title="" title=""></a>
+                            </div>
+                        </div>
+                        <div class="portlet-body">
+                        
+                             <div class="row ">
+                                 <label class="col-md-3">Porcentaje:</label>                                 
+                                 <div class="col-md-4 form-group">
+                                     <div class="input-group">
+                                         <asp:TextBox ID="TxtSAImPorcentajeContado" min="0" max="100" CssClass="form-control input-sm" runat="server" onkeyup="SAImPorcentajeContadokeyup()" ClientIDMode="Static"></asp:TextBox>
+                                         <asp:RequiredFieldValidator ID="RFVSAImPorcentajeContado" runat="server" ControlToValidate="TxtSAImPorcentajeContado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Porcentaje''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                         <ajax:ValidatorCalloutExtender ID="VCESAImPorcentajeContado" runat="server" Enabled="True" HighlightCssClass="vco" TargetControlID="RFVSAImPorcentajeContado" Width="300px"></ajax:ValidatorCalloutExtender>
+                                         <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtSAImPorcentajeContado" ValidChars="1234567890." />
+                                         <span class="input-group-addon">
+                                             <i style="font-weight: 700;">%</i>
+                                         </span>
+                                     </div>
+                                 </div>
+                             </div>
+                             <div class="row ">
+                                 <label class="col-md-3">Importe:</label>
+                                   <div class="col-md-4 form-group">
+                                      <div class="input-group">
+                                           <asp:TextBox ID="TxtSAImporteContado" min="0" max='<%=LblTotal.Text.ToString()%>' CssClass="form-control input-sm" runat="server" onkeyup="SAImporteContadokeyup()" ClientIDMode="Static"></asp:TextBox> 
+                                          <asp:RangeValidator ID="RVSAImporteContado" CssClass="form-control" runat="server" ControlToValidate="TxtSAImporteContado" Display="None" Type="Double" MinimumValue="1.00" MaximumValue="2147483647" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Importe''</b> debe ser mayor a cero." ValidationGroup="GrpGuardar"></asp:RangeValidator> 
+                                          <ajax:ValidatorCalloutExtender ID="VCESAImporteContado" runat="server" HighlightCssClass="vco" TargetControlID="RVSAImporteContado" Width="300px"></ajax:ValidatorCalloutExtender> 
+                                          <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtSAImporteContado" ValidChars="1234567890." />
+                                          <span class="input-group-addon">
+                                              <i style="font-weight: 700;">$</i>
+                                          </span>
+                                           <div class="input-group" style="text-align: right!important">
+                                             <asp:Label runat="server" ID="LblSaldoOCAnticipoContado"></asp:Label>
+                                         </div>
+                                      </div>
+                                  </div>                      
+                             </div>
+                             <hr />
+                             <div class="row">
+                                 <label class="col-md-3">Solicitar a:</label>
+                                 <div class="col-md-9">
+                                     <asp:DropDownList ID="DdlSAUsuarioContado" CssClass="form-control input-sm select2me" DataTextField="Nombre" DataValueField="CveUsuario" runat="server" Width="100%"></asp:DropDownList>
+                                     <asp:RequiredFieldValidator ID="RFVSAUsuarioContado" runat="server" InitialValue="-1" ControlToValidate="DdlSAUsuarioContado" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Usuario''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                     <ajax:ValidatorCalloutExtender ID="VCESAUsuarioContado" runat="server" HighlightCssClass="vco" TargetControlID="RFVSAUsuarioContado" Width="300px"></ajax:ValidatorCalloutExtender>
+                                 </div>
+                             </div>
+                             <div class="row">
+                                 <label class="col-md-3">Observaciones:</label>
+                                 <div class="col-md-9">
+                                     <asp:TextBox ID="TxtSAObservacionesContado" CssClass="form-control input-sm" runat="server" Style="width: 100%; height: 40px;" ValidationGroup="GrpGuardar" TextMode="MultiLine" Rows="5" />
+                                 </div>
+                             </div>
+                         </div>
+                         <div class="portlet-footer">
+                             <%--<button id="CancelarSolicitarAnticipoContado" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                             <asp:Button Text="Guardar" ID="BtnSolicitarAnticipoContado" CssClass="btn btn-primary" ValidationGroup="GrpGuardar" runat="server" />--%>
+                         </div>
+                    </div>
+
+
+
+ 
+
+                    
+                </div>
+            </ContentTemplate>       
+        </asp:UpdatePanel>
+
+        
+
         <div class="col-md-3">
 
             <div class="portlet light xspadding  bordered">
@@ -2912,10 +2995,34 @@
                 $('#<%= TxtSAImPorcentaje.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
             });
 
+
+            <%--$('#<%= TxtSAImPorcentajeContado.ClientID%>').keyup(function () {
+                console.log($(this).val());
+                var importe = (ToDouble($(this).val()) / 100) * ToDouble($get("LblTotal").value.replace(/,/g, ''));
+                $('#<%= TxtSAImporteContado.ClientID%>').val( FormatoNumero(importe, 2).replace(/,/g, "")  );
+            });
+            $('#<%= TxtSAImporteContado.ClientID%>').keyup(function () {
+                var importe = (100 * ToDouble($(this).val())) / ToDouble($get("LblTotal").value.replace(/,/g, ""));
+                $('#<%= TxtSAImPorcentajeContado.ClientID%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
+            });--%>
+
+
+
             $get('HdnWidth').value = $("#DivConceptosContenido").width();
 
         });
 
+
+        function SAImPorcentajeContadokeyup() {            
+            var importe = (ToDouble($('#TxtSAImPorcentajeContado').val()) / 100) * ToDouble($get("LblTotal").value.replace(/,/g, ''));
+            $('#TxtSAImporteContado').val(FormatoNumero(importe, 2).replace(/,/g, ""));
+        }
+
+        function SAImporteContadokeyup() {
+            var importe = (100 * ToDouble($('#TxtSAImporteContado').val())) / ToDouble($get("LblTotal").value.replace(/,/g, ""));
+            $('#TxtSAImPorcentajeContado%>').val(FormatoNumero(importe, 2).replace(/,/g, ""));
+         }
+
         function showDivEC(CveCotizacion) {
             $('#<%=TxtMotivoEliminacion.ClientID%>').val("");
             $('#divEliminarCotizacion').modal();

OC/OC.aspx.vb

@@ -2,6 +2,7 @@
 Option Strict On
 
 Imports System.Data
+Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports GemBox.Spreadsheet
@@ -2820,6 +2821,15 @@ Partial Class OC_OC
             End If
 
 
+            If Not TieneError AndAlso DdlMetodoPago.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+
+                If Not GeneraAnticpoContado(CveOrdenCompra, OC.IniciaTransacSQL()) Then
+                    TieneError = True
+                End If
+
+            End If
+
+
             If Not TieneError Then
                 If Conta IsNot Nothing Then Conta.Commit()
                 OC.Commit()
@@ -3207,6 +3217,15 @@ Partial Class OC_OC
 
 
 
+
+            'If Not TieneError AndAlso DdlMetodoPago.SelectedValue.ToEntero = 0 AndAlso TipoOC = "OC" Then
+
+            '    If Not GeneraAnticpoContado(CveOrdenCompra, OC.IniciaTransacSQL()) Then
+            '        TieneError = True
+            '    End If
+
+            'End If
+
             'COMMIT
             If Not TieneError Then
                 'If MonedaTexto <> DdlMoneda.SelectedItem.Text Then
@@ -3258,6 +3277,9 @@ Partial Class OC_OC
             End If
         End If
 
+
+
+
         'TERMINA TODO POR SI OCURRIÓ ALGO RARO
         If TieneError Then
             If OC IsNot Nothing Then OC.RollBack()
@@ -5379,7 +5401,12 @@ Partial Class OC_OC
     End Sub
     Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer)
         Dim Param As New List(Of String)
+
         Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+        If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
+            DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual)
+        End If
+
         Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para 
         Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
         Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), TxtSAImporte.Text, DdlProveedores.SelectedText))
@@ -8846,4 +8873,80 @@ Partial Class OC_OC
 
     End Sub
 
+
+    Protected Sub DdlMetodoPago_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        DVAnticposContado.Visible = False
+
+        If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
+            DVAnticposContado.Visible = True
+            DdlSAUsuarioContado.DataSource = GlobalDTUsuarios(-1, CveEmpresaActual).FiltraParametros("CvePlataforma = 1", "Nombre")
+            DdlSAUsuarioContado.DataBind()
+            DdlSAUsuarioContado.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            'CargaAnticiposSolicitudesContado()
+        End If
+
+        UpPanelDVAnticiposContado.Update()
+    End Sub
+
+
+    Protected Function GeneraAnticpoContado(CveOrdenCompraContado As Integer, ByRef transaccionSql As SqlTransaction) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        If TxtSAImporteContado.Text.ToDecimal > LblTotal.Text.ToDecimal Then
+            Alert("El importe solicitado supera el saldo de la orden de compra", TipoMensaje.MsgAdvertencia)
+            Return False
+        End If
+
+        Dim Descripcion As New StringBuilder
+        Descripcion.AppendFormat("Importe anticipo : ${0} ({1}%) - <a target=""_blank"" href=""/Bancos/IE.aspx?Opcion=EGSSINFACT&CveOC={2}"">Pagar anticipo</a> - <b>Observacion:</b> {2} ", TxtSAImporteContado.Text.FormatoNumero, TxtSAImPorcentajeContado.Text, CveOrdenCompraContado, TxtSAObservacionesContado.Text)
+        Descripcion.AppendFormat("Orden de compra : {0} - <a target=""_blank"" href=""/OC/OC.aspx?OC={1}"">Ir a la orden de compra</a> - <a target=""_blank"" href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir OC</a>", Folio, CveOrdenCompraContado, Encripta(String.Format("OP=OC&CVEOC={0}", CveOrdenCompraContado)))
+
+
+        Dim Asunto As String = $"{lblFolio.Text} - Solicitud de anticipo "
+        Dim ObjOC As New ClsOC(transaccionSql)
+        Dim ObjOI As New ClsOIEventos(ObjOC.IniciaTransacSQL)
+        Dim TieneError As Boolean = False
+
+        If ObjOI.AddEventoTarea(Asunto, Descripcion.ToString, 1, UsuarioActual.CveUsuario, DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, NowADS(), NowADS().AddMinutes(15), -1, 1, -1, "-1", -1, -1, -1, -1, -1, CveOrdenCompraContado.ToEntero, -1, -1, UsuarioActual.CveUsuario, -1, CveEmpresaActual) Then
+            If Not ObjOC.AddSolicitudAnticipo(CveOrdenCompraContado, TxtSAImporteContado.Text.ToDecimal, CveEmpresaActual) Then
+                TieneError = True
+            End If
+        Else
+            TieneError = True
+        End If
+
+        If Not ObjOI.AddEventoBitacora($"Solicitud de anticipo de orden de compra por ${TxtSAImporteContado.Text.FormatoNumero}", "-1", UsuarioActual.CveUsuario, CveEmpresaActual, CveOC:=CveOrdenCompraContado) Then
+            TieneError = True
+        End If
+
+        If Not TieneError Then
+            EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento)
+            'LIMPIA
+            DdlSAUsuarioContado.SelectedValue = "-1"
+            TxtSAImporteContado.Text = ""
+            TxtSAObservacionesContado.Text = ""
+            TxtSAImPorcentajeContado.Text = ""
+            Alert("La solicitud de anticipo ha sido enviada correctamente.", TipoMensaje.MsgInformacion)
+        Else
+            Alert("Ocurrió un error al hacer la solicitud de anticipo.", TipoMensaje.MsgError)
+        End If
+
+
+        If TieneError Then
+            respuesta = False
+        Else
+            respuesta = True
+        End If
+
+        Return respuesta
+
+    End Function
+
+
+
+
+
 End Class
+