diff --git a/App_Code/ClsAC.vb b/App_Code/ClsAC.vb
index f3b7100ec..45e0a37f1 100644
--- a/App_Code/ClsAC.vb
+++ b/App_Code/ClsAC.vb
@@ -3245,11 +3245,13 @@ Public Class ClsAC
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsAC2.vb b/App_Code/ClsAC2.vb
index 2a51e1786..50fbb9284 100644
--- a/App_Code/ClsAC2.vb
+++ b/App_Code/ClsAC2.vb
@@ -152,11 +152,12 @@ Public Class ClsAC2
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index cd7bbc863..1ddd0ed3a 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -4520,10 +4520,13 @@ Public Class ClsAF
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsAIMMGM.vb b/App_Code/ClsAIMMGM.vb
index b9268d0f6..58eb962a9 100644
--- a/App_Code/ClsAIMMGM.vb
+++ b/App_Code/ClsAIMMGM.vb
@@ -746,11 +746,12 @@ Public Class ClsAIMMGM
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsAcarreos.vb b/App_Code/ClsAcarreos.vb
index 6c42c9419..0c1a3abe6 100644
--- a/App_Code/ClsAcarreos.vb
+++ b/App_Code/ClsAcarreos.vb
@@ -1350,11 +1350,12 @@ Public Class ClsAcarreos
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 7f01aa20f..4f8badf3f 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -1232,12 +1232,14 @@ Public Class ClsAcumuladores
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If disposing Then
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 858a38c2f..72ba56b54 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -4273,12 +4273,14 @@ Public Class ClsBancos
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsBase.vb b/App_Code/ClsBase.vb
index 73949c0f0..77d090808 100644
--- a/App_Code/ClsBase.vb
+++ b/App_Code/ClsBase.vb
@@ -181,13 +181,12 @@ Public Class ClsBase
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- If Not SqlConexion Is Nothing Then
- CerrarConexion()
- SqlConexion.Dispose()
- End If
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not sqlCommand Is Nothing Then sqlCommand.Dispose() : sqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb
index 50d497b46..dc66c337d 100644
--- a/App_Code/ClsCGame.vb
+++ b/App_Code/ClsCGame.vb
@@ -3400,11 +3400,14 @@ Public Class ClsCGame
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 76da1aa43..334a04744 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1137,11 +1137,15 @@ Public Class ClsCRM
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsClaseBase.vb b/App_Code/ClsClaseBase.vb
index d5857b782..ca229a5e4 100644
--- a/App_Code/ClsClaseBase.vb
+++ b/App_Code/ClsClaseBase.vb
@@ -247,6 +247,7 @@ Public Class ClsClaseBase
SqlConexion.Close()
End Sub
#End Region
+
Public Sub Dispose() Implements IDisposable.Dispose
ConexionClose()
If (SqlConexion IsNot Nothing) Then
@@ -279,6 +280,9 @@ Public Class ClsClaseBase
End Sub
+
+
+
End Class
Public Class parametroQuery
diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb
index a321f9f37..7c7e28372 100644
--- a/App_Code/ClsClasificaciones.vb
+++ b/App_Code/ClsClasificaciones.vb
@@ -610,13 +610,15 @@ Public Class ClsClasificaciones
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- ' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If disposing Then
+ ' TODO: dispose managed state (managed objects).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 5b4bd4c6b..364a870bc 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1757,13 +1757,15 @@ Public Class ClsClientes
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- ' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If disposing Then
+ ' TODO: dispose managed state (managed objects).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsCompEstatusFactura.vb b/App_Code/ClsCompEstatusFactura.vb
index 816d07e87..7408fe201 100644
--- a/App_Code/ClsCompEstatusFactura.vb
+++ b/App_Code/ClsCompEstatusFactura.vb
@@ -203,11 +203,12 @@ Public Class ClsCompEstatusFactura
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb
index 4594ff303..8a062f23f 100644
--- a/App_Code/ClsCompProveedores.vb
+++ b/App_Code/ClsCompProveedores.vb
@@ -1908,11 +1908,13 @@ Public Class ClsCompProveedores
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 8737fc436..4aa180e78 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -1884,11 +1884,12 @@ Public Class ClsCompras
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb
index bef333969..97ce501d7 100644
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -11204,12 +11204,14 @@ Public Class ClsContPAQi
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- StrSQL.Clear()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsContPAQi2.vb b/App_Code/ClsContPAQi2.vb
index 34d41d4bd..0e1a8185a 100644
--- a/App_Code/ClsContPAQi2.vb
+++ b/App_Code/ClsContPAQi2.vb
@@ -1017,12 +1017,14 @@ Public Class ClsContPAQi2
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- StrSQL.Clear()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 266a9a71c..728d1d200 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -6234,12 +6234,15 @@ Public Class ClsContabilidad
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index 99671766b..54e7cf9ff 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -3596,12 +3596,14 @@ Public Class ClsContratos
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not Dataset Is Nothing Then Dataset.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
-
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsDG.vb b/App_Code/ClsDG.vb
index b4b540c45..1c44c0193 100644
--- a/App_Code/ClsDG.vb
+++ b/App_Code/ClsDG.vb
@@ -638,11 +638,14 @@ Public Class ClsDG
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsDesarrollo.vb b/App_Code/ClsDesarrollo.vb
index ea17e0339..c3694ced1 100644
--- a/App_Code/ClsDesarrollo.vb
+++ b/App_Code/ClsDesarrollo.vb
@@ -548,13 +548,14 @@ Public Class ClsDesarrollo
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
+
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
' TODO: set large fields to null.
End If
diff --git a/App_Code/ClsEdoc.vb b/App_Code/ClsEdoc.vb
index 6731807ea..82e6cf1e7 100644
--- a/App_Code/ClsEdoc.vb
+++ b/App_Code/ClsEdoc.vb
@@ -306,10 +306,12 @@ Public Class ClsEdoc
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsEdocumentacion.vb b/App_Code/ClsEdocumentacion.vb
index dc764e2bb..dd22807c3 100644
--- a/App_Code/ClsEdocumentacion.vb
+++ b/App_Code/ClsEdocumentacion.vb
@@ -621,12 +621,14 @@ Public Class ClsEdocumentacion
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If disposing Then
+ ' TODO: Liberar otro estado (objetos administrados).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsEdosFinancieros.vb b/App_Code/ClsEdosFinancieros.vb
index 3f1aad05f..89b5ea2b1 100644
--- a/App_Code/ClsEdosFinancieros.vb
+++ b/App_Code/ClsEdosFinancieros.vb
@@ -881,13 +881,15 @@ Public Class ClsEdosFinancieros
If disposing Then
' TODO: free other state (managed objects).
'RegistraCierreConexion()
- SqlConexion.Close()
- SqlConexion.Dispose()
+ If Not DT Is Nothing Then DT.Dispose() : DT = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
- If Not DT Is Nothing Then DT.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
' TODO: free your own state (unmanaged objects).
' TODO: set large fields to null.
diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index bafb08bd6..119c69534 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -701,11 +701,15 @@ Public Class ClsEncuestas
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsEsquemasComisiones.vb b/App_Code/ClsEsquemasComisiones.vb
index 5528c2772..dc2e03932 100644
--- a/App_Code/ClsEsquemasComisiones.vb
+++ b/App_Code/ClsEsquemasComisiones.vb
@@ -499,12 +499,13 @@ Public Class ClsEsquemasComisiones
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsEstatusFactura.vb b/App_Code/ClsEstatusFactura.vb
index 893538e23..9cf75cf64 100644
--- a/App_Code/ClsEstatusFactura.vb
+++ b/App_Code/ClsEstatusFactura.vb
@@ -230,11 +230,12 @@ Public Class ClsEstatusFactura
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsEventos.vb b/App_Code/ClsEventos.vb
index c631009a2..e08351f16 100644
--- a/App_Code/ClsEventos.vb
+++ b/App_Code/ClsEventos.vb
@@ -224,11 +224,11 @@ Public Class ClsEventos
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsFISConfiguracion.vb b/App_Code/ClsFISConfiguracion.vb
index a1d8ddf32..52d7365c5 100644
--- a/App_Code/ClsFISConfiguracion.vb
+++ b/App_Code/ClsFISConfiguracion.vb
@@ -174,11 +174,12 @@ Public Class ClsFISConfiguracion
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsFinanzas.vb b/App_Code/ClsFinanzas.vb
index 3a032bc3a..20a6fdb07 100644
--- a/App_Code/ClsFinanzas.vb
+++ b/App_Code/ClsFinanzas.vb
@@ -200,11 +200,14 @@ Public Class ClsFinanzas
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
diff --git a/App_Code/ClsFlotillas.vb b/App_Code/ClsFlotillas.vb
index 17350750b..f9ff51f34 100644
--- a/App_Code/ClsFlotillas.vb
+++ b/App_Code/ClsFlotillas.vb
@@ -738,12 +738,13 @@ Public Class ClsFlotillas
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsGPS.vb b/App_Code/ClsGPS.vb
index 790d42e8d..21ddfea1e 100644
--- a/App_Code/ClsGPS.vb
+++ b/App_Code/ClsGPS.vb
@@ -5693,21 +5693,22 @@ Public Class ClsGPS
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
- If Not Dataset Is Nothing Then
- Dataset.Clear()
- Dataset.Dispose()
- Dataset = Nothing
- End If
+ If disposing Then
+ ' TODO: Liberar otro estado (objetos administrados).
+
+
If Not DtPosiciones Is Nothing Then DtPosiciones.Dispose() : DtPosiciones = Nothing
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsGPSHerramientas.vb b/App_Code/ClsGPSHerramientas.vb
index 493863bad..2d0c6e456 100644
--- a/App_Code/ClsGPSHerramientas.vb
+++ b/App_Code/ClsGPSHerramientas.vb
@@ -187,11 +187,12 @@ Public Class ClsGPSHerramientas
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index becb87884..e594b96c2 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -3327,22 +3327,7 @@ Public Class ClsGenerales
#End Region
- Protected Overridable Sub Dispose(ByVal disposing As Boolean)
- If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- End If
-
- ' TODO: Liberar su propio estado (objetos no administrados).
- ' TODO: Establecer campos grandes como Null.
- End If
- disposedValue = True
- End Sub
+
#Region "CRUD_Edoc_DocumentacionTipo"
@@ -3489,15 +3474,42 @@ Public Class ClsGenerales
#End Region
-#Region " IDisposable Support "
- ' Visual Basic agregó este código para implementar correctamente el modelo descartable.
+
+#Region "IDisposable Support"
+
+
+ ' IDisposable
+ Protected Overridable Sub Dispose(disposing As Boolean)
+ If Not Me.disposedValue Then
+ If disposing Then
+ ' TODO: dispose managed state (managed objects).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+ End If
+
+ ' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
+ ' TODO: set large fields to null.
+ End If
+ Me.disposedValue = True
+ End Sub
+
+
+
+ ' This code added by Visual Basic to correctly implement the disposable pattern.
Public Sub Dispose() Implements IDisposable.Dispose
- ' No cambie este código. Coloque el código de limpieza en Dispose (ByVal que se dispone como Boolean).
+ ' Do not change this code. Put cleanup code in Dispose(disposing As Boolean) above.
ConexionClose()
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
-#End Region
+#End Region
+
+
#Region " P O L I Z A V I R T U A L "
Public Function ModelosAutosGet(CveEmpresa As Integer) As Boolean
diff --git a/App_Code/ClsGralFolios.vb b/App_Code/ClsGralFolios.vb
index 2705071c7..6c5f231b4 100644
--- a/App_Code/ClsGralFolios.vb
+++ b/App_Code/ClsGralFolios.vb
@@ -276,12 +276,14 @@ Public Class ClsGralFolios
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- ' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsGralProductosServiciosCaracteristicas.vb b/App_Code/ClsGralProductosServiciosCaracteristicas.vb
index 6c2ea130b..8ee0d7822 100644
--- a/App_Code/ClsGralProductosServiciosCaracteristicas.vb
+++ b/App_Code/ClsGralProductosServiciosCaracteristicas.vb
@@ -305,10 +305,12 @@ Public Class ClsGralProductosServiciosCaracteristicas
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsImpuestos.vb b/App_Code/ClsImpuestos.vb
index f4fd2c684..28d2929e3 100644
--- a/App_Code/ClsImpuestos.vb
+++ b/App_Code/ClsImpuestos.vb
@@ -146,11 +146,14 @@ Public Class ClsImpuestos
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsIndicadores.vb b/App_Code/ClsIndicadores.vb
index 625ddd31f..c9d8275aa 100644
--- a/App_Code/ClsIndicadores.vb
+++ b/App_Code/ClsIndicadores.vb
@@ -128,10 +128,12 @@ Public Class ClsIndicadores
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 43eab1487..c256e98fe 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -5751,10 +5751,11 @@ Public Class ClsInventarios
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsLeyendasFiscales.vb b/App_Code/ClsLeyendasFiscales.vb
index 55c873e76..429a00b01 100644
--- a/App_Code/ClsLeyendasFiscales.vb
+++ b/App_Code/ClsLeyendasFiscales.vb
@@ -191,11 +191,12 @@ Public Class ClsLeyendasFiscales
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsMF.vb b/App_Code/ClsMF.vb
index 72ea537ca..e49c01e47 100644
--- a/App_Code/ClsMF.vb
+++ b/App_Code/ClsMF.vb
@@ -710,11 +710,14 @@ Public Class ClsMF
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsMetodosPagos.vb b/App_Code/ClsMetodosPagos.vb
index 59097d1df..e21006c56 100644
--- a/App_Code/ClsMetodosPagos.vb
+++ b/App_Code/ClsMetodosPagos.vb
@@ -113,11 +113,12 @@ Public Class ClsMetodosPagos
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsModulos.vb b/App_Code/ClsModulos.vb
index 3c47376f4..7c8e84877 100644
--- a/App_Code/ClsModulos.vb
+++ b/App_Code/ClsModulos.vb
@@ -412,11 +412,12 @@ Public Class ClsModulos
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsMonedas.vb b/App_Code/ClsMonedas.vb
index 26d96091d..3a4ac8dcd 100644
--- a/App_Code/ClsMonedas.vb
+++ b/App_Code/ClsMonedas.vb
@@ -134,11 +134,12 @@ Public Class ClsMonedas
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb
index 0193ebf94..680fbc2ae 100644
--- a/App_Code/ClsMovimientos.vb
+++ b/App_Code/ClsMovimientos.vb
@@ -1751,14 +1751,15 @@ Public Class ClsMovimientos
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- ' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If disposing Then
+ ' TODO: dispose managed state (managed objects).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index f57a14a3c..8f4ffb729 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -2878,11 +2878,14 @@ Public Class ClsNominas
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DTSet Is Nothing Then DTSet.Dispose() : DTSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb
index 913c6ddf7..bd1832379 100644
--- a/App_Code/ClsOC.vb
+++ b/App_Code/ClsOC.vb
@@ -2611,11 +2611,13 @@ Public Class ClsOC
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
End If
disposedValue = True
diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb
index 457ba77d3..bc70c3569 100644
--- a/App_Code/ClsOIEventos.vb
+++ b/App_Code/ClsOIEventos.vb
@@ -3162,12 +3162,14 @@ Public Class ClsOIEventos
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If disposing Then
+ ' TODO: Liberar otro estado (objetos administrados).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb
index 431ef2037..42e8c4cd2 100644
--- a/App_Code/ClsOS.vb
+++ b/App_Code/ClsOS.vb
@@ -1680,10 +1680,12 @@ Public Class ClsOS
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsPV.vb b/App_Code/ClsPV.vb
index 63f2bb39e..382f34065 100644
--- a/App_Code/ClsPV.vb
+++ b/App_Code/ClsPV.vb
@@ -208,12 +208,13 @@ Public Class ClsPV
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsPresupuestos.vb b/App_Code/ClsPresupuestos.vb
index 2bf7542f8..54c45a729 100644
--- a/App_Code/ClsPresupuestos.vb
+++ b/App_Code/ClsPresupuestos.vb
@@ -755,10 +755,12 @@ Public Class ClsPresupuestos
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 113c97ce0..1b1a08d6f 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -2141,11 +2141,13 @@ Public Class ClsProductosServicios
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsProsEncuestas.vb b/App_Code/ClsProsEncuestas.vb
index dc005bd79..7a74c21c6 100644
--- a/App_Code/ClsProsEncuestas.vb
+++ b/App_Code/ClsProsEncuestas.vb
@@ -775,10 +775,11 @@ Public Class ClsProsEncuestas
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsProspectos.vb b/App_Code/ClsProspectos.vb
index adfc2b6cd..2866b3324 100644
--- a/App_Code/ClsProspectos.vb
+++ b/App_Code/ClsProspectos.vb
@@ -4615,10 +4615,13 @@ Public Class ClsProspectos
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsProyectos.vb b/App_Code/ClsProyectos.vb
index 31b371e85..030fc7686 100644
--- a/App_Code/ClsProyectos.vb
+++ b/App_Code/ClsProyectos.vb
@@ -233,10 +233,12 @@ Public Class ClsProyectos
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsPruebasJJMQ.vb b/App_Code/ClsPruebasJJMQ.vb
index 3bd297b6e..1a812e2b5 100644
--- a/App_Code/ClsPruebasJJMQ.vb
+++ b/App_Code/ClsPruebasJJMQ.vb
@@ -157,11 +157,12 @@ Public Class ClsPruebasJJMQ
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
StrSQL.Clear()
End If
diff --git a/App_Code/ClsPuntoVenta.vb b/App_Code/ClsPuntoVenta.vb
index 79f8f82ed..e524ce6bb 100644
--- a/App_Code/ClsPuntoVenta.vb
+++ b/App_Code/ClsPuntoVenta.vb
@@ -429,12 +429,12 @@ Public Class ClsPuntoVenta
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index c7d98a06d..455ae5763 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -7111,10 +7111,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not DSet Is Nothing Then DSet.Dispose() : DSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsRMA.vb b/App_Code/ClsRMA.vb
index b29752ac6..25726a92e 100644
--- a/App_Code/ClsRMA.vb
+++ b/App_Code/ClsRMA.vb
@@ -203,11 +203,13 @@ Public Class ClsRMA
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsSAT.vb b/App_Code/ClsSAT.vb
index ec5a7b30e..62d6f4521 100644
--- a/App_Code/ClsSAT.vb
+++ b/App_Code/ClsSAT.vb
@@ -451,11 +451,12 @@ Public Class ClsSAT
' TODO: dispose managed state (managed objects).
'ConexionUpdate()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
diff --git a/App_Code/ClsSCTLicencias.vb b/App_Code/ClsSCTLicencias.vb
index bdf704c01..7ae89385a 100644
--- a/App_Code/ClsSCTLicencias.vb
+++ b/App_Code/ClsSCTLicencias.vb
@@ -247,13 +247,16 @@ Public Class ClsSCTLicencias
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
+
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
' TODO: Liberar su propio estado (objetos no administrados).
' TODO: Establecer campos grandes como Null.
diff --git a/App_Code/ClsSeguimiento.vb b/App_Code/ClsSeguimiento.vb
index 96b21a7cf..d3359629a 100644
--- a/App_Code/ClsSeguimiento.vb
+++ b/App_Code/ClsSeguimiento.vb
@@ -166,10 +166,10 @@ Public Class ClsSeguimiento
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsSisEmpresas.vb b/App_Code/ClsSisEmpresas.vb
index 8712432be..e96dd9a87 100644
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
@@ -1846,14 +1846,15 @@ Public Class ClsSisEmpresas
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- 'If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If disposing Then
+ ' TODO: Liberar otro estado (objetos administrados).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsSisNotificaciones.vb b/App_Code/ClsSisNotificaciones.vb
index 37eb2e654..bcf8af387 100644
--- a/App_Code/ClsSisNotificaciones.vb
+++ b/App_Code/ClsSisNotificaciones.vb
@@ -2063,22 +2063,25 @@ Public Class ClsSisNotificaciones
' IDisposable
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose() : SqlConexion = Nothing
- If Not DataSet Is Nothing Then
- DataSet.Clear()
- DataSet.Dispose() : DataSet = Nothing
- End If
+ If disposing Then
+
+
+
+ If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() : DTNotificacionesGPS = Nothing
+ If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() : DTNotificacionesERP = Nothing
+ If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() : DTNotificacionesArmadas = Nothing
+ If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() : DTReportesProgramados = Nothing
+ NotificacionesBitacora = ""
+
+
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
- If Not DTNotificacionesGPS Is Nothing Then DTNotificacionesGPS.Dispose() : DTNotificacionesGPS = Nothing
- If Not DTNotificacionesERP Is Nothing Then DTNotificacionesERP.Dispose() : DTNotificacionesERP = Nothing
- If Not DTNotificacionesArmadas Is Nothing Then DTNotificacionesArmadas.Dispose() : DTNotificacionesArmadas = Nothing
- If Not DTReportesProgramados Is Nothing Then DTReportesProgramados.Dispose() : DTNotificacionesGPS = Nothing
- NotificacionesBitacora = ""
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not DataSet Is Nothing Then DataSet.Dispose() : DataSet = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsSisParametros.vb b/App_Code/ClsSisParametros.vb
index 8ab040848..31ee3bc15 100644
--- a/App_Code/ClsSisParametros.vb
+++ b/App_Code/ClsSisParametros.vb
@@ -255,12 +255,15 @@ Public Class ClsSisParametros
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsSisProcesos.vb b/App_Code/ClsSisProcesos.vb
index a19a77896..573219743 100644
--- a/App_Code/ClsSisProcesos.vb
+++ b/App_Code/ClsSisProcesos.vb
@@ -216,11 +216,11 @@ Public Class ClsSisProcesos
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: Liberar su propio estado (objetos no administrados).
diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb
index 85b9a7211..89e0fa672 100644
--- a/App_Code/ClsSisRoles.vb
+++ b/App_Code/ClsSisRoles.vb
@@ -336,10 +336,13 @@ Public Class ClsSisRoles
If Not Me.disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index 09896ce69..44acf89fc 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -2939,12 +2939,16 @@ Public Class ClsSisUsuarios
#Region "IDisposable Support"
Protected Overridable Sub Dispose(disposing As Boolean)
If Not Me.disposedValue Then
- If disposing Then
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If disposing Then
+
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
End If
End If
Me.disposedValue = True
diff --git a/App_Code/ClsStiReports.vb b/App_Code/ClsStiReports.vb
index fa533de0a..8d000882f 100644
--- a/App_Code/ClsStiReports.vb
+++ b/App_Code/ClsStiReports.vb
@@ -106,10 +106,13 @@ Public Class ClsStiReports
If Not disposedValue Then
If disposing Then
' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb
index eb0f0d55a..f07ce9213 100644
--- a/App_Code/ClsSubProyectos.vb
+++ b/App_Code/ClsSubProyectos.vb
@@ -299,12 +299,14 @@ Public Class ClsSubProyectos
' IDisposable
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
- If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ If disposing Then
+ ' TODO: Liberar otro estado (objetos administrados).
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
diff --git a/App_Code/ClsSucursales.vb b/App_Code/ClsSucursales.vb
index b7d3f0f00..e1d19cca9 100644
--- a/App_Code/ClsSucursales.vb
+++ b/App_Code/ClsSucursales.vb
@@ -351,11 +351,13 @@ Public Class ClsSucursales
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsTemporal.vb b/App_Code/ClsTemporal.vb
index f9ee5ca69..3b727f52c 100644
--- a/App_Code/ClsTemporal.vb
+++ b/App_Code/ClsTemporal.vb
@@ -291,12 +291,13 @@ Public Class ClsTemporal
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
- If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsTiposEventos.vb b/App_Code/ClsTiposEventos.vb
index 2905de837..76cb02e42 100644
--- a/App_Code/ClsTiposEventos.vb
+++ b/App_Code/ClsTiposEventos.vb
@@ -185,11 +185,12 @@ Public Class ClsTiposEventos
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsUnidadesMedida.vb b/App_Code/ClsUnidadesMedida.vb
index 69e51e5f8..542efe9bf 100644
--- a/App_Code/ClsUnidadesMedida.vb
+++ b/App_Code/ClsUnidadesMedida.vb
@@ -307,11 +307,13 @@ Public Class ClsUnidadesMedida
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index cee7e3770..2a6cf907c 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5257,6 +5257,9 @@ Public Class ClsVentas
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
+
+
+
If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
If Not Dataset Is Nothing Then Dataset.Dispose() : Dataset = Nothing
If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
@@ -5264,6 +5267,9 @@ Public Class ClsVentas
If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
+
+
+
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsVtaPromociones.vb b/App_Code/ClsVtaPromociones.vb
index f5e9e6bfa..3c11d5b04 100644
--- a/App_Code/ClsVtaPromociones.vb
+++ b/App_Code/ClsVtaPromociones.vb
@@ -139,11 +139,13 @@ Public Class ClsVtaPromociones
If Not Me.disposedValue Then
If disposing Then
' TODO: dispose managed state (managed objects).
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
- If Not SqlCommand Is Nothing Then SqlCommand.Dispose()
+
+
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
- If Not SqlConexion Is Nothing Then SqlConexion.Dispose()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
End If
' TODO: free unmanaged resources (unmanaged objects) and override Finalize() below.
diff --git a/App_Code/ClsVtaVendedores.vb b/App_Code/ClsVtaVendedores.vb
index 6949554e1..11c021c2d 100644
--- a/App_Code/ClsVtaVendedores.vb
+++ b/App_Code/ClsVtaVendedores.vb
@@ -265,13 +265,15 @@ Public Class ClsVtaVendedores
Protected Overridable Sub Dispose(ByVal disposing As Boolean)
If Not disposedValue Then
If disposing Then
- ' TODO: Liberar otro estado (objetos administrados).
- SqlConexion.Close()
- SqlConexion.Dispose()
- If Not Data Is Nothing Then Data.Dispose()
- If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose()
+ ' TODO: Liberar otro estado (objetos administrados).
+ If Not Data Is Nothing Then Data.Dispose() : Data = Nothing
+ If Not SqlAdapter Is Nothing Then SqlAdapter.Dispose() : SqlAdapter = Nothing
+ If Not SqlCommand Is Nothing Then SqlCommand.Dispose() : SqlCommand = Nothing
+ If Not SqlTransacc Is Nothing Then SqlTransacc.Dispose() : SqlTransacc = Nothing
+ If SqlConexion.State <> ConnectionState.Closed Then SqlConexion.Close()
+ If Not SqlConexion Is Nothing Then SqlConexion.Dispose() : SqlConexion = Nothing
- End If
+ End If
' TODO: Liberar su propio estado (objetos no administrados).
' TODO: Establecer campos grandes como Null.
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index 330068893..1336491e0 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -561,7 +561,7 @@ Partial Class Bancos_PopIEVentas
MovimientoPagar = Nothing
ArrIE = New ArrayList()
ArrIEFuncionariosEmpleados = New ArrayList()
- RFCCliente = ""
+ RFCCliente = "-1"
TxtFechaDocumento.Text = Now.ToShortDateString
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index ef527e830..27585e0ea 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6117,6 +6117,7 @@ Partial Class Compras_Compras
Case 25 'IEPS X Acreditar
If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+ CveSubProyectoInsertar = CveSubProyecto
importeMovimiento = ImporteIEPSxAcreditar
importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
@@ -6854,12 +6855,12 @@ Partial Class Compras_Compras
End If
End If
-
+ Else
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
+ End If
End If
- 'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then
- ' ErrorPrepoliza = True
- 'End If
End If
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 7bf565dd8..19a607751 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -376,6 +376,12 @@ Partial Class PopUpVerFactura
If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
ImprimeFormatoCartaPorte(UrlParametros("CVEMOV").ToString.ToEntero)
End If
+ End If
+
+ If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
+ If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
+ ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVEMOV").ToString.ToEntero)
+ End If
End If
@@ -747,7 +753,7 @@ Partial Class PopUpVerFactura
#End Region
-#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
+#Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE TIMBRADO"
Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
If CveMovimiento > 0 Then
Dim ObjInv As New ClsInventarios
@@ -873,6 +879,345 @@ Partial Class PopUpVerFactura
End If
End Sub
+ Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String
+ Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
+ If o Is Nothing Then
+ Return Retorno
+ Else
+ Return o.Value
+ End If
+ End Function
+
+ Private Sub ImprimeFormatoCartaPorteTimbrado(CveMovimiento As Integer)
+ If CveMovimiento > 0 Then
+
+ '01 Autotransporte Federal
+ '02 Transporte Marítimo
+ '03 Transporte Aéreo
+ '04 Transporte Ferroviario
+ '05 Ducto
+ Dim HtTransporte As New Hashtable()
+ HtTransporte.Add("01", "Autotransporte Federal")
+ HtTransporte.Add("02", "Transporte Marítimo")
+ HtTransporte.Add("03", "Transporte Aéreo")
+ HtTransporte.Add("04", "Transporte Ferroviario")
+ HtTransporte.Add("05", "Ducto")
+
+ 'EMISOR
+ Dim LugarExpedicion As String = ""
+ Dim ImgCBB As String = ""
+ 'COMPROBANTE
+ Dim SerieFolio As String = ""
+ Dim Telefono As String = ""
+ Dim SubTotal As Decimal = 0
+ Dim Descuentos As Decimal = 0
+ Dim Total As Decimal = 0
+ 'DATOS DEL CLIENTE
+ Dim ClienteRFC As String = ""
+ Dim ClienteNombre As String = ""
+ Dim ClienteUsoCFDi As String = ""
+
+ 'TRANSPORTE
+ Dim MedioTransporte As String = ""
+ Dim TransporteInternacional As String = ""
+ Dim PermisoSTCC As String = ""
+ Dim NumPermiso As String = ""
+ Dim Aseguradora As String = ""
+ Dim NumPolizaSeguro As String = ""
+ Dim PlacaVM As String = ""
+ Dim AnioModeloVM As String = ""
+ 'TIMBRADO
+ Dim FolioFiscal As String = ""
+ Dim NoCertificadoSAT As String = ""
+ Dim CadenaOriginal As String = ""
+ Dim NoSerieCertificado As String = ""
+ Dim FechaCertificacion As DateTime = Nothing
+ Dim SelloCFDi As String = ""
+ Dim SelloSAT As String = ""
+
+ Dim ObjInv As New ClsInventarios
+ If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+ If ObjInv.DtResultados.Rows.Count > 0 Then
+ Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
+ If Dr IsNot Nothing Then
+ SerieFolio = Dr("Folio").ToString
+ Telefono = Dr("Telefono1").ToString
+ End If
+ End If
+ End If
+ ObjInv.Dispose()
+
+ Dim DtConceptos As New DataTable()
+ DtConceptos.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+ DtConceptos.Columns.Add(New DataColumn("Unidad", GetType(String)))
+ DtConceptos.Columns.Add(New DataColumn("Descripcion", GetType(String)))
+ DtConceptos.Columns.Add(New DataColumn("ValorUnitario", GetType(Decimal)))
+ DtConceptos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
+
+ Dim DtUbicaciones As New DataTable()
+ DtUbicaciones.Columns.Add(New DataColumn("Distancia", GetType(String)))
+ DtUbicaciones.Columns.Add(New DataColumn("RFC", GetType(String)))
+ DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
+ DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
+ DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
+
+ Dim DtMercancias As New DataTable()
+ DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+ DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
+ DtMercancias.Columns.Add(New DataColumn("Descripcion", GetType(String)))
+ DtMercancias.Columns.Add(New DataColumn("PesoEnKg", GetType(String)))
+
+ Dim DtOperadores As New DataTable()
+ DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
+ DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
+ DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
+
+ Dim XMLDoc As New XmlDocument
+ Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("Tra-{0}", SerieFolio), "xml")
+ Dim Archivo As New System.IO.FileInfo(Path)
+
+ If Archivo.Exists Then
+ Try
+ XMLDoc.Load(Path)
+ Catch ex As Exception
+ Try
+ Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
+ XMLDoc.Load(oReader)
+ oReader.Dispose()
+ Catch ex2 As Exception
+ GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString())
+ End Try
+ End Try
+ End If
+
+ If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
+
+ Dim RutaCBB As String = String.Format("{0}\CBB\Tra-{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
+ Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
+
+ Dim nodo As XmlNode = XMLDoc.DocumentElement
+
+ Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
+ Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
+ Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
+
+ If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+ namespaces.AddNamespace(Prefijo, cfdVer)
+ namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
+ namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
+ namespaces.AddNamespace("registrofiscal", "http://www.sat.gob.mx/registrofiscal")
+ namespaces.AddNamespace("cartaporte", "http://www.sat.gob.mx/CartaPorte")
+
+ Dim nodeComprobante As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Comprobante", Prefijo), namespaces)
+ If nodeComprobante IsNot Nothing Then
+ LugarExpedicion = ValorXML(nodeComprobante, "LugarExpedicion")
+ SubTotal = ValorXML(nodeComprobante, "SubTotal").ToDecimal()
+ Total = ValorXML(nodeComprobante, "Total").ToDecimal()
+ End If
+
+ Dim nodeCliente As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Receptor", Prefijo), namespaces)
+
+ If nodeCliente IsNot Nothing Then
+ ClienteRFC = ValorXML(nodeCliente, "RFC")
+ ClienteNombre = ValorXML(nodeCliente, "Nombre")
+ Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
+ ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
+ End If
+
+ Dim nodeConceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
+
+ If nodeConceptos IsNot Nothing Then
+ For Each node As XmlNode In nodeConceptos.ChildNodes
+ Dim Row As DataRow = DtConceptos.NewRow
+
+ Row("Cantidad") = ValorXML(node, "Cantidad", "")
+ Row("Unidad") = ValorXML(node, "Unidad", "")
+ Row("Descripcion") = ValorXML(node, "Descripcion", "")
+ Row("ValorUnitario") = ValorXML(node, "ValorUnitario", "")
+ Row("Importe") = ValorXML(node, "Importe", "")
+
+ DtConceptos.Rows.Add(Row)
+ Next
+ End If
+
+
+ Dim nodeComp As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", Prefijo), namespaces)
+
+ Dim nodeCartaPorte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:CartaPorte", "cartaporte"), namespaces)
+ If nodeCartaPorte IsNot Nothing Then
+ TransporteInternacional = ValorXML(nodeCartaPorte, "TranspInternac", "")
+ End If
+
+ Dim nodeAutotransporteFederal As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:AutotransporteFederal", "cartaporte"), namespaces)
+ If nodeAutotransporteFederal IsNot Nothing Then
+ PermisoSTCC = ValorXML(nodeAutotransporteFederal, "PermSCT", "")
+ NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "")
+ Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "")
+ NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "")
+ End If
+
+ Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces)
+ If nodeIdentificacionVehicular IsNot Nothing Then
+ PlacaVM = ValorXML(nodeIdentificacionVehicular, "PlacaVM", "")
+ AnioModeloVM = ValorXML(nodeIdentificacionVehicular, "AnioModeloVM", "")
+ End If
+
+ Dim nodeFiguraTransporte As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:FiguraTransporte", "cartaporte"), namespaces)
+ If nodeFiguraTransporte IsNot Nothing Then
+ Dim CveTransporte As String = ValorXML(nodeFiguraTransporte, "CveTransporte", "")
+ MedioTransporte = String.Format("{0} - {1}", CveTransporte, HtTransporte(CveTransporte).ToString())
+ End If
+
+ Dim nodeMercancias As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancia", "cartaporte"), namespaces)
+ For Each node As XmlNode In nodeMercancias
+ Dim Row As DataRow = DtMercancias.NewRow
+
+ Row("Cantidad") = ValorXML(node, "Cantidad", "")
+ Row("UnidadMedida") = ValorXML(node, "Unidad", "")
+ Row("Descripcion") = ValorXML(node, "Descripcion", "")
+ Row("PesoEnKg") = ValorXML(node, "PesoEnKg", "")
+
+ DtMercancias.Rows.Add(Row)
+ Next
+
+ Dim nodeOperadores As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Operador", "cartaporte"), namespaces)
+ For Each node As XmlNode In nodeOperadores
+ Dim Row As DataRow = DtOperadores.NewRow
+
+ Row("RFC") = ValorXML(node, "RFCOperador", "")
+ Row("NumLicencia") = ValorXML(node, "NumLicencia", "")
+ Row("NombreOperador") = ValorXML(node, "NombreOperador", "")
+
+ DtOperadores.Rows.Add(Row)
+ Next
+
+
+ Dim nodeUbicaciones As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Ubicacion", "cartaporte"), namespaces)
+ For Each node As XmlNode In nodeUbicaciones
+ Dim Row As DataRow = DtUbicaciones.NewRow
+
+ Row("Distancia") = ValorXML(node, "DistanciaRecorrida", "")
+ Dim nodeOrigen = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Origen")
+ If nodeOrigen IsNot Nothing Then
+ Row("RFC") = ValorXML(nodeOrigen, "RFCRemitente", "")
+ Row("Nombre") = ValorXML(nodeOrigen, "NombreRemitente", "")
+ Row("FechaHoraSalida") = ValorXML(nodeOrigen, "FechaHoraSalida", "").ToDateTime()
+ End If
+
+ Dim nodeDestino = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Destino") 'node.SelectSingleNode(String.Format("//{0}:Destino", "cartaporte"), namespaces)
+ If nodeDestino IsNot Nothing Then
+ Row("RFC") = ValorXML(nodeDestino, "RFCDestinatario", "")
+ Row("Nombre") = ValorXML(nodeDestino, "NombreDestinatario", "")
+ Row("FechaHoraSalida") = ValorXML(nodeDestino, "FechaHoraProgLlegada", "").ToDateTime()
+ End If
+
+ Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
+ If nodeDomicilio IsNot Nothing Then
+ Dim calle = ValorXML(nodeDomicilio, "Calle", "")
+ Dim Estado = ValorXML(nodeDomicilio, "Estado", "")
+ Dim Pais = ValorXML(nodeDomicilio, "MEX", "")
+ Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")
+
+ Row("Direccion") = String.Format("{0} ,{1},{2}. CP {3}", calle, Estado, Pais, CP)
+ End If
+
+ DtUbicaciones.Rows.Add(Row)
+ Next
+
+ Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
+ If nodeTFD IsNot Nothing Then
+ FolioFiscal = ValorXML(nodeTFD, "UUID", "")
+ NoSerieCertificado = ValorXML(nodeTFD, "NoCertificadoSAT", "")
+ FechaCertificacion = ValorXML(nodeTFD, "FechaTimbrado", "").ToDateTime
+ SelloCFDi = ValorXML(nodeTFD, "SelloCFD", "")
+ SelloSAT = ValorXML(nodeTFD, "SelloSAT", "")
+ NoCertificadoSAT = ValorXML(nodeTFD, "NoCertificadoSAT", "")
+
+ CadenaOriginal = "||1.0|" + FolioFiscal + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|" + SelloCFDi + "|" + NoSerieCertificado + "||"
+ End If
+
+ If Not ImagenCBB.Exists Then
+ Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+ CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
+ End If
+
+ ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Tra-{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
+ End If
+
+ If DtConceptos.Rows.Count > 0 Then
+ Dim params As New List(Of ReportParameter)
+ Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ If Imagen.Exists Then
+ params.Add(New ReportParameter("LogoPath", logouri))
+ Else
+ params.Add(New ReportParameter("LogoPath", ""))
+ End If
+ 'EMPRESA
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+ params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+ params.Add(New ReportParameter("DomicilioFiscal", $"{UsuarioActual.Empresa.Direccion}, {UsuarioActual.Empresa.Colonia}, {UsuarioActual.Empresa.Localidad}, {UsuarioActual.Empresa.Estado}, Tel. {Telefono}"))
+ params.Add(New ReportParameter("SerieFolio", SerieFolio))
+ params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC))
+ params.Add(New ReportParameter("DomicilioExpedicion", LugarExpedicion))
+ 'CLIENTE
+ params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
+ params.Add(New ReportParameter("ClienteRFC", ClienteRFC))
+ params.Add(New ReportParameter("UsoCFDi", ClienteUsoCFDi))
+ 'TRANSPORTE
+ params.Add(New ReportParameter("MedioTransporte", MedioTransporte))
+ params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional))
+ params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC))
+ params.Add(New ReportParameter("NumPermiso", NumPermiso))
+ params.Add(New ReportParameter("Aseguradora", Aseguradora))
+ params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro))
+ params.Add(New ReportParameter("PlacaVM", PlacaVM))
+ params.Add(New ReportParameter("AnioVM", AnioModeloVM))
+ 'TIMBRADO
+ params.Add(New ReportParameter("FolioFiscal", FolioFiscal))
+ params.Add(New ReportParameter("QR", ImgCBB))
+ params.Add(New ReportParameter("SelloCFDI", SelloCFDi))
+ params.Add(New ReportParameter("CertificadoContribuyente", NoCertificadoSAT))
+ params.Add(New ReportParameter("CadenaOriginal", CadenaOriginal))
+ params.Add(New ReportParameter("SerieCertificadoSAT", NoSerieCertificado))
+ params.Add(New ReportParameter("FechaCertificacion", FechaCertificacion.ToString("dd/MM/yyyy HH:mm:ss")))
+ params.Add(New ReportParameter("SelloSAT", SelloSAT))
+ 'TOTALES
+ params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
+ params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
+ params.Add(New ReportParameter("Total", Total.ToString()))
+ ' [@CertificadoContribuyente]
+ '[@CadenaOriginal]
+
+ Dim lrds As New List(Of ReportDataSource)
+
+ Dim rds As New ReportDataSource
+ rds.Name = "DataSet1"
+ rds.Value = DtConceptos
+ lrds.Add(rds)
+
+ Dim rds2 As New ReportDataSource
+ rds2.Name = "DataSet2"
+ rds2.Value = DtUbicaciones
+ lrds.Add(rds2)
+
+ Dim rds3 As New ReportDataSource
+ rds3.Name = "DataSet3"
+ rds3.Value = DtMercancias
+ lrds.Add(rds3)
+
+ Dim rds4 As New ReportDataSource
+ rds4.Name = "DataSet4"
+ rds4.Value = DtOperadores
+ lrds.Add(rds4)
+
+ ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", lrds, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
+ End If
+ End If
+ End Sub
+
#End Region
#Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
new file mode 100644
index 000000000..24d09caea
--- /dev/null
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -0,0 +1,3627 @@
+
+
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CANTIDAD
+
+
+
+
+
+
+ Textbox28
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+ 3.00921cm
+
+
+ 10.82134cm
+
+
+ 2.35479cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!UnidadMedida.Value
+
+
+
+
+
+
+ UM
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Descripcion.Value
+
+
+
+
+
+
+ Textbox31
+
+ 5pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!PesoEnKg.Value
+
+
+
+
+
+
+ PesoEnKg
+
+ 5pt
+
+
+
+ 1pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ UNIDAD DE MEDIDA
+
+
+
+
+
+
+ Textbox40
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ DESCRIPCIÓN
+
+
+
+
+
+
+ Textbox30
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ PESO(KG)
+
+
+
+
+
+
+ Textbox64
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 2.92737cm
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+ 1pt
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+ DataSet3
+ 5.56865cm
+ 0.38395cm
+ 1.12062cm
+ 19.11271cm
+
+
+
+
+
+ true
+ true
+
+
+
+
+ N
+
+
+
+ ombre:
+
+
+
+ =Parameters!ClienteNombre.Value
+
+
+
+
+
+
+
+
+ RFC:
+
+
+
+ =Parameters!ClienteRFC.Value
+
+
+
+
+
+
+
+
+ Uso CFDi:
+
+
+
+
+
+
+
+ =Parameters!UsoCFDi.Value
+
+
+
+
+
+
+ Textbox2
+ 0.33302in
+ 0.41187cm
+ 0.51791in
+ 7.5137in
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ MERCANCIAS
+
+
+
+
+
+
+ Textbox3
+ 4.97857cm
+ 0.1841in
+ 0.5cm
+ 7.52776in
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ DISTANCIA
+
+
+
+
+
+
+ Textbox28
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+ 3.00921cm
+
+
+ 4.47377cm
+
+
+ 2.95726cm
+
+
+ 6.97146cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!RFC.Value
+
+
+
+
+
+
+ UM
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Nombre.Value
+
+
+
+
+
+
+ Textbox31
+
+ 5pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!FechaHoraSalida.Value
+
+
+
+
+
+
+ Textbox65
+
+ 5pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Direccion.Value
+
+
+
+
+
+
+ Direccion
+
+ 5pt
+
+
+
+ 1pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ RFC
+
+
+
+
+
+
+ Textbox40
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ NOMBRE
+
+
+
+
+
+
+ Textbox30
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ FECHA
+
+
+
+
+
+
+ Textbox64
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ DIRECCIÓN
+
+
+
+
+
+
+ Textbox1
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 1.68927cm
+
+
+ true
+ true
+
+
+
+
+ =Fields!Distancia.Value
+
+
+
+
+
+
+ Cantidad
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+ 1pt
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+ DataSet2
+ 7.3763cm
+ 0.42363cm
+ 1.12062cm
+ 19.10097cm
+ 3
+
+
+
+
+
+ true
+ true
+
+
+
+
+ REMITEMTES Y DESTINATARIOS
+
+
+
+
+
+
+ Textbox3
+ 6.78622cm
+ 0.19973in
+ 0.5cm
+ 7.52776in
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ RFC
+
+
+
+
+
+
+ Textbox28
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+ 4.47377cm
+
+
+ 9.92872cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!NumLicencia.Value
+
+
+
+
+
+
+ UM
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!NombreOperador.Value
+
+
+
+
+
+
+ Textbox31
+
+ 5pt
+
+
+
+ 1pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ LICENCIA
+
+
+
+
+
+
+ Textbox40
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ NOMBRE OPERADOR
+
+
+
+
+
+
+ Textbox30
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 4.69848cm
+
+
+ true
+ true
+
+
+
+
+ =Fields!RFC.Value
+
+
+
+
+
+
+ Cantidad
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+ 1pt
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+ DataSet4
+ 9.18605cm
+ 0.42363cm
+ 1.12062cm
+ 19.10097cm
+ 5
+
+
+
+
+
+ true
+ true
+
+
+
+
+ OPERADORES
+
+
+
+
+
+
+ Textbox3
+ 8.59597cm
+ 0.19972in
+ 0.5cm
+ 7.52776in
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Sello digital del CFDI:
+
+
+
+
+
+
+
+
+ =Parameters!SelloCFDI.Value
+
+
+
+
+
+
+
+
+ Cadena original del complemento de certificación digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!CadenaOriginal.Value
+
+
+
+
+
+
+
+
+ Sello digital del SAT:
+
+
+
+
+
+
+
+
+ =Parameters!SelloSAT.Value
+
+
+
+
+
+
+ Textbox45
+ 5.82267in
+ 0.41187cm
+ 3.03416cm
+ 15.44579cm
+ 7
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ External
+ =Parameters!QR.Value
+ FitProportional
+ 5.71082in
+ 6.18415in
+ 1.2939in
+ 1.53682in
+ 8
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Medio de transporte
+
+
+
+ :
+
+
+
+ =Parameters!MedioTransporte.Value
+
+
+
+
+
+
+
+
+ Transporte Internacional:
+
+
+
+ =Parameters!TransporteInternacional.Value
+
+
+
+
+
+
+
+
+ Tipo de Transporte Internacional:
+
+
+
+ =Parameters!TipoTI.Value
+
+
+
+
+
+
+
+
+ Vía de Transporte Internacional:
+
+
+
+ =Parameters!ViaTI.Value
+
+
+
+
+
+
+
+
+ Permiso STCC:
+
+
+
+
+
+
+
+ =Parameters!PermisoSTCC.Value
+
+
+
+
+
+
+ Textbox2
+ 1.13111in
+ 0.38395cm
+ 0.76862in
+ 3.73231in
+ 9
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ TRANSPORTE
+
+
+
+
+
+
+ Textbox3
+ 2.33775cm
+ 0.15116in
+ 0.5cm
+ 7.5137in
+ 10
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Numero de Permiso
+
+
+
+ :
+
+
+
+ =Parameters!NumPermiso.Value
+
+
+
+
+
+
+
+
+ Aseguradora:
+
+
+
+ =Parameters!Aseguradora.Value
+
+
+
+
+
+
+
+
+ Número de Póliza:
+
+
+
+ =Parameters!NumPoliza.Value
+
+
+
+
+
+
+
+
+ Placa:
+
+
+
+ =Parameters!PlacaVM.Value
+
+
+
+
+
+
+
+
+ Año:
+
+
+
+ =Parameters!AnioVM.Value
+
+
+
+
+
+
+
+
+
+
+ Textbox2
+ 1.13111in
+ 9.86403cm
+ 0.76862in
+ 3.78138in
+ 11
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ DATOS DEL CLIENTE
+
+
+
+
+
+
+ Textbox3
+ 0.27884cm
+ 0.15259in
+ 0.5cm
+ 7.5137in
+ 12
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CANTIDAD
+
+
+
+
+
+
+ Textbox28
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+ 3.00921cm
+
+
+ 8.91467cm
+
+
+ 2.35479cm
+
+
+ 2.95015cm
+
+
+
+
+ 0.6cm
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Unidad.Value
+
+
+
+
+
+
+ UM
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Descripcion.Value
+
+
+
+
+
+
+ Textbox31
+
+ 5pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!ValorUnitario.Value
+
+
+
+
+
+
+ PesoEnKg
+
+ 5pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Importe.Value
+
+
+
+
+
+
+ Importe
+
+ 5pt
+
+
+
+ 1pt
+
+
+
+ 1pt
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ UNIDAD DE MEDIDA
+
+
+
+
+
+
+ Textbox40
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ DESCRIPCIÓN
+
+
+
+
+
+
+ Textbox30
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ PU
+
+
+
+
+
+
+ Textbox64
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 0.52062cm
+
+
+ true
+ true
+
+
+
+
+ IMPORTE
+
+
+
+
+
+
+ Textbox5
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+
+
+
+
+ 1.86551cm
+
+
+ true
+ true
+
+
+
+
+ =Fields!Cantidad.Value
+
+
+
+
+
+
+ Cantidad
+
+ 2pt
+
+
+
+
+
+ 1pt
+
+
+ 1pt
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+ DataSet1
+ 11.01962cm
+ 0.33883cm
+ 1.12062cm
+ 19.09433cm
+ 13
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CONCEPTOS
+
+
+
+
+
+
+ Textbox3
+ 10.42954cm
+ 0.16633in
+ 0.5cm
+ 7.52776in
+ 14
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!SubTotal.Value
+
+
+
+
+
+
+ Textbox3
+ 4.896in
+ 6.37477in
+ 0.60856cm
+ 1.30108in
+ 15
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ SUBTOTAL:
+
+
+
+
+
+
+ Textbox3
+ 12.43583cm
+ 5.24863in
+ 0.60856cm
+ 1.12683in
+ 16
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Descuentos.Value
+
+
+
+
+
+
+ Textbox3
+ 5.13559in
+ 6.37685in
+ 0.60856cm
+ 1.30108in
+ 17
+
+
+
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ DESCUENTOS:
+
+
+
+
+
+
+ Textbox3
+ 13.04438cm
+ 5.25071in
+ 0.60856cm
+ 1.12683in
+ 18
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ =Parameters!Total.Value
+
+
+
+
+
+
+ Textbox3
+ 5.37518in
+ 6.37893in
+ 0.60856cm
+ 1.30108in
+ 19
+
+
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+
+
+
+
+ TOTAL:
+
+
+
+
+
+
+ Textbox3
+ 13.65293cm
+ 5.25279in
+ 0.60856cm
+ 1.12614in
+ 20
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ "Este documento es una representación impresa de un CFDI"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Folio fiscal:
+
+
+
+ =Parameters!FolioFiscal.Value
+
+
+
+
+
+
+
+
+ Fecha y hora de certificación:
+
+
+
+
+
+
+
+ =Parameters!FechaCertificacion.Value
+
+
+
+
+
+
+
+
+
+
+
+
+ Número de serie del Certificado de Sello Digital:
+
+
+
+ =Parameters!CertificadoContribuyente.Value
+
+
+
+
+
+
+
+
+ Número de serie del Certificado de Sello Digital del SAT:
+
+
+
+ =Parameters!SerieCertificadoSAT.Value
+
+
+
+
+
+
+
+
+
+
+ Textbox25
+ 12.43583cm
+ 0.42248cm
+ 2.35375cm
+ 12.73266cm
+ 21
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ 7.02116in
+
+
+ 7.82749in
+
+
+ 3.02245cm
+ true
+
+
+ true
+ true
+
+
+
+
+ =Parameters!NombreEmpresa.Value
+
+
+
+
+
+
+ Textbox2
+ 0.38703cm
+ 4.85476cm
+ 0.78571cm
+ 9.73471cm
+
+
+
+ true
+ true
+
+
+
+
+ RFC:
+
+
+
+ =Parameters!RFC.Value
+
+
+
+
+
+
+
+
+ Domicilio fiscal:
+
+
+
+
+
+
+
+ =Parameters!DomicilioFiscal.Value
+
+
+
+
+
+
+
+
+ Regimen fiscal:
+
+
+
+ =Parameters!RegimenFiscal.Value
+
+
+
+
+
+
+
+
+ Lugar de expedición:
+
+
+
+ =Parameters!DomicilioExpedicion.Value
+
+
+
+
+
+
+ Textbox3
+ 1.13cm
+ 4.85476cm
+ 1.76898cm
+ 9.74971cm
+ 1
+
+
+
+ External
+ =Parameters!LogoPath.Value
+ FitProportional
+ 0.16845in
+ 0.46171in
+ 1.23522in
+ 2
+
+
+
+
+
+ true
+
+
+
+
+ CARTA PORTE - TRASLADO
+
+
+
+
+
+
+ Textbox3
+ 0.38703cm
+ 5.81924in
+ 0.5cm
+ 1.83161in
+ 3
+
+
+ #4f81bd
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!SerieFolio.Value
+
+
+
+
+
+
+ Textbox3
+ 0.3607in
+ 5.81924in
+ 0.60856cm
+ 1.83161in
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+
+ 1.23524cm
+ true
+ true
+
+
+ 0.03525cm
+ 0.64802cm
+ 0cm
+ 19.22862cm
+
+
+
+
+
+ true
+ true
+
+
+
+
+ Usuario:
+
+
+
+
+
+
+ Textbox13
+ 0.14108cm
+ 0.64802cm
+ 0.54708cm
+ 1.55632cm
+ 1
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!UsuarioImprimio.Value
+
+
+
+
+
+
+ Textbox14
+ 0.14108cm
+ 2.20434cm
+ 0.54708cm
+ 4.96223cm
+ 2
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Fecha Impresion:
+
+
+
+
+
+
+ Textbox13
+ 0.14108cm
+ 7.27241cm
+ 0.54708cm
+ 2.84562cm
+ 3
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Globals!ExecutionTime
+
+
+
+
+
+
+ Textbox14
+ 0.14108cm
+ 10.11802cm
+ 0.54708cm
+ 4.68641cm
+ 4
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages
+
+
+
+
+
+
+ Textbox14
+ 0.17636cm
+ 15.0542cm
+ 0.54708cm
+ 4.8023cm
+ 5
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ IMPRESO EN SIG, Traspaso Almacén
+
+
+
+
+
+
+ Textbox14
+ 0.68816cm
+ 0.64802cm
+ 0.54708cm
+ 6.21751cm
+ 6
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ 29.7cm
+ 21cm
+ 0.5cm
+ 0.5cm
+ 1cm
+ 1cm
+ 0.13cm
+
+
+ 0
+
+
+
+ System.Data.DataSet
+ /* Local Connection */
+
+ f55ecc33-47ff-4fc5-a233-35ea9bb1f578
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ Cantidad
+ System.Decimal
+
+
+ Unidad
+ System.String
+
+
+ Descripcion
+ System.String
+
+
+ ValorUnitario
+ System.Decimal
+
+
+ Importe
+ System.Decimal
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ Distancia
+ System.String
+
+
+ RFC
+ System.String
+
+
+ Nombre
+ System.String
+
+
+ FechaHoraSalida
+ System.DateTime
+
+
+ Direccion
+ System.String
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ Cantidad
+ System.Decimal
+
+
+ UnidadMedida
+ System.String
+
+
+ Descripcion
+ System.String
+
+
+ PesoEnKg
+ System.String
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+ DataSet
+ /* Local Query */
+
+
+
+ RFC
+ System.String
+
+
+ NumLicencia
+ System.String
+
+
+ NombreOperador
+ System.String
+
+
+
+ DataSet
+ C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd
+ DataTable1
+
+
+
+
+
+
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ String
+ true
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+ Float
+ true
+ ReportParameter1
+
+
+ es-MX
+ Cm
+ 40c94aad-a12a-44fb-ab0d-ea36a9656792
+
\ No newline at end of file
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index 5cd3ac542..f606fac90 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -71,6 +71,9 @@
Descargar Carta Porte
+
+
+ Descargar Carta Porte Timbrado
Traspaso Almacen
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 35417be2f..52ae84d9f 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -781,6 +781,12 @@ Partial Class Inventarios_EntradasSalidas
HplCartaPorte.Visible = True
HplCartaPorte.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPO&CVEMOV={0}", CveMovimiento)))
+ If UsuarioActual.CveRol = 1 Then
+ HplCartaPorteTimbre.Visible = True
+ HplCartaPorteTimbre.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CARPOTIMBRE&CVEMOV={0}", CveMovimiento)))
+ End If
+
+
If UsuarioActual.CveRol = 1 Then
LnkGenerarPDF.Visible = True
End If
diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx
index 762d4efb9..bd1869aa2 100644
--- a/Ventas/CatClientes.aspx
+++ b/Ventas/CatClientes.aspx
@@ -473,47 +473,7 @@
- <%--
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Seleccione un Corporativo
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
--%>
-
-
-
-
+
@@ -530,12 +490,15 @@
-
+ <%----%>
+
+
-
+ <%----%>
+
@@ -550,6 +513,11 @@
+
+
+
+
+
diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb
index 33a704d22..51f83bd8f 100644
--- a/Ventas/CatClientes.aspx.vb
+++ b/Ventas/CatClientes.aspx.vb
@@ -85,11 +85,22 @@ Partial Class CatClientes
DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1"))
End Sub
Private Sub CargaNombreClientes()
- DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlClienteAUnificar.DataBind()
- DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlClienteOriginal.DataBind()
+ DdlClienteAUnificar.setEsWebService(True)
+ DdlClienteAUnificar.SelectedValue = "-1"
+ DdlClienteAUnificar.SelectedText = "Todos"
+
+
+ DdlClienteOriginal.setEsWebService(True)
+ DdlClienteOriginal.SelectedValue = "-1"
+ DdlClienteOriginal.SelectedText = "Todos"
+
+ 'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ 'DdlClienteAUnificar.DataBind()
+
+ 'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ 'DdlClienteOriginal.DataBind()
+
UpBodyUnificar.Update()
End Sub
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 7c057ac43..3dfe0c31e 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -4640,18 +4640,18 @@ Partial Class PV
End If
Row("IVA") = Row("PorcentajeIVA")
- Row("ImporteIVA") = Math.Round(Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
- Row("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
- Row("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
+ Row("ImporteIVA") = (Row("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+ Row("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+ Row("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
Row("PorcentajeRetIVA") = ClienteRetIVA
Row("PorcentajeRetISR") = ClienteRetISR
Row("PorcentajeIEPS") = DrPS("IEPSPorcentaje")
- Row("ImporteIEPS") = Math.Round(DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+ Row("ImporteIEPS") = (DrPS("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
Row("IEPS") = Row("ImporteIEPS")
- Row("Descuento") = Math.Round(Descuento, NumeroDecimales)
+ Row("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
Row("TipoDescuento") = HdnTipoDescuento.Value
Row("Total") = (Cantidad * PU)
- Row("TotalImporte") = Math.Round(Cantidad * PU, NumeroDecimales)
+ Row("TotalImporte") = (Cantidad * PU).RoundSQL(NumeroDecimales)
'Row("AsientoContableVentas") = DrPS("AsientoContableVentas")
' Row("IdCtaContVentas") = IdCtaContable
' Row("AplicaParaConcepto") = AplicaParaConcepto
@@ -5110,12 +5110,12 @@ Partial Class PV
Dim LastDr As DataRow = Nothing
For Each Dr As DataRow In TmpDT.Rows
Descuento = Dr("Total").ToString.ToDecimal * Porcentaje
- Dr("Descuento") = Math.Round(Descuento, NumeroDecimales)
+ Dr("Descuento") = (Descuento).RoundSQL(NumeroDecimales)
Dim TotalCalculableImpuestos As Decimal = (Dr("Cantidad").ToString.ToDecimal * (Dr("PU").ToString.ToDecimal)) - Dr("Descuento").ToString.ToDecimal
- Dr("ImporteIVA") = Math.Round(Dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
- Dr("ImporteRetIVA") = Math.Round(ClienteRetIVA * TotalCalculableImpuestos, NumeroDecimales)
- Dr("ImporteRetISR") = Math.Round(ClienteRetISR * TotalCalculableImpuestos, NumeroDecimales)
- Dr("ImporteIEPS") = Math.Round(Dr("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
+ Dr("ImporteIVA") = (Dr("PorcentajeIVA").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+ Dr("ImporteRetIVA") = (ClienteRetIVA * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+ Dr("ImporteRetISR") = (ClienteRetISR * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
+ Dr("ImporteIEPS") = (Dr("PorcentajeIEPS").ToString.ToDecimal * TotalCalculableImpuestos).RoundSQL(NumeroDecimales)
Dr("IEPS") = Dr("ImporteIEPS")
LastDr = Dr
Next
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index a51e237c6..22857021f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2630,6 +2630,8 @@ Partial Class Ventas
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
LnkAgregarCliente.Visible = True
+ ChkEnviarFactura.Checked = False
+ ChkEnviarFactura.Enabled = False
End If
End If
@@ -2786,6 +2788,12 @@ Partial Class Ventas
'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE
EnviarCorreoCliente = True
+
+ If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+ EnviarCorreoCliente = False
+ ChkEnviarFactura.Enabled = False
+ End If
+
If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
ChkEnviarFactura.Checked = False
ChkEnviarFactura.Visible = False
@@ -12049,67 +12057,90 @@ Partial Class Ventas
CveSubProyectoContabilizar = CveSubProyectoVenta
If importeMovimiento <> 0 Then
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
- ErrorPrepoliza = True
- Exit For
- Else
- ViewState("SeGuardoPrePoliza") = True
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContClientes, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
+
+ 'SI LA NC ES EN DOLARES Y PERO VIENE DE UN ANTICIPO EN PESOS
+ If (Not UsuarioActual.CveEmpresa.Contiene(72, 80, 146)) AndAlso ObjFactura.CveMoneda = 2 AndAlso row2.DataKey("CveMoneda").ToString().ToEntero() = 1 Then
+
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo * tipoCambio, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambio) Then
ErrorPrepoliza = True
Exit For
End If
- 'se hace acreditamiento de impuestos
- 'IVA X TRASLADAR
- Dim EsAnticipoEspecial As Boolean = False
- If UsuarioActual.CveEmpresa.Contiene(1, 119) Then EsAnticipoEspecial = True
- If EsAnticipoEspecial Then
- Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal
- '' si se esta aplicando NC por amortizaion, se trasladan impuestos
- If EsNCAmortizacion Then
- Dim IngresoIVA As Decimal = TxtIVA.Text.ToDecimal
- Dim IngresoIEPS As Decimal = TxtIEPS.Text.ToDecimal
- Dim IngresoTotal As Decimal = TxtTotal.Text.ToDecimal
+ 'Dim IdCtaContableComplementariaAntic = IdCtaContableClienteComplementaria
+ Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 292, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
- If IngresoIVA > 0 Then
+ 'Dim ImporteComplementaria = ((importeMovimiento * tipoCambio) - importeMovimiento).RoundSQL
+ 'If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, importeMovimiento, Concepto, 227, Concepto, FechaMovimiento, IdCtaContableComplementariaAntic, -1, CveVenta:=row2.DataKey("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveVentaAmortizacion:=ObjFactura.CveVenta, ImporteMX:=ImporteComplementaria, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, CveSubProyecto:=CveSubProyectoContabilizar) Then
+ ' ErrorPrepoliza = True
+ ' Exit For
+ 'End If
- IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
- Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
- ErrorPrepoliza = True
- Exit For
- End If
- 'IVA PAGADO
- IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
- Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
- If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
- ErrorPrepoliza = True
- Exit For
- End If
- End If
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 292, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContMonedaExtranjera, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
+ Else
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, ImporteAnticipo, Referencia, 11, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=row2.DataKey("CveVenta").ToEntero(), CveVentaAmortizacion:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=ImporteAnticipo * tipoCambio, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, Contabilizable:=SeContabiliza) Then
+ ErrorPrepoliza = True
+ Exit For
+ Else
+ ViewState("SeGuardoPrePoliza") = True
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, importeMovimiento, Referencia, 2, Concepto, FechaMovimiento, ObjFactura.Cliente.IdCtaContClientes, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=ObjFactura.CveCliente, ImporteMX:=importeMovimiento, ImporteME:=If(Dr("TCCambioValuacion").ToString().ToDecimal = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, CveIE:=CveIEAnticipo, CveVentaAmortizacion:=ObjFactura.CveVenta, TipoCambio:=Dr("TCCambioValuacion").ToString().ToDecimal, TipoCambioPago:=tipoCambio) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
+ 'se hace acreditamiento de impuestos
+ 'IVA X TRASLADAR
+ Dim EsAnticipoEspecial As Boolean = False
- If IngresoIEPS > 0 Then
- 'IEPS X TRASLADAR
- Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
- If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
- ErrorPrepoliza = True
- Exit For
+ If UsuarioActual.CveEmpresa.Contiene(1, 119) Then EsAnticipoEspecial = True
+ If EsAnticipoEspecial Then
+ Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal
+ '' si se esta aplicando NC por amortizaion, se trasladan impuestos
+ If EsNCAmortizacion Then
+ Dim IngresoIVA As Decimal = TxtIVA.Text.ToDecimal
+ Dim IngresoIEPS As Decimal = TxtIEPS.Text.ToDecimal
+ Dim IngresoTotal As Decimal = TxtTotal.Text.ToDecimal
+
+ If IngresoIVA > 0 Then
+
+ IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
+ Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
+ 'IVA PAGADO
+ IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
+ Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
+ If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIVA) / IngresoTotal, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIVA) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
End If
- 'IEPS PAGADO
- Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
- If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
- ErrorPrepoliza = True
- Exit For
+
+ If IngresoIEPS > 0 Then
+ 'IEPS X TRASLADAR
+ Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
+ If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
+
+ 'IEPS PAGADO
+ Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, Dr("Folio").ToString, FolioIE.ToString())
+ If IngresoIEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, True, (importeMovimiento * IngresoIEPS) / IngresoTotal, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=Dr("CveVenta").ToString().ToEntero(), CveCliente:=CveCliente, CveIE:=CveIEAnticipo, ImporteMX:=((importeMovimiento * IngresoIEPS) / IngresoTotal) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then
+ ErrorPrepoliza = True
+ Exit For
+ End If
End If
End If
End If
End If
-
-
-
End If
+
End If
End If
@@ -12487,7 +12518,7 @@ Partial Class Ventas
Next
- If UsuarioActual.Empresa.Funcionalidad(344) = "1" Then
+ If UsuarioActual.Empresa.Funcionalidad(344) = "1" AndAlso ObjFactura.TipoDocto = "Egs" Then
Dim ListaNC As List(Of Modelos.Factura) = Nothing
If NCDescuento Then
@@ -14086,7 +14117,13 @@ Partial Class Ventas
Dim ObjMovtos As New ClsMovimientos()
If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then
- GVAnticipos.DataSource = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
+
+ Dim DtMovtos = ObjMovtos.DtResultados.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}")
+ If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+ DtMovtos = DtMovtos.FiltraParametros($"{If(CveVenta < 0, $"Tipo = 'Ant'{If(DdlTipoComprobante.SelectedValue = "Ing", $" AND CveMoneda ={DdlMoneda.SelectedValue.ToEntero()}", "")} ", "")}")
+ End If
+ GVAnticipos.DataSource = DtMovtos
+
If ObjMovtos.DtResultados.SUM("Saldo", "Saldo > 0 AND SaldoSubtotal > 0 AND Tipo = 'Ant'") > 0 Then
HdnTieneAnticipos.Value = "1"
End If
@@ -16023,7 +16060,7 @@ Partial Class Ventas
UpnTools.Update()
tdTelefonoGen.Visible = False
tdTxtTelefonoGen.Visible = False
- If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
+ If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 140, 145) Then
ChkEnviarFactura.Checked = False
End If
@@ -21380,7 +21417,7 @@ Partial Class Ventas
End If
- If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev") Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then
+ If CveVenta > 0 AndAlso (SaldoVenta = TxtTotal.Text.ToDecimal OrElse DdlTipoComprobante.SelectedValue = "Dev" OrElse (DdlTipoComprobante.SelectedValue = "Ped" AndAlso TmpDT IsNot Nothing AndAlso TmpDT.COUNT("CveContratoDetalle", "CveContratoDetalle > 0") > 0)) Then 'And (DdlTipoComprobante.SelectedValue.Contiene({"Rem", "Ped"}) Or (DdlTipoComprobante.SelectedValue.Contiene({"Ing"}) And TxtFecha.Text.ToDate.Month = Now.Month And TxtFecha.Text.ToDate.Year = Now.Year)) Then
If Not DevolucionAlmacen = 2 Then
'If UsuarioActual.Empresa.Funcionalidad(555) = "1" Then