-commit merge

2020-10-08 18:19:26 -07:00
parent a71c16b7ca dd8f8653e5
commit 9086d7ac28
19 changed files with 479 additions and 226 deletions
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -232,17 +232,12 @@ Partial Class Bancos_FluctuacionCambiaria

 #Region "FLUCTUACION COMPRAS"

-    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
-
+    Protected Sub BtnGeneraCompras_Click(sender As Object, e As EventArgs)
+
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaC", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoCompras.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -306,18 +301,12 @@ Partial Class Bancos_FluctuacionCambiaria

 #Region "FLUCTUACION VENTAS"

-    Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
-
-        'If DdlsubProyectoVentas.SelectedValue.ToEntero < 0 Then
-        '    Alert($"Debe de seleccionar un {LblSubProyecto.Text}", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
-
+    Protected Sub BtnGeneraVentas_Click(sender As Object, e As EventArgs)
+
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Ventas", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -345,38 +334,39 @@ Partial Class Bancos_FluctuacionCambiaria
            CveCuenta = CveCuentaPerdida
            idCta = idCtaPerdida
            TipoMovto = False
-        End If
+        End If
+
        If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), "Fluctuación Ventas", CveConceptoContable, "Fluctuación Ventas", Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlsubProyectoVentas.SelectedValue.ToEntero) Then
            ErrorRegistrar = True
        End If

-            Dim CveConconceptoCliente As Integer = 203
-
-        'saco las cuentas de pérdida y ganancia
-        For Each gvr As GridViewRow In GvVentas.Rows
-            Total = -gvr.DataKey("Fluctuacion").ToDecimal
-
-            If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
-                CveConconceptoCliente = 226
-            Else
-                CveConconceptoCliente = 203
-            End If
-
-            'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
-                ErrorRegistrar = True
-                Exit For
-            End If
-        Next
-
-        If Not ErrorRegistrar Then
-            Conta.Commit()
-            Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-
-        Else
-            Conta.RollBack()
-        End If
-        Conta.Dispose()
+        Dim CveConconceptoCliente As Integer = 203
+
+            'saco las cuentas de pérdida y ganancia
+            For Each gvr As GridViewRow In GvVentas.Rows
+                Total = -gvr.DataKey("Fluctuacion").ToDecimal
+
+                If gvr.DataKey("CveIE").ToEntero > 0 AndAlso gvr.DataKey("CveVenta").ToEntero < 0 Then
+                    CveConconceptoCliente = 226
+                Else
+                    CveConconceptoCliente = 203
+                End If
+
+                'movimiento de complementaria
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, ImporteMX:=Total, ImporteME:=Total, CveCuenta:=CveCuentaComplementaria, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                    ErrorRegistrar = True
+                    Exit For
+                End If
+            Next
+
+            If Not ErrorRegistrar Then
+                Conta.Commit()
+                Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePoliza.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+
+            Else
+                Conta.RollBack()
+            End If
+            Conta.Dispose()
    End Sub

 #End Region
@@ -385,12 +375,6 @@ Partial Class Bancos_FluctuacionCambiaria

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

-
-        '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
        Conta.IniciaTransacSQL()
@@ -406,7 +390,7 @@ Partial Class Bancos_FluctuacionCambiaria
        Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
        Dim MesTCtexto As String = String.Format("{0} TC:{1}", TxtFecha.Text.ToDate.ToString("MMMM-yyyy"), TCCierreFluctuacion)

-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, String.Format("Fluctuación Bancaria {0} ", MesTCtexto), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaB", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoBancos.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)


        CveCuentaPerdida = 0 ' 55379
@@ -483,16 +467,10 @@ Partial Class Bancos_FluctuacionCambiaria

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

-
-        '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
        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Deudor", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaDD", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoDeudores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -563,17 +541,12 @@ 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
-
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Dim Banco As New ClsBancos(Conta.IniciaTransacSQL())
        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
        ObjContPaq.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación Filiales", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaFilial", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoFiliales.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
        Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -663,12 +636,10 @@ Partial Class Bancos_FluctuacionCambiaria

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

-
-
        Dim Total As Decimal = 0
        Dim Conta As New ClsContabilidad
        Conta.IniciaTransacSQL()
-        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, "Fluctuación", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaA", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoAcreedores.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        Dim idCta As Integer = 0
        Dim CveCuenta As Integer = 0
        Dim CveCuentaPerdida, CveCuentaGanancia As Integer