AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejoras

Browse Source
This commit is contained in:
rrene
2024-11-19 15:47:49 -07:00
parent b130613e77
commit ffae9c0339
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/FluctuacionCambiaria.aspx
View File

@@ -489,7 +489,7 @@
<asp:BoundField DataField="PerdidaGanancia" HeaderText="Acción" ItemStyle-HorizontalAlign="Left" /> <asp:BoundField DataField="PerdidaGanancia" HeaderText="Acción" ItemStyle-HorizontalAlign="Left" />
</Columns> </Columns>
</asp:GridView> </asp:GridView>
<asp:Label ID="LblTotalVentas" runat="server" Text=""></asp:Label> <asp:Label ID="LblTotalVentas" runat="server" Text="" Visible="false"></asp:Label>
</ContentTemplate> </ContentTemplate>
</ajax:TabPanel> </ajax:TabPanel>
<ajax:TabPanel runat="server" ID="TabVentasAnt" HeaderText="Clientes Ant"> <ajax:TabPanel runat="server" ID="TabVentasAnt" HeaderText="Clientes Ant">

5
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -646,6 +646,7 @@ Partial Class Bancos_FluctuacionCambiaria
If UsuarioActual.CveEmpresa <> 119 Then Return True If UsuarioActual.CveEmpresa <> 119 Then Return True
Dim ErrorRegistrar As Boolean = False Dim ErrorRegistrar As Boolean = False
Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes) Dim tdt As DataTable = VerificacionFluctuacion(TipoFluctuacion, FechaUltimoDiaMes)
CveConcepto = 299 ' manual
'ajustar las cuentas. 'ajustar las cuentas.
Dim AjusteTotal As Decimal = tdt.SUMD("Diferencia") Dim AjusteTotal As Decimal = tdt.SUMD("Diferencia")
Dim tTipoMovto As Boolean = If(TipoFluctuacion.Contiene(2, 3, 6), False, True) 'LAS OPCIONES QUE SE CARGAN Dim tTipoMovto As Boolean = If(TipoFluctuacion.Contiene(2, 3, 6), False, True) 'LAS OPCIONES QUE SE CARGAN
@@ -667,6 +668,8 @@ Partial Class Bancos_FluctuacionCambiaria
' AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal ' AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
'End If 'End If
tTipoMovto = dr("TipoMovto").ToString.ToBool tTipoMovto = dr("TipoMovto").ToString.ToBool
If TipoFluctuacion.Contiene(3) AndAlso tTipoMovto AndAlso AjusteTotal > 0 Then AjusteTotal = -AjusteTotal 'si es cleintes, abonado y el ajustes es positivo tiene que restar
AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal AjusteTotal = AjusteTotal + dr("Importe").ToString.ToDecimal
If AjusteTotal < 0 Then If AjusteTotal < 0 Then
AjusteTotal = Math.Abs(AjusteTotal) ' ' si hay cambio de fluctuacion de pérdida a ganancia, o viceversas AjusteTotal = Math.Abs(AjusteTotal) ' ' si hay cambio de fluctuacion de pérdida a ganancia, o viceversas
@@ -1393,6 +1396,8 @@ Partial Class Bancos_FluctuacionCambiaria
#Region "VERIFICACION " #Region "VERIFICACION "
Private Function VerificacionFluctuacion(Opcion As Integer, Fecha As Date) As DataTable Private Function VerificacionFluctuacion(Opcion As Integer, Fecha As Date) As DataTable
If Fecha <= ("2024/09/01").ToDate Then Return Nothing ' si s mejor a sep/24, es esquema anterior
Dim tdt As DataTable = Nothing Dim tdt As DataTable = Nothing
Dim Conta As New ClsContabilidad Dim Conta As New ClsContabilidad
If Conta.GetAjusteFluctuacion(Opcion, Fecha, UsuarioActual.CveEmpresa) Then If Conta.GetAjusteFluctuacion(Opcion, Fecha, UsuarioActual.CveEmpresa) Then