- si tiene cero, no registre prepoliza

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 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 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