-merge traspaso almacen

2021-02-10 13:06:19 -07:00
parent b29d81b472 4721d38109
commit 07813acacc
56 changed files with 27541 additions and 14199 deletions
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1153,7 +1153,7 @@
    </div>

    <div id="DivCancelarIE" class="modal fade">
-        <div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
+        <div class="modal-dialog" style="max-height: 500px; max-width: 700px;">
            <asp:UpdatePanel ID="UpEliminarCotizacion" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
                <ContentTemplate>
                    <div class="modal-header">
@@ -1162,7 +1162,7 @@
                    </div>
                    <div class="modal-body">
                        <div class="row" style="align-items: center; vertical-align: middle;">
-                            <label class="col-md-4" style="max-width: 155px;">Fecha de Cancelación:</label>
+                            <label class="col-md-3" style="max-width: 155px;">Fecha de Cancelación:</label>
                            <div class="col-md-3">
                                <div class="input-group date date-picker" data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
                                    <asp:TextBox ID="TxtFechaCancelacion" runat="server" CssClass="form-control input-sm" Width="80px" CausesValidation="true" MaxLength="10" ValidationGroup="GrpCancelarIE"></asp:TextBox>
@@ -1178,13 +1178,28 @@
                                    <asp:CompareValidator ID="CVFechaCancelacionMin" runat="server" ControlToCompare="TxtFechaDocumento" ControlToValidate="TxtFechaCancelacion" Display="None" Operator="GreaterThanEqual" Type="Date" ValidationGroup="GrpCancelarIE" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Cancelación''</b>tiene que ser mayor o igual a la fecha del documento."></asp:CompareValidator>
                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCancelacionMin" Width="350px"></ajax:ValidatorCalloutExtender>
                                </div>
+                            </div>                            
+                             <div class="col-md-6">
+                                 <div class="row">
+                                      <div class="col-md-12">
+                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" AutoPostBack="true" OnCheckedChanged="ChkGeneraCancelacion_CheckedChanged" />
+                                           </div>
+                                        </div>
+                                    <div class="row">
+                                <div class="col-md-12"  id="DVTipoTransacciónCancelar"  runat="server" visible ="false"> 
+                                 
+                                Movimiento:
+                                <asp:DropDownList ID="DdlTipoTransaccionCancelacion" CssClass="form-control input-sm select2me" runat="server"    DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion" ValidationGroup="GrpCancelarIE">
+                                        <asp:ListItem Value="-1">Seleccione uno</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <asp:RequiredFieldValidator ID="RFVDdlTipoTransaccionCancelacion" runat="server" ControlToValidate="DdlTipoTransaccionCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Transaccion''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEDdlTipoTransaccionCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlTipoTransaccionCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
+
                            </div>
-                            <div class="col-md-3">
-                                <asp:CheckBox ID="ChkCancelarNegativo" CssClass="md-checksd2" Text="Falta de fondos" TextAlign="Right" runat="server" Visible="false" />
                            </div>
-                             <div class="col-md-4">
-                                <asp:CheckBox ID="ChkGeneraCancelacion" CssClass="md-checksd2" Text="Genera Devolución" TextAlign="Right" runat="server" />
                            </div>
+                            
+
                        </div>
                    </div>
                    <div class="modal-footer">
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3048,9 +3048,6 @@ Partial Class Bancos_IE
                                Dim TCDocumento As Decimal = 1


-
-
-
                                'BANCOS
                                IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
@@ -3256,7 +3253,7 @@ Partial Class Bancos_IE
                                                        CveCuentaDevolucionIMPUESTOS = CveCuentaIVAxAcreditarDevDinC
                                                        IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC

-                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then
+                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, CveCuenta:=CveCuentaDevolucionIMPUESTOS) Then

                                                            CveCuentaDevolucionIMPUESTOS = CveCuentaIVAAcreditableDevDinC
                                                            IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
@@ -4436,7 +4433,7 @@ Partial Class Bancos_IE

                            'CANCELA IE
                            If Not ErrorCancelar Then
-                                If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) <= 0 Then
+                                If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) <= 0 Then
                                    ErrorCancelar = True
                                    MensajeError = "Error al cancelar IE"
                                End If
@@ -4467,7 +4464,7 @@ Partial Class Bancos_IE

                        'CANCELA IE
                        If Not ErrorCancelar Then
-                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate) <= 0 Then
+                            If Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero) <= 0 Then
                                ErrorCancelar = True
                                MensajeError = "Error al cancelar IE"
                            End If
@@ -4500,14 +4497,14 @@ Partial Class Bancos_IE

            If Not GeneraCancelacionEnCero Then
                'CANCELA IE MES ANTERIOR
-                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate)
+                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, True, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
                If CvePrePolizaCancelacion <= 0 Then
                    ErrorCancelar = True
                    MensajeError = "Error al cancelar IE MES ANTERIOR"
                End If
            Else
                'CANCELA IE MES ACTUAL
-                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate)
+                CvePrePolizaCancelacion = Banc.CancelarBancos_IE(UsuarioActual.CveUsuario, CveIE, False, IdPolizaNueva, FolioPolizaNueva, TxtFechaCancelacion.Text.ToDate, CveTipoTransaccionCancelacion:=DdlTipoTransaccionCancelacion.SelectedValue.ToEntero)
                If CvePrePolizaCancelacion <= 0 Then
                    ErrorCancelar = True
                    MensajeError = "Error al cancelar IE MES ACTUAL"
@@ -6631,4 +6628,35 @@ Partial Class Bancos_IE
        Return respuesta
    End Function

+    Protected Sub ChkGeneraCancelacion_CheckedChanged(sender As Object, e As EventArgs)
+
+        Dim dttemp As DataTable
+        Dim TipoMovto As String
+        dttemp = GlobalDTTipoTransacciones.FiltraParametros($"CveTipoTransaccion ={DdlTipoTransaccion.SelectedValue}")
+
+        TipoMovto = dttemp(0)("Tipo").ToString
+
+
+        If TipoMovto = "Egs" Then
+            TipoMovto = "Ing"
+        Else
+            TipoMovto = "Egs"
+        End If
+
+        GlobalDTTipoTransacciones.FiltraParametros("Tipo='Egs'")
+
+        DdlTipoTransaccionCancelacion.Items.Clear()
+        DdlTipoTransaccionCancelacion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo ='{TipoMovto}'")
+        DdlTipoTransaccionCancelacion.DataBind()
+        DdlTipoTransaccionCancelacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
+
+        If ChkGeneraCancelacion.Checked Then
+            DVTipoTransacciónCancelar.Visible = True
+        Else
+            DVTipoTransacciónCancelar.Visible = False
+        End If
+
+        UpEliminarCotizacion.Update()
+
+    End Sub
 End Class
--- a/Bancos/PopIECompras.aspx.vb
+++ b/Bancos/PopIECompras.aspx.vb
@@ -122,6 +122,14 @@ Partial Class Bancos_PopIECompras
        Set(value As Integer)
            ViewState("IdCuentaBancaria") = value
        End Set
+    End Property
+    Private Property IdCuentaBancariaComplementaria As Integer
+        Get
+            Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("IdCuentaBancariaComplementaria") = value
+        End Set
    End Property
    Private ReadOnly Property IdCtaContMonedaExtranjera As Integer
        Get
@@ -482,6 +490,7 @@ Partial Class Bancos_PopIECompras
                ViewState("IdCtaContRetIVA") = 0
                ViewState("IdCtaContRetISR") = 0
                ViewState("IdCuentaBancaria") = 0
+                ViewState("IdCuentaBancariaComplementaria") = 0
                ViewState("IdCtaAnticipo") = 0

                ViewState("CveCuentaMonedaExtranjera") = 0
@@ -1107,9 +1116,9 @@ Partial Class Bancos_PopIECompras
                RegistraScript("CambiaDolaresPesos();")
            End If

-            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
-
+            IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
+            IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
+
            If dr("UsaTarjeta").ToString = "True" Then
                CargaGridTarjetas()
            Else
@@ -2814,15 +2823,13 @@ Partial Class Bancos_PopIECompras
                                                        CveCuenta = CveCuentaCliente
                                                    End If
                                                Else
-                                                    IdCtaContable = IdCtaContComplementaria
-                                                    CveCuenta = CveCuentaComplementaria
+                                                    IdCtaContable = IdCuentaBancariaComplementaria
                                                    If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago, CveCuenta:=CveCuenta) Then
                                                            MsgError = "No se pudo insertar la póliza"
                                                        End If
                                                        ImporteMX = ImporteMovimiento
-                                                        IdCtaContable = IdCtaContMonedaExtranjera
-                                                        CveCuenta = CveCuentaMonedaExtranjera
+                                                        IdCtaContable = IdCuentaBancaria
                                                    End If
                                                End If

--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -2132,10 +2132,10 @@ Partial Class Bancos_PopIEVentas
                                                        Dim TCImpuestos As Decimal = tipoCambioPago
                                                        TimpocambioGeneral = TCImpuestos

-                                                        Diferencia -= ((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IVA
-                                                        Diferencia += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA
-                                                        Diferencia += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR
-                                                        Diferencia -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS
+                                                        Diferencia -= (((MovimientoPagar.IVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IVA * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IVA
+                                                        Diferencia -= (((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetIVA
+                                                        Diferencia -= (((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el RetISR
+                                                        Diferencia -= (((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioVenta) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos)) 'Añadimos la diferencia de ganancia en el IEPS
                                                        Diferencia = Math.Round(Diferencia, 2)
                                                    End If

--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -2509,6 +2509,18 @@ Partial Class Bancos_ProveedoresAbonar
        'recargo la moneda con la que se va a pagar
        Dim dr As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCuenta = {0}", DdlCuenta.SelectedValue))
        If dr IsNot Nothing Then
+
+
+            If dr("CveMoneda").ToString.ToEntero >= 2 Then
+                DivDolaresDolares.Visible = True
+                TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
+                BtnCambiaTipoMoneda_Click(Nothing, Nothing)
+            Else
+                DivDolaresDolares.Visible = False
+                TxtFechaDocumento.Attributes.Remove("onchange")
+            End If
+            UpDatos.Update()
+
            If ChkPagarPesos.Checked Then
                CveMoneda = 2
                RegistraScript("CambiaPesosDolares();")