Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

App_Code/ClsContabilidad.vb

@@ -504,7 +504,7 @@ Public Class ClsContabilidad
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
-                OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                OnError("Ocurrió un error al Eliminar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If
         End Try
 
@@ -536,7 +536,11 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno
@@ -790,9 +794,17 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex1 As SqlException
-            OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex1.Message.Contains("50015;") Then
+                OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         Catch ex As Exception
-            OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno
@@ -949,7 +961,11 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al bloquear o desbloquear las prepolizas detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         End Try
         Return Retorno
     End Function
@@ -1742,7 +1758,12 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede actualizar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al actualizar prepoliza del movimiento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno

Empresas/144/Formatos/Cotizacion.rdlc

@@ -617,7 +617,7 @@
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Parameters!Folio.Value</Value>
+                <Value>=IIF(Parameters!Serie.Value.ToString="",Parameters!Folio.Value,Parameters!Serie.Value &amp; "-" &amp;Parameters!Folio.Value)</Value>
                 <Style>
                   <FontFamily>Bahnschrift</FontFamily>
                   <FontSize>8pt</FontSize>