IE Pago de anticipos de OC en dolares con pesos

Bancos/IE.aspx

@@ -123,20 +123,48 @@
                                     <asp:HiddenField ID="HdnTipoTransaccion" runat="server" Value="" />
                                 </div>
 
+
+                                <asp:Label CssClass="col-md-1" Text="" ID="LbTipoMoneda" runat="server"   />
+                                <div class="col-md-2" id="DVPAgoEnPesos" runat="server"  visible ="false">
+                                    <asp:CheckBox Text="Pagar con pesos" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarPesos" OnCheckedChanged="ChkPagarPesos_CheckedChanged" runat="server" ClientIDMode="Static" />
+                                    <%--<asp:CheckBox Text="Pagar con dolares" TextAlign="Right" Visible="false" AutoPostBack="true" ID="ChkPagarDolares" runat="server" OnCheckedChanged="ChkPagarDolares_CheckedChanged" ClientIDMode="Static" />--%>
+                                </div>
+
+
                             </div>
                             <div class="row">
                                 <label class="col-md-2 control-label">Cuenta:</label>
-                                <div class="col-md-5">
+                                <div class="col-md-4">
                                     <asp:Label ID="LblCuenta" runat="server" Text=""></asp:Label>
                                     <asp:DropDownList ID="DdlCuenta" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" ValidationGroup="GrpGuardar">
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RFVCuenta" runat="server" ControlToValidate="DdlCuenta" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="VCOCuenta" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuenta" Width="300px"></ajax:ValidatorCalloutExtender>
                                 </div>
-                                <div class="col-md-2">
+                                <div class="col-md-1">
                                     <asp:Label ID="LblEstatusIE" runat="server" Text="Activo" Visible="false"></asp:Label>
                                     <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
                                 </div>
+                                
+                            <div class="col-md-2" 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="CambiaTCPagoOC();"  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" />
+                                <div style="display:none">
+                                    <asp:Button ID="LnkActualizaTCOC" ClientIDMode="Static"  runat="server" Text="Actaulziar" OnClick="LnkActualizaTCOC_Click" ></asp:Button>
+                                </div>
+
+                            </div>
+                            <div class="col-md-2" runat="server" id="DivTC2" visible="false">
+                                    Dolares
+                                    <asp:TextBox ID="TxtImporteDolares" runat="server" Text="1" placeholder="Dolares" CssClass="form-control input-sm" MaxLength="12"   Width="70px" ClientIDMode="Static" Style="text-align: right; display: inline-block;" />                                                                        
+                                    <%--<asp:Label ID="Label1" Text="" ClientIDMode="Static" runat="server" />--%>
+
+                            </div>
+
+
                             </div>
                             <div class="row" id="DivCheques" runat="server" visible="false">
                                 <label class="col-md-2 control-label">Movimiento Relacionado:</label>
@@ -1781,5 +1809,10 @@
             return false;
         }
 
+        function CambiaTCPagoOC() {
+             
+            $("#LnkActualizaTCOC").click();
+        }
+
     </script>
 </asp:Content>

Bancos/IE.aspx.vb

@@ -297,6 +297,17 @@ Partial Class Bancos_IE
         End Set
     End Property
 
+
+    Private Property CveMonedaOriginal As Integer
+        Get
+            Return ViewState("CveMonedaOriginal").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMonedaOriginal") = value
+        End Set
+    End Property
+
+
     Private Property CveOCSolicitudAnticipo As Integer
         Get
 
@@ -504,6 +515,22 @@ Partial Class Bancos_IE
         End Set
     End Property
 
+
+    Private Property ImporteOriginalDolaras As Decimal
+        Get
+            If ViewState("ImporteOriginalDolaras") Is Nothing Then
+                Return 0
+            Else
+                Return ViewState("ImporteOriginalDolaras").ToString().ToDecimal()
+            End If
+
+        End Get
+        Set(value As Decimal)
+            ViewState("ImporteOriginalDolaras") = value
+        End Set
+    End Property
+
+
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
 
     Property CveComplementoPagoCancelar As Integer
@@ -2471,6 +2498,9 @@ Partial Class Bancos_IE
 
         If CveOCSolicitudAnticipo > 0 Then
 
+
+
+
             Dim ObjOC As New ClsOC
             If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
                 SaldoOCAnticipo = ObjOC.DtResultados(0)("Saldo").ToString.ToDecimal
@@ -2479,10 +2509,18 @@ Partial Class Bancos_IE
             End If
             ObjOC.Dispose()
 
-            If TxtImporte.Text.ToDecimal > SaldoOCAnticipo Then
+            Dim ImporteComparacion As Decimal = TxtImporte.Text.ToDecimal
+
+            '
+            If ChkPagarPesos.Checked Then
+                ImporteComparacion = ImporteOriginalDolaras
+            End If
+
+            If ImporteComparacion > SaldoOCAnticipo Then
                 EsValido = False
                 Alert($"El importe  del movimiento es mayor al saldo de la orden de compra  importe movmiento {TxtImporte.Text.FormatoNumero } saldo orden de compra: {SaldoOCAnticipo.ToString.FormatoNumero}", TipoMensaje.MsgAdvertencia)
             End If
+
         End If
 
         Return EsValido
@@ -5557,11 +5595,23 @@ Partial Class Bancos_IE
                     Else
                         TxtImporte.Text = DrOC("ImporteAnticipo").ToString.FormatoNumero
                         TxtImporteLetra.Text = DrOC("ImporteAnticipo").ToString.ToDouble.Texto2Letras(DrOC("CveMoneda").ToString.ToEntero)
+
+                        ImporteOriginalDolaras = DrOC("ImporteAnticipo").ToString.ToDecimal
                     End If
 
                     DdlMoneda.SelectedValue = DrOC("CveMoneda").ToString
+
                     CveMoneda = DrOC("CveMoneda").ToString.ToEntero
                     CargaCuenta(DrOC("CveMoneda").ToString.ToEntero)
+
+                    CveMonedaOriginal = DrOC("CveMoneda").ToString.ToEntero
+
+
+                    If CveMonedaOriginal > 1 Then
+                        MostrarPagoEnPesos(True)
+                    End If
+
+
                     UpCuentaDeposito.Update()
                     If DrOC("CveProveedor").ToString.ToEntero > 0 Then
                         HdnCveProveedor.Value = DrOC("CveProveedor").ToString
@@ -5644,6 +5694,69 @@ Partial Class Bancos_IE
 
         End If
     End Sub
+
+
+    Private Sub MostrarPagoEnPesos(Mostrar As Boolean)
+
+        LbTipoMoneda.Visible = Mostrar
+        LbTipoMoneda.Text = If(Mostrar, "Pago en doalres", "")
+        DVPAgoEnPesos.Visible = Mostrar
+        ChkPagarPesos.Visible = Mostrar
+
+        TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+
+    End Sub
+
+
+    Protected Sub ChkPagarPesos_CheckedChanged(sender As Object, e As EventArgs)
+
+        If ChkPagarPesos.Checked Then
+            DivTC.Visible = True
+            DivTC2.Visible = True
+            ' DivDolaresDolares.Visible = False
+            'CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
+            CargaCuenta(1)
+            'TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
+            'TxtTC.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).FormatoNumero(4)
+            TxtImporteDolares.Text = TxtImporte.Text
+            'TxtImporteDolares.Text = TxtImporte.Text
+            'TxtImporte.Text = (TxtImporte.Text.ToDecimal * (TxtTC.Text.ToDecimal)).ToString("###,###,###.00")
+            CveMoneda = 1
+        Else
+            DivTC.Visible = False
+            DivTC2.Visible = False
+            CveMoneda = CveMonedaOriginal
+            'DivDolaresDolares.Visible = True
+            'CargaCuentas(DdlTipoTransaccion.SelectedValue.ToEntero)
+            CargaCuenta(CveMonedaOriginal)
+            'TxtFechaDocumento.Attributes.Remove("onchange")
+            TxtImporte.Text = ImporteOriginalDolaras.ToString("###,###,###.00")
+        End If
+
+        CambiaTCPagoOC()
+
+        UpDatos.Update()
+
+        ' RegistraScript("CambiaPesosDolares();")
+    End Sub
+
+
+    Public Sub CambiaTCPagoOC()
+
+        If ChkPagarPesos.Checked Then
+            TxtImporte.Text = (TxtImporteDolares.Text.ToDecimal * (TxtTC.Text.ToDecimal)).ToString("###,###,###.00")
+        Else
+            TxtImporte.Text = TxtImporteDolares.Text
+        End If
+
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub LnkActualizaTCOC_Click(sender As Object, e As EventArgs)
+        CambiaTCPagoOC()
+    End Sub
+
+
     Private Function GuardaSolicitudAnticipoOC(ByRef ObjOC As ClsOC) As String
         Dim ObjOI As New ClsOIEventos
         Dim CveEvento As Integer = 0
@@ -6724,4 +6837,5 @@ Partial Class Bancos_IE
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
         Calendario.EndDate = DateTime.Now
     End Sub
+
 End Class