-cambios

2020-10-06 19:06:03 -07:00
parent 915f793ce3 8be79406e1
commit 588f49817d
20 changed files with 8249 additions and 556 deletions
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -4,8 +4,8 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Partial Class Bancos_FluctuacionCambiaria
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
    Private Property LblTotal() As String
        Get
@@ -14,18 +14,25 @@ Partial Class Bancos_FluctuacionCambiaria
        Set(value As String)
            ViewState("Total") = value
        End Set
-    End Property
+    End Property
 #End Region
-
+
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
-            CargarCentrosDeCosto(Nothing, DdlSubproyecto, Nothing, LblSubProyecto)
+        If Not Page.IsPostBack Then
+
+            CargarCentrosDeCosto(Nothing, DdlSubproyectoBancos, Nothing, LblSubProyecto)
+            CargarCentrosDeCosto(Nothing, DdlsubProyectoVentas, Nothing, LblSubProyectoVentas)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoCompras, Nothing, LblSubProyectoCompras)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoFiliales, Nothing, LblSubProyectoFiliales)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoAcreedores, Nothing, LblSubProyectoAcreedores)
+            CargarCentrosDeCosto(Nothing, DdlSubProyectoDeudores, Nothing, LblSubProyectoDeudores)
+
            CargaUltimaFluctuacion()
        End If
-    End Sub
-
+    End Sub
+
 #Region "CARGAS"
-
+
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaTipoCambio()
        If T.ActiveTabIndex = 0 Then CargaDatosCompra()
@@ -227,10 +234,10 @@ Partial Class Bancos_FluctuacionCambiaria

    Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)

-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If

        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
@@ -267,7 +274,7 @@ Partial Class Bancos_FluctuacionCambiaria



-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoCompras.SelectedValue.ToEntero) Then
            ErrorRegistrar = True
        End If

@@ -301,10 +308,10 @@ Partial Class Bancos_FluctuacionCambiaria

    Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)

-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlsubProyectoVentas.SelectedValue.ToEntero < 0 Then
+        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If


        Dim Total As Decimal = 0
@@ -339,7 +346,7 @@ Partial Class Bancos_FluctuacionCambiaria
            idCta = idCtaPerdida
            TipoMovto = False
        End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
            ErrorRegistrar = True
        End If

@@ -379,10 +386,10 @@ Partial Class Bancos_FluctuacionCambiaria
    Protected Sub BtnGeneraBancos_Click(sender As Object, e As EventArgs)


-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlSubproyectoBancos.SelectedValue.ToEntero < 0 Then
+        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If

        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
@@ -440,7 +447,7 @@ Partial Class Bancos_FluctuacionCambiaria
                    Exit For
                End If

-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConceptoContable, ConceptoReferencia, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyectoBancos.SelectedValue.ToEntero) Then
                    ErrorRegistrar = True
                End If
            End If
@@ -478,10 +485,10 @@ Partial Class Bancos_FluctuacionCambiaria
    Protected Sub BtnGeneraDedudores_Click(sender As Object, e As EventArgs)


-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlSubProyectoDeoudores.SelectedValue.ToEntero < 0 Then
+        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If

        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
@@ -523,7 +530,7 @@ Partial Class Bancos_FluctuacionCambiaria
                    idCta = idCtaPerdida
                    TipoMovto = False
                End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoDeudores.SelectedValue.ToEntero) Then
                    ErrorRegistrar = True
                End If

@@ -557,10 +564,10 @@ Partial Class Bancos_FluctuacionCambiaria

    Protected Sub BtnGeneraFiliales_Click(sender As Object, e As EventArgs)

-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
+        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If

        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
@@ -606,7 +613,7 @@ Partial Class Bancos_FluctuacionCambiaria
                    idCta = idCtaPerdida
                    TipoMovto = False
                End If
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, ConceptoFluctuacion, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoFiliales.SelectedValue.ToEntero) Then
                    ErrorRegistrar = True
                End If

@@ -658,11 +665,7 @@ Partial Class Bancos_FluctuacionCambiaria
    Protected Sub BtnGeneraAcreedores_Click(sender As Object, e As EventArgs)


-        If DdlSubproyecto.SelectedValue.ToEntero < 0 Then
-            Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
-
+
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
@@ -696,7 +699,7 @@ Partial Class Bancos_FluctuacionCambiaria
            idCta = idCtaPerdida
            TipoMovto = False
        End If
-        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyecto.SelectedValue.ToEntero) Then
+        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), " ", CveConceptoContable, "Fluctuación", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubProyectoAcreedores.SelectedValue.ToEntero) Then
            ErrorRegistrar = True
        End If

@@ -936,9 +939,9 @@ Partial Class Bancos_FluctuacionCambiaria
            End If

        End If
-    End Sub
-
+    End Sub
+
 #End Region
-
-
+
+
 End Class