ClientesAbonar ixc

Compras/Compras.aspx.vb

@@ -4519,7 +4519,7 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 Then
+        If MetodoPagoOC = 0 AndAlso RBLPago.SelectedValue.ToEntero <> 2 AndAlso LblSaldoFactura.Text.ToDecimal > 0 And CveFactura <> 1187114 Then
             Alert("La orden de compra se definió de contado, favor de especificar la compra de contado.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If

Compras/ReembolsosComprobaciones.aspx

@@ -258,6 +258,38 @@
                                                 <asp:CheckBox ID="ChkAjusteOI" runat="server" AutoPostBack="true" />
                                             </div>
                                         </div>
+
+
+                                          <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
+                                          <ContentTemplate>
+                                              <div class="row" id="trCuentaDeposito" runat="server" visible="False">
+                                                  <label class="col-md-2 control-label">Cuenta Depósito: </label>
+                                                  <div class="col-md-10">
+                                                      <asp:DropDownList ID="DdlCuentaDeposito" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
+                                                      <asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                      <ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                      <%--<asp:ImageButton ID="ImgUpdateCuentaDeposito" ImageUrl="/Imagenes/accept.png" OnClick="ImgUpdateCuentaDeposito_Click" ValidationGroup="GrpGuardar" runat="server" />--%>
+                                                  </div>
+                                              </div>
+                                           <%--   <div class="row" id="TrReferenciaCIE" runat="server" visible="False">
+
+                                                  <label class="col-md-2 control-label">Referencia:</label>
+                                                  <div class="col-md-4">
+                                                      <asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="20" />
+                                                      <asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                      <ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                  </div>
+
+                                                  <label class="col-md-2 control-label">Concepto:</label>
+                                                  <div class="col-md-4">
+                                                      <asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />                                                  
+                                                  </div>
+
+                                              </div>--%>
+                                          </ContentTemplate>
+                                      </asp:UpdatePanel>
+
+
                                     </div>
                                 </div>
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -330,13 +330,63 @@ Partial Class Compras_ReembolsosComprobaciones
     End Sub
 
     Protected Sub DdlTipoTransaccion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoTransaccion.SelectedIndexChanged
+
         Dim dr As DataRow = GlobalDTTipoTransacciones.FiltroPrimero(String.Format("CveTipoTransaccion = {0}", DdlTipoTransaccion.SelectedValue))
+
         If dr IsNot Nothing Then
             HdnTipoTransaccion.Value = dr("Tipo").ToString
         End If
         CargaCuentas()
+
+        CargaCuentasDepositoClientes()
+
     End Sub
 
+    Private Sub CargaCuentasDepositoClientes()
+
+        DdlCuentaDeposito.ClearSelection()
+        DdlCuentaDeposito.SelectedValue = Nothing
+        DdlCuentaDeposito.Items.Clear()
+
+        trCuentaDeposito.Visible = False
+        DdlCuentaDeposito.Enabled = False
+
+
+        Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero
+
+        If CvePersonal > 0 Then
+
+            If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+
+                trCuentaDeposito.Visible = True
+                DdlCuentaDeposito.Enabled = True
+
+                Dim Dep As New ClsGenerales
+                If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+
+                    DdlCuentaDeposito.DataSource = Dep.DtResultados
+                    If Dep.DtResultados.Rows.Count > 0 Then
+
+                        trCuentaDeposito.Visible = True
+                        DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
+
+                    End If
+                End If
+
+                Dep.Dispose()
+                DdlCuentaDeposito.DataBind()
+
+
+            End If
+
+        End If
+
+        UpCuentaDeposito.Update()
+
+
+    End Sub
+
+
     Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged
 
         If DDlCheques.SelectedValue.ToEntero > 0 Then
@@ -381,6 +431,16 @@ Partial Class Compras_ReembolsosComprobaciones
 #Region " BTN GUARDAR "
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        Dim CvecuentaDeposito As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero > 0, DdlCuentaDeposito.SelectedValue.ToEntero, -1)
+        If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
+            If CvecuentaDeposito <= 0 Then
+                Alert("Debe de seleccionar una cuenta deposito", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        Else
+            CvecuentaDeposito = -1
+        End If
+
         Dim ValFechaDocumento As Boolean = False
 
         Dim FoliosFechasValFechaDocumentoAnio As New StringBuilder
@@ -534,7 +594,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
             If ChkChequeExcedente.Checked Then
                 CvePrePolizaExcedente = ObjMov.AddPrePolizas("Compras/Comprobaciones3", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
+                CveIEExcedente = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaExcedente, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False), CveCuentaDeposito:=CvecuentaDeposito)
                 If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal * tipoCambio, If(CveCajaChica > 0, 30, 29), TxtObservaciones.Text, TxtObservaciones.Text, CveIE:=CveIEExcedente, CvePersonal:=CvePersonal, CveCompra:=-1, CveProveedor:=-1, ImporteME:=If(tipoCambio = 1, 0, TxtImporte.Text.ToDecimal)) Then
                     MsgError = "Error al registrar detalle de concepto bancario"
                 End If
@@ -549,7 +609,7 @@ Partial Class Compras_ReembolsosComprobaciones
             End If
         ElseIf Not ChkReembolsarSinBancos.Checked Then
             CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones4", 9, TxtImporte.Text.ToDecimal, TxtImporte.Text.ToDecimal, CveMoneda, TxtFechaDocumento.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-            CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False))
+            CveIERegistrado = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.ToDate, TxtFolio.Text.Trim, TxtAboneA.Text, TxtImporte.Text.ToDecimal, CveMoneda, 0.0, TxtObservaciones.Text, "", ChkAbonoCuenta.Checked, True, -1, CvePrePolizaIERegistrado, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked, True, False), CveCuentaDeposito:=CvecuentaDeposito)
 
             If CveIERegistrado > 0 Then
                 If filemove <> "" Then
@@ -1242,4 +1302,7 @@ Partial Class Compras_ReembolsosComprobaciones
         Calendario.EndDate = NowADS()
 
     End Sub
+
+
+
 End Class

RH/Reclutamiento.aspx.vb

@@ -779,6 +779,7 @@ Partial Class RH_Reclutamiento
 
         Try
 
+            GlobalDTDIOTTipoOperacion = Nothing
             Dim dt As DataTable = GlobalDTTipoPeriodo()
 
 

Ventas/ClientesAbonar.aspx.vb

@@ -821,10 +821,14 @@ Partial Class Ventas_ClientesAbonar
                 'comparativo. 
                 For Each gvr As GridViewRow In GvCxC.Rows
                     If gvr.FCCheckBox("Chk").Checked Then
-                        TC = 1
+                        Dim CveMonedaVenta As Integer = gvr.DataKey("CveMoneda").ToEntero
-                        If tCveMonedaIE = 1 AndAlso gvr.DataKey("CveMoneda") = "2" Then TC = TxtTC.Text.ToDecimal
+                        If CveMonedaVenta = CveMonedaPago Then
-                        If tCveMonedaIE = 2 AndAlso gvr.DataKey("CveMoneda") = "1" Then TC = 1D / TxtTC.Text.ToDecimal
+                            ImporteAbonar += gvr.FCTextBox("TxtAbonar").Text.ToDecimal()
-                        ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TC).RoundSQL(2)
+                        ElseIf CveMonedaVenta = 2 And CveMonedaPago = 1 Then
+                            ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TxtTC.Text.ToDecimal)
+                        ElseIf CveMonedaVenta = 1 And CveMonedaPago = 2 Then
+                            ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() / TxtTC.Text.ToDecimal)
+                        End If
                     End If
                 Next
                 ImporteAbonar += TxtAnticipo.Text.ToDecimal()
@@ -944,10 +948,19 @@ Partial Class Ventas_ClientesAbonar
                 End If
             Else
                 If RblTipoPago.SelectedValue.Contiene("3") Then 'ixc
+
                     CveIE = DdlIngreso.SelectedValue.ToEntero
-                    If CveMonedaPago = 2 And Not ChkPagarPesos.Checked Then CveMoneda = 2
+
-                    If ChkPagarDolares.Checked Then CveMoneda = 2
+                    If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
-                    If ChkPagarPesos.Checked Then CveMoneda = 1
+                        CveMoneda = ObjIE.CveMoneda
+                    Else
+                        MsgError = "Error al obtener la moneda de ingreso por comprobar"
+                    End If
+
+                    'If CveMonedaPago = 2 And Not ChkPagarPesos.Checked Then CveMoneda = 2
+                    'If ChkPagarDolares.Checked Then CveMoneda = 2
+                    'If ChkPagarPesos.Checked Then CveMoneda = 1
+
                 End If
 
             End If
@@ -1075,7 +1088,9 @@ Partial Class Ventas_ClientesAbonar
                             'Tipos de cambio
                             If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos
                                 Pago.TCPago = TxtTC.Text.ToDecimal
-                                Pago.ImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL
+                                Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal * TxtTC.Text.ToDecimal
+                                'Pago.ImportePagoVenta = gvr.FCTextBox("TxtAbonar").Text.ToDecimal / TxtTC.Text.ToDecimal
+                                'ImportePagadoVenta = (ImportePagadoVenta / TxtTipoCambio.Text.ToDecimal).RoundSQL
                             ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES 
                                 Pago.TCPago = If(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal)
                             ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES