From 3302788e8c65b7c56b3227f1d3ce0e09bcae6195 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 13 Feb 2021 14:12:41 -0700
Subject: [PATCH] - si tiene cero, no registre prepoliza

---
 Bancos/FluctuacionCambiaria.aspx.vb | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb
index 56901e562..bbc74193e 100644
--- a/Bancos/FluctuacionCambiaria.aspx.vb
+++ b/Bancos/FluctuacionCambiaria.aspx.vb
@@ -303,10 +303,8 @@ Partial Class Bancos_FluctuacionCambiaria
 
     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, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+        Dim Total As Decimal = 0
+
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -336,6 +334,15 @@ Partial Class Bancos_FluctuacionCambiaria
             TipoMovto = False
         End If
 
+        If Total = 0 Then
+            Alert("El Importe tiene que ser diferente a cero", TipoMensaje.MsgError)
+            Exit Sub
+        End If
+
+        Dim Conta As New ClsContabilidad
+        Conta.IniciaTransacSQL()
+        Dim CvePrePoliza As Integer = Conta.AddPrePolizas("Banc/FluctuaV", 1, 0, 0, 1, TxtFecha.Text.ToDate, TxtConceptoVentas.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
         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