-merge EntregaAlmacen.aspx

Acumuladores/EntradasUsadosResumenRep.aspx

@@ -165,7 +165,7 @@
                         <div class="col-md-6" style="text-align: center">
                             <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
-                                    <asp:Button ID="BtnDescargarSábana" runat="server" CssClass="btn btn-primary" Text="Descargar" />
+                                    <asp:Button ID="BtnDescargarSabana" runat="server" CssClass="btn btn-primary" Text="Descargar" />
                                 </ContentTemplate>
                                 <Triggers>
                                     <asp:PostBackTrigger ControlID="BtnDescargarSabana" />

App_Code/ClsCompProveedores.vb

@@ -44,71 +44,51 @@ Public Class ClsCompProveedores
     Public Property RetISR As Double
     Public Property CP As Integer
     Public Property IdCtaContProveedores As Integer
-    Public Property CveCuentaProveedores As Integer
     Public Property CtaContProveedores As String
     Public Property IdCtaContProveedoresExtranjera As Integer
-    Public Property CveCuentaProveedoresExtranjera As Integer
     Public Property CtaContProveedoresExtranjera As String
     Public Property IdCtaContProveedoresComplementaria As Integer
-    Public Property CveCuentaProveedoresComplementaria As Integer
     Public Property CtaContProveedoresComplementaria As String
 
     Public Property IdCtaContAcreedor As Integer
-    Public Property CveCuentaAcreedor As Integer
     Public Property CtaContAcreedor As String
     Public Property IdCtaContAcreedorExtranjera As Integer
-    Public Property CveCuentaAcreedorExtranjera As Integer
     Public Property CtaContAcreedorExtranjera As String
     Public Property IdCtaContAcreedorComplementaria As Integer
-    Public Property CveCuentaAcreedorComplementaria As Integer
     Public Property CtaContAcreedorComplementaria As String
 
     Public Property IdCtaContAnticipos As Integer
-    Public Property CveCuentaAnticipos As Integer
     Public Property CtaContAnticipos As String
     Public Property IdCtaContAnticiposExtranjera As Integer
-    Public Property CveCuentaAnticiposExtranjera As Integer
     Public Property CtaContAnticiposExtranjera As String
     Public Property IdCtaContAnticiposComplementaria As Integer
-    Public Property CveCuentaAnticiposComplementaria As Integer
     Public Property CtaContAnticiposComplementaria As String
 
     Public Property IdCtaContDeudor As Integer
-    Public Property CveCuentaDeudor As Integer
     Public Property CtaContDeudor As String
     Public Property IdCtaContDeudorExtranjera As Integer
-    Public Property CveCuentaDeudorExtranjera As Integer
     Public Property CtaContDeudorExtranjera As String
     Public Property IdCtaContDeudorComplementaria As Integer
-    Public Property CveCuentaDeudorComplementaria As Integer
     Public Property CtaContDeudorComplementaria As String
 
     Public Property IdCtaContDocsXPagar As Integer
-    Public Property CveCuentaDocsXPagar As Integer
     Public Property CtaContDocsXPagar As String
     Public Property IdCtaContDocsXPagarExtranjera As Integer
-    Public Property CveCuentaDocsXPagarExtranjera As Integer
     Public Property CtaContDocsXPagarExtranjera As String
     Public Property IdCtaContDocsXPagarComplementaria As Integer
-    Public Property CveCuentaDocsXPagarComplementaria As Integer
     Public Property CtaContDocsXPagarComplementaria As String
 
     Public Property IdCtaContFondoGarantia As Integer
-    Public Property CveCuentaFondoGarantia As Integer
     Public Property CtaContFondoGarantia As String
     Public Property IdCtaContRetIVA As Integer
-    Public Property CveCuentaRetIVA As Integer
     Public Property CtaContRetIVA As String
     Public Property IdCtaContRetISR As Integer
-    Public Property CveCuentaRetISR As Integer
     Public Property CtaContRetISR As String
 
     Public Property IdCtaContRetISRAcreditable As Integer
-    Public Property CveCuentaRetISRAcreditable As Integer
     Public Property CtaContRetISRAcreditable As String
 
     Public Property IdCtaContRetIVAAcreditable As Integer
-    Public Property CveCuentaRetIVAAcreditable As Integer
     Public Property CtaContRetIVAAcreditable As String
 
     Public Property Estatus As String
@@ -346,57 +326,42 @@ Public Class ClsCompProveedores
 
                 'Proveedores
                 Me.IdCtaContProveedores = Data.Rows(0)("IdCtaContProveedores").ToString.ToEntero
-                Me.CveCuentaProveedores = Data.Rows(0)("IdCtaContProveedoresSIG").ToString.ToEntero
                 Me.CtaContProveedores = Data.Rows(0)("CtaContProveedores").ToString
                 Me.IdCtaContProveedoresExtranjera = Data.Rows(0)("IdCtaContExtranjera").ToString.ToEntero
-                Me.CveCuentaProveedoresExtranjera = Data.Rows(0)("IdCtaContExtranjeraSIG").ToString.ToEntero
                 Me.CtaContProveedoresExtranjera = Data.Rows(0)("CtaContExtranjera").ToString
                 Me.IdCtaContProveedoresComplementaria = Data.Rows(0)("IdCtaContComplementaria").ToString.ToEntero
-                Me.CveCuentaProveedoresComplementaria = Data.Rows(0)("IdCtaContComplementariaSIG").ToString.ToEntero
                 Me.CtaContProveedoresComplementaria = Data.Rows(0)("CtaContComplementaria").ToString
 
                 'Acreedores
                 Me.IdCtaContAcreedor = Data.Rows(0)("IdCtaContAcreedor").ToString.ToEntero
-                Me.CveCuentaAcreedor = Data.Rows(0)("IdCtaContAcreedorSIG").ToString.ToEntero
                 Me.CtaContAcreedor = Data.Rows(0)("CtaContAcreedor").ToString
                 Me.IdCtaContAcreedorExtranjera = Data.Rows(0)("IdCtaContAcreedorExtranjera").ToString.ToEntero
-                Me.CveCuentaAcreedorExtranjera = Data.Rows(0)("IdCtaContAcreedorExtranjeraSIG").ToString.ToEntero
                 Me.CtaContAcreedorExtranjera = Data.Rows(0)("CtaContAcreedorExtranjera").ToString
                 Me.IdCtaContAcreedorComplementaria = Data.Rows(0)("IdCtaContAcreedorComplementaria").ToString.ToEntero
-                Me.CveCuentaAcreedorComplementaria = Data.Rows(0)("IdCtaContAcreedorComplementariaSIG").ToString.ToEntero
                 Me.CtaContAcreedorComplementaria = Data.Rows(0)("CtaContAcreedorComplementaria").ToString
 
                 'Anticipos
                 Me.IdCtaContAnticipos = Data.Rows(0)("IdCtaContAnticipos").ToString.ToEntero
-                Me.CveCuentaAnticipos = Data.Rows(0)("IdCtaContAnticiposSIG").ToString.ToEntero
                 Me.CtaContAnticipos = Data.Rows(0)("CtaContAnticipos").ToString
                 Me.IdCtaContAnticiposExtranjera = Data.Rows(0)("IdCtaContAnticiposExtranjera").ToString.ToEntero
-                Me.CveCuentaAnticiposExtranjera = Data.Rows(0)("IdCtaContAnticiposExtranjeraSIG").ToString.ToEntero
                 Me.CtaContAnticiposExtranjera = Data.Rows(0)("CtaContAnticiposExtranjera").ToString
                 Me.IdCtaContAnticiposComplementaria = Data.Rows(0)("IdCtaContAnticiposComplementaria").ToString.ToEntero
-                Me.CveCuentaAnticiposComplementaria = Data.Rows(0)("IdCtaContAnticiposComplementariaSIG").ToString.ToEntero
                 Me.CtaContAnticiposComplementaria = Data.Rows(0)("CtaContAnticiposComplementaria").ToString
 
                 'Deudor
                 Me.IdCtaContDeudor = Data.Rows(0)("IdCtaContDeudor").ToString.ToEntero
-                Me.CveCuentaDeudor = Data.Rows(0)("IdCtaContDeudorSIG").ToString.ToEntero
                 Me.CtaContDeudor = Data.Rows(0)("CtaContDeudor").ToString
                 Me.IdCtaContDeudorExtranjera = Data.Rows(0)("IdCtaContDeudorExtranjera").ToString.ToEntero
-                Me.CveCuentaDeudorExtranjera = Data.Rows(0)("IdCtaContDeudorExtranjeraSIG").ToString.ToEntero
                 Me.CtaContDeudorExtranjera = Data.Rows(0)("CtaContDeudorExtranjera").ToString
                 Me.IdCtaContDeudorComplementaria = Data.Rows(0)("IdCtaContDeudorComplementaria").ToString.ToEntero
-                Me.CveCuentaDeudorComplementaria = Data.Rows(0)("IdCtaContDeudorComplementariaSIG").ToString.ToEntero
                 Me.CtaContDeudorComplementaria = Data.Rows(0)("CtaContDeudorComplementaria").ToString
 
                 'DocsXPagar
                 Me.IdCtaContDocsXPagar = Data.Rows(0)("IdCtaContDocsXPagar").ToString.ToEntero
-                Me.CveCuentaDocsXPagar = Data.Rows(0)("IdCtaContDocsXPagarSIG").ToString.ToEntero
                 Me.CtaContDocsXPagar = Data.Rows(0)("CtaContDocsXPagar").ToString
                 Me.IdCtaContDocsXPagarExtranjera = Data.Rows(0)("IdCtaContDocsXPagarExtranjera").ToString.ToEntero
-                Me.CveCuentaDocsXPagarExtranjera = Data.Rows(0)("IdCtaContDocsXPagarExtranjeraSIG").ToString.ToEntero
                 Me.CtaContDocsXPagarExtranjera = Data.Rows(0)("CtaContDocsXPagarExtranjera").ToString
                 Me.IdCtaContDocsXPagarComplementaria = Data.Rows(0)("IdCtaContDocsXPagarComplementaria").ToString.ToEntero
-                Me.CveCuentaDocsXPagarComplementaria = Data.Rows(0)("IdCtaContDocsXPagarComplementariaSIG").ToString.ToEntero
                 Me.CtaContDocsXPagarComplementaria = Data.Rows(0)("CtaContDocsXPagarComplementaria").ToString
 
                 'Otros
@@ -405,11 +370,7 @@ Public Class ClsCompProveedores
                 Me.IdCtaContRetIVAAcreditable = Data.Rows(0)("IdCtaContRetIVAAcreditable").ToString.ToEntero
                 Me.IdCtaContRetISR = Data.Rows(0)("IdCtaContRetISR").ToString.ToEntero
                 Me.IdCtaContRetISRAcreditable = Data.Rows(0)("IdCtaContRetISRAcreditable").ToString.ToEntero
-                Me.CveCuentaFondoGarantia = Data.Rows(0)("IdCtaContFondoGarantiaSIG").ToString.ToEntero
+
-                Me.CveCuentaRetIVA = Data.Rows(0)("IdCtaContRetIVASIG").ToString.ToEntero
-                Me.CveCuentaRetISR = Data.Rows(0)("IdCtaContRetISRSIG").ToString.ToEntero
-                Me.CveCuentaRetISRAcreditable = Data.Rows(0)("IdCtaContRetISRAcreditableSIG").ToString.ToEntero
-                Me.CveCuentaRetIVAAcreditable = Data.Rows(0)("IdCtaContRetIVAAcreditableSIG").ToString.ToEntero
                 Me.CtaContFondoGarantia = Data.Rows(0)("CtaContFondoGarantia").ToString
                 Me.CtaContRetIVA = Data.Rows(0)("CtaContRetIVA").ToString
                 Me.CtaContRetISR = Data.Rows(0)("CtaContRetISR").ToString

App_Code/ClsContabilidad.vb

@@ -256,13 +256,13 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function UpdatePrepolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
+    Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1,
                                             Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1,
-                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
+                                            Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
-        DataAdapter("PA_PrePolizaDetalleUpdate")
+        DataAdapter("PA_Conta_PrePolizasDetalleUpdate")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
@@ -280,6 +280,7 @@ Public Class ClsContabilidad
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
         End With
 
         Try
@@ -888,6 +889,7 @@ Public Class ClsContabilidad
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CvePrePolizaOriginal", SqlDbType.Int).Value = CvePrePolizaOriginal
+            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@TipoMovto", SqlDbType.Bit).Value = TipoMovimiento
             .Add("@Importe", SqlDbType.Money).Value = If(CveConceptoContable = 30, Importe, Math.Round(Importe, 2))
             .Add("@ImporteMX", SqlDbType.Money).Value = Math.Round(ImporteMX, 2)
@@ -895,7 +897,6 @@ Public Class ClsContabilidad
             .Add("@TC", SqlDbType.Decimal).Value = TipoCambio
             .Add("@TCPago", SqlDbType.Decimal).Value = TipoCambioPago
             .Add("@Referencia", SqlDbType.VarChar).Value = Referencia
-            .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
             .Add("@Concepto", SqlDbType.VarChar).Value = Concepto
             .Add("@FechaVencimiento", SqlDbType.Date).Value = FechaVencimiento
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
@@ -937,9 +938,15 @@ Public Class ClsContabilidad
         Catch ex1 As SqlException
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
+                Dim Concepto1 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta", Concepto1), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            End If
+            End If '
         Catch ex As Exception
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
@@ -5924,7 +5931,11 @@ Public Class ClsContabilidad
             SqlAdapter.Fill(Data)
             Retorno = SqlAdapter.SelectCommand.Parameters("@CvePrePoliza").Value.ToString.ToEntero
         Catch ex As Exception
-            Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            If ex.Message.Contains("50000") Then
+                Me.OnError("No se puede registrar una prepóliza en un periodo cerrado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            Else
+                Me.OnError("Ocurrió un error al cerrar el Ejercicio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         End Try
 
         Return Retorno

App_Code/ClsEdocumentacion.vb

@@ -237,7 +237,11 @@ Public Class ClsEdocumentacion
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
-            OnError("Ocurrió un error al consultar el catalogo de documentación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            If ex.Message.Contains("FK_Edoc_DocumentacionParametros_Edoc_Documentacion") Then
+                Alert("Este documento tiene parametros registrados", TipoMensaje.MsgAdvertencia)
+            Else
+                OnError("Ocurrió un error al eliminar la documentacion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno

App_Code/ClsMovimientos.vb

@@ -1438,7 +1438,8 @@ Public Class ClsMovimientos
                                        Optional EstatusCliente As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                        Optional CveBanco As Integer = -1, Optional CveCuenta As Integer = -1,
                                        Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1,
-                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha) As Boolean
+                                       Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = MinFecha, Optional FechaAplicadoF As Date = MaxFecha,
+                                       Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_RepRecuperacion")
         With SqlAdapter.SelectCommand.Parameters
@@ -1464,7 +1465,10 @@ Public Class ClsMovimientos
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
 
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
-            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+
+            .Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
+            .Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -1518,7 +1522,8 @@ Public Class ClsMovimientos
                                  Optional CveCuenta As Integer = -1, Optional Grupo As String = "-1",
                                  Optional TipoCambio As Integer = -1, Optional TCEspecifico As Double = 0,
                                  Optional CveMoneda As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional Tipo As Integer = -1,
-                                 Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing) As Boolean
+                                 Optional EsDistribuidor As Integer = -1, Optional FechaAplicadoI As Date = Nothing, Optional FechaAplicadoF As Date = Nothing,
+                                 Optional FechaRegistroIEI As Date = MinFecha, Optional FechaRegistroIEF As Date = MaxFecha) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1549,9 +1554,10 @@ Public Class ClsMovimientos
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@EsDistribuidor", SqlDbType.Int).Value = EsDistribuidor
 
-
             .Add("@FechaAplicadoI", SqlDbType.Date).Value = FechaAplicadoI.ToShortDateString
-            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaAplicadoF", SqlDbType.Date).Value = FechaAplicadoF.ToShortDateString
+            .Add("@FechaRegistroIEI", SqlDbType.Date).Value = FechaRegistroIEI.ToShortDateString
+            .Add("@FechaRegistroIEF", SqlDbType.Date).Value = FechaRegistroIEF.ToShortDateString
 
         End With
 

App_Code/ClsNominas.vb

@@ -463,24 +463,24 @@ Public Class ClsNominas
         Return Retorno
     End Function
 
-    Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
+    'Public Function UpdateProvisionNomina(CvePeriodo As Integer, CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
-        DataAdapter("PA_Nom_ProvisionNominaUpdate")
+    '    DataAdapter("PA_Nom_ProvisionNominaUpdate")
 
-        With SqlAdapter.SelectCommand.Parameters
+    '    With SqlAdapter.SelectCommand.Parameters
-            .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+    '        .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
-            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+    '        .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-        End With
+    '    End With
-        Try
+    '    Try
-            SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-            Retorno = True
+    '        Retorno = True
-        Catch ex As Exception
+    '    Catch ex As Exception
-            OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+    '        OnError("Ocurrió un error al actualizar el periodo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
-        End Try
+    '    End Try
 
-        Return Retorno
+    '    Return Retorno
-    End Function
+    'End Function
 
     Public Function GetNom_NominasDetalles(CveNomina As Integer, CvePersonal As Integer, CvePeriodo As Integer, Tipo As String) As Boolean
         Dim Retorno As Boolean = False

App_Code/ClsPaginas.vb

@@ -638,7 +638,7 @@ Public Class ClsPaginas
     End Property
 
 
-    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
+    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1, Optional Estatus As Integer = 1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
             'sino existe, recarga los datos
@@ -653,6 +653,7 @@ Public Class ClsPaginas
                 If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
                 If UsoClasificacion <> -1 Then Str.AppendFormat(" AND UsoClasificacion IN ({0},3) ", UsoClasificacion)
                 If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
+                If Estatus <> -1 Then Str.AppendFormat(" AND Estatus = '{0}'", If(Estatus = 1, "Activo", "Inactivo"))
                 Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTClasificaciones = Dv.ToTable
                 Dv.Dispose()
@@ -3066,8 +3067,6 @@ Public Class ClsPaginas
         End Set
     End Property
 
-
-
     Property GlobalDTContaConceptosContables(CvePlantillaPoliza As Integer) As DataTable
         Get
             If CvePlantillaPoliza <> -1 Then

App_Code/ClsVentas.vb

@@ -2143,7 +2143,7 @@ Public Class ClsVentas
         Return Retorno
     End Function
     Public Function UpdatePromociones(Promocion As String, FechaInicio As Date, FechaFin As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Boolean,
-                                      CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, Optional CveMarca As Integer = -1) As Boolean
+                                      CveMoneda As Integer, CveUsuario As Integer, CvePromocion As Integer, CveSubProyecto As Integer, TipoAplicacion As Integer, CveEmpresa As Integer, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_PromocionesUpdate")
 
@@ -2159,7 +2159,9 @@ Public Class ClsVentas
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CvePromocion", SqlDbType.Float).Value = CvePromocion
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@TipoAplicacion", SqlDbType.Int).Value = TipoAplicacion
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try
@@ -4730,6 +4732,21 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetVentasNoEnviadas(CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_VentasNoEnviadas")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas no enviadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean

App_WebReferences/Cancelacion/Cancelacion.disco

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
-  <contractRef ref="https://cancel.gofac.com.mx/Cancelacion.asmx?wsdl" docRef="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
-  <soap address="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns:q1="http://tempuri.org/" binding="q1:CancelacionSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
-  <soap address="https://cancel.gofac.com.mx/Cancelacion.asmx" xmlns:q2="http://tempuri.org/" binding="q2:CancelacionSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
-</discovery>

App_WebReferences/Cancelacion/Reference.svcmap

@@ -19,11 +19,10 @@
     <ServiceContractMappings />
   </ClientOptions>
   <MetadataSources>
-    <MetadataSource Address="https://cancel.gofac.com.mx/Cancelacion.asmx" Protocol="http" SourceId="1" />
+    <MetadataSource Address="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL" Protocol="http" SourceId="1" />
   </MetadataSources>
   <Metadata>
-    <MetadataFile FileName="Cancelacion.disco" MetadataType="Disco" ID="97fdea35-bd00-4949-b35d-fac57c0ef978" SourceId="1" SourceUrl="https://cancel.gofac.com.mx/Cancelacion.asmx?disco" />
+    <MetadataFile FileName="cancelacion.wsdl" MetadataType="Wsdl" ID="9d47fe06-c323-498c-bcfb-3544045ea962" SourceId="1" SourceUrl="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx?WSDL" />
-    <MetadataFile FileName="Cancelacion1.wsdl" MetadataType="Wsdl" ID="7320d63d-aedd-4cd7-b16b-da7e2c8d562a" SourceId="1" SourceUrl="https://cancel.gofac.com.mx/Cancelacion.asmx?wsdl" />
   </Metadata>
   <Extensions>
     <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />

App_WebReferences/Cancelacion/cancelacion.wsdl

@@ -1,8 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
-<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:s1="http://microsoft.com/wsdl/types/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
+<wsdl:definitions xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:tns="http://tempuri.org/" xmlns:s="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:tm="http://microsoft.com/wsdl/mime/textMatching/" xmlns:http="http://schemas.xmlsoap.org/wsdl/http/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" targetNamespace="http://tempuri.org/" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">
   <wsdl:types>
     <s:schema elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
-      <s:import namespace="http://microsoft.com/wsdl/types/" />
       <s:element name="CancelTest">
         <s:complexType>
           <s:sequence>
@@ -146,74 +145,6 @@
           </s:sequence>
         </s:complexType>
       </s:element>
-      <s:element name="ObtieneRelacionadosTest">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Usuario" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Clave" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="CertB64" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="KeyB64" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="ClaveLlave" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Uuid" type="s:string" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:element name="ObtieneRelacionadosTestResponse">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="ObtieneRelacionadosTestResult" type="tns:StructRelations" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:complexType name="StructRelations">
-        <s:sequence>
-          <s:element minOccurs="1" maxOccurs="1" name="Codigo" type="s:int" />
-          <s:element minOccurs="0" maxOccurs="1" name="Mensaje" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="Resultado" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="RelacionadosPadre" type="tns:ArrayOfFactura" />
-          <s:element minOccurs="0" maxOccurs="1" name="RelacionadosHijo" type="tns:ArrayOfFactura" />
-        </s:sequence>
-      </s:complexType>
-      <s:complexType name="ArrayOfFactura">
-        <s:sequence>
-          <s:element minOccurs="0" maxOccurs="unbounded" name="Factura" nillable="true" type="tns:Factura" />
-        </s:sequence>
-      </s:complexType>
-      <s:complexType name="Factura">
-        <s:sequence>
-          <s:element minOccurs="1" maxOccurs="1" name="Uuid" type="s1:guid" />
-          <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="RfcReceptor" type="s:string" />
-        </s:sequence>
-      </s:complexType>
-      <s:element name="ObtieneRelacionados">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="RfcEmisor" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Usuario" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Clave" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="CertB64" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="KeyB64" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="ClaveLlave" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="Uuid" type="s:string" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:element name="ObtieneRelacionadosResponse">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="ObtieneRelacionadosResult" type="tns:StructRelations" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-    </s:schema>
-    <s:schema elementFormDefault="qualified" targetNamespace="http://microsoft.com/wsdl/types/">
-      <s:simpleType name="guid">
-        <s:restriction base="s:string">
-          <s:pattern value="[0-9a-fA-F]{8}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{4}-[0-9a-fA-F]{12}" />
-        </s:restriction>
-      </s:simpleType>
     </s:schema>
   </wsdl:types>
   <wsdl:message name="CancelTestSoapIn">
@@ -258,18 +189,6 @@
   <wsdl:message name="AceptaRechazaTestSoapOut">
     <wsdl:part name="parameters" element="tns:AceptaRechazaTestResponse" />
   </wsdl:message>
-  <wsdl:message name="ObtieneRelacionadosTestSoapIn">
-    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosTest" />
-  </wsdl:message>
-  <wsdl:message name="ObtieneRelacionadosTestSoapOut">
-    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosTestResponse" />
-  </wsdl:message>
-  <wsdl:message name="ObtieneRelacionadosSoapIn">
-    <wsdl:part name="parameters" element="tns:ObtieneRelacionados" />
-  </wsdl:message>
-  <wsdl:message name="ObtieneRelacionadosSoapOut">
-    <wsdl:part name="parameters" element="tns:ObtieneRelacionadosResponse" />
-  </wsdl:message>
   <wsdl:portType name="CancelacionSoap">
     <wsdl:operation name="CancelTest">
       <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Cancela un Cfdi en pruebas</wsdl:documentation>
@@ -306,16 +225,6 @@
       <wsdl:input message="tns:AceptaRechazaTestSoapIn" />
       <wsdl:output message="tns:AceptaRechazaTestSoapOut" />
     </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionadosTest">
-      <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC (Pruebas)</wsdl:documentation>
-      <wsdl:input message="tns:ObtieneRelacionadosTestSoapIn" />
-      <wsdl:output message="tns:ObtieneRelacionadosTestSoapOut" />
-    </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionados">
-      <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Obtiene el/los Cfdi(s) relacionado(s) de un UUID de un RFC</wsdl:documentation>
-      <wsdl:input message="tns:ObtieneRelacionadosSoapIn" />
-      <wsdl:output message="tns:ObtieneRelacionadosSoapOut" />
-    </wsdl:operation>
   </wsdl:portType>
   <wsdl:binding name="CancelacionSoap" type="tns:CancelacionSoap">
     <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -382,24 +291,6 @@
         <soap:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionadosTest">
-      <soap:operation soapAction="http://tempuri.org/ObtieneRelacionadosTest" style="document" />
-      <wsdl:input>
-        <soap:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionados">
-      <soap:operation soapAction="http://tempuri.org/ObtieneRelacionados" style="document" />
-      <wsdl:input>
-        <soap:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
   </wsdl:binding>
   <wsdl:binding name="CancelacionSoap12" type="tns:CancelacionSoap">
     <soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -466,31 +357,13 @@
         <soap12:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionadosTest">
-      <soap12:operation soapAction="http://tempuri.org/ObtieneRelacionadosTest" style="document" />
-      <wsdl:input>
-        <soap12:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap12:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
-    <wsdl:operation name="ObtieneRelacionados">
-      <soap12:operation soapAction="http://tempuri.org/ObtieneRelacionados" style="document" />
-      <wsdl:input>
-        <soap12:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap12:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
   </wsdl:binding>
   <wsdl:service name="Cancelacion">
     <wsdl:port name="CancelacionSoap" binding="tns:CancelacionSoap">
-      <soap:address location="https://cancel.gofac.com.mx/Cancelacion.asmx" />
+      <soap:address location="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" />
     </wsdl:port>
     <wsdl:port name="CancelacionSoap12" binding="tns:CancelacionSoap12">
-      <soap12:address location="https://cancel.gofac.com.mx/Cancelacion.asmx" />
+      <soap12:address location="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" />
     </wsdl:port>
   </wsdl:service>
 </wsdl:definitions>

App_WebReferences/Cancelacion/configuration.svcinfo

@@ -2,10 +2,9 @@
 <configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
   <behaviors />
   <bindings>
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap1&quot;&gt;&lt;security mode=&quot;Transport&quot; /&gt;&lt;/Data&gt;" bindingType="basicHttpBinding" name="CancelacionSoap1" />
+    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap&quot; /&gt;" bindingType="basicHttpBinding" name="CancelacionSoap" />
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;CancelacionSoap2&quot; /&gt;" bindingType="basicHttpBinding" name="CancelacionSoap2" />
   </bindings>
   <endpoints>
-    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://cancel.gofac.com.mx/Cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap1&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap1&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://cancel.gofac.com.mx/Cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap1&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap1&quot; /&gt;" contractName="Cancelacion.CancelacionSoap" name="CancelacionSoap1" />
+    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;CancelacionSoap&quot; contract=&quot;Cancelacion.CancelacionSoap&quot; name=&quot;CancelacionSoap&quot; /&gt;" contractName="Cancelacion.CancelacionSoap" name="CancelacionSoap" />
   </endpoints>
 </configurationSnapshot>

App_WebReferences/Cancelacion/configuration91.svcinfo

@@ -1,119 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="YSVSbuarIezVS9um5idqs28BCLTcEKV8vg83uS03jpw=">
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="WE5NDajbD03x1LKdb0eKeyplqtI=">
   <bindingConfigurations>
-    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap1">
+    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap">
       <properties>
         <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap1</serializedValue>
+          <serializedValue>CancelacionSoap</serializedValue>
-        </property>
-        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>StrongWildcard</serializedValue>
-        </property>
-        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Text.UTF8Encoding</serializedValue>
-        </property>
-        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Buffered</serializedValue>
-        </property>
-        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Text</serializedValue>
-        </property>
-        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
-        </property>
-        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Transport</serializedValue>
-        </property>
-        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
-        </property>
-        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>TransportSelected</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
-        </property>
-        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>UserName</serializedValue>
-        </property>
-        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Default</serializedValue>
-        </property>
-      </properties>
-    </bindingConfiguration>
-    <bindingConfiguration bindingType="basicHttpBinding" name="CancelacionSoap2">
-      <properties>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap2</serializedValue>
         </property>
         <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -203,7 +94,7 @@
           <serializedValue>TransportSelected</serializedValue>
         </property>
         <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
+          <serializedValue>(Colección)</serializedValue>
         </property>
         <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -221,10 +112,10 @@
     </bindingConfiguration>
   </bindingConfigurations>
   <endpoints>
-    <endpoint name="CancelacionSoap1" contract="Cancelacion.CancelacionSoap" bindingType="basicHttpBinding" address="https://cancel.gofac.com.mx/Cancelacion.asmx" bindingConfiguration="CancelacionSoap1">
+    <endpoint name="CancelacionSoap" contract="Cancelacion.CancelacionSoap" bindingType="basicHttpBinding" address="http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx" bindingConfiguration="CancelacionSoap">
       <properties>
         <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>https://cancel.gofac.com.mx/Cancelacion.asmx</serializedValue>
+          <serializedValue>http://juancalderon-001-site6.ftempurl.com/cancelacion.asmx</serializedValue>
         </property>
         <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />
@@ -233,7 +124,7 @@
           <serializedValue>basicHttpBinding</serializedValue>
         </property>
         <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap1</serializedValue>
+          <serializedValue>CancelacionSoap</serializedValue>
         </property>
         <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue>Cancelacion.CancelacionSoap</serializedValue>
@@ -296,7 +187,7 @@
           <serializedValue>False</serializedValue>
         </property>
         <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>CancelacionSoap1</serializedValue>
+          <serializedValue>CancelacionSoap</serializedValue>
         </property>
         <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
           <serializedValue />

App_WebReferences/PADE33/Reference.svcmap

@@ -1,32 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="74836d6a-9238-4e5b-b78b-90210bd6100d" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
-  <ClientOptions>
-    <GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
-    <GenerateTaskBasedAsynchronousMethod>true</GenerateTaskBasedAsynchronousMethod>
-    <EnableDataBinding>true</EnableDataBinding>
-    <ExcludedTypes />
-    <ImportXmlTypes>false</ImportXmlTypes>
-    <GenerateInternalTypes>false</GenerateInternalTypes>
-    <GenerateMessageContracts>false</GenerateMessageContracts>
-    <NamespaceMappings />
-    <CollectionMappings />
-    <GenerateSerializableTypes>true</GenerateSerializableTypes>
-    <Serializer>Auto</Serializer>
-    <UseSerializerForFaults>true</UseSerializerForFaults>
-    <ReferenceAllAssemblies>true</ReferenceAllAssemblies>
-    <ReferencedAssemblies />
-    <ReferencedDataContractTypes />
-    <ServiceContractMappings />
-  </ClientOptions>
-  <MetadataSources>
-    <MetadataSource Address="	http://timbrado.pade.mx:80/servicio/Timbrado3.3?wsdl" Protocol="http" SourceId="1" />
-  </MetadataSources>
-  <Metadata>
-    <MetadataFile FileName="Timbrado3.xsd" MetadataType="Schema" ID="03404faf-e6b7-4ab9-ba61-1a17cad2a0be" SourceId="1" SourceUrl="http://timbrado.pade.mx/servicio/Timbrado3.3?xsd=1" />
-    <MetadataFile FileName="Timbrado3.wsdl" MetadataType="Wsdl" ID="c803d077-e85f-46ea-be18-2ddeb4820ced" SourceId="1" SourceUrl="http://timbrado.pade.mx/servicio/Timbrado3.3?wsdl" />
-  </Metadata>
-  <Extensions>
-    <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />
-    <ExtensionFile FileName="configuration.svcinfo" Name="configuration.svcinfo" />
-  </Extensions>
-</ReferenceGroup>

App_WebReferences/PADE33/Timbrado3.wsdl

@@ -1,284 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<definitions xmlns:wsp="http://www.w3.org/ns/ws-policy" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsam="http://www.w3.org/2007/05/addressing/metadata" xmlns:tns="timbrado.ws.pade.mx" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsp1_2="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" name="Timbrado3.3" targetNamespace="timbrado.ws.pade.mx" xmlns="http://schemas.xmlsoap.org/wsdl/">
-  <types>
-    <xsd:schema>
-      <xsd:import schemaLocation="http://timbrado.pade.mx:80/servicio/Timbrado3.3?xsd=1" namespace="timbrado.ws.pade.mx" />
-    </xsd:schema>
-  </types>
-  <message name="acuseCancelacion">
-    <part name="parameters" element="tns:acuseCancelacion" />
-  </message>
-  <message name="acuseCancelacionResponse">
-    <part name="parameters" element="tns:acuseCancelacionResponse" />
-  </message>
-  <message name="consultarEstatusComprobante">
-    <part name="parameters" element="tns:consultarEstatusComprobante" />
-  </message>
-  <message name="consultarEstatusComprobanteResponse">
-    <part name="parameters" element="tns:consultarEstatusComprobanteResponse" />
-  </message>
-  <message name="consultarCfdiRelacionados">
-    <part name="parameters" element="tns:consultarCfdiRelacionados" />
-  </message>
-  <message name="consultarCfdiRelacionadosResponse">
-    <part name="parameters" element="tns:consultarCfdiRelacionadosResponse" />
-  </message>
-  <message name="responderSolicitudCancelacionConOpciones">
-    <part name="parameters" element="tns:responderSolicitudCancelacionConOpciones" />
-  </message>
-  <message name="responderSolicitudCancelacionConOpcionesResponse">
-    <part name="parameters" element="tns:responderSolicitudCancelacionConOpcionesResponse" />
-  </message>
-  <message name="consultarDisponibilidadServicio">
-    <part name="parameters" element="tns:consultarDisponibilidadServicio" />
-  </message>
-  <message name="consultarDisponibilidadServicioResponse">
-    <part name="parameters" element="tns:consultarDisponibilidadServicioResponse" />
-  </message>
-  <message name="timbradoBase64Prueba">
-    <part name="parameters" element="tns:timbradoBase64Prueba" />
-  </message>
-  <message name="timbradoBase64PruebaResponse">
-    <part name="parameters" element="tns:timbradoBase64PruebaResponse" />
-  </message>
-  <message name="timbradoBase64">
-    <part name="parameters" element="tns:timbradoBase64" />
-  </message>
-  <message name="timbradoBase64Response">
-    <part name="parameters" element="tns:timbradoBase64Response" />
-  </message>
-  <message name="consultarPeticionesPendientes">
-    <part name="parameters" element="tns:consultarPeticionesPendientes" />
-  </message>
-  <message name="consultarPeticionesPendientesResponse">
-    <part name="parameters" element="tns:consultarPeticionesPendientesResponse" />
-  </message>
-  <message name="timbradoConCSD">
-    <part name="parameters" element="tns:timbradoConCSD" />
-  </message>
-  <message name="timbradoConCSDResponse">
-    <part name="parameters" element="tns:timbradoConCSDResponse" />
-  </message>
-  <message name="cancelarConOpciones">
-    <part name="parameters" element="tns:cancelarConOpciones" />
-  </message>
-  <message name="cancelarConOpcionesResponse">
-    <part name="parameters" element="tns:cancelarConOpcionesResponse" />
-  </message>
-  <message name="cancelar">
-    <part name="parameters" element="tns:cancelar" />
-  </message>
-  <message name="cancelarResponse">
-    <part name="parameters" element="tns:cancelarResponse" />
-  </message>
-  <message name="cfdiPorUUID">
-    <part name="parameters" element="tns:cfdiPorUUID" />
-  </message>
-  <message name="cfdiPorUUIDResponse">
-    <part name="parameters" element="tns:cfdiPorUUIDResponse" />
-  </message>
-  <message name="timbradoPrueba">
-    <part name="parameters" element="tns:timbradoPrueba" />
-  </message>
-  <message name="timbradoPruebaResponse">
-    <part name="parameters" element="tns:timbradoPruebaResponse" />
-  </message>
-  <message name="timbrado">
-    <part name="parameters" element="tns:timbrado" />
-  </message>
-  <message name="timbradoResponse">
-    <part name="parameters" element="tns:timbradoResponse" />
-  </message>
-  <portType name="PadeTimbradoService">
-    <operation name="acuseCancelacion">
-      <input wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/acuseCancelacionRequest" message="tns:acuseCancelacion" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/acuseCancelacionResponse" message="tns:acuseCancelacionResponse" />
-    </operation>
-    <operation name="consultarEstatusComprobante">
-      <input wsam:Action="consultarEstatusComprobante" message="tns:consultarEstatusComprobante" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/consultarEstatusComprobanteResponse" message="tns:consultarEstatusComprobanteResponse" />
-    </operation>
-    <operation name="consultarCfdiRelacionados">
-      <input wsam:Action="consultarCfdiRelacionados" message="tns:consultarCfdiRelacionados" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/consultarCfdiRelacionadosResponse" message="tns:consultarCfdiRelacionadosResponse" />
-    </operation>
-    <operation name="responderSolicitudCancelacionConOpciones">
-      <input wsam:Action="responderSolicitudCancelacionConOpciones" message="tns:responderSolicitudCancelacionConOpciones" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/responderSolicitudCancelacionConOpcionesResponse" message="tns:responderSolicitudCancelacionConOpcionesResponse" />
-    </operation>
-    <operation name="consultarDisponibilidadServicio">
-      <input wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/consultarDisponibilidadServicioRequest" message="tns:consultarDisponibilidadServicio" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/consultarDisponibilidadServicioResponse" message="tns:consultarDisponibilidadServicioResponse" />
-    </operation>
-    <operation name="timbradoBase64Prueba">
-      <input wsam:Action="timbradoBase64Prueba" message="tns:timbradoBase64Prueba" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/timbradoBase64PruebaResponse" message="tns:timbradoBase64PruebaResponse" />
-    </operation>
-    <operation name="timbradoBase64">
-      <input wsam:Action="timbradoBase64" message="tns:timbradoBase64" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/timbradoBase64Response" message="tns:timbradoBase64Response" />
-    </operation>
-    <operation name="consultarPeticionesPendientes">
-      <input wsam:Action="consultarPeticionesPendientes" message="tns:consultarPeticionesPendientes" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/consultarPeticionesPendientesResponse" message="tns:consultarPeticionesPendientesResponse" />
-    </operation>
-    <operation name="timbradoConCSD">
-      <input wsam:Action="timbradoConCSD" message="tns:timbradoConCSD" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/timbradoConCSDResponse" message="tns:timbradoConCSDResponse" />
-    </operation>
-    <operation name="cancelarConOpciones">
-      <input wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cancelarConOpcionesRequest" message="tns:cancelarConOpciones" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cancelarConOpcionesResponse" message="tns:cancelarConOpcionesResponse" />
-    </operation>
-    <operation name="cancelar">
-      <input wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cancelarRequest" message="tns:cancelar" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cancelarResponse" message="tns:cancelarResponse" />
-    </operation>
-    <operation name="cfdiPorUUID">
-      <input wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cfdiPorUUIDRequest" message="tns:cfdiPorUUID" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/cfdiPorUUIDResponse" message="tns:cfdiPorUUIDResponse" />
-    </operation>
-    <operation name="timbradoPrueba">
-      <input wsam:Action="timbradoPrueba" message="tns:timbradoPrueba" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/timbradoPruebaResponse" message="tns:timbradoPruebaResponse" />
-    </operation>
-    <operation name="timbrado">
-      <input wsam:Action="timbrado" message="tns:timbrado" />
-      <output wsam:Action="timbrado.ws.pade.mx/PadeTimbradoService/timbradoResponse" message="tns:timbradoResponse" />
-    </operation>
-  </portType>
-  <binding name="PadeTimbradoServicePortBinding" type="tns:PadeTimbradoService">
-    <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
-    <operation name="acuseCancelacion">
-      <soap:operation soapAction="" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="consultarEstatusComprobante">
-      <soap:operation soapAction="consultarEstatusComprobante" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="consultarCfdiRelacionados">
-      <soap:operation soapAction="consultarCfdiRelacionados" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="responderSolicitudCancelacionConOpciones">
-      <soap:operation soapAction="responderSolicitudCancelacionConOpciones" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="consultarDisponibilidadServicio">
-      <soap:operation soapAction="" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="timbradoBase64Prueba">
-      <soap:operation soapAction="timbradoBase64Prueba" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="timbradoBase64">
-      <soap:operation soapAction="timbradoBase64" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="consultarPeticionesPendientes">
-      <soap:operation soapAction="consultarPeticionesPendientes" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="timbradoConCSD">
-      <soap:operation soapAction="timbradoConCSD" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="cancelarConOpciones">
-      <soap:operation soapAction="" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="cancelar">
-      <soap:operation soapAction="" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="cfdiPorUUID">
-      <soap:operation soapAction="" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="timbradoPrueba">
-      <soap:operation soapAction="timbradoPrueba" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-    <operation name="timbrado">
-      <soap:operation soapAction="timbrado" />
-      <input>
-        <soap:body use="literal" />
-      </input>
-      <output>
-        <soap:body use="literal" />
-      </output>
-    </operation>
-  </binding>
-  <service name="Timbrado3.3">
-    <port name="PadeTimbradoServicePort" binding="tns:PadeTimbradoServicePortBinding">
-      <soap:address location="http://timbrado.pade.mx:80/servicio/Timbrado3.3" />
-    </port>
-  </service>
-</definitions>

App_WebReferences/PADE33/Timbrado3.xsd

@@ -1,252 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<xs:schema xmlns:tns="timbrado.ws.pade.mx" targetNamespace="timbrado.ws.pade.mx" version="1.0" xmlns:xs="http://www.w3.org/2001/XMLSchema">
-  <xs:element name="acuseCancelacion" type="tns:acuseCancelacion" />
-  <xs:element name="acuseCancelacionResponse" type="tns:acuseCancelacionResponse" />
-  <xs:element name="cancelar" type="tns:cancelar" />
-  <xs:element name="cancelarConOpciones" type="tns:cancelarConOpciones" />
-  <xs:element name="cancelarConOpcionesResponse" type="tns:cancelarConOpcionesResponse" />
-  <xs:element name="cancelarResponse" type="tns:cancelarResponse" />
-  <xs:element name="cfdiPorUUID" type="tns:cfdiPorUUID" />
-  <xs:element name="cfdiPorUUIDResponse" type="tns:cfdiPorUUIDResponse" />
-  <xs:element name="consultarCfdiRelacionados" type="tns:consultarCfdiRelacionados" />
-  <xs:element name="consultarCfdiRelacionadosResponse" type="tns:consultarCfdiRelacionadosResponse" />
-  <xs:element name="consultarDisponibilidadServicio" type="tns:consultarDisponibilidadServicio" />
-  <xs:element name="consultarDisponibilidadServicioResponse" type="tns:consultarDisponibilidadServicioResponse" />
-  <xs:element name="consultarEstatusComprobante" type="tns:consultarEstatusComprobante" />
-  <xs:element name="consultarEstatusComprobanteResponse" type="tns:consultarEstatusComprobanteResponse" />
-  <xs:element name="consultarPeticionesPendientes" type="tns:consultarPeticionesPendientes" />
-  <xs:element name="consultarPeticionesPendientesResponse" type="tns:consultarPeticionesPendientesResponse" />
-  <xs:element name="responderSolicitudCancelacionConOpciones" type="tns:responderSolicitudCancelacionConOpciones" />
-  <xs:element name="responderSolicitudCancelacionConOpcionesResponse" type="tns:responderSolicitudCancelacionConOpcionesResponse" />
-  <xs:element name="timbrado" type="tns:timbrado" />
-  <xs:element name="timbradoBase64" type="tns:timbradoBase64" />
-  <xs:element name="timbradoBase64Prueba" type="tns:timbradoBase64Prueba" />
-  <xs:element name="timbradoBase64PruebaResponse" type="tns:timbradoBase64PruebaResponse" />
-  <xs:element name="timbradoBase64Response" type="tns:timbradoBase64Response" />
-  <xs:element name="timbradoConCSD" type="tns:timbradoConCSD" />
-  <xs:element name="timbradoConCSDResponse" type="tns:timbradoConCSDResponse" />
-  <xs:element name="timbradoPrueba" type="tns:timbradoPrueba" />
-  <xs:element name="timbradoPruebaResponse" type="tns:timbradoPruebaResponse" />
-  <xs:element name="timbradoResponse" type="tns:timbradoResponse" />
-  <xs:complexType name="responderSolicitudCancelacionConOpciones">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcReceptor" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="arregloUUID" nillable="true" type="xs:string" />
-      <xs:element minOccurs="0" name="cert" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="key" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="keyPass" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="responderSolicitudCancelacionConOpcionesResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cfdiPorUUID">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="uuid" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cfdiPorUUIDResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbrado">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="cfdiXml" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoBase64">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="cfdiXmlBase64" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoBase64Response">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="acuseCancelacion">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="uuid" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="acuseCancelacionResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoBase64Prueba">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="cfdiXmlBase64" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoBase64PruebaResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cancelarConOpciones">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcEmisor" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="arregloUUID" nillable="true" type="xs:string" />
-      <xs:element minOccurs="0" name="cert" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="key" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="keyPass" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cancelarConOpcionesResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarEstatusComprobante">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="uuid" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcEmisor" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcReceptor" type="xs:string" />
-      <xs:element minOccurs="0" name="total" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarEstatusComprobanteResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarCfdiRelacionados">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcEmisor" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcReceptor" type="xs:string" />
-      <xs:element minOccurs="0" name="uuid" type="xs:string" />
-      <xs:element minOccurs="0" name="cert" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="key" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="keyPass" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarCfdiRelacionadosResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cancelar">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcEmisor" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="arregloUUID" nillable="true" type="xs:string" />
-      <xs:element minOccurs="0" name="cert" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="key" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="keyPass" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="cancelarResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarPeticionesPendientes">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="rfcReceptor" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarPeticionesPendientesResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarDisponibilidadServicio">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="consultarDisponibilidadServicioResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="tns:resultDisponibilidadServicio" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="resultDisponibilidadServicio">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="mensaje" type="xs:string" />
-      <xs:element name="servicioOk" type="xs:boolean" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoConCSD">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="cfdiXml" type="xs:string" />
-      <xs:element minOccurs="0" name="cert" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="key" nillable="true" type="xs:base64Binary" />
-      <xs:element minOccurs="0" name="keyPass" type="xs:string" />
-      <xs:element name="prueba" type="xs:boolean" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoConCSDResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoPrueba">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="contrato" type="xs:string" />
-      <xs:element minOccurs="0" name="usuario" type="xs:string" />
-      <xs:element minOccurs="0" name="passwd" type="xs:string" />
-      <xs:element minOccurs="0" name="cfdiXml" type="xs:string" />
-      <xs:element minOccurs="0" maxOccurs="unbounded" name="opciones" nillable="true" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-  <xs:complexType name="timbradoPruebaResponse">
-    <xs:sequence>
-      <xs:element minOccurs="0" name="return" type="xs:string" />
-    </xs:sequence>
-  </xs:complexType>
-</xs:schema>

App_WebReferences/PADE33/configuration.svcinfo

@@ -1,10 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
-  <behaviors />
-  <bindings>
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;PadeTimbradoServicePortBinding&quot; /&gt;" bindingType="basicHttpBinding" name="PadeTimbradoServicePortBinding" />
-  </bindings>
-  <endpoints>
-    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://timbrado.pade.mx:80/servicio/Timbrado3.3&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;PadeTimbradoServicePortBinding&quot; contract=&quot;PADE33.PadeTimbradoService&quot; name=&quot;PadeTimbradoServicePort&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;http://timbrado.pade.mx:80/servicio/Timbrado3.3&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;PadeTimbradoServicePortBinding&quot; contract=&quot;PADE33.PadeTimbradoService&quot; name=&quot;PadeTimbradoServicePort&quot; /&gt;" contractName="PADE33.PadeTimbradoService" name="PadeTimbradoServicePort" />
-  </endpoints>
-</configurationSnapshot>

App_WebReferences/PADE33/configuration91.svcinfo

@@ -1,201 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="j1p3uyXhLIYSb0PWT7VKGW9Nx93nzxfX0cGMYZl0sJU=">
-  <bindingConfigurations>
-    <bindingConfiguration bindingType="basicHttpBinding" name="PadeTimbradoServicePortBinding">
-      <properties>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>PadeTimbradoServicePortBinding</serializedValue>
-        </property>
-        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>StrongWildcard</serializedValue>
-        </property>
-        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Text.UTF8Encoding</serializedValue>
-        </property>
-        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Buffered</serializedValue>
-        </property>
-        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Text</serializedValue>
-        </property>
-        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
-        </property>
-        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
-        </property>
-        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>TransportSelected</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
-        </property>
-        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>UserName</serializedValue>
-        </property>
-        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Default</serializedValue>
-        </property>
-      </properties>
-    </bindingConfiguration>
-  </bindingConfigurations>
-  <endpoints>
-    <endpoint name="PadeTimbradoServicePort" contract="PADE33.PadeTimbradoService" bindingType="basicHttpBinding" address="http://timbrado.pade.mx/servicio/Timbrado3.3" bindingConfiguration="PadeTimbradoServicePortBinding">
-      <properties>
-        <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>http://timbrado.pade.mx:80/servicio/Timbrado3.3</serializedValue>
-        </property>
-        <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>basicHttpBinding</serializedValue>
-        </property>
-        <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>PadeTimbradoServicePortBinding</serializedValue>
-        </property>
-        <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>PADE33.PadeTimbradoService</serializedValue>
-        </property>
-        <property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
-        </property>
-        <property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>&lt;Header /&gt;</serializedValue>
-        </property>
-        <property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
-        </property>
-        <property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
-        </property>
-        <property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
-        </property>
-        <property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>My</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>LocalMachine</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>FindBySubjectDistinguishedName</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>PadeTimbradoServicePort</serializedValue>
-        </property>
-        <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-      </properties>
-    </endpoint>
-  </endpoints>
-</SavedWcfConfigurationInformation>

App_WebReferences/RCGPSService/configuration91.svcinfo

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="0qns/0838cJFb5yp+oM76mm6SuzgFbT1201XTY4DyBY=">
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="lQzXnMYzJj9Lq03SQ9fuwegTyb4=">
   <bindingConfigurations>
     <bindingConfiguration bindingType="basicHttpBinding" name="BasicHttpBinding_IRCService">
       <properties>

App_WebReferences/WSKimberlyClark/Reference.svcmap

@@ -1,31 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<ReferenceGroup xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ID="bdc7e363-d932-4145-bd7c-94fd0d512a15" xmlns="urn:schemas-microsoft-com:xml-wcfservicemap">
-  <ClientOptions>
-    <GenerateAsynchronousMethods>false</GenerateAsynchronousMethods>
-    <EnableDataBinding>true</EnableDataBinding>
-    <ExcludedTypes />
-    <ImportXmlTypes>false</ImportXmlTypes>
-    <GenerateInternalTypes>false</GenerateInternalTypes>
-    <GenerateMessageContracts>false</GenerateMessageContracts>
-    <NamespaceMappings />
-    <CollectionMappings />
-    <GenerateSerializableTypes>true</GenerateSerializableTypes>
-    <Serializer>Auto</Serializer>
-    <UseSerializerForFaults>true</UseSerializerForFaults>
-    <ReferenceAllAssemblies>true</ReferenceAllAssemblies>
-    <ReferencedAssemblies />
-    <ReferencedDataContractTypes />
-    <ServiceContractMappings />
-  </ClientOptions>
-  <MetadataSources>
-    <MetadataSource Address="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" Protocol="http" SourceId="1" />
-  </MetadataSources>
-  <Metadata>
-    <MetadataFile FileName="Service.disco" MetadataType="Disco" ID="7cedcbed-5aaf-4466-8cb9-67a9c36e48f5" SourceId="1" SourceUrl="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx?disco" />
-    <MetadataFile FileName="Service.wsdl" MetadataType="Wsdl" ID="df65f924-16f4-4b7b-bb70-15850488f862" SourceId="1" SourceUrl="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx?wsdl" />
-  </Metadata>
-  <Extensions>
-    <ExtensionFile FileName="configuration91.svcinfo" Name="configuration91.svcinfo" />
-    <ExtensionFile FileName="configuration.svcinfo" Name="configuration.svcinfo" />
-  </Extensions>
-</ReferenceGroup>

App_WebReferences/WSKimberlyClark/Service.disco

@@ -1,6 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<discovery xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://schemas.xmlsoap.org/disco/">
-  <contractRef ref="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx?wsdl" docRef="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" xmlns="http://schemas.xmlsoap.org/disco/scl/" />
-  <soap address="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" xmlns:q1="http://unisolutions.com.ar/" binding="q1:ServiceSoap" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
-  <soap address="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" xmlns:q2="http://unisolutions.com.ar/" binding="q2:ServiceSoap12" xmlns="http://schemas.xmlsoap.org/disco/soap/" />
-</discovery>

App_WebReferences/WSKimberlyClark/configuration.svcinfo

@@ -1,13 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<configurationSnapshot xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-wcfconfigurationsnapshot">
-  <behaviors />
-  <bindings>
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;ServiceSoap&quot;&gt;&lt;security mode=&quot;Transport&quot; /&gt;&lt;/Data&gt;" bindingType="basicHttpBinding" name="ServiceSoap" />
-    <binding digest="System.ServiceModel.Configuration.BasicHttpBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;ServiceSoap1&quot; /&gt;" bindingType="basicHttpBinding" name="ServiceSoap1" />
-    <binding digest="System.ServiceModel.Configuration.CustomBindingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089:&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data name=&quot;ServiceSoap12&quot;&gt;&lt;httpsTransport /&gt;&lt;textMessageEncoding messageVersion=&quot;Soap12&quot; /&gt;&lt;/Data&gt;" bindingType="customBinding" name="ServiceSoap12" />
-  </bindings>
-  <endpoints>
-    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;ServiceSoap&quot; contract=&quot;WSKimberlyClark.ServiceSoap&quot; name=&quot;ServiceSoap&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx&quot; binding=&quot;basicHttpBinding&quot; bindingConfiguration=&quot;ServiceSoap&quot; contract=&quot;WSKimberlyClark.ServiceSoap&quot; name=&quot;ServiceSoap&quot; /&gt;" contractName="WSKimberlyClark.ServiceSoap" name="ServiceSoap" />
-    <endpoint normalizedDigest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx&quot; binding=&quot;customBinding&quot; bindingConfiguration=&quot;ServiceSoap12&quot; contract=&quot;WSKimberlyClark.ServiceSoap&quot; name=&quot;ServiceSoap12&quot; /&gt;" digest="&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-16&quot;?&gt;&lt;Data address=&quot;https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx&quot; binding=&quot;customBinding&quot; bindingConfiguration=&quot;ServiceSoap12&quot; contract=&quot;WSKimberlyClark.ServiceSoap&quot; name=&quot;ServiceSoap12&quot; /&gt;" contractName="WSKimberlyClark.ServiceSoap" name="ServiceSoap12" />
-  </endpoints>
-</configurationSnapshot>

App_WebReferences/WSKimberlyClark/configuration91.svcinfo

@@ -1,549 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="4+BXG4vA1S3Tc6NHeL0a0Xq2nhI=">
-  <bindingConfigurations>
-    <bindingConfiguration bindingType="basicHttpBinding" name="ServiceSoap">
-      <properties>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap</serializedValue>
-        </property>
-        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>StrongWildcard</serializedValue>
-        </property>
-        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Text.UTF8Encoding</serializedValue>
-        </property>
-        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Buffered</serializedValue>
-        </property>
-        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Text</serializedValue>
-        </property>
-        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
-        </property>
-        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Transport</serializedValue>
-        </property>
-        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
-        </property>
-        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>TransportSelected</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
-        </property>
-        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>UserName</serializedValue>
-        </property>
-        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Default</serializedValue>
-        </property>
-      </properties>
-    </bindingConfiguration>
-    <bindingConfiguration bindingType="basicHttpBinding" name="ServiceSoap1">
-      <properties>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap1</serializedValue>
-        </property>
-        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/allowCookies" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>StrongWildcard</serializedValue>
-        </property>
-        <property path="/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="true" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Text.UTF8Encoding</serializedValue>
-        </property>
-        <property path="/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Buffered</serializedValue>
-        </property>
-        <property path="/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="true" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/messageEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.WSMessageEncoding, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Text</serializedValue>
-        </property>
-        <property path="/security" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpSecurityElement</serializedValue>
-        </property>
-        <property path="/security/mode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpSecurityMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpTransportSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpTransportSecurityElement</serializedValue>
-        </property>
-        <property path="/security/transport/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpClientCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/proxyCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HttpProxyCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>None</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>TransportSelected</serializedValue>
-        </property>
-        <property path="/security/transport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/security/transport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/security/message" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.BasicHttpMessageSecurityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.BasicHttpMessageSecurityElement</serializedValue>
-        </property>
-        <property path="/security/message/clientCredentialType" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.BasicHttpMessageCredentialType, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>UserName</serializedValue>
-        </property>
-        <property path="/security/message/algorithmSuite" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Security.SecurityAlgorithmSuite, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Default</serializedValue>
-        </property>
-      </properties>
-    </bindingConfiguration>
-    <bindingConfiguration bindingType="customBinding" name="ServiceSoap12">
-      <properties>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap12</serializedValue>
-        </property>
-        <property path="/closeTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/openTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/receiveTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/sendTimeout" isComplexType="false" isExplicitlyDefined="true" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/textMessageEncoding" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.TextMessageEncodingElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.TextMessageEncodingElement</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/maxReadPoolSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>64</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/maxWritePoolSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>16</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/messageVersion" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.MessageVersion, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Soap12</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.XmlDictionaryReaderQuotasElement</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas/maxDepth" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas/maxStringContentLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas/maxArrayLength" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas/maxBytesPerRead" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/readerQuotas/maxNameTableCharCount" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/textMessageEncoding/writeEncoding" isComplexType="false" isExplicitlyDefined="false" clrType="System.Text.Encoding, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Text.UTF8Encoding</serializedValue>
-        </property>
-        <property path="/httpsTransport" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpsTransportElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpsTransportElement</serializedValue>
-        </property>
-        <property path="/httpsTransport/manualAddressing" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/maxBufferPoolSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>524288</serializedValue>
-        </property>
-        <property path="/httpsTransport/maxReceivedMessageSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int64, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/httpsTransport/allowCookies" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/requestInitializationTimeout" isComplexType="false" isExplicitlyDefined="false" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>00:00:00</serializedValue>
-        </property>
-        <property path="/httpsTransport/authenticationScheme" isComplexType="false" isExplicitlyDefined="false" clrType="System.Net.AuthenticationSchemes, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Anonymous</serializedValue>
-        </property>
-        <property path="/httpsTransport/bypassProxyOnLocal" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/decompressionEnabled" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>True</serializedValue>
-        </property>
-        <property path="/httpsTransport/hostNameComparisonMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.HostNameComparisonMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>StrongWildcard</serializedValue>
-        </property>
-        <property path="/httpsTransport/keepAliveEnabled" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>True</serializedValue>
-        </property>
-        <property path="/httpsTransport/maxBufferSize" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>65536</serializedValue>
-        </property>
-        <property path="/httpsTransport/maxPendingAccepts" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/httpsTransport/messageHandlerFactory" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.HttpMessageHandlerFactoryElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.HttpMessageHandlerFactoryElement</serializedValue>
-        </property>
-        <property path="/httpsTransport/messageHandlerFactory/handlers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DelegatingHandlerElementCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/httpsTransport/messageHandlerFactory/type" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/httpsTransport/proxyAddress" isComplexType="false" isExplicitlyDefined="false" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/httpsTransport/proxyAuthenticationScheme" isComplexType="false" isExplicitlyDefined="false" clrType="System.Net.AuthenticationSchemes, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Anonymous</serializedValue>
-        </property>
-        <property path="/httpsTransport/realm" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/httpsTransport/transferMode" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.TransferMode, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Buffered</serializedValue>
-        </property>
-        <property path="/httpsTransport/unsafeConnectionNtlmAuthentication" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/useDefaultWebProxy" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>True</serializedValue>
-        </property>
-        <property path="/httpsTransport/extendedProtectionPolicy" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.Security.Authentication.ExtendedProtection.Configuration.ExtendedProtectionPolicyElement</serializedValue>
-        </property>
-        <property path="/httpsTransport/extendedProtectionPolicy/policyEnforcement" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.PolicyEnforcement, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/httpsTransport/extendedProtectionPolicy/protectionScenario" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.ProtectionScenario, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>TransportSelected</serializedValue>
-        </property>
-        <property path="/httpsTransport/extendedProtectionPolicy/customServiceNames" isComplexType="true" isExplicitlyDefined="false" clrType="System.Security.Authentication.ExtendedProtection.Configuration.ServiceNameElementCollection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>(Collection)</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.WebSocketTransportSettingsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.WebSocketTransportSettingsElement</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings/transportUsage" isComplexType="false" isExplicitlyDefined="false" clrType="System.ServiceModel.Channels.WebSocketTransportUsage, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>Never</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings/createNotificationOnConnection" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings/keepAliveInterval" isComplexType="false" isExplicitlyDefined="false" clrType="System.TimeSpan, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>00:00:00</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings/subProtocol" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/httpsTransport/webSocketSettings/disablePayloadMasking" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/httpsTransport/webSocketSettings/maxPendingConnections" isComplexType="false" isExplicitlyDefined="false" clrType="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>0</serializedValue>
-        </property>
-        <property path="/httpsTransport/requireClientCertificate" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-      </properties>
-    </bindingConfiguration>
-  </bindingConfigurations>
-  <endpoints>
-    <endpoint name="ServiceSoap" contract="WSKimberlyClark.ServiceSoap" bindingType="basicHttpBinding" address="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" bindingConfiguration="ServiceSoap">
-      <properties>
-        <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx</serializedValue>
-        </property>
-        <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>basicHttpBinding</serializedValue>
-        </property>
-        <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap</serializedValue>
-        </property>
-        <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>WSKimberlyClark.ServiceSoap</serializedValue>
-        </property>
-        <property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
-        </property>
-        <property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>&lt;Header /&gt;</serializedValue>
-        </property>
-        <property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
-        </property>
-        <property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
-        </property>
-        <property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
-        </property>
-        <property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>My</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>LocalMachine</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>FindBySubjectDistinguishedName</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap</serializedValue>
-        </property>
-        <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-      </properties>
-    </endpoint>
-    <endpoint name="ServiceSoap12" contract="WSKimberlyClark.ServiceSoap" bindingType="customBinding" address="https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx" bindingConfiguration="ServiceSoap12">
-      <properties>
-        <property path="/address" isComplexType="false" isExplicitlyDefined="true" clrType="System.Uri, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>https://unigis2.unisolutions.com.ar/HUB/UNIGIS/MAPI/SOAP/GPS/Service.asmx</serializedValue>
-        </property>
-        <property path="/behaviorConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/binding" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>customBinding</serializedValue>
-        </property>
-        <property path="/bindingConfiguration" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap12</serializedValue>
-        </property>
-        <property path="/contract" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>WSKimberlyClark.ServiceSoap</serializedValue>
-        </property>
-        <property path="/headers" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.AddressHeaderCollectionElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.AddressHeaderCollectionElement</serializedValue>
-        </property>
-        <property path="/headers/headers" isComplexType="false" isExplicitlyDefined="true" clrType="System.ServiceModel.Channels.AddressHeaderCollection, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>&lt;Header /&gt;</serializedValue>
-        </property>
-        <property path="/identity" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.IdentityElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.IdentityElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.UserPrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.UserPrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/userPrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/servicePrincipalName" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.ServicePrincipalNameElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.ServicePrincipalNameElement</serializedValue>
-        </property>
-        <property path="/identity/servicePrincipalName/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/dns" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.DnsElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.DnsElement</serializedValue>
-        </property>
-        <property path="/identity/dns/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/rsa" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.RsaElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.RsaElement</serializedValue>
-        </property>
-        <property path="/identity/rsa/value" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificate" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateElement</serializedValue>
-        </property>
-        <property path="/identity/certificate/encodedValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference" isComplexType="true" isExplicitlyDefined="false" clrType="System.ServiceModel.Configuration.CertificateReferenceElement, System.ServiceModel, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>System.ServiceModel.Configuration.CertificateReferenceElement</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeName" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreName, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>My</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/storeLocation" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.StoreLocation, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>LocalMachine</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/x509FindType" isComplexType="false" isExplicitlyDefined="false" clrType="System.Security.Cryptography.X509Certificates.X509FindType, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>FindBySubjectDistinguishedName</serializedValue>
-        </property>
-        <property path="/identity/certificateReference/findValue" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/identity/certificateReference/isChainIncluded" isComplexType="false" isExplicitlyDefined="false" clrType="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>False</serializedValue>
-        </property>
-        <property path="/name" isComplexType="false" isExplicitlyDefined="true" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue>ServiceSoap12</serializedValue>
-        </property>
-        <property path="/kind" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-        <property path="/endpointConfiguration" isComplexType="false" isExplicitlyDefined="false" clrType="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-          <serializedValue />
-        </property>
-      </properties>
-    </endpoint>
-  </endpoints>
-</SavedWcfConfigurationInformation>

App_WebReferences/WSPenske/ReceiveGPSInfo.wsdl

@@ -83,32 +83,6 @@
           </s:sequence>
         </s:complexType>
       </s:element>
-      <s:element name="ReceiveGPSInformationMassiveXML">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="xmlGPSInfo">
-              <s:complexType>
-                <s:sequence>
-                  <s:any processContents="lax" />
-                </s:sequence>
-              </s:complexType>
-            </s:element>
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:element name="ReceiveGPSInformationMassiveXMLResponse">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="ReceiveGPSInformationMassiveXMLResult">
-              <s:complexType>
-                <s:sequence>
-                  <s:any processContents="lax" />
-                </s:sequence>
-              </s:complexType>
-            </s:element>
-          </s:sequence>
-        </s:complexType>
-      </s:element>
     </s:schema>
   </wsdl:types>
   <wsdl:message name="ReceiveGPSInformationSoapIn">
@@ -129,12 +103,6 @@
   <wsdl:message name="ReceiveGPSInformation_ObjetoSoapOut">
     <wsdl:part name="parameters" element="tns:ReceiveGPSInformation_ObjetoResponse" />
   </wsdl:message>
-  <wsdl:message name="ReceiveGPSInformationMassiveXMLSoapIn">
-    <wsdl:part name="parameters" element="tns:ReceiveGPSInformationMassiveXML" />
-  </wsdl:message>
-  <wsdl:message name="ReceiveGPSInformationMassiveXMLSoapOut">
-    <wsdl:part name="parameters" element="tns:ReceiveGPSInformationMassiveXMLResponse" />
-  </wsdl:message>
   <wsdl:portType name="ReceiveGPSInfoSoap">
     <wsdl:operation name="ReceiveGPSInformation">
       <wsdl:input message="tns:ReceiveGPSInformationSoapIn" />
@@ -148,10 +116,6 @@
       <wsdl:input message="tns:ReceiveGPSInformation_ObjetoSoapIn" />
       <wsdl:output message="tns:ReceiveGPSInformation_ObjetoSoapOut" />
     </wsdl:operation>
-    <wsdl:operation name="ReceiveGPSInformationMassiveXML">
-      <wsdl:input message="tns:ReceiveGPSInformationMassiveXMLSoapIn" />
-      <wsdl:output message="tns:ReceiveGPSInformationMassiveXMLSoapOut" />
-    </wsdl:operation>
   </wsdl:portType>
   <wsdl:binding name="ReceiveGPSInfoSoap" type="tns:ReceiveGPSInfoSoap">
     <soap:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -182,15 +146,6 @@
         <soap:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ReceiveGPSInformationMassiveXML">
-      <soap:operation soapAction="http://tempuri.org/ReceiveGPSInformationMassiveXML" style="document" />
-      <wsdl:input>
-        <soap:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
   </wsdl:binding>
   <wsdl:binding name="ReceiveGPSInfoSoap12" type="tns:ReceiveGPSInfoSoap">
     <soap12:binding transport="http://schemas.xmlsoap.org/soap/http" />
@@ -221,15 +176,6 @@
         <soap12:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ReceiveGPSInformationMassiveXML">
-      <soap12:operation soapAction="http://tempuri.org/ReceiveGPSInformationMassiveXML" style="document" />
-      <wsdl:input>
-        <soap12:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap12:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
   </wsdl:binding>
   <wsdl:service name="ReceiveGPSInfo">
     <wsdl:port name="ReceiveGPSInfoSoap" binding="tns:ReceiveGPSInfoSoap">

App_WebReferences/WSRVConsultas/configuration91.svcinfo

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="ABzLtw767ZQUU0k4nCQPs//zQy+J7OBv8lt+paGCsS4=">
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="NuY352soI+OoFqhd5YCpuMvYvGc=">
   <bindingConfigurations>
     <bindingConfiguration bindingType="basicHttpBinding" name="Service1Soap">
       <properties>

App_WebReferences/WSRVConsultas/service1.wsdl

@@ -153,43 +153,6 @@
           </s:sequence>
         </s:complexType>
       </s:element>
-      <s:element name="ConsultarPresunto">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="RFCEmisor" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="CuentaUsuario" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="ClaveUsuario" type="s:string" />
-            <s:element minOccurs="0" maxOccurs="1" name="RfcPresunto" type="s:string" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:element name="ConsultarPresuntoResponse">
-        <s:complexType>
-          <s:sequence>
-            <s:element minOccurs="0" maxOccurs="1" name="ConsultarPresuntoResult" type="tns:StructPresunto" />
-          </s:sequence>
-        </s:complexType>
-      </s:element>
-      <s:complexType name="StructPresunto">
-        <s:sequence>
-          <s:element minOccurs="1" maxOccurs="1" name="Estado" type="s:int" />
-          <s:element minOccurs="0" maxOccurs="1" name="Mensaje" type="s:string" />
-          <s:element minOccurs="1" maxOccurs="1" name="Numero" type="s:int" />
-          <s:element minOccurs="0" maxOccurs="1" name="Rfc" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="Nombre" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="Situacion" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="NumeroOficioSATPresuncion" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PublicacionSATPresuncion" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="NumeroFechaOficioDOF" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PublicacionDOFPresuncion" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PubicacionSATDesvirtuado" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="NumeroOficioDesvirtuado" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PublicacionDOFDesvirtuado" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="NumeroOficioDefinitivo" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PublicacionSATDefinitivo" type="s:string" />
-          <s:element minOccurs="0" maxOccurs="1" name="PublicacionDOFDefinitivo" type="s:string" />
-        </s:sequence>
-      </s:complexType>
       <s:element name="ConsultarCfdisEmitidos">
         <s:complexType>
           <s:sequence>
@@ -279,12 +242,6 @@
   <wsdl:message name="ConsultarCancelacionSoapOut">
     <wsdl:part name="parameters" element="tns:ConsultarCancelacionResponse" />
   </wsdl:message>
-  <wsdl:message name="ConsultarPresuntoSoapIn">
-    <wsdl:part name="parameters" element="tns:ConsultarPresunto" />
-  </wsdl:message>
-  <wsdl:message name="ConsultarPresuntoSoapOut">
-    <wsdl:part name="parameters" element="tns:ConsultarPresuntoResponse" />
-  </wsdl:message>
   <wsdl:message name="ConsultarCfdisEmitidosSoapIn">
     <wsdl:part name="parameters" element="tns:ConsultarCfdisEmitidos" />
   </wsdl:message>
@@ -333,11 +290,6 @@
       <wsdl:input message="tns:ConsultarCancelacionSoapIn" />
       <wsdl:output message="tns:ConsultarCancelacionSoapOut" />
     </wsdl:operation>
-    <wsdl:operation name="ConsultarPresunto">
-      <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Consultar un CFDI directamente por UUID y Fecha</wsdl:documentation>
-      <wsdl:input message="tns:ConsultarPresuntoSoapIn" />
-      <wsdl:output message="tns:ConsultarPresuntoSoapOut" />
-    </wsdl:operation>
     <wsdl:operation name="ConsultarCfdisEmitidos">
       <wsdl:documentation xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/">Consultar los CFDIs emitidos por rango de fecha</wsdl:documentation>
       <wsdl:input message="tns:ConsultarCfdisEmitidosSoapIn" />
@@ -414,15 +366,6 @@
         <soap:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ConsultarPresunto">
-      <soap:operation soapAction="http://tempuri.org/ConsultarPresunto" style="document" />
-      <wsdl:input>
-        <soap:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
     <wsdl:operation name="ConsultarCfdisEmitidos">
       <soap:operation soapAction="http://tempuri.org/ConsultarCfdisEmitidos" style="document" />
       <wsdl:input>
@@ -507,15 +450,6 @@
         <soap12:body use="literal" />
       </wsdl:output>
     </wsdl:operation>
-    <wsdl:operation name="ConsultarPresunto">
-      <soap12:operation soapAction="http://tempuri.org/ConsultarPresunto" style="document" />
-      <wsdl:input>
-        <soap12:body use="literal" />
-      </wsdl:input>
-      <wsdl:output>
-        <soap12:body use="literal" />
-      </wsdl:output>
-    </wsdl:operation>
     <wsdl:operation name="ConsultarCfdisEmitidos">
       <soap12:operation soapAction="http://tempuri.org/ConsultarCfdisEmitidos" style="document" />
       <wsdl:input>

App_WebReferences/wsValidaCFDi2/configuration91.svcinfo

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="WiujLa2Wexk6dRbNVWygD/ahBFk/T12zxoYVy0Rah2Y=">
+<SavedWcfConfigurationInformation xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" Version="9.1" CheckSum="pOmVJStm5hxCRlvTFTVnICnM8aQ=">
   <bindingConfigurations>
     <bindingConfiguration bindingType="basicHttpBinding" name="BasicHttpBinding_IConsultaCFDIService">
       <properties>

Bancos/CuentasBancariasDetalle.aspx

@@ -61,6 +61,8 @@
                                                     <td>CLABE:</td>
                                                     <td>
                                                         <asp:TextBox ID="TxtCLABE" runat="server" MaxLength="18" Width="200px"></asp:TextBox></td>
+                                                        <asp:RegularExpressionValidator runat="server" id="REVTxtCLABE" controltovalidate="TxtCLABE" validationexpression="^\s*(?:[0-9]{18})\s*$" errormessage="La CLABE debe de tener una longitud de 18 caracteres"  ValidationGroup="GrpGuardar"  />
+                                                        <ajax:ValidatorCalloutExtender ID="CVETxtCLABE" runat="server" HighlightCssClass="vco" TargetControlID="REVTxtCLABE" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </tr>
 
                                                 <tr>

Bancos/DepositosCaja.aspx

@@ -4,6 +4,33 @@
 </asp:Content>
 
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+        <style>
+            .checkbox label
+            {
+                padding-left:15px;
+
+            }
+            .checkbox 
+            {
+                width: 100%;
+                height: 100%;
+
+            }
+
+            .rowcheck{
+                margin-left: -5px;
+                padding-top: 10px;
+
+            }
+            .rowcheckCampos{
+                padding-left: 0px;
+            }
+
+            #DivComisioncheck{
+                border-top: 1px solid #e5e5e5;
+            }
+
+    </style>
 </asp:Content>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -95,22 +122,22 @@
                     </div>
                 </div>
             </div>
-        </ContentTemplate>
+            
-    </asp:UpdatePanel>
-
     <br />
 
+        </ContentTemplate>
+    </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpGvFacturas" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
-            <div class="row">
+            <div class="row" style="margin-bottom:5px">
                 <div class="col-md-6" runat="server" >
                     <label style=" ">Cuenta Depósito:</label>
                     <asp:DropDownList ID="DdlCuentaDeposito" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" style="width: 300px;"></asp:DropDownList>
                  </div>
                  <div class="col-md-3" runat="server" style="text-align: left;">
                     <div class="col-md-1" >
-                        <label  style="width:70px; padding-top:5px;">Fecha:</label>
+                        <label  style="width:70px;">Fecha:</label>
                     </div>
                      <div class="col-md-1" >
                           <div class="input-group input-sm input-small date date-picker" data-date-format="dd/mm/yyyy" style="padding-top: 0; width: 140px !important;">
@@ -136,23 +163,23 @@
 
                 </div>
             </div>
-            <div class="row">
+            <div class="row rowcheck truncate" id="DivComisioncheck" >
-                <div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 145px;" >
+                <div class="col-md-1 truncate" runat="server" id="DivFaltante" style ="width: 155px;" >
-                    <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" />
+                    <asp:CheckBox ID="ChkFaltante" runat="server" Text="Faltante/Sobrante" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10" id="DivComision" style="display: none;">
+                <div class="col-md-10 rowcheckCampos" id="DivComision" style="display: none;">
-                    <div class="col-md-3" >
+                    <div class="col-md-1" style="padding-right: 130px;">
                         <label>Importe:</label>
-                        <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
+                        <asp:TextBox runat="server"  ID="TxtComision" Class=" input-sm "  Width="100px" onkeypress = "return numericOnly(this);"  ondrop = "return false;"  onpaste = "return false;" CssClass="Numeros"></asp:TextBox>
                     </div>
                
-                    <div class="col-md-4">
+                    <div class="col-md-1" style="padding-right: 190px;">
                         <label>SubProyecto:</label>
                         <asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                         </asp:DropDownList>
                     </div>
               
-                    <div class="col-md-4">
+                    <div class="col-md-1">
                     <label>Clasificación:</label>
                         <asp:DropDownList  ID="DdlClasificacion" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
@@ -163,55 +190,64 @@
 
 
             </div>
-              <div class="row" >
+            <div class="row rowcheck truncate" id="DivDescuentocheck" style="margin-top: -25px;">
-                <div class="col-md-1" runat="server" id="Div1" style ="width: 145px">
+                <div class="col-md-1" runat="server" id="Div1" style ="width: 155px">
-                    <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento"/>
+                    <asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10" id="DivDescuento" style="display: none">
+                <div class="col-md-11 rowcheckCampos" id="DivDescuento" style="display: none">
                     
-                    <div class="col-md-2">
+                    <div class="col-md-1" style="padding-right: 130px;">
-                        <label>Importe:</label>
+                        <label for="TxtDescuento">Importe:</label>
-                        <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm "  Width="75px"></asp:TextBox>
+                        <asp:TextBox runat="server" ID="TxtDescuento" Class=" input-sm "  Width="100px" onkeypress = "return numericOnly(this);"  ondrop = "return false;"  onpaste = "return false;" CssClass="Numeros"></asp:TextBox>
+
                     </div>
 
-                     <div class="col-md-3" >
+                     <div class="col-md-1" style="padding-right: 190px;">
                         <label>SubProyecto:</label>
                         <asp:DropDownList ID="DdlSubProyectoDescuento" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                         </asp:DropDownList>
                     </div>
               
-                    <div class="col-md-5">
+                    <div class="col-md-2">
                         <label>Clasificación:</label>
                         <asp:DropDownList  ID="DdlClasificacionDescuento" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
                     </div>
+                    <div class="col-md-1">
+                        <label>Emp:</label>
+                        <asp:DropDownList  ID="DdlPersonal" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal">
+                        </asp:DropDownList>
+                    </div>
                 </div>
                 
             </div>
-            <div class="row">
+            <div class="row rowcheck truncate" id="DivIntercheck" style="margin-top: -25px;">
                 
-                <div class="col-md-1" runat="server" id="Div2" style ="width: 145px">
+                <div class="col-md-1" runat="server" id="Div2" style ="width: 155px">
-                    <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario"/>
+                    <asp:CheckBox ID="ChkIntermediario" runat="server" Text="Intermediario" CssClass="checkbox"/>
                 </div>
-                <div class="col-md-10" id="DivInter" style="display: none">
+                <div class="col-md-10 rowcheckCampos" id="DivInter" style="display: none">
-                    <div class="col-md-2" id="dd">
+                    <div class="col-md-1" id="dd" style="padding-right: 130px;">
+                        <label>Intermediario:</label>
                         <asp:Dropdownlist ID="DdlProveedorIntermediario" CssClassDdl="select2me" Width="100px" CssStyle="100%" DataTextField="RazonSocial" DataValueField="CveProveedor" runat="server"></asp:Dropdownlist>
                     </div>
-                
+                    <div class="col-md-2" style="    width: 205px;">
-                    <div class="col-md-2" id="DivinterImporte"  >
+                        <div class="col-md-6" id="DivinterImporte" style="padding-left: 0px; padding-right: 0px;" >
-                        <label>Importe:</label>
+                            <label>Importe:</label>
-                        <asp:TextBox runat="server" ID="TxtComisionIntermediario" Class=" input-sm "  Width="75px"></asp:TextBox>
+                            <asp:TextBox runat="server" ID="TxtComisionIntermediario" Class=" input-sm "  Width="75px" onkeypress = "return numericOnly(this);"  ondrop = "return false;"  onpaste = "return false;" CssClass="Numeros"></asp:TextBox>
+                        </div>
+                        <div class="col-md-6" id="DivIVA"  >
+                            <label>IVA:</label>
+                            <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm "  Width="75px" onkeypress = "return numericOnly(this);"  ondrop = "return false;"  onpaste = "return false;" CssClass="Numeros"></asp:TextBox>
+                        </div>
                     </div>
-                    <div class="col-md-2" id="DivIVA"  >
+                    
-                        <label>IVA:</label>
+                    <div class="col-md-1" id="dd2" style="margin-right: 100px;">
-                        <asp:TextBox runat="server" ID="TxtIVA" Class=" input-sm "  Width="75px"></asp:TextBox>
-                    </div>
-                    <div class="col-md-3" id="dd2">
                         <label id="LblClasificacion3">Gasto:</label>                
                         <asp:DropDownList  ID="DdlClasificacionIntermediario" AutoPostBack="false" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server"  AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion">
                         </asp:DropDownList>
                     </div>
-                     <div class="col-md-3" id="divSubProyectoIntermediario">
+                     <div class="col-md-1" id="divSubProyectoIntermediario">
                         <label id="LblSubproyectoIntermediario">SubProyecto:</label>
                  
                         <asp:DropDownList ID="DdlSubProyectoIntermediario" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
@@ -221,7 +257,7 @@
             </div>
      
             <br />
-            <div style="height:550px;overflow-x:scroll">
+            <div style="height:450px;overflow-x:scroll">
                 <asp:GridView ID="GvFacturas" runat="server" AutoGenerateColumns="False" DataKeyNames="CveVenta, CvePrePoliza, CveIE, TipoCambio, CveMoneda, CveCliente, IdCtaContableBancos, IdCtaContClientes, Importe, SerieFolio" CssClass="table table-striped table-advance table-hover" Style="text-align: center; float: right; width: 100%; " GridLines="None">
                 <Columns>
                     <asp:TemplateField>
@@ -290,6 +326,41 @@
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script type="text/javascript" language="javascript">
 
+        var specialKeys = new Array();
+        specialKeys.push(9); //Backspace  
+        function numericOnly(elementRef) {
+            var keyCodeEntered = (event.which) ? event.which : (window.event.keyCode) ? window.event.keyCode : -1;
+            debugger;
+
+            if ((keyCodeEntered >= 48) && (keyCodeEntered <= 57)) {
+                return true;
+            }
+            else if (keyCodeEntered == 46) {
+                if ((elementRef.value) && (elementRef.value.indexOf('.') >= 0)) {
+                    return false;
+                }
+                else {
+                    return true;
+                }
+            }
+            else if (keyCodeEntered == 45) {
+                var tamaño = elementRef.value.length;
+                if (tamaño == 0) {
+                    if ((elementRef.value) && (elementRef.value.indexOf('-') >= 0)) {
+                        debugger;
+                        return false;
+                    }
+                    else {
+                        debugger;
+                        return true;
+                    }
+                }
+
+            }
+            debugger;
+            return false;
+        }
+
         var ValorTotalSeleccionado = 0
         var comision = 0;
         var descuento = 0;
@@ -297,6 +368,8 @@
         var IVA = 0;
         var ComisionIntermediario = 0;
 
+
+
         function FnSuma(chk, cantidad) {
             var saldoInicial = ToDouble($('#C_lblValorTotal').text());
             var ValorTotalSeleccionado2 = 0;
@@ -347,7 +420,7 @@
                 var txtdescuento = ToDouble($('#C_TxtDescuento').val());
                 if (txtdescuento != 0) {
                     var DescuentoNegativa = 0;
-                    if (txtdescuento < 0) {
+                    if (txtdescuento > 0) {
                         DescuentoNegativa = txtdescuento * -1;
                     }
                     if (DescuentoNegativa > saldo) {
@@ -419,6 +492,7 @@
         }
 
         function txtSuma(txt) {
+
             var comision2 = ToDouble($('#C_TxtComision').val());
             var comisionNegativa = 0;
             if (comision2 < 0) {
@@ -437,15 +511,11 @@
 
         function txtSumaDescuento(txt) {
             var comision2 = ToDouble($('#C_TxtDescuento').val());
-            var comisionNegativa = 0;
+            if (comision2 > ValorTotalSeleccionado) {
-            if (comision2 < 0) {
-                comisionNegativa = comision2 * -1;
-            }
-            if (comisionNegativa > ValorTotalSeleccionado) {
                 $('#C_TxtDescuento').val(descuento)
-                alert("No es posible poner un descuento superior a lo seleccionado")
+                alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + comision2 + comision - IVA - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - comision2 + comision - IVA - ComisionIntermediario;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 descuento = ToDouble($('#C_TxtDescuento').val())
             }
@@ -456,10 +526,10 @@
         function txtSumaIVA(txt) {
             var comision2 = ToDouble($('#C_TxtIVA').val());
             if (comision2 > ValorTotalSeleccionado) {
-                $('#C_TxtIVA').val(descuento)
+                $('#C_TxtIVA').val(IVA)
                 alert("No es posible poner un IVA superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + descuento + comision - comision2 - ComisionIntermediario;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - ComisionIntermediario;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 IVA = ToDouble($('#C_TxtIVA').val())
             }
@@ -469,10 +539,10 @@
         function txtSumaTntermediario(txt) {
             var comision2 = ToDouble($('#C_TxtComisionIntermediario').val());
             if (comision2 > ValorTotalSeleccionado) {
-                $('#C_TxtComisionIntermediario').val(descuento)
+                $('#C_TxtComisionIntermediario').val(ComisionIntermediario)
                 alert("No es posible poner un importe superior a lo seleccionado")
             } else {
-                saldo = ValorTotalSeleccionado + descuento + comision - comision2 - IVA;
+                saldo = ValorTotalSeleccionado - descuento + comision - comision2 - IVA;
                 $('#C_lblValorTotal').text(FormatoNumero(saldo, 2));
                 ComisionIntermediario = ToDouble($('#C_TxtComisionIntermediario').val())
             }
@@ -482,16 +552,28 @@
         function CheckFaltante(chk) {
             if (chk.checked == true) {
                 $('#DivComision').css("display", "block");
+                $('#DivComisioncheck').removeClass("truncate")
+                $("#DivDescuentocheck").css("margin-top", 0);
             } else {
                 $('#DivComision').css("display", "none");
+                $('#DivComisioncheck').addClass("truncate")
+                $("#DivDescuentocheck").css("margin-top", -25);
+
             }
         }
 
         function CheckDescuento(chk) {
             if (chk.checked == true) {
                 $('#DivDescuento').css("display", "block");
+                $('#DivDescuentocheck').removeClass("truncate")
+                $("#DivIntercheck").css("margin-top", 0);
+
+
             } else {
                 $('#DivDescuento').css("display", "none");
+                $('#DivDescuentocheck').addClass("truncate")
+                $("#DivIntercheck").css("margin-top", -25);
+
 
             }
         }
@@ -499,8 +581,12 @@
         function CheckIntermediario(chk) {
             if (chk.checked == true) {
                 $('#DivInter').css("display", "block");
+                $('#DivIntercheck').removeClass("truncate")
+
             } else {
                 $('#DivInter').css("display", "none");
+                $('#DivIntercheck').addClass("truncate")
+
             }
         }
     </script>

Bancos/DepositosCaja.aspx.vb

@@ -21,10 +21,10 @@ Partial Class Bancos_DepositosCaja
             TxtFecha.Text = Now.ToShortDateString
             txtFechaI.Text = Now.AddDays(-1).ToShortDateString
             txtFechaF.Text = Now.ToShortDateString
-            TxtComision.Attributes.Add("onKeyUp", "txtSuma(event);")
+            TxtComision.Attributes.Add("onKeyUp", "txtSuma(this);")
-            TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(event);")
+            TxtDescuento.Attributes.Add("onKeyUp", "txtSumaDescuento(this);")
-            TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(event);")
+            TxtIVA.Attributes.Add("onKeyUp", "txtSumaIVA(this);")
-            TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(event);")
+            TxtComisionIntermediario.Attributes.Add("onKeyUp", "txtSumaTntermediario(this);")
 
 
             CargaCuentas()
@@ -63,6 +63,9 @@ Partial Class Bancos_DepositosCaja
         DdlClasificacionDescuento.DataBind()
         DdlClasificacionDescuento.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
+        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlPersonal.DataBind()
+
         'intermediario
         DdlProveedorIntermediario.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedor in ({0})", 73343))
         DdlProveedorIntermediario.DataBind()
@@ -119,7 +122,7 @@ Partial Class Bancos_DepositosCaja
 
         TotalImportePrePoliza = TotalImporte
         If Comision <> 0 Then
-            TotalImporte = TotalImporte + Comision + Descuento
+            TotalImporte = TotalImporte + Comision
             'Comision = -(Comision) ' se inverte el valor, va cargada
             'Descuento = -(Descuento) ' se inverte el valor, va cargada
             If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
@@ -128,6 +131,15 @@ Partial Class Bancos_DepositosCaja
             End If
         End If
 
+        If Descuento <> 0 Then
+            TotalImporte = TotalImporte - Descuento
+            'Descuento = -(Descuento) ' se inverte el valor, va cargada
+            If DdlSubProyectoDescuento.SelectedValue.ToEntero = -1 Or DdlClasificacionDescuento.SelectedValue.ToEntero = -1 Then
+                Alert("Debes Seleccionar un Subproyecto y una Clasificación de descuento", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
         If TxtComisionIntermediario.Text.ToDecimal <> 0 Then
             TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA
         End If
@@ -230,7 +242,7 @@ Partial Class Bancos_DepositosCaja
                 CveSubProyectoDescuento = DdlSubProyectoDescuento.SelectedValue.ToEntero
                 CveClasificacionDescuento = DdlClasificacionDescuento.SelectedValue.ToEntero
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyecto, ImporteMX:=Comision * TipoCambio) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, Descuento, DdlClasificacionDescuento.SelectedItem.Text, 51, DdlClasificacionDescuento.SelectedItem.Text & " " & DdlPersonal.SelectedItem.Text, Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacionDescuento, CveSubProyecto:=CveSubProyectoDescuento, ImporteMX:=Descuento * TipoCambio, CvePersonal:=DdlPersonal.SelectedValue.ToEntero) Then
                     OcurrioError = True
                 End If
             End If
@@ -263,7 +275,7 @@ Partial Class Bancos_DepositosCaja
                 CveIEDestino = ObjBancos.AddBancos_IE(DdlCajaChica.SelectedValue.ToEntero, 2, Fecha, FolioIE.ToString, String.Format("Depósito Bancario: {0}", SerieFolio), Importe, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
 
-                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
+                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, True, Importe, SerieFolio, 30, String.Format("Depósito Bancario: {0}", SerieFolio), Fecha, IdCuentaBancariaDestino, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, CveVenta:=CveVenta, CveIE:=CveIEDestino, ImporteMX:=Importe * TipoCambio, CveCuenta:=CveCuentaBancariaDestino) Then
                     OcurrioError = True
                     Exit For
                 End If

Bancos/IE.aspx.vb

@@ -249,22 +249,6 @@ Partial Class Bancos_IE
             ViewState("IDCtaBeneficiarioComplementaria") = value
         End Set
     End Property
-    Private Property CveCuentaConta As Integer
-        Get
-            Return ViewState("CveCuentaConta").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaConta") = value
-        End Set
-    End Property
-    Private Property CveCuentaBeneficiario As Integer
-        Get
-            Return ViewState("CveCuentaBeneficiario").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBeneficiario") = value
-        End Set
-    End Property
     Private Property CvePrePoliza As Integer
         Get
             Return ViewState("CvePrePoliza").ToString.ToEntero
@@ -611,8 +595,6 @@ Partial Class Bancos_IE
             IDCtaContable = 0
             IdCtaAnticipoComplementaria = 0
             IdCtaAnticipoExtranjera = 0
-            CveCuentaBeneficiario = 0
-            CveCuentaConta = 0
             DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
             TxtImporte.Attributes.Add("onblur", "upIE(this);FncImporteCuenta(this);")
             'Calendario.StartDate = Now.AddMonths(-2).FirstDayOfMonth()
@@ -970,7 +952,6 @@ Partial Class Bancos_IE
 
                 IDPoliza = ObjIE.IDPoliza
                 IDCtaContable = ObjIE.IdCtaContable
-                CveCuentaConta = ObjIE.CveCuentaConta
 
 
                 If ObjIE.IDPoliza > 0 Then
@@ -1329,24 +1310,22 @@ Partial Class Bancos_IE
 
                 Select Case RBL.SelectedValue
                     Case "P"
-                        IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos : CveCuentaBeneficiario = ObjProveedor.CveCuentaAnticipos
+                        IDCtaBeneficiario = ObjProveedor.IdCtaContAnticipos
                         IdCtaAnticipoExtranjera = ObjProveedor.IdCtaContAnticiposExtranjera : IdCtaAnticipoComplementaria = ObjProveedor.IdCtaContAnticiposComplementaria
                         If EsDevolucion Then
-                            IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores : CveCuentaBeneficiario = ObjProveedor.CveCuentaProveedores
+                            IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
                         End If
-                    Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor : CveCuentaBeneficiario = ObjProveedor.CveCuentaDeudor
+                    Case "DD" : IDCtaBeneficiario = ObjProveedor.IdCtaContDeudor
-                    Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor : CveCuentaBeneficiario = ObjProveedor.CveCuentaAcreedor
+                    Case "AC" : IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
-                    Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar : CveCuentaBeneficiario = ObjProveedor.CveCuentaDocsXPagar
+                    Case "DP" : IDCtaBeneficiario = ObjProveedor.IdCtaContDocsXPagar
                     Case Else
                         IDCtaBeneficiario = ObjProveedor.IdCtaContProveedores
-                        CveCuentaBeneficiario = ObjProveedor.CveCuentaProveedores
                 End Select
 
 
                 If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
 
                     IDCtaBeneficiario = ObjProveedor.IdCtaContAcreedor
-                    CveCuentaBeneficiario = ObjProveedor.CveCuentaAcreedor
 
                     If Not IDCtaBeneficiario > 0 Then
                         Alert("No se pudo cargar IDCtaBeneficiario", TipoMensaje.MsgAdvertencia)
@@ -1359,9 +1338,6 @@ Partial Class Bancos_IE
                     If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                         Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Enabled = False
-                    ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
-                        Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                        BtnGuardar.Enabled = False
                     Else
                         BtnGuardar.Enabled = True
                     End If
@@ -1470,7 +1446,6 @@ Partial Class Bancos_IE
                 HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
                 IDCtaBeneficiario = ObjCliente.IdCtaContAnticipos
                 IDCtaBeneficiarioComplementaria = ObjCliente.IdCtaContCompAnticipos
-                CveCuentaBeneficiario = ObjCliente.CveCuentaAnticipos
                 CorreoCobranzaCliente = ObjCliente.CobranzaCorreo
 
                 If Request("Opcion") IsNot Nothing AndAlso Request("Opcion") = "DevDinV" Then
@@ -1484,10 +1459,7 @@ Partial Class Bancos_IE
                 If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                     If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
                         Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                        BtnGuardar.Enabled = False
+                        BtnGuardar.Enabled = False
-                    ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
-                        Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                        BtnGuardar.Enabled = False
                     Else
                         BtnGuardar.Enabled = True
                     End If
@@ -1539,15 +1511,11 @@ Partial Class Bancos_IE
                 HdnProvPorRetIVA.Value = "0" 'ObjProveedor.RetIVA.ToString
                 HdnProvPorRetISR.Value = "0" 'ObjProveedor.RetISR.ToString
                 IDCtaBeneficiario = ObjPersonal.IdCtaContPersonal
-                CveCuentaBeneficiario = ObjPersonal.CveCuentaPersonal
 
                 If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
                     If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
                         Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                         BtnGuardar.Enabled = False
-                    ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
-                        Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-                        BtnGuardar.Enabled = False
                     Else
                         BtnGuardar.Enabled = True
                     End If
@@ -1624,8 +1592,7 @@ Partial Class Bancos_IE
 
             DdlMoneda.SelectedValue = dr("CveMoneda").ToString
             IDCtaContable = dr("IdCtaContable").ToString.ToEntero
-            IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero
+            IDCtaContableComplementaria = dr("IDCtaContableComplementaria").ToString.ToEntero
-            CveCuentaConta = dr("IdCtaContableSIG").ToString.ToEntero
             CambiaTipoMoneda()
 
             If Opcion IsNot Nothing AndAlso Opcion.Contiene("EGSSINFACT") Then
@@ -1663,9 +1630,6 @@ Partial Class Bancos_IE
                 Alert("La Cuenta Bancaria no tiene asignada una cuenta contable", TipoMensaje.MsgAdvertencia)
             End If
 
-            If Not CveCuentaConta > 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then
-                Alert("La Cuenta Bancaria no tiene asignada una cuenta contable en SIG", TipoMensaje.MsgAdvertencia)
-            End If
         End If
 
         If trIEDevolucion.Visible And RBL.SelectedValue <> "C" Then
@@ -2708,8 +2672,8 @@ Partial Class Bancos_IE
                     MsgError = "No se pudo insertar la póliza de saldo inicial."
                 End If
             End If
-            Dim UsaComplementariaBancos As Boolean = False
+            Dim UsaComplementariaBancos As Boolean = False
-            If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaBancos = True
+            UsaComplementariaBancos = True
 
             If MsgError = "" Then
 
@@ -2773,11 +2737,11 @@ Partial Class Bancos_IE
                                         Dim DtIE As DataTable = Mov.DtResultados
                                         For Each dr As DataRow In DtIE.Rows
 
-                                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
+                                            If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, If(dr("TipoMovto").ToString.ToEntero = 1, False, True), If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, dr("Importe").ToString.ToDecimal), "", dr("CveConceptoContable").ToString.ToEntero, "", Now, IDCtaBeneficiario, -1, CveIE, CveCliente:=dr("CveCliente").ToString.ToEntero, CveVenta:=dr("CveVenta").ToString.ToEntero, ImporteMX:=If(dr("CveConceptoContable").ToString.ToEntero.Contiene(66), -TxtImporte.Text.ToDecimal, -dr("Importe").ToString.ToDecimal), ImporteME:=tImporteMonedaExtranjera) Then
                                                 MsgError = "no se pudo insertar el detalle de la póliza 2"
                                             End If
                                         Next
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta)
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
 
                                     End If
                                     Mov.Dispose()
@@ -2787,20 +2751,20 @@ Partial Class Bancos_IE
 
                                     Dim Mov As New ClsMovimientos
                                     'INGxC
-                                    ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta)
+                                    ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), Ref, 66, Conc, Now, IDCtaContable, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-(TxtImporte.Text.ToDecimal - TxtIvaIxC.Text.ToDecimal), ImporteME:=tImporteMonedaExtranjera)
 
                                     If TxtIvaIxC.Text.ToDouble > 0 Then
                                         'Iva
-                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
+                                        ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -TxtIvaIxC.Text.ToDecimal, Ref, 61, Conc, Now, UsuarioActual.Empresa.IdCuentaIVAxTrasladar, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtIvaIxC.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
                                     End If
 
                                     'Bancos
-                                    ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario)
+                                    ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -TxtImporte.Text.ToDecimal, Ref, 30, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveIEDevolucion:=DdlIEDevolucion.SelectedValue.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=-TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera)
                                     Mov.Dispose()
 
                                 Else
-                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta) Then
+                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera) Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE:=If(CveIEOtro < 0, CveIE, CveIEOtro), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=tImporteMonedaExtranjera, ImporteME:=tImporteMonedaExtranjera) Then
                                             MsgError = "no se pudo insertar el detalle de la póliza 2"
                                         End If
                                     Else
@@ -2885,7 +2849,7 @@ Partial Class Bancos_IE
                                                             MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                                         End If
                                                     End If
-                                                    If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
+                                                    If tCveMoneda > 1 Then
                                                         'Agregamos complementaria
                                                         Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
 
@@ -2918,7 +2882,7 @@ Partial Class Bancos_IE
                                         End Select
 
                                         If importeMovimiento <> 0 Then
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                             End If
                                         End If
@@ -2940,7 +2904,7 @@ Partial Class Bancos_IE
                                 ImporteAplicarME = ImporteAplicar
 
                                 'CONSIDERA COMPLEMENTARIA
-                                If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                     ImporteAplicarMN = ImporteAplicar
                                 Else
                                     ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
@@ -2948,15 +2912,15 @@ Partial Class Bancos_IE
 
                                 'BANCOS
                                 IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
                                     Exit Select
                                 End If
 
                                 'BANCOS COMPLEMENTARIA
-                                If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                     ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)) - ImporteAplicar).RoundSQL()
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
                                 End If
@@ -3048,7 +3012,7 @@ Partial Class Bancos_IE
 
 
                                 'CONSIDERA COMPLEMENTARIA
-                                If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                     ImporteAplicarMN = ImporteAplicar
                                 Else
                                     ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
@@ -3060,7 +3024,7 @@ Partial Class Bancos_IE
 
                                 'BANCOS
                                 IdCtaContableAplicar = If(IDCtaContable > 0, IDCtaContable, 0)
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 30, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de bancos de devolución"
                                     Exit Select
                                 End If
@@ -3074,7 +3038,7 @@ Partial Class Bancos_IE
 
                                             Dim FechaCompraNota As Date = GvRow.DataKey("Fecha").ToDate
 
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
 
                                                 TCCompra = GlobalTipoCambio(FechaCompraNota).ToDecimal
                                                 TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3096,14 +3060,14 @@ Partial Class Bancos_IE
 
 
                                             'CONSIDERA COMPLEMENTARIA
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                                 ImporteAplicarMN = ImporteAplicar
                                             Else
                                                 ImporteAplicarMN = (ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
                                             End If
 
 
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
 
                                                 TCCompra = GlobalTipoCambio(GvRow.DataKey("Fecha").ToDate).ToDecimal
                                                 TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3125,9 +3089,9 @@ Partial Class Bancos_IE
                                             ''
 
                                             'BANCOS COMPLEMENTARIA
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                                 ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
-                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
                                                     MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
                                                 End If
                                             End If
@@ -3150,7 +3114,7 @@ Partial Class Bancos_IE
                                             '    End If
 
 
-                                            '    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                            '    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0,  TipoCambio:=TCDocumento) Then
                                             '        MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                             '        Exit Select
                                             '    End If
@@ -3171,11 +3135,11 @@ Partial Class Bancos_IE
 
 
                                             'NC COMPLEMENTARIA
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
 
                                                 ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
 
-                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
                                                     MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                                 End If
 
@@ -3189,14 +3153,14 @@ Partial Class Bancos_IE
 
                                                 If DiferenciaTC < 0 Then
                                                     '64
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
                                                         Exit Select
                                                     End If
 
                                                 Else
                                                     '65
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
                                                         Exit Select
                                                     End If
@@ -3247,7 +3211,7 @@ Partial Class Bancos_IE
                                                     Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
 
 
-                                                    If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                                    If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                                         IVADevMN = IVADev
                                                         IEPSDevMN = IEPSDev
                                                     Else
@@ -3335,7 +3299,7 @@ Partial Class Bancos_IE
 
                                 Else
 
-                                    If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                    If DdlMoneda.SelectedValue.ToEntero > 1 Then
 
                                         TCCompra = GlobalTipoCambio(FechaCompra).ToDecimal
                                         TCDocumento = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
@@ -3352,9 +3316,9 @@ Partial Class Bancos_IE
 
 
                                     'BANCOS COMPLEMENTARIA
-                                    If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                    If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                         ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCDocumento)) - ImporteAplicar).RoundSQL()
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteAplicar, ReferenciaAplicar, 204, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicarME, TipoCambio:=TCDocumento) Then
                                             MsgError = "Ocurrió un error al registrara el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
@@ -3377,7 +3341,7 @@ Partial Class Bancos_IE
                                         End If
 
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCDocumento) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=Impo, ImporteME:=0, TipoCambio:=TCDocumento) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                             Exit Select
                                         End If
@@ -3398,11 +3362,11 @@ Partial Class Bancos_IE
 
 
                                     'NC COMPLEMENTARIA
-                                    If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                    If DdlMoneda.SelectedValue.ToEntero > 1 Then
 
                                         ImporteAplicarMN = ((ImporteAplicar * If(DdlMoneda.SelectedValue.ToEntero = 1, 1, TCCompra)) - ImporteAplicar).RoundSQL()
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -(ImporteAplicar), ReferenciaAplicar, 201, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-(ImporteAplicarMN), ImporteME:=-(ImporteAplicarME), TipoCambio:=TCCompra) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
 
@@ -3416,14 +3380,14 @@ Partial Class Bancos_IE
 
                                         If DiferenciaTC < 0 Then
                                             '64
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaImportes, ReferenciaAplicar, 64, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaGananciaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento de ganancia cambiaria"
                                                 Exit Select
                                             End If
 
                                         Else
                                             '65
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, CveCuenta:=CveCuentaConta, TipoCambio:=TCCompra) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, DiferenciaImportes, ReferenciaAplicar, 65, ConceptoAplicar, Now, UsuarioActual.Empresa.IdCuentaPerdidaCambiaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=DiferenciaImportes, ImporteME:=0, TipoCambio:=TCCompra) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento de perdidada cfambiaria"
                                                 Exit Select
                                             End If
@@ -3481,7 +3445,7 @@ Partial Class Bancos_IE
                                             Dim IdCtaIVADevolucionIMPUESTOS As Integer = -1
 
 
-                                            If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                            If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                                 IVADevMN = IVADev
                                                 IEPSDevMN = IEPSDev
                                             Else
@@ -3593,7 +3557,7 @@ Partial Class Bancos_IE
                                             Case 30
                                                 importeMovimiento = TxtImporte.Text.ToDecimal
                                                 importeMX = importeMovimiento
-                                                If tCveMoneda > 1 AndAlso UsuarioActual.CveEmpresa = 119 Then
+                                                If tCveMoneda > 1 Then
                                                     'Agregamos complementaria
                                                     Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
 
@@ -3627,7 +3591,7 @@ Partial Class Bancos_IE
                                         End Select
 
                                         If importeMovimiento <> 0 Then
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCuenta:=If(ConceptoContable = 30, CveCuentaConta, CveCuentaBeneficiario)) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                                 MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                             End If
                                         End If
@@ -3643,19 +3607,18 @@ Partial Class Bancos_IE
                                 End If
 
                                 If CveConceptoCompra = 10 AndAlso DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsaComplementariaBancos Then
-                                    IDCtaBeneficiario = IdCtaAnticipoExtranjera
+                                    IDCtaBeneficiario = IdCtaAnticipoExtranjera
-                                    CveCuentaConta = 0
                                 End If
 
                                 'MOVIMIENTOS EGRESOS
-                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaConta, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
+                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TxtImporte.Text.ToDecimal, Ref, CveConceptoContable, Conc, Now, IDCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                     Dim IVA As Decimal = 0 ' TxtImporte.Text.ToDouble * HdnProvPorIVA.Value.ToDouble
-                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
+                                    If ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, TxtImporte.Text.ToDecimal - IVA - CIF, Ref, CveConceptoCompra, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=If(UsaComplementariaBancos, TxtImporte.Text.ToDecimal, tImporteMonedaExtranjera), ImporteME:=TxtImporte.Text.ToDecimal, CveIEDevolucion:=DdlIEAcreedor.SelectedValue.ToEntero) Then
-                                        If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
+                                        If IVA > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Ref, 19, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                             MsgError = "Detalle"
                                         End If
                                         'intereses pagados
-                                        If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveCuenta:=CveCuentaBeneficiario, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
+                                        If CIF > 0 AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, CIF, Ref, 46, Conc, Now, IDCtaBeneficiario, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveOC:=CveOrdenCompra, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=CIF, ImporteME:=tImporteMonedaExtranjera, CveIEDevolucion:=DDlCheques.SelectedValue.ToEntero) Then
                                             MsgError = "Detalle"
                                         End If
                                     Else
@@ -3666,15 +3629,15 @@ Partial Class Bancos_IE
                                 End If
 
                                 'BANCOS COMPLEMENTARIA
-                                If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
+                                If DdlMoneda.SelectedValue.ToEntero > 1 Then
                                     Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
                                     Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
 
                                     If CveConceptoCompra = 10 Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
@@ -5463,11 +5426,13 @@ Partial Class Bancos_IE
 
             If Borrar = True Then
                 Dim ErrorCompra = False
+                Dim MsgEliminar As String = ""
 
                 'VERIFICA SI EL IES ESTA VINCULADO A UNA SOLICITUD VIATICO
                 If Banc.GetSolicitudesViaticos(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) AndAlso Banc.DtResultados.Rows.Count > 0 Then
                     If Not Banc.UpdateSolicitudesViaticosIE(Banc.DtResultados.FiltroPrimeroValor("CveSolicitudViatico").ToEntero(), -1) Then
                         ErrorCompra = True
+                        MsgEliminar = "Documento con solicitud de viáticos solicitado"
                     End If
                 End If
 
@@ -5476,12 +5441,14 @@ Partial Class Bancos_IE
                     ObjAC.IniciaTransacSQL()
                     If Not ObjAC.RemovePoliza(IDPoliza) Then
                         ErrorCompra = True
+                        MsgEliminar = "- No se pudo eliminar la póliza"
                     End If
                 End If
 
                 If Not ErrorCompra Then
                     If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
                         ErrorCompra = True
+                        MsgEliminar += "- No se pudo desbloquear la prepóliza"
                     End If
                 End If
 
@@ -5489,6 +5456,7 @@ Partial Class Bancos_IE
                 If Not ErrorCompra Then
                     If Not Banc.EliminarBancos_IE(UsuarioActual.CveUsuario, CveIE) Then
                         ErrorCompra = True
+                        MsgEliminar = "- No se pudo eliminar el movimiento bancario"
                     End If
                 End If
 

Bancos/PopIECompras.aspx.vb

@@ -96,24 +96,8 @@ Partial Class Bancos_PopIECompras
         Get
             Return ViewState("CtaProveedorAcreedores").ToString.ToEntero
         End Get
-    End Property
+    End Property
-    Private ReadOnly Property CveCuentaProveedorAcreedores As Integer
+
-        Get
-            Return ViewState("CveCuentaProveedorAcreedores").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaProveedor As Integer
-        Get
-            Return ViewState("CveCuentaProveedor").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaProveedorDeudores As Integer
-        Get
-            Return ViewState("CveCuentaProveedorDeudores").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property IdCuentaBancaria As Integer
         Get
             Return ViewState("IdCuentaBancaria").ToString.ToEntero
@@ -184,33 +168,8 @@ Partial Class Bancos_PopIECompras
         Set(value As Integer)
             ViewState("CveCuentaBancaria") = value
         End Set
-    End Property
+    End Property
-
+
-    Private ReadOnly Property CveCuentaMonedaExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaMonedaExtranjera").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaComplementaria").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetIVA As Integer
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaAnticipo As Integer
-        Get
-            Return ViewState("CveCuentaAnticipo").ToString.ToEntero
-        End Get
-    End Property
     Private Property CveMoneda As Integer
         Get
             Return ViewState("CveMoneda").ToString.ToEntero
@@ -393,28 +352,7 @@ Partial Class Bancos_PopIECompras
         Set(value As Integer)
             ViewState("CveCuentaCliente") = value
         End Set
-    End Property
-    Private ReadOnly Property CveCuentaRetIVACliente As Integer
-        Get
-            Return ViewState("CveCuentaRetIVACliente").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetISRCliente As Integer
-        Get
-            Return ViewState("CveCuentaRetISRCliente").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaComplementariaCliente As Integer
-        Get
-            Return ViewState("CveCuentaComplementariaCliente").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaMonedaExtranjeraCliente As Integer
-        Get
-            Return ViewState("CveCuentaMonedaExtranjeraCliente").ToString.ToEntero
-        End Get
     End Property
-
     Private Property OriReferenciaCIE As String
         Get
             If ViewState("OriReferenciaCIE") Is Nothing Then
@@ -505,15 +443,8 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContRetISR") = 0
                 ViewState("IdCuentaBancaria") = 0
                 ViewState("IdCuentaBancariaComplementaria") = 0
-                ViewState("IdCtaAnticipo") = 0
+                ViewState("IdCtaAnticipo") = 0
-
+
-                ViewState("CveCuentaMonedaExtranjera") = 0
-                ViewState("CveCuentaComplementaria") = 0
-                ViewState("CveCuentaRetIVA") = 0
-                ViewState("CveCuentaRetISR") = 0
-                ViewState("CveCuentaBancaria") = 0
-                ViewState("CveCuentaAnticipo") = 0
-
                 ViewState("CtaProveedorDeudores") = 0
                 ViewState("CtaProveedorAcreedores") = 0
                 ViewState("CveCuentaProveedorDeudores") = 0
@@ -762,9 +693,9 @@ Partial Class Bancos_PopIECompras
         If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFC, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
             If ObjProveedor.DtResultados.Rows.Count > 0 Then
                 TxtPagueseA.Text = ObjProveedor.RazonSocial
-                RFCProveedor = ObjProveedor.RFC
+                RFCProveedor = ObjProveedor.RFC
-
+
-                'Conta SIG
+                'Conta ContPAQ
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
                 ViewState("CtaProveedorDeudores") = ObjProveedor.IdCtaContDeudor
                 ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
@@ -773,19 +704,7 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContRetIVA") = ObjProveedor.IdCtaContRetIVA
                 ViewState("IdCtaContRetIVAAcreditable") = ObjProveedor.IdCtaContRetIVAAcreditable
                 ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
-                ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
+                ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
-
-                'Conta ContPAQ
-                ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
-                ViewState("CveCuentaProveedorDeudores") = ObjProveedor.CveCuentaDeudor
-                ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
-                ViewState("CveCuentaRetISR") = ObjProveedor.CveCuentaRetISR
-                ViewState("CveCuentaRetIVA") = ObjProveedor.CveCuentaRetIVA
-                ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
-                ViewState("CveCuentaComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
-                ViewState("NotificarA") = ObjProveedor.NotificarA.Trim()
-
-
 
             Else
                 Alert("El Proveedor solicitado no existe, por favor intente de nuevo.", TipoMensaje.MsgAdvertencia)
@@ -933,13 +852,8 @@ Partial Class Bancos_PopIECompras
                 ViewState("IdCtaContRetIVACliente") = ObjCliente.IdCtaContRetIVA
                 ViewState("IdCtaContRetISRCliente") = ObjCliente.IdCtaContRetISR
                 ViewState("IdCtaContComplementariaCliente") = ObjCliente.IdCtaContComplementaria
-                ViewState("IdCtaContMonedaExtranjeraCliente") = ObjCliente.IdCtaContMonedaExtranjera
+                ViewState("IdCtaContMonedaExtranjeraCliente") = ObjCliente.IdCtaContMonedaExtranjera
-
+
-                ViewState("CveCuentaCliente") = ObjCliente.CveCuentaClientes
-                ViewState("CveCuentaRetIVACliente") = ObjCliente.CveCuentaRetIVA
-                ViewState("CveCuentaRetISRCliente") = ObjCliente.CveCuentaRetISR
-                ViewState("CveCuentaComplementariaCliente") = ObjCliente.CveCuentaComplementaria
-                ViewState("CveCuentaMonedaExtranjeraCliente") = ObjCliente.CveCuentaMonedaExtranjera
             End If
         End If
 
@@ -1674,28 +1588,24 @@ Partial Class Bancos_PopIECompras
                                                                 ImporteMX = ImporteMovimiento
                                                             End If
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         Else
                                                             IdCtaContable = CtaProveedor
-                                                            CveCuenta = CveCuentaProveedor
                                                         End If
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioCompra) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioCompra) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
 
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
-                                                            CveCuenta = CveCuentaComplementaria
                                                             If ImporteMovimiento <> 0 Then
                                                                 Dim ImporteMN As Decimal = (ImporteMovimiento * tipoCambioCompra - ImporteMovimiento).RoundSQL
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMN, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMN, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
                                                             ImporteMX = ImporteMovimiento
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         End If
                                                     End If
                                                 Next
@@ -1726,27 +1636,23 @@ Partial Class Bancos_PopIECompras
                                                                 ImporteMX = ImporteMovimiento
                                                             End If
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         Else
                                                             IdCtaContable = CtaProveedor
-                                                            CveCuenta = CveCuentaProveedor
                                                         End If
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioCompra) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioCompra) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
 
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
-                                                            CveCuenta = CveCuentaComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
                                                             ImporteMX = ImporteMovimiento
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         End If
                                                     End If
                                                 Next
@@ -1776,27 +1682,23 @@ Partial Class Bancos_PopIECompras
                                                                 ImporteMX = ImporteMovimiento
                                                             End If
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         Else
                                                             IdCtaContable = CtaProveedor
-                                                            CveCuenta = CveCuentaProveedor
                                                         End If
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioCompra) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioCompra) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
 
                                                         If CveMonedaCompra <> 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                             IdCtaContable = IdCtaContComplementaria
-                                                            CveCuenta = CveCuentaComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
                                                             ImporteMX = ImporteMovimiento
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         End If
                                                     End If
                                                 Next
@@ -1825,27 +1727,23 @@ Partial Class Bancos_PopIECompras
                                                                 ImporteMX = ImporteMovimiento
                                                             End If
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         Else
                                                             IdCtaContable = CtaProveedor
-                                                            CveCuenta = CveCuentaProveedor
                                                         End If
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, 275, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, rw.DataKey("CveVenta").ToEntero, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioCompra) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, 275, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, rw.DataKey("CveVenta").ToEntero, CveCompra, -1, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioCompra) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
 
                                                         If CveMonedaCompra = 2 Then
                                                             IdCtaContable = IdCtaContComplementaria
-                                                            CveCuenta = CveCuentaComplementaria
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, rw.DataKey("CveVenta").ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, rw.DataKey("CveVenta").ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
                                                             ImporteMX = ImporteMovimiento
                                                             IdCtaContable = IdCtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaMonedaExtranjera
                                                         End If
                                                     End If
                                                 Next
@@ -1872,17 +1770,14 @@ Partial Class Bancos_PopIECompras
 
                                             If CveMonedaCompra = 1 Then
                                                 IdCtaContable = CtaProveedor
-                                                CveCuenta = CveCuentaProveedor
                                             Else
                                                 IdCtaContable = IdCtaContComplementaria
-                                                CveCuenta = CveCuentaComplementaria
                                                 If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra, CveCuenta:=CveCuenta) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, CveConceptoContableComplementaria, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioCompra - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompra) Then
                                                         MsgError = "No se pudo insertar la póliza"
                                                     End If
                                                     ImporteMX = ImporteMovimiento
                                                     IdCtaContable = IdCtaProveedorExtranjera
-                                                    CveCuenta = CveCuentaMonedaExtranjera
                                                 End If
                                             End If
                                         Case 15  'Ret IVA X Acreditar Honorarios/Serv. Prof.
@@ -1916,18 +1811,8 @@ Partial Class Bancos_PopIECompras
                                                             IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                         End If
                                                     End If
-                                                End If
+                                                End If
-
+
-                                                'Conta SIG
-                                                If CveCuentaRetIVA <> 0 Then
-                                                    CveCuenta = CveCuentaRetIVA
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
                                             End If
                                         Case 22 'Ret IVA Acreditable Honorarios/Serv. Prof.
                                             If MovimientoPagar.ConceptoRetIVA = 1 Then
@@ -1995,18 +1880,8 @@ Partial Class Bancos_PopIECompras
                                                             IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                         End If
                                                     End If
-                                                End If
+                                                End If
-
+
-                                                'Conta SIG
-                                                If CveCuentaRetIVA <> 0 Then
-                                                    CveCuenta = CveCuentaRetIVA
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
                                             End If
                                         Case 184 'Ret IVA Acreditable Fletes P.F.
                                             If MovimientoPagar.ConceptoRetIVA = 2 Then
@@ -2073,18 +1948,7 @@ Partial Class Bancos_PopIECompras
                                                             IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                         End If
                                                     End If
-                                                End If
+                                                End If
-
-                                                'Conta SIG
-                                                If CveCuentaRetIVA <> 0 Then
-                                                    CveCuenta = CveCuentaRetIVA
-                                                Else
-                                                    If ImporteMovimiento <> 0 AndAlso ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                        If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                            CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                        End If
-                                                    End If
-                                                End If
                                             End If
                                         Case 186 'Ret IVA Acreditable Fletes P.M.
                                             If MovimientoPagar.ConceptoRetIVA = 3 Then
@@ -2510,7 +2374,6 @@ Partial Class Bancos_PopIECompras
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
                                                 End If
                                             End If
 
@@ -2657,7 +2520,7 @@ Partial Class Bancos_PopIECompras
                                             End If
 
                                             If MovimientoPagar.IVANoDeducible > 0 Then
-                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                     MsgError = "No se pudo insertar la póliza"
                                                 Else
                                                     ImporteMovimiento = 0
@@ -2885,7 +2748,7 @@ Partial Class Bancos_PopIECompras
                                             End If
 
                                             If MovimientoPagar.IVANoDeducible > 0 Then
-                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), 280, ConceptoMovimiento, Fecha, IdCtaContableNoIVA, -1, CveIE, -1, CveCompra, -1, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMXNoDeducible, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                     MsgError = "No se pudo insertar la póliza"
 
                                                 End If
@@ -2987,7 +2850,6 @@ Partial Class Bancos_PopIECompras
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
                                                 End If
                                             End If
                                         Case 26 'IEPS Acreditable
@@ -3011,7 +2873,6 @@ Partial Class Bancos_PopIECompras
                                             If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                 If ObjMov.DtResultados.Rows.Count > 0 Then
                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
-                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
                                                 End If
                                             End If
                                         Case 64 'Ganancia
@@ -3091,20 +2952,17 @@ Partial Class Bancos_PopIECompras
                                                         ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
                                                         If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then
                                                             IdCtaContable = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
-                                                            CveCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero
                                                         Else
                                                             IdCtaContable = CtaProveedor
-                                                            CveCuenta = CveCuentaProveedor
                                                         End If
                                                         ObjCreditos.Dispose()
                                                     Else
                                                         IdCtaContable = IdCuentaBancaria
-                                                        CveCuenta = CveCuentaCliente
                                                     End If
                                                 Else
                                                     IdCtaContable = IdCuentaBancariaComplementaria
                                                     If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago, CveCuenta:=CveCuenta) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 204, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, -1, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                         ImporteMX = ImporteMovimiento
@@ -3136,7 +2994,7 @@ Partial Class Bancos_PopIECompras
 
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveCliente:=rw.DataKey("CveProveedor").ToString.ToEntero, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, -1, CveCliente:=rw.DataKey("CveProveedor").ToString.ToEntero, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                     End If
@@ -3166,8 +3024,7 @@ Partial Class Bancos_PopIECompras
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
 
                                                         IdCtaContable = CtaProveedorAcreedores
-                                                        CveCuenta = CveCuentaProveedorAcreedores
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                     End If
@@ -3219,8 +3076,7 @@ Partial Class Bancos_PopIECompras
 
                                                         CveIE = rw.DataKey("CveIE").ToString.ToEntero
                                                         IdCtaContable = CtaProveedorDeudores
-                                                        CveCuenta = CveCuentaProveedorDeudores
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveProveedor:=CveProveedor2, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                     End If
@@ -3249,22 +3105,19 @@ Partial Class Bancos_PopIECompras
 
                                                         If rw.DataKey("CveMoneda").ToEntero = 1 Then
                                                             IdCtaContable = IdCuentaCliente
-                                                            CveCuenta = CveCuentaCliente
                                                         Else
                                                             ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
                                                             IdCtaContable = IdCtaContComplementariaCliente
-                                                            CveCuenta = CveCuentaComplementariaCliente
                                                             If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                                 ImporteMX = ImporteMovimiento
-                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, rw.DataKey("CveVenta").ToString.ToEntero, CveCompra, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioPago - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago) Then
+                                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 207, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, rw.DataKey("CveVenta").ToString.ToEntero, CveCompra, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioPago - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then
                                                                     MsgError = "No se pudo insertar la póliza"
                                                                 End If
                                                             End If
                                                             IdCtaContable = IdCtaContMonedaExtranjeraCliente
-                                                            CveCuenta = CveCuentaMonedaExtranjeraCliente
                                                         End If
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioPago) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=tipoCambioPago) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                         End If
                                                     End If
@@ -3302,21 +3155,9 @@ Partial Class Bancos_PopIECompras
                                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
-                                                        End If
+                                                        End If
-
-                                                        'Conta SIG
-                                                        If CveCuentaRetIVACliente <> 0 Then
-                                                            CveCuenta = CveCuentaRetIVACliente
-                                                        Else
-                                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3355,21 +3196,10 @@ Partial Class Bancos_PopIECompras
                                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
-                                                        End If
+                                                        End If
-
+
-                                                        'Conta SIG
-                                                        If CveCuentaRetISR <> 0 Then
-                                                            CveCuenta = CveCuentaRetISR
-                                                        Else
-                                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3409,10 +3239,9 @@ Partial Class Bancos_PopIECompras
                                                         End If
 
                                                         IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaIVAxTrasladar
 
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3453,10 +3282,9 @@ Partial Class Bancos_PopIECompras
                                                         End If
 
                                                         IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaIVATrasladado
 
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal), PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal), PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3487,10 +3315,9 @@ Partial Class Bancos_PopIECompras
                                                         ImporteMX = Math.Round(ImporteMX, 2)
 
                                                         IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
 
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3521,10 +3348,9 @@ Partial Class Bancos_PopIECompras
                                                         ImporteMX = Math.Round(ImporteMX, 2)
 
                                                         IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
-                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado
 
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3563,21 +3389,11 @@ Partial Class Bancos_PopIECompras
                                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
-                                                        End If
+                                                        End If
-
+
-                                                        'Conta SIG
+
-                                                        If CveCuentaRetIVA <> 0 Then
-                                                            CveCuenta = CveCuentaRetIVA
-                                                        Else
-                                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3616,21 +3432,10 @@ Partial Class Bancos_PopIECompras
                                                                     IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
                                                                 End If
                                                             End If
-                                                        End If
+                                                        End If
-
+
-                                                        'Conta SIG
-                                                        If CveCuentaRetISR <> 0 Then
-                                                            CveCuenta = CveCuentaRetISR
-                                                        Else
-                                                            If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                                    CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-
                                                         If ImporteMovimiento > 0 Then
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, TxtObservaciones.Text, ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, -1, CveCompra:=CveCompra, CveVenta:=rw.DataKey("CveVenta").ToString.ToEntero, CveCliente:=rw.DataKey("CveCliente").ToString.ToEntero, CvePersonal:=CvePersonal, ImporteMX:=ImporteMX, TipoCambio:=rw.DataKey("TipoCambio").ToString.ToDecimal) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -3659,7 +3464,7 @@ Partial Class Bancos_PopIECompras
 
 
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, CveCuenta:=CveCuenta, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, If(ConceptoContable = 30, TxtFolio.Text.Trim, TxtObservaciones.Text), ConceptoContable, ConceptoMovimiento, Fecha, IdCtaContable, -1, CveIE, -1, CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedor2, ImporteMX:=ImporteMX, TipoCambio:=TimpocambioGeneral, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
 

Bancos/PopIEVentas.aspx.vb

@@ -942,7 +942,7 @@ Partial Class Bancos_PopIEVentas
 
         If CveProveedor > 0 Then
             If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", RFCCliente, "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-                'Conta SIG
+                'Conta ContPAQ
                 ViewState("CtaProveedor") = ObjProveedor.IdCtaContProveedores
                 ViewState("CtaProveedorDeudores") = ObjProveedor.IdCtaContDeudor
                 ViewState("CtaProveedorAcreedores") = ObjProveedor.IdCtaContAcreedor
@@ -951,16 +951,8 @@ Partial Class Bancos_PopIEVentas
                 ViewState("IdCtaContRetIVAProveedor") = ObjProveedor.IdCtaContRetIVA
                 ViewState("IdCtaContRetIVAAcreditableProveedor") = ObjProveedor.IdCtaContRetIVAAcreditable
                 ViewState("IdCtaProveedorExtranjera") = ObjProveedor.IdCtaContProveedoresExtranjera
-                ViewState("IdCtaContComplementariaProveedor") = ObjProveedor.IdCtaContProveedoresComplementaria
+                ViewState("IdCtaContComplementariaProveedor") = ObjProveedor.IdCtaContProveedoresComplementaria
-
+
-                'Conta ContPAQ
-                ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
-                ViewState("CveCuentaProveedorDeudores") = ObjProveedor.CveCuentaDeudor
-                ViewState("CveCuentaProveedorAcreedores") = ObjProveedor.CveCuentaAcreedor
-                ViewState("CveCuentaRetISRProveedor") = ObjProveedor.CveCuentaRetISR
-                ViewState("CveCuentaRetIVAProveedor") = ObjProveedor.CveCuentaRetIVA
-                ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
-                ViewState("CveCuentaComplementariaProveedor") = ObjProveedor.CveCuentaProveedoresComplementaria
             End If
         End If
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -150,18 +150,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Get
     End Property
 
-    Private ReadOnly Property CveCuentaProveedor As Integer
-        Get
-            Return ViewState("CveCuentaProveedor").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaProveedorExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaProveedorExtranjera").ToString.ToEntero
-        End Get
-    End Property
-
     Private Property IdCuenta As Integer
         Get
             Return ViewState("IdCuenta").ToString.ToEntero
@@ -171,15 +159,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
-    Private Property CveCuentaB As Integer
-        Get
-            Return ViewState("CveCuentaB").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaB") = value
-        End Set
-    End Property
-
     Private Property CveProveedorSucursal As Integer
         Get
             Return ViewState("CveProveedorSucursal").ToString.ToEntero
@@ -198,15 +177,6 @@ Partial Class Bancos_ProveedoresAbonar
         End Set
     End Property
 
-    Private Property CveCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancariaComplementaria") = value
-        End Set
-    End Property
-
     Private Property PermiteModificarImporte As Boolean
         Get
             Return CType(ViewState("PermiteModificarImporte").ToString, Boolean)
@@ -252,28 +222,7 @@ Partial Class Bancos_ProveedoresAbonar
             Return ViewState("IdCtaContRetISRAcreditable").ToString.ToEntero
         End Get
     End Property
-    Private ReadOnly Property CveCuentaMonedaExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaMonedaExtranjera").ToString.ToEntero
-        End Get
-    End Property
 
-    Private ReadOnly Property CveCuentaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaComplementaria").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaRetIVA As Integer
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
     Private Property EmpresaPrueba As Boolean
         Get
             Return CBool(ViewState("EmpresaPrueba"))
@@ -352,15 +301,10 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("IdCtaContComplementaria") = 0
                 ViewState("IdCtaContRetIVA") = 0
                 ViewState("IdCtaContRetISR") = 0
-                ViewState("CveCuentaMonedaExtranjera") = 0
-                ViewState("CveCuentaComplementaria") = 0
-                ViewState("CveCuentaRetIVA") = 0
-                ViewState("CveCuentaRetISR") = 0
             End If
 
 
             IdCuenta = 0
-            CveCuentaB = 0
             PermiteModificarImporte = True
             TxtFechaIncobrable.Text = Now.ToShortDateString
 
@@ -528,9 +472,6 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("IdCtaContRetISR") = ObjProveedor.IdCtaContRetISR
                 ViewState("IdCtaContRetISRAcreditable") = ObjProveedor.IdCtaContRetISRAcreditable
 
-                ViewState("CveCuentaRetIVA") = ObjProveedor.CveCuentaRetIVA
-                ViewState("CveCuentaRetISR") = ObjProveedor.CveCuentaRetISR
-
                 'Sección de pago a proveedor
                 LtlNombreProveedor.Text = ObjProveedor.RazonSocial
                 LtlRFCProveedor.Text = ObjProveedor.RFC
@@ -542,10 +483,6 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("IdCtaContComplementaria") = ObjProveedor.IdCtaContProveedoresComplementaria
                 ViewState("IdCtaAcreedorComplementaria") = ObjProveedor.IdCtaContAcreedorComplementaria
 
-                ViewState("CveCuentaProveedor") = ObjProveedor.CveCuentaProveedores
-                ViewState("CveCuentaProveedorExtranjera") = ObjProveedor.CveCuentaProveedoresExtranjera
-                ViewState("CveCuentaComplementaria") = ObjProveedor.CveCuentaProveedoresComplementaria
-
                 If Serie <> "" AndAlso Serie <> "-1" Then
                     Dim dr As DataRow = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("Serie = '{0}'", Serie))
                     If dr IsNot Nothing Then
@@ -966,7 +903,6 @@ Partial Class Bancos_ProveedoresAbonar
                             Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
                             Dim idCuentaContabilizacion As Long = 1
                             Dim CuentasContablesInvalidas As New StringBuilder
-                            Dim CveCuentaContabilizacion As Long = 1
                             Dim CuentasContablesInvalidasSIG As New StringBuilder
                             Dim ConceptoContable As Integer
                             Dim TipoMovimiento As Boolean
@@ -1097,7 +1033,7 @@ Partial Class Bancos_ProveedoresAbonar
                                                         IdCtaContable = IdCtaContComplementaria
                                                         If ImporteMovimiento <> 0 AndAlso (UsaComplementariaProveedores Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos 
                                                             importeMX = ImporteMovimiento
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion, CveCuenta:=CveCuentaComplementaria) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion) Then
                                                                 MsgError = "No se pudo insertar la póliza"
                                                             End If
                                                         End If
@@ -1750,11 +1686,9 @@ Partial Class Bancos_ProveedoresAbonar
 
                                                         Dim ImporteNOIVA As Decimal = gvr.DataKey("IVAPorPagarNoDeducible").ToDecimal * PorcentajePago
 
-                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, PorcentajeImpuesto:=PorcentajeImpuesto) Then
+                                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, FechaMovimiento, IdCtaContableNoIVA, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=ImporteNOIVA, ImporteME:=If(TipoCambioPago = 1, 0, ImporteMovimiento), TipoCambio:=TipoCambioGeneral, CveSubProyecto:=CveSubProyecto, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                                             MsgError = "No se pudo insertar la póliza"
                                                             Exit For
-
-
                                                         End If
                                                     End If
 
@@ -1961,11 +1895,6 @@ Partial Class Bancos_ProveedoresAbonar
                                                         idCuentaContabilizacion = 0
                                                     End If
 
-                                                    'Conta SIG
-                                                    If CveCuentaB < 1 Then
-                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                        CveCuentaContabilizacion = 0
-                                                    End If
                                                     ImporteMovimiento = 0
                                                 Case Else
                                                     ImporteMovimiento = 0
@@ -2013,17 +1942,17 @@ Partial Class Bancos_ProveedoresAbonar
 
                             If (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then
                                 If TipoCambioPago > 1 AndAlso CveMoneda = 2 Then
-                                    If UsaComplementariaBancos Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then
+                                    If UsaComplementariaBancos Or (IdCuentaBancariaComplementaria > 0) Then
                                         If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                             TipoCambioPago = TxtTCDolares.Text.ToDecimal
                                         ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then
                                             TipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                         End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=If(TipoCambioPago = 1, 0, TxtImporte.Text.ToDecimal), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=TxtImporte.Text.ToDecimal, ImporteME:=If(TipoCambioPago = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), Referencia, 204, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round((TxtImporte.Text.Trim.ToDecimal * TipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveCuenta:=CveCuentaBancariaComplementaria, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), Referencia, 204, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuentaBancariaComplementaria, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round((TxtImporte.Text.Trim.ToDecimal * TipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 1, 0, TxtImporte.Text.ToDecimal), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
                                     Else
@@ -2033,7 +1962,7 @@ Partial Class Bancos_ProveedoresAbonar
                                             TipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                         End If
 
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                         End If
 
@@ -2045,7 +1974,7 @@ Partial Class Bancos_ProveedoresAbonar
                                         TipoCambioPago = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToString.ToDecimal
                                     End If
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), CveCuenta:=CveCuentaB, TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, TxtImporte.Text.ToDecimal, Referencia, 30, ConceptoMovimiento, TxtFechaDocumento.Text.ToDate, IdCuenta, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=If(CveMoneda = 2, Math.Round(TxtImporte.Text.Trim.ToDecimal * TipoCambioPago, 2, MidpointRounding.AwayFromZero), TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(DivTC.Visible, If(TxtTC.Text.ToDecimal > 0, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, 0), 0), TipoCambio:=TipoCambioPago, CveSubProyecto:=CveSubProyecto) Then
                                         MsgError = "No se pudo insertar la póliza"
                                     End If
 
@@ -2509,9 +2438,7 @@ Partial Class Bancos_ProveedoresAbonar
             End If
 
             IdCuenta = dr("IdCtaContable").ToString.ToEntero
-            CveCuentaB = dr("IdCtaContableSIG").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
         End If
 
         ' si no tiene CveMoneda, o es -1, cuando cambia de cuenta filtra las facturas
@@ -3108,7 +3035,6 @@ Partial Class Bancos_ProveedoresAbonar
         For Each gr As GridViewRow In GvCxP.Rows
             If gr.FCCheckBox("Chk").Checked Then
                 Dim IdCtaContable As Integer = CtaProveedor
-                Dim CveCuenta As Integer = CveCuentaProveedor
                 Dim Saldo As Decimal = gr.DataKey("Saldo").ToDecimal
                 Dim TCCompra As Decimal = gr.DataKey("TipoCambio").ToDecimal
                 Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaIncobrable.Text.ToDate).ToDecimal
@@ -3138,30 +3064,23 @@ Partial Class Bancos_ProveedoresAbonar
 
                 If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then
                     IdCtaContable = IdCtaContComplementaria
-                    CveCuenta = CveCuentaProveedorExtranjera
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra) Then
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, CveCuenta:=CveCuentaComplementaria) Then
                         MsgError = "No se pudo insertar la póliza"
                     End If
                     IdCtaContable = IdCtaProveedorExtranjera
-                    CveCuenta = CveCuentaProveedorExtranjera
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Saldo, ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 Else
                     If CveMoneda > 1 Then
                         IdCtaContable = IdCtaProveedorExtranjera
-                        CveCuenta = CveCuentaProveedorExtranjera
                     End If
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra, CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Saldo, gr.DataKey("SerieFolio").ToString, CveConceptoContablePago, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCCompra), ImporteME:=If(CveMoneda > 1, Saldo, 0), TipoCambio:=TCCompra) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
                 End If
 
-
-
-
-
                 Dim PorcentajePago As Decimal = gr.DataKey("Saldo").ToDecimal / gr.DataKey("Original").ToDecimal
 
                 If MsgError = "" AndAlso gr.DataKey("IVA").ToDecimal > 0 Then
@@ -3190,11 +3109,10 @@ Partial Class Bancos_ProveedoresAbonar
                     If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
                         If ObjConta.DtResultados.Rows.Count > 0 Then
                             IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
                         End If
                     End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra)), CveCuenta:=CveCuenta) Then
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, IEPS, gr.DataKey("SerieFolio").ToString, 25, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, IEPS, IEPS * If(FuncionalidadFluctuacionImpuestos, TCPago, TCCompra))) Then
                         MsgError = "Ocurrio un error al saldar el movimiento"
                     End If
 
@@ -3203,7 +3121,7 @@ Partial Class Bancos_ProveedoresAbonar
                 End If
 
                 ' se manda al ot ingresos, los impuestos por acreditar
-                If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, 78, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveCuenta:=-1, CveSubProyecto:=CveSubProyecto) Then
+                If MsgError = "" AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Saldo, gr.DataKey("SerieFolio").ToString, 78, ConceptoPartida, Now, IdCtaContable:=UsuarioActual.Empresa.IdCuentaOtrosIngresos, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=If(CveMoneda = 1, Saldo, Saldo * TCPago), TipoCambio:=TCCompra, TipoCambioPago:=TCPago, CveSubProyecto:=CveSubProyecto) Then
                     MsgError = "Ocurrio un error al saldar el movimiento"
                 End If
 
@@ -3330,7 +3248,7 @@ Partial Class Bancos_ProveedoresAbonar
 
     Private Sub RVTxtFechaDocumento_Init(sender As Object, e As EventArgs) Handles RVTxtFechaDocumento.Init
         RVTxtFechaDocumento.MaximumValue = DateTime.Now.ToShortDateString
-        RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-4).ToShortDateString
+        RVTxtFechaDocumentoMenor.MinimumValue = DateTime.Now.AddMonths(-12).ToShortDateString
         RVTxtFechaDocumentoMenor.MaximumValue = DateTime.Now.ToShortDateString
         Calendario.EndDate = DateTime.Now
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -639,11 +639,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 'Conta SIG
                 Dim CveCuentaProveedor As Integer = 0
                 Dim CveCuentaPersonal As Integer = 0
-                Dim CveCuentaIVAxAcreditar As Integer = 0
-                Dim CveCuentaIVAAcreditable As Integer = 0
-                Dim CveCuentaRetIVA As Integer = 0
-                Dim CveCuentaRetISR As Integer = 0
-                Dim CveCuentaOtrosProductos As Integer = 0
                 Dim SeUnifico = False
 
                 'Obtenemos la cuenta del Personal o Caja Chica
@@ -667,7 +662,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 If ObjMov.GetRetCuenta(14, UsuarioActual.CveEmpresa) Then
                     If ObjMov.DtResultados.Rows.Count > 0 Then
                         IdCtaIVAxAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                        CveCuentaIVAxAcreditar = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
                     End If
                 End If
 
@@ -675,7 +669,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 If ObjMov.GetRetCuenta(19, UsuarioActual.CveEmpresa) Then
                     If ObjMov.DtResultados.Rows.Count > 0 Then
                         IdCtaIVAAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
-                        CveCuentaIVAAcreditable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
                     End If
                 End If
 
@@ -683,7 +676,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 If ObjMov.GetRetCuenta(15, UsuarioActual.CveEmpresa) Then
                     If ObjMov.DtResultados.Rows.Count > 0 Then
                         IdCtaRetIVA = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                        CveCuentaRetIVA = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
                     End If
                 End If
 
@@ -691,7 +683,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 If ObjMov.GetRetCuenta(16, UsuarioActual.CveEmpresa) Then
                     If ObjMov.DtResultados.Rows.Count > 0 Then
                         IdCtaRetISR = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                        CveCuentaRetISR = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
                     End If
                 End If
 
@@ -699,7 +690,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 If ObjMov.GetRetCuenta(132, UsuarioActual.CveEmpresa) Then
                     If ObjMov.DtResultados.Rows.Count > 0 Then
                         IdCtaOtrosProductos = ObjMov.DtResultados.Rows(0)("IdCtaOtrosProductos").ToString.ToEntero
-                        CveCuentaOtrosProductos = ObjMov.DtResultados.Rows(0)("IdCtaOtrosProductosSIG").ToString.ToEntero
                     End If
                 End If
 
@@ -707,7 +697,6 @@ Partial Class Compras_ReembolsosComprobaciones
                 For Each gvr As GridViewRow In GvCxP.Rows
 
 
-
                     If gvr.FCCheckBox("Chk").Checked Then
                         ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
                         Referencia = gvr.DataKey("SerieFolio").ToString
@@ -797,26 +786,26 @@ Partial Class Compras_ReembolsosComprobaciones
                                 If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                     If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVA").ToDecimal, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVA").ToDecimal, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
 
                                         'Agrego el IVA
                                         If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVADeducible").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("IVADeducible").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVADeducible").ToDecimal), ImporteMX:=(gvr.DataKey("IVADeducible").ToDecimal) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                 MsgError = "Detalle"
                                             End If
                                         End If
                                     End If
                                 Else
                                     'Agrego el IVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                     'Agrego el IVA
                                     If gvr.DataKey("IVADeducible").ToDecimal > 0 Then
                                         Dim ImporteIVA As Decimal = gvr.DataKey("IVADeducible").ToDecimal * PorcentajePago
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteIVA, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteIVA), ImporteMX:=(ImporteIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
@@ -826,7 +815,7 @@ Partial Class Compras_ReembolsosComprobaciones
 
                                     Dim ImporteNOIVA As Decimal = gvr.DataKey("IVANoDeducible").ToDecimal * PorcentajePago
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, ImporteNOIVA, Referencia, 280, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVANoAcreditable > 0, IdCtaContIVANoAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, ImporteNOIVA), ImporteMX:=(ImporteNOIVA) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -939,23 +928,23 @@ Partial Class Compras_ReembolsosComprobaciones
                                 If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                     If ImporteMovto = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
                                         'Agrego el RetIVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetIVA").ToDecimal, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetIVA").ToDecimal, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
                                             MsgError = "Detalle"
                                         End If
 
                                         'Agrego el RetIVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetIVA").ToDecimal, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetIVA").ToDecimal, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
                                 Else
                                     'Agrego el RetIVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
                                         MsgError = "Detalle"
                                     End If
 
                                     'Agrego el RetIVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal, CvePersonal:=CvePersonal) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -1047,7 +1036,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                     If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, False, SaldoExcedente, Referencia, CveConceptoContablePago, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaProveedor, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), ImporteMX:=(SaldoExcedente) * tipoCambio, CvePersonal:=CvePersonal, CveCuenta:=CveCuentaProveedor, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
                                         MsgError = "Detalle Reembolso Personal"
                                     End If
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, Referencia, 132, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaOtrosProductos, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), ImporteMX:=SaldoExcedente * tipoCambio, CvePersonal:=CvePersonal, CveCuenta:=CveCuentaOtrosProductos, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaPago, True, SaldoExcedente, Referencia, 132, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaOtrosProductos, -1, CveIE:=CveIEPago, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, SaldoExcedente), ImporteMX:=SaldoExcedente * tipoCambio, CvePersonal:=CvePersonal, CvePrePolizaOriginal:=CvePrePolizaPagoOriginal) Then
                                         MsgError = "Detalle Reembolso Personal"
                                     End If
 
@@ -1093,7 +1082,7 @@ Partial Class Compras_ReembolsosComprobaciones
                                 If CveCajaChica > 0 Then
                                     CveIEPago = 0
                                     Dim FolioIENew = ObjIE.GetNextFolio(CveCajaChica, 6).ToString
-                                    CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, Now, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
+                                    CveIEPago = ObjIE.AddBancos_IE(CveCajaChica, 6, TxtFechaPrePoliza.Text.ToDate, FolioIENew, gvr.DataKey("Proveedor"), ImporteMovto, CveMoneda, 0.0, $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}", "", False, True, -1, CvePrePolizaPago, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FueConciliado:=If(ChkReembolsarSinBancos.Checked Or CveCajaChica > 0, True, False))
                                 End If
                             End If
 
@@ -1127,23 +1116,23 @@ Partial Class Compras_ReembolsosComprobaciones
                                     If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
                                         If gvr.FCTextBox("TxtAbonar").Text.ToDecimal = gvr.FCLiteral("LtlSaldo").Text.ToDouble Then
                                             'Agrego el IVA
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                 MsgError = "Detalle"
                                             End If
 
                                             'Agrego el IVA
-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal), ImporteMX:=(gvr.DataKey("IVA").ToDecimal) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                                 MsgError = "Detalle"
                                             End If
                                         End If
                                     Else
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 14, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAXAcreditar > 0, IdCtaContIVAXAcreditar, IdCtaIVAxAcreditar), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
 
                                         'Agrego el IVA
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("IVA").ToDecimal * PorcentajePago, Referencia, 19, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, If(IdCtaContIVAAcreditable > 0, IdCtaContIVAAcreditable, IdCtaIVAAcreditable), -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("IVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("IVA").ToDecimal * PorcentajePago) * tipoCambio, CvePersonal:=CvePersonal, PorcentajeImpuesto:=PorcentajeIVA) Then
                                             MsgError = "Detalle"
                                         End If
                                     End If
@@ -1255,12 +1244,12 @@ Partial Class Compras_ReembolsosComprobaciones
                                     End Select
 
                                     'Agrego el RetIVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAxAcreditar, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, False, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAXAcreditar, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAXAcreditar, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
                                         MsgError = "Detalle"
                                     End If
 
                                     'Agrego el RetIVA
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CveCuenta:=CveCuentaIVAAcreditable, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePolizaExcedente, True, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago, Referencia, ConceptoContableRetIVAAcreditable, ConceptoMovimiento, gvr.FCLiteral("LtlFecha").Text.ToDate, IdCtaContableRetIVAAcreditable, -1, CveIE:=CveIEExcedente, CveCompra:=gvr.FCHyperLink("HplF2").Text.ToEntero, CveProveedor:=gvr.FCHyperLink("HLProv").Text.ToEntero, ImporteME:=If(tipoCambio = 1, 0, gvr.DataKey("RetIVA").ToDecimal * PorcentajePago), ImporteMX:=(gvr.DataKey("RetIVA").ToDecimal * PorcentajePago) * tipoCambio, CvePrePolizaOriginal:=CvePrePolizaExcedente, CvePersonal:=CvePersonal) Then
                                         MsgError = "Detalle"
                                     End If
                                 End If
@@ -1395,15 +1384,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         If CvePrePolizaIERegistrado > 0 Then
                             If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaPersonal > 0 Then
                                 If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then
-                                    If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaIVAxAcreditar > 0 Then
-                                        If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaIVAAcreditable > 0 Then
 
-                                        Else
-                                            MsgError = "No tiene cuenta contable SIG IVA Acreditable"
-                                        End If
-                                    Else
-                                        MsgError = "No tiene cuenta contable SIG IVA x Acreditar"
-                                    End If
                                 Else
                                     MsgError = "No tiene cuenta contable SIG de proveedor"
                                 End If
@@ -1415,23 +1396,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         If ChkChequeExcedente.Checked Then
                             If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaBancaria > 0 Then
                                 If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaProveedor > 0 Then
-                                    If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaIVAxAcreditar > 0 Then
-                                        If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaIVAAcreditable > 0 Then
-                                            If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaRetIVA > 0 Then
-                                                If UsuarioActual.Empresa.UsaContabilidadSIG AndAlso CveCuentaRetISR > 0 Then
 
-                                                Else
-                                                    MsgError = "No tiene cuenta contable SIG Ret ISR"
-                                                End If
-                                            Else
-                                                MsgError = "No tiene cuenta contable SIG Ret IVA"
-                                            End If
-                                        Else
-                                            MsgError = "No tiene cuenta contable SIG IVA Acreditable"
-                                        End If
-                                    Else
-                                        MsgError = "No tiene cuenta contable SIG IVA x Acreditar"
-                                    End If
                                 Else
                                     MsgError = "No tiene cuenta contable SIG de proveedor"
                                 End If

Compras/RepComprasAF.aspx

@@ -152,10 +152,11 @@
                             <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
-                        </div>
+                        </div> 
-                        <div class="col-md-1" style="display:none;">Producto Servicio:</div>
+
+                        <div class="col-md-1">Producto Servicio:</div>
                         <div class="col-md-2">
-                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
+                           <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
                         </div>
                     </div>
                 </div>

Compras/RepComprasAF.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Compras_RepComprasAF
     Private Sub Compras_RepComprasAFaspx_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
-            DdlPS.ddl.Visible = False
+            'DdlPS.ddl.Visible = False
             If UsuarioActual.Empresa.GralSoloProyecto Then
                 LblSubProyecto.Text = "Proyecto:"
                 DdlSubProyecto.Items.Clear()
@@ -429,5 +429,24 @@ Partial Class Compras_RepComprasAF
     End Sub
 
 #End Region
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero)
+    End Sub
+    Private Sub CargaPS(CveClasificacion As Integer)
 
+        DdlPS.setEsWebService(If(UsuarioActual.Empresa.Funcionalidad(105).ToString = "1", True, False))
+
+        If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        Else
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = "Todos"
+            DdlPS.SelectedValue = "-1"
+        End If
+
+    End Sub
 End Class

Compras/RepComprasAFDetalle.aspx.vb

@@ -448,4 +448,24 @@ Partial Class Compras_RepComprasAFDetalle
 
         Return filtro
     End Function
+    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
+        CargaPS(DdlClasificacion.SelectedValue.ToEntero)
+    End Sub
+    Private Sub CargaPS(CveClasificacion As Integer)
+
+        DdlPS.setEsWebService(If(UsuarioActual.Empresa.Funcionalidad(105).ToString = "1", True, False))
+
+        If Not UsuarioActual.Empresa.Funcionalidad(105).ToString = "1" Then
+            DdlPS.ddl.Items.Clear()
+            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=CveClasificacion, Estatus:=1)
+            DdlPS.ddl.DataBind()
+            DdlPS.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        Else
+            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
+            DdlPS.SelectedText = "Todos"
+            DdlPS.SelectedValue = "-1"
+        End If
+
+    End Sub
 End Class

Compras/RepComprasDetalle.aspx

@@ -355,6 +355,8 @@
                             <asp:Literal ID="LtlDescuentos" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:BoundField DataField="RetIVA" HeaderText="Ret IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField DataField="RetISR" HeaderText="Ret ISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                     <asp:TemplateField ItemStyle-Width="80">
                         <HeaderTemplate>
                             Total
@@ -498,6 +500,13 @@
                                         <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
                                     <td></td>
                                 </tr>
+                                 <tr>
+                                    <td>
+                                        <asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret IVA" Checked="true" /></td>
+                                    <td>
+                                        <asp:CheckBox ID="ChkRetISR" runat="server" Text="Ret ISR" Checked="true" /></td>
+                                    <td></td>
+                                </tr>
                             </table>
                         </div>
                         <div class="modal-footer">

Compras/RepComprasDetalle.aspx.vb

@@ -368,14 +368,13 @@ Partial Class Compras_RepComprasDetalle
                 e.Row.FCHyperLink("HplSerieFolio").Text = ""
             End If
 
-            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
+            e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Left
-            e.Row.Cells(8).HorizontalAlign = HorizontalAlign.Left
             e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Right
             e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
-            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
+            e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
-
+            e.Row.Cells(9).HorizontalAlign = HorizontalAlign.Right
+
         End If
     End Sub
 
@@ -604,13 +603,15 @@ Partial Class Compras_RepComprasDetalle
         GvDatos.Columns(4).Visible = ChkIVA.Checked
         GvDatos.Columns(5).Visible = ChkIEPS.Checked
         GvDatos.Columns(6).Visible = ChkDesc.Checked
-        GvDatos.Columns(7).Visible = ChkTotal.Checked
+        GvDatos.Columns(7).Visible = Chkretiva.Checked
-        GvDatos.Columns(8).Visible = ChkAbre.Checked
+        GvDatos.Columns(8).Visible = Chkretisr.Checked
-        GvDatos.Columns(9).Visible = ChkRazon.Checked
+        GvDatos.Columns(9).Visible = ChkTotal.Checked
-        GvDatos.Columns(10).Visible = ChkFolio.Checked
+        GvDatos.Columns(10).Visible = ChkAbre.Checked
-        GvDatos.Columns(11).Visible = ChkFecha.Checked
+        GvDatos.Columns(11).Visible = ChkRazon.Checked
-        GvDatos.Columns(12).Visible = ChkObs.Checked
+        GvDatos.Columns(12).Visible = ChkFolio.Checked
-        GvDatos.Columns(13).Visible = ChkDescripcion.Checked
+        GvDatos.Columns(13).Visible = ChkFecha.Checked
+        GvDatos.Columns(14).Visible = ChkObs.Checked
+        GvDatos.Columns(15).Visible = ChkDescripcion.Checked
         UPDatos.Update()
     End Sub
 

Compras/eFacturas.aspx.vb

@@ -996,6 +996,7 @@ Partial Class Compras_eFacturas
             End If
             If e.Row.DBCampo("CveCompra") <> "" Then
                 e.Row.FCLiteral("LtlFolio").Text = String.Format("<a class=""Texto"" style=""cursor:pointer;text-decoration: underline;"" href='/Compras/Compras.aspx?CveCompra={0}' target='_blank' rel='opener'  );"">{1}</a>", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio"))  '1\Compras\GAPC480413QL3\A-69.xml
+                e.Row.FCLinkButton("imgD").Visible = False
             End If
 
             If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1429,7 +1430,7 @@ Partial Class Compras_eFacturas
                 'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
                 filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
                 'AGREGA XML A LA LISTA
-                If FileExtension.ToUpper = "XML" Then
+                If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then
                     ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
                 End If
 

Contabilidad/PlantillasPolizasDetalle.aspx.vb

@@ -141,7 +141,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 2 Or UsuarioActual.Empresa.TipoContabilidad = 1 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim Conta As New ClsContabilidad
             Dim dtt As New DataTable
 
@@ -383,7 +383,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
 
         'cargar la cuenta
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 0 Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             'busco en la cuenta contable, lo que tenga asignado 
             Dim Con As New ClsContabilidad
             Dim dtt As DataTable = Nothing
@@ -483,7 +483,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
         DDLSubProyecto.SelectedIndex = 0
         DDLProveedor.SelectedIndex = 0
         DdlPersonal.SelectedIndex = 0
-        TxtOrden.Text = "" 
+        TxtOrden.Text = ""
         UpModal.Update()
         HdnModalidad.Value = "I"
         RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))

Contabilidad/PolizasImpresion.aspx.vb

@@ -41,7 +41,7 @@ Partial Class Contabilidad_PolizasImpresion
 
         Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
         If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-            If objcont.DtResultados.Rows.Count < 10000 Then
+            If objcont.DtResultados.Rows.Count < 15000 Then
 
                 If objcont.DtResultados.Rows.Count > 0 Then
                     Dim dr As DataRow

Contabilidad/PopUpAuxiliar.aspx.vb

@@ -247,17 +247,15 @@ Partial Class PopUpAuxiliar
 
         Dim TieneError = False
 
-        If Not TieneError Then
+        If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
-            If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
-                TieneError = True
-            End If
-        End If
-
-        If Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
             TieneError = True
         End If
 
-        If Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
+        If Not TieneError AndAlso Not Conta.RemovePrePolizas(ClavePrePoliza, UsuarioActual.CveEmpresa) Then
+            TieneError = True
+        End If
+
+        If Not TieneError AndAlso Conta.ValidacionPrePolizaCuadre(ClavePrePoliza, -1) Then
             If Conta.ValorPolizaDescuadre > 0 Then
                 TieneError = True
             End If

Contabilidad/RegPrePoliza.aspx.vb

@@ -289,23 +289,23 @@ Partial Class ContabilidadC_RegPrePoliza
 
             CargaCuentas()
 
-            If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero() > 0 Then
+            'If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero() > 0 Then
-                ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero()
+            '    ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero()
-                ViewState("CveProyecto") = Request("CveProyecto").ToEntero()
+            '    ViewState("CveProyecto") = Request("CveProyecto").ToEntero()
-                ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero()
+            '    ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero()
-                ViewState("CveTurno") = Request("CveTurno").ToEntero()
+            '    ViewState("CveTurno") = Request("CveTurno").ToEntero()
 
-                'DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
+            '    'DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
-                'DdlPlantilla.SelectedValue = "61"
+            '    'DdlPlantilla.SelectedValue = "61"
-                DdlPlantilla.Enabled = False
+            '    DdlPlantilla.Enabled = False
-                DivAgregarConceptos.Visible = False
+            '    DivAgregarConceptos.Visible = False
 
-                CargaNomina()
+            '    CargaNomina()
 
-                RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
+            '    RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
-                RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
+            '    RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
-                RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
+            '    RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
-            End If
+            'End If
 
             If IfNull(Request("Tipo"), "").ToString() <> "NOMPROV" Then
                 GvPrePoliza.Columns(3).Visible = False
@@ -360,81 +360,81 @@ Partial Class ContabilidadC_RegPrePoliza
         End With
     End Sub
 
-    Private Sub CargaNomina()
+    'Private Sub CargaNomina()
-        Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero()
+    '    Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero()
-        Dim ObjNomina As New ClsNominas
+    '    Dim ObjNomina As New ClsNominas
-        Dim ObjConta As New ClsContabilidad
+    '    Dim ObjConta As New ClsContabilidad
 
-        Dim Dt As DataTable = Nothing
+    '    Dim Dt As DataTable = Nothing
-        Dim Cuenta As String = ""
+    '    Dim Cuenta As String = ""
-        Dim Concepto As String = ""
+    '    Dim Concepto As String = ""
-        Dim IdCuenta As Integer = 0
+    '    Dim IdCuenta As Integer = 0
-        Dim TipoMovto As Integer
+    '    Dim TipoMovto As Integer
-        Dim CveConcepto As Integer
+    '    Dim CveConcepto As Integer
-        Dim CodigoCuenta As String = ""
+    '    Dim CodigoCuenta As String = ""
-        Dim NombreCuenta As String = ""
+    '    Dim NombreCuenta As String = ""
-        Dim Referencia As String = ""
+    '    Dim Referencia As String = ""
-        Dim EsComodin As Integer = 0
+    '    Dim EsComodin As Integer = 0
-        DtMovimientos.Clear()
+    '    DtMovimientos.Clear()
 
-        If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
+    '    If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
-            Dt = ObjNomina.DtResultados
+    '        Dt = ObjNomina.DtResultados
 
-            For Each drt As DataRow In Dt.Rows
+    '        For Each drt As DataRow In Dt.Rows
-                Dim dr As DataRow = DtMovimientos.NewRow
+    '            Dim dr As DataRow = DtMovimientos.NewRow
 
-                If drt("NombreCompleto").ToString() = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
+    '            If drt("NombreCompleto").ToString() = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
-                    CveConcepto = 98
+    '                CveConcepto = 98
-                    Cuenta = "Nominas por Pagar"
+    '                Cuenta = "Nominas por Pagar"
-                    IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString().ToEntero()
+    '                IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString().ToEntero()
-                    Concepto = "Pago Nomina"
+    '                Concepto = "Pago Nomina"
-                    Referencia = "Pago Nomina"
+    '                Referencia = "Pago Nomina"
-                Else
+    '            Else
-                    Concepto = drt("NombreCompleto")
+    '                Concepto = drt("NombreCompleto")
-                    Referencia = ""
+    '                Referencia = ""
-                    CveConcepto = drt("CveConceptoContable").ToString().ToEntero()
+    '                CveConcepto = drt("CveConceptoContable").ToString().ToEntero()
-                    Cuenta = drt("ConceptoContable").ToString()
+    '                Cuenta = drt("ConceptoContable").ToString()
-                    IdCuenta = drt("IdCtaContable").ToString().ToEntero()
+    '                IdCuenta = drt("IdCtaContable").ToString().ToEntero()
-                End If
+    '            End If
 
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
+    '            Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
-                CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
+    '            CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
-                NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
+    '            NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
 
-                TipoMovto = drt("TipoMovto")
+    '            TipoMovto = drt("TipoMovto")
 
-                If TipoMovto = 0 Then
+    '            If TipoMovto = 0 Then
-                    dr("Cargo") = Math.Abs(drt("Importe").ToString().ToDecimal())
+    '                dr("Cargo") = Math.Abs(drt("Importe").ToString().ToDecimal())
-                    dr("Abono") = 0
+    '                dr("Abono") = 0
-                Else
+    '            Else
-                    dr("Cargo") = 0
+    '                dr("Cargo") = 0
-                    dr("Abono") = Math.Abs(drt("Importe").ToString().ToDecimal())
+    '                dr("Abono") = Math.Abs(drt("Importe").ToString().ToDecimal())
-                End If
+    '            End If
 
-                dr("IdCuenta") = IdCuenta
+    '            dr("IdCuenta") = IdCuenta
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+    '            dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-                dr("Cuenta") = Cuenta
+    '            dr("Cuenta") = Cuenta
-                dr("Concepto") = Concepto
+    '            dr("Concepto") = Concepto
-                dr("Descripcion") = Concepto
+    '            dr("Descripcion") = Concepto
-                dr("Referencia") = Referencia
+    '            dr("Referencia") = Referencia
-                dr("TipoMovto") = TipoMovto
+    '            dr("TipoMovto") = TipoMovto
-                dr("EsComodin") = EsComodin
+    '            dr("EsComodin") = EsComodin
-                dr("CveConcepto") = CveConcepto
+    '            dr("CveConcepto") = CveConcepto
-                dr("CveProveedor") = "-1"
+    '            dr("CveProveedor") = "-1"
-                dr("CveSubProyecto") = drt("CveSubProyecto")
+    '            dr("CveSubProyecto") = drt("CveSubProyecto")
-                dr("CvePersonal") = drt("CvePersonal")
+    '            dr("CvePersonal") = drt("CvePersonal")
-                dr("CveClasificacion") = drt("CveClasificacion")
+    '            dr("CveClasificacion") = drt("CveClasificacion")
-                dr("CveTipoGasto") = drt("CveTipoGasto")
+    '            dr("CveTipoGasto") = drt("CveTipoGasto")
 
-                DtMovimientos.Rows.Add(dr)
+    '            DtMovimientos.Rows.Add(dr)
-            Next
+    '        Next
 
-            GvMov.DataSource = DtMovimientos
+    '        GvMov.DataSource = DtMovimientos
-            GvMov.DataBind()
+    '        GvMov.DataBind()
-            UPMovs.Update()
+    '        UPMovs.Update()
-        End If
+    '    End If
 
-    End Sub
+    'End Sub
 
     Private Sub CargaPrePoliza()
         BtnEliminar.Visible = True
@@ -1072,11 +1072,11 @@ Partial Class ContabilidadC_RegPrePoliza
                     Next
 
 
-                    If CvePeriodo > 0 Then
+                    'If CvePeriodo > 0 Then
-                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                    '    If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            MsgError = "No se pudo actualizar el periodo de la nómina"
+                    '        MsgError = "No se pudo actualizar el periodo de la nómina"
-                        End If
+                    '    End If
-                    End If
+                    'End If
 
                     If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
@@ -1180,7 +1180,7 @@ Partial Class ContabilidadC_RegPrePoliza
                         'diferencia = $"{diferencia} '{TipoMovto}' <> '{TipoMovtoOld}' OrElse '{ImporteMN}' <> '{row.DataKey("ImporteMN").ToEntero()}' OrElse '{CveTipoGastonew}' <> '{row.DataKey("CveTipoGasto").ToEntero()}'"
                         If actualizar Then
                             contador = contador + 1
-                            If Not ObjContabilidad.UpdatePrepolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
+                            If Not ObjContabilidad.UpdatePrePolizasDetalle(CvePrePolizaDetalle, Concepto, CveSubProyecto,
                                                                CtaContable, TipoMovto, ImporteMN, CveTipoGasto:=CveTipoGastonew, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                 OcurrioError = True
                                 Exit For

Contabilidad/RegPrePolizaS.aspx

@@ -145,7 +145,7 @@
                                 <div class="row">
                                     <label class="col-md-2">Observaciones:</label>
                                     <div class="col-md-5">
-                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="3" TextMode="MultiLine"></asp:TextBox>
+                                        <asp:TextBox ID="TxtObservaciones" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine"></asp:TextBox>
                                     </div>
 
                                     <label class="col-md-1">Movimiento:</label>
@@ -159,7 +159,7 @@
                                 <div class="row" id="trNotificar" runat="server" visible="False">
                                     <label class="col-md-2">Notificar:</label>
                                     <div class="col-md-10">
-                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="2" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
+                                        <asp:TextBox ID="TxtNotificarA" CssClass="form-control input-sm" runat="server" MaxLength="100" Width="400px" Rows="1" TextMode="MultiLine" ClientIDMode="Static"></asp:TextBox>
                                     </div>
                                 </div>
                                 <div class="row" id="trCuentaDeposito" runat="server" visible="False">
@@ -202,9 +202,8 @@
                                                     <asp:DropDownList ID="DdlProveedores" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlCompras" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList><br />
                                                     <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="160px" Visible="false"></asp:DropDownList>
-                                                    <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>
+                                                    <ADS:Dropdownlost ID="DdlClientes" CssStyle="width: 100%;" CssClassDdl="select2me" runat="server" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="160px" Visible="false" AutoPostBack="true"></ADS:Dropdownlost>                                                     
-                                                    <br />
+                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList>
-                                                    <asp:DropDownList ID="DdlVentas" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Folio" DataValueField="CveVenta" Width="160px" Visible="false"></asp:DropDownList><br />
                                                 </th>
                                                 <th>
                                                     <asp:DropDownList ID="DdlCtaContable" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" Width="160px">
@@ -342,7 +341,7 @@
                     </div>
                     <div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
                         <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False"
-                            DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                            DataKeyNames="IdMov,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,CveCuenta" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:TemplateField>
                                     <HeaderTemplate>Cuenta</HeaderTemplate>
@@ -405,7 +404,8 @@
                                 <asp:TemplateField HeaderText="Eliminar">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="LnkE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
-                                        <asp:ImageButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" ImageUrl="/Imagenes/Btn_Delete.png" OnClientClick="javascript:return C();" />
+                                        <asp:LinkButton Visible="false" ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>"  OnClientClick="javascript:return C();" />
+
                                     </ItemTemplate>
                                 </asp:TemplateField>
 
@@ -579,10 +579,10 @@
     <table class="table table-striped table-advance table-hover Widthall">
         <tr>
             <td style="width: 730px">&nbsp;</td>
-            <th style="width: 70px;">
+            <th style="width: 90px;">
-                <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="70px" Text="0.00"></asp:TextBox></th>
+                <asp:TextBox ID="TxtTotalCargos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox></th>
-            <th style="width: 70px;">
+            <th style="width: 90px;">
-                <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="70px" Text="0.00"></asp:TextBox></th>
+                <asp:TextBox ID="TxtTotalAbonos" runat="server" Style="text-align: right" Enabled="false" Width="90px" Text="0.00"></asp:TextBox></th>
             <asp:HiddenField ID="HdnTotales" runat="server" ClientIDMode="Static" />
         </tr>
         <tr>
@@ -709,7 +709,7 @@
                                 <div class="row">
                                     <div class="col-xs-2" style="text-align: left">Concepto:</div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="160px" AutoPostBack="true">
+                                        <asp:DropDownList ID="DdlConceptosContablesE" CssClass="form-control input-sm select2me"  Width="405px" runat="server" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" AutoPostBack="true">
                                         </asp:DropDownList>
                                         <asp:DropDownList ID="DdlProveedoresE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="160px" Visible="false" AutoPostBack="true"></asp:DropDownList>
                                         <asp:DropDownList ID="DdlComprasE" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="SerieFolio" DataValueField="CveCompra" Width="160px" Visible="false"></asp:DropDownList>
@@ -726,7 +726,7 @@
                                         Cuenta:
                                     </div>
                                     <div class="col-xs-4">
-                                        <asp:DropDownList ID="DdlCtaContableE" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
+                                        <asp:DropDownList ID="DdlCtaContableE" runat="server"  Width="405px" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo"></asp:DropDownList><br />
                                     </div>
                                 </div>
                                 <br />

Contabilidad/RegPrePolizaS.aspx.vb

@@ -261,23 +261,23 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             CargaCuentas()
 
-            If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
+            'If Request("CvePeriodo") IsNot Nothing AndAlso IsNumeric(Request("CvePeriodo")) AndAlso Request("CvePeriodo").ToEntero > 0 Then
-                ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
+            '    ViewState("CvePeriodo") = Request("CvePeriodo").ToEntero
-                ViewState("CveProyecto") = Request("CveProyecto").ToEntero
+            '    ViewState("CveProyecto") = Request("CveProyecto").ToEntero
-                ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
+            '    ViewState("CveSubProyecto") = Request("CveSubProyecto").ToEntero
-                ViewState("CveTurno") = Request("CveTurno").ToEntero
+            '    ViewState("CveTurno") = Request("CveTurno").ToEntero
 
-                DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
+            '    DdlPlantilla.Items.Add(New ListItem("Pago Nomina", "61"))
-                DdlPlantilla.SelectedValue = "61"
+            '    DdlPlantilla.SelectedValue = "61"
-                DdlPlantilla.Enabled = False
+            '    DdlPlantilla.Enabled = False
-                DivAgregarConceptos.Visible = False
+            '    DivAgregarConceptos.Visible = False
 
-                CargaNomina()
+            '    CargaNomina()
 
-                RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
+            '    RegistraScript("$(document).ready(function () { calculateCargo(); Sys.Application.add_load(function (s, e) { calculateCargo(); }); } );", 1)
-                RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
+            '    RegistraScript("$(document).ready(function () { calculateAbono(); Sys.Application.add_load(function (s, e) { calculateAbono(); }); } );", 2)
-                RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
+            '    RegistraScript("$(document).ready(function () { comparar(); Sys.Application.add_load(function (s, e) { comparar(); }); } );", 3)
-            End If
+            'End If
 
             If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                 GvPrePoliza.Columns(4).Visible = False
@@ -293,8 +293,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     Private Sub CreaDT()
         DtMovimientos = New DataTable("Movimientos")
         Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
-        With DtMovimientos.Columns
+        With DtMovimientos.Columns
-            .Add("IdCuenta", Type.GetType("System.Int32"))
             .Add("CodigoCuenta", Type.GetType("System.String"))
             .Add("Cuenta", Type.GetType("System.String"))
             .Add("Referencia", Type.GetType("System.String"))
@@ -318,84 +317,85 @@ Partial Class ContabilidadC_RegPrePolizaS
             .Add("CveConceptoContable", Type.GetType("System.Int32"))
             .Add("IdCtaContable", Type.GetType("System.Int32"))
             .Add("ConceptoContable", Type.GetType("System.String"))
+            .Add("CveCuenta", Type.GetType("System.Int32"))
         End With
     End Sub
 
-    Private Sub CargaNomina()
+    'Private Sub CargaNomina()
-        Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
+    '    Dim CvePlantilla As Integer = DdlPlantilla.SelectedValue.ToEntero
-        Dim ObjNomina As New ClsNominas
+    '    Dim ObjNomina As New ClsNominas
-        Dim ObjConta As New ClsContabilidad
+    '    Dim ObjConta As New ClsContabilidad
 
-        Dim Dt As DataTable = Nothing
+    '    Dim Dt As DataTable = Nothing
-        Dim Cuenta As String = ""
+    '    Dim Cuenta As String = ""
-        Dim Concepto As String = ""
+    '    Dim Concepto As String = ""
-        Dim IdCuenta As Integer = 0
+    '    Dim IdCuenta As Integer = 0
-        Dim TipoMovto As Integer
+    '    Dim TipoMovto As Integer
-        Dim CveConcepto As Integer
+    '    Dim CveConcepto As Integer
-        Dim CodigoCuenta As String = ""
+    '    Dim CodigoCuenta As String = ""
-        Dim NombreCuenta As String = ""
+    '    Dim NombreCuenta As String = ""
-        Dim Referencia As String = ""
+    '    Dim Referencia As String = ""
-        Dim EsComodin As Integer = 0
+    '    Dim EsComodin As Integer = 0
-        DtMovimientos.Clear()
+    '    DtMovimientos.Clear()
 
-        If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
+    '    If ObjNomina.GetProvisionNomina(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, UsuarioActual.CveEmpresa) Then
-            Dt = ObjNomina.DtResultados
+    '        Dt = ObjNomina.DtResultados
 
-            For Each drt As DataRow In Dt.Rows
+    '        For Each drt As DataRow In Dt.Rows
-                Dim dr As DataRow = DtMovimientos.NewRow
+    '            Dim dr As DataRow = DtMovimientos.NewRow
 
-                If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
+    '            If drt("NombreCompleto").ToString = "" AndAlso ObjConta.GetRetCuenta(31, UsuarioActual.CveEmpresa) Then
-                    CveConcepto = 98
+    '                CveConcepto = 98
-                    Cuenta = "Nominas por Pagar"
+    '                Cuenta = "Nominas por Pagar"
-                    IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero
+    '                IdCuenta = ObjConta.DtResultados(0)("IdCtaContable").ToString.ToEntero
-                    Concepto = "Pago Nomina"
+    '                Concepto = "Pago Nomina"
-                    Referencia = "Pago Nomina"
+    '                Referencia = "Pago Nomina"
-                Else
+    '            Else
-                    Concepto = drt("NombreCompleto")
+    '                Concepto = drt("NombreCompleto")
-                    Referencia = ""
+    '                Referencia = ""
-                    CveConcepto = drt("CveConceptoContable").ToString.ToEntero
+    '                CveConcepto = drt("CveConceptoContable").ToString.ToEntero
-                    Cuenta = drt("ConceptoContable").ToString
+    '                Cuenta = drt("ConceptoContable").ToString
-                    IdCuenta = drt("IdCtaContable").ToString.ToEntero
+    '                IdCuenta = drt("IdCtaContable").ToString.ToEntero
-                End If
+    '            End If
 
-                Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
+    '            Dim drr As DataRow = DtCuentasContables.FiltroPrimero($"Id={IdCuenta}")
-                CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
+    '            CodigoCuenta = If(drr IsNot Nothing, drr("CuentaFormato").ToString(), "")
-                NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
+    '            NombreCuenta = If(drr IsNot Nothing, drr("Nombre").ToString(), "")
 
-                TipoMovto = drt("TipoMovto")
+    '            TipoMovto = drt("TipoMovto")
 
-                If TipoMovto = 0 Then
+    '            If TipoMovto = 0 Then
-                    dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal)
+    '                dr("Cargo") = Math.Abs(drt("Importe").ToString.ToDecimal)
-                    dr("Abono") = 0
+    '                dr("Abono") = 0
-                Else
+    '            Else
-                    dr("Cargo") = 0
+    '                dr("Cargo") = 0
-                    dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal)
+    '                dr("Abono") = Math.Abs(drt("Importe").ToString.ToDecimal)
-                End If
+    '            End If
 
-                dr("IdCuenta") = IdCuenta
+    '            dr("IdCuenta") = IdCuenta
-                dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
+    '            dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
-                dr("Cuenta") = Cuenta
+    '            dr("Cuenta") = Cuenta
-                dr("Concepto") = Concepto
+    '            dr("Concepto") = Concepto
-                dr("Descripcion") = Concepto
+    '            dr("Descripcion") = Concepto
-                dr("Referencia") = Referencia
+    '            dr("Referencia") = Referencia
-                dr("TipoMovto") = TipoMovto
+    '            dr("TipoMovto") = TipoMovto
-                dr("EsComodin") = EsComodin
+    '            dr("EsComodin") = EsComodin
-                dr("CveConcepto") = CveConcepto
+    '            dr("CveConcepto") = CveConcepto
-                dr("CveProveedor") = "-1"
+    '            dr("CveProveedor") = "-1"
-                dr("CveSubProyecto") = drt("CveSubProyecto")
+    '            dr("CveSubProyecto") = drt("CveSubProyecto")
-                dr("CvePersonal") = drt("CvePersonal")
+    '            dr("CvePersonal") = drt("CvePersonal")
-                dr("CveClasificacion") = drt("CveClasificacion")
+    '            dr("CveClasificacion") = drt("CveClasificacion")
-                dr("CveTipoGasto") = drt("CveTipoGasto")
+    '            dr("CveTipoGasto") = drt("CveTipoGasto")
 
-                DtMovimientos.Rows.Add(dr)
+    '            DtMovimientos.Rows.Add(dr)
-            Next
+    '        Next
 
-            GvMov.DataSource = DtMovimientos
+    '        GvMov.DataSource = DtMovimientos
-            GvMov.DataBind()
+    '        GvMov.DataBind()
-            UPMovs.Update()
+    '        UPMovs.Update()
-        End If
+    '    End If
 
-    End Sub
+    'End Sub
 
     Private Sub CargaPrePoliza()
         BtnEliminar.Visible = True
@@ -723,8 +723,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 EsComodin = 0
             End If
 
-            Dim dr As DataRow = DtMovimientos.NewRow
+            Dim dr As DataRow = DtMovimientos.NewRow
-            dr("IdCuenta") = IdCuenta
+
             dr("CodigoCuenta") = CodigoCuenta & "<br>" & NombreCuenta
             dr("Cuenta") = Cuenta  'TxtCuentaContable.Text
             dr("Referencia") = If(drt("CveConcepto").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial"))
@@ -738,7 +738,8 @@ Partial Class ContabilidadC_RegPrePolizaS
             dr("CveProveedor") = drt("CveProveedor")
             dr("CvePersonal") = drt("CvePersonal")
             dr("CveClasificacion") = -1
-            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("CveCuenta") = drt("CveCuenta")
             'dr("FolioPoliza") = 0 'drt("FolioPoliza")
 
             DtMovimientos.Rows.Add(dr)
@@ -756,7 +757,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             e.Row.Height = Unit.Pixel(1)
-            e.Row.Cells(0).ToolTip = e.Row.DBCampo("IdCuenta")
+            e.Row.Cells(0).ToolTip = e.Row.DBCampo("CveCuenta")
 
             If e.Row.DBCampo("TipoMovto") = "1" Then
                 e.Row.FCTextBox("TxtAbono").Visible = True
@@ -786,7 +787,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If DdlPlantilla.SelectedValue.ToEntero = 53 Then 'Plantilla Personalizada
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = True
-                e.Row.FCImageButton("imgD").Visible = True
+                e.Row.FCLinkButton("imgD").Visible = True
             Else
                 e.Row.FCDropDownList("DdlSubProyecto").Enabled = False
             End If
@@ -851,8 +852,8 @@ Partial Class ContabilidadC_RegPrePolizaS
         Else
             Dim MensajeAlert = New StringBuilder
             Dim ObjIE As New ClsBancos()
-            Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
+            Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-            Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
+            ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
             Dim Conta As ClsContPAQi = Nothing
             Dim IDPoliza As Integer = 0
             Dim MsgError As String = ""
@@ -884,9 +885,9 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In GvMov.Rows
-                        If gvr.DataKey("IDCuenta").ToEntero > 0 Then
+                        'If gvr.DataKey("IDCuenta").ToEntero > 0 Then
-                            IdCtaContable = gvr.DataKey("IDCuenta")
+                        '    IdCtaContable = gvr.DataKey("IDCuenta")
-                        End If
+                        'End If
 
                         If gvr.DataKey("TipoMovto").ToDouble > 0 Then
                             Importe = gvr.FCTextBox("TxtAbono").Text.ToDouble
@@ -910,27 +911,27 @@ Partial Class ContabilidadC_RegPrePolizaS
                         If idCuentaContabilizacion = 1 AndAlso (IdCtaContable = 0) Then
                             idCuentaContabilizacion = 0
                         End If
-                        If Importe > 0 Then
+                        If Importe <> 0 Then
+                            Dim tCveCuenta As Integer = gvr.DataKey("CveCuenta").ToEntero
+
+                            'If gvr.datakey("CveConcepto") = "299" Then
+                            '    tCveCuenta = gvr.DataKey("CveCuenta").ToEntero
+                            'End If
+
                             If ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, gvr.FCLiteral("LtlReferencia").Text, gvr.DataKey("CveConcepto").ToEntero, gvr.FCTextBox("TxtConcepto").Text,
                                                            TxtFecha.Text.ToDate, IdCtaContable, -1, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CveIE:=CveIE,
                                                            CveProveedor:=gvr.DataKey("CveProveedor").ToEntero, CveCompra:=gvr.DataKey("CveCompra").ToEntero,
                                                            CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                             ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
-                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero) Then
+                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCuenta:=tCveCuenta) Then
                             Else
                                 MsgError = "No se pudo insertar el detalle de la póliza2"
                                 Exit For
                             End If
                         End If
-                    Next
+                    Next
-
+
-                    If CvePeriodo > 0 Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
-                        If Not ObjNom.UpdateProvisionNomina(CvePeriodo, CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                            MsgError = "No se pudo actualizar el periodo de la nómina"
-                        End If
-                    End If
-
-                    If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 1) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
                             GuardaLogAD($"Contabilidad/RegPrePolizas | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                             MsgError = ObjMov.MensajePolizaDescuadre
@@ -979,7 +980,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 GvMov.DataBind()
                 TxtFecha.Text = ""
                 TxtObservaciones.Text = ""
-            Else
+            Else
+                Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
                 ObjIE.RollBack()
                 If Conta IsNot Nothing Then Conta.RollBack()
             End If
@@ -1001,11 +1003,11 @@ Partial Class ContabilidadC_RegPrePolizaS
         For Each row As GridViewRow In GvPrePoliza.Rows
             If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
                 If row.FCCheckBox("chkModificado").Checked Then
-                    If Not ObjContabilidad.UpdatePrepolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                    If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
                                                                    row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
                                                                    row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
                                                                    CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                                                   CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                         OcurrioError = True
                         Exit For
                     End If
@@ -1240,7 +1242,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             If DtMovimientos Is Nothing Then CreaDT()
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1321,7 +1323,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If Rows.Count > 0 Then
                 Dim dr As DataRow = Rows(0)
-                dr("IdCtaContable") = DdlCtaContableE.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContableE.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContablesE.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContablesE.SelectedValue
                 dr("Concepto") = TxtConceptoE.Text
@@ -1335,19 +1337,21 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CvePersonal") = DdlPersonalE.SelectedValue.ToEntero
                 dr("CveCliente") = DdlClientesE.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentasE.SelectedValue.ToEntero
-                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
+                dr("FolioFactura") = If(DdlComprasE.Visible = True, DdlComprasE.SelectedItem.ToString, If(DdlVentasE.Visible = True, DdlVentasE.SelectedItem.ToString, ""))
-
+                dr("CveCuenta") = DdlCtaContableE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
+                dr("CodigoNombreCuenta") = DdlCtaContableE.SelectedItem.Text
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
+
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnConceptoContable").Value = DdlConceptosContablesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnProveedor").Value = DdlProveedoresE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCompra").Value = DdlComprasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnPersonal").Value = DdlPersonalE.SelectedValue.ToEntero
-
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCliente").Value = DdlClientesE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnVenta").Value = DdlVentasE.SelectedValue.ToEntero
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
+
-                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnSubProyecto").Value = DdlSubProyectoE.SelectedValue.ToEntero
-
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnTipoGasto").Value = DdlTipoGastoE.SelectedValue.ToEntero
+                'GvPrePoliza.Rows(IndiceGrid).FCHiddenField("HdnCtaContable").Value = DdlCtaContableE.SelectedValue.ToEntero
+
                 If TxtCargoE.Text <> "" Then
                     dr("Cargo") = TxtCargoE.Text.ToDouble
                     dr("Abono") = "".ToDouble
@@ -1406,7 +1410,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Dim dr As DataRow = Rows(0)
                 Dim CodigoCuenta As String = ""
                 Dim NombreCuenta As String = ""
-                dr("IdCuenta") = DdlCtaContable.SelectedValue
+                dr("CveCuenta") = DdlCtaContable.SelectedValue
 
                 If DdlCtaContable.SelectedValue.ToEntero > 0 Then
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
@@ -1433,7 +1437,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                 dr("CveClasificacion") = -1
                 dr("CveCliente") = DdlClientes.SelectedValue.ToEntero
                 dr("CveVenta") = DdlVentas.SelectedValue.ToEntero
-            End If
+                dr("CveCuenta") = DdlCtaContable.SelectedValue.ToEntero
+            End If
+            GvMov.DataSource = DtMovimientos
+            GvMov.DataBind()
+            UPMovs.Update()
             LbCancelarEdicion.Visible = False
             LbAgregar.Text = "Agregar"
 
@@ -1441,7 +1449,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
             If CvePrePoliza > 0 Then
                 Dim dr As DataRow = DtMovimientos.NewRow
-                dr("IdCtaContable") = DdlCtaContable.SelectedValue
+                dr("IdCtaContable") = -1 'DdlCtaContable.SelectedValue
                 dr("ConceptoContable") = DdlConceptosContables.SelectedItem.Text
                 dr("CveConceptoContable") = DdlConceptosContables.SelectedValue
                 dr("Concepto") = TxtDescripcion.Text
@@ -1474,7 +1482,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 Dim CodigoCuenta As String = ""
                 Dim NombreCuenta As String = ""
 
-                dr("IdCuenta") = DdlCtaContable.SelectedValue
+                dr("CveCuenta") = DdlCtaContable.SelectedValue
 
                 If DdlCtaContable.SelectedValue.ToEntero > 0 Then
                     Dim drr As DataRow = DtCuentasContables.FiltroPrimero(String.Format("CveCuenta={0}", DdlCtaContable.SelectedValue))
@@ -1548,7 +1556,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
     Private Sub CargaTipoTransaccion(Tipo As String)
         DdlTipoTransaccion.Items.Clear()
-        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}'")
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros($"Tipo = '{Tipo}' AND Estatus = 1 ")
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
     End Sub
@@ -1644,7 +1652,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         If DrM IsNot Nothing Then
             HdnCve.Value = idMov.ToString
 
-            DdlCtaContable.SelectedValue = DrM("IdCuenta")
+            DdlCtaContable.SelectedValue = DrM("CveCuenta")
             TxtReferencia.Text = DrM("Referencia")
             TxtObservaciones.Text = DrM("Concepto")
             '   (Math.Abs(TxtCargo.Text.ToDouble) > 0, 0, 1) = dr("TipoMovto")
@@ -1929,31 +1937,49 @@ Partial Class ContabilidadC_RegPrePolizaS
             Try
 
 
-                For Each Row As DataRow In dt.Rows
+                For Each Row As DataRow In dt.FiltraParametros("ConceptoAdministrativo <> ''").Rows
 
                     Dim NombreCuenta As String = Row("NombreCuenta").ToString
                     Dim Cuenta As String = Row("Cuenta").ToString
                     Dim ConceptoAdministrativo As String = Row("ConceptoAdministrativo").ToString
 
-                    Dim CveSubProyecto As Integer = Row("CveSubProyecto").ToString.ToEntero
+                    Dim CveSubProyecto As Integer = -1
                     Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True)
-                    Dim CveConceptoContable As Integer = Row("CveConceptoContable").ToString.ToEntero
+                    Dim CveConceptoContable As Integer = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable ='{0}'", Row("ConceptoAdministrativo"))).ToEntero ' Row("CveConceptoContable").ToString.ToEntero
                     Dim IdCtaContable As Integer = Row("IdCtaContable").ToString.ToEntero
                     Dim CveClasificacion As Integer = -1
+                    Dim CveCuenta As Integer = -1
+                    Dim ObjConta2 As New ClsContabilidad
+                    If ObjConta2.GetCuentas(-1, Row("Cuenta").ToString, 1, UsuarioActual.CveEmpresa) Then
+                        CveCuenta = ObjConta2.DtResultados.FiltroPrimeroValor("CveCuenta", "").ToEntero
+                    End If
+                    ObjConta2.Dispose()
                     'sino viene  el cveconcepto, busca por le nombre del concepto
-                    If CveConceptoContable = 0 Then CveConceptoContable = GlobalDTContaConceptosContables(-1).FiltroPrimeroValor("CveConceptoContable", String.Format("ConceptoContable = '{0}'", Row("ConceptoAdministrativo"))).ToEntero
+                    If CveConceptoContable = 0 Then
+                        Alert(String.Format("El concepto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("ConceptoAdministrativo")))
+                        DtMovimientos.Clear()
+                        Exit For
+                    End If
+
+                    If Row("SubProyecto").ToString.Trim <> "" Then
+                        CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=-1).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto").ToString.Trim)).ToEntero  'Row("CveSubProyecto").ToString.ToEntero
+
+                        If CveSubProyecto = 0 Then
+                            Alert(String.Format("El subproyecto <b>{0}</b> no se reconoció, favor de verificar el archivo.", Row("SubProyecto")))
+                            DtMovimientos.Clear()
+                            Exit For
+                        End If
+
+                    End If
 
                     If CveConceptoContable = 69 Then
                         CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", "").ToEntero
                     End If
 
-                    If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto = '{0}'", Row("SubProyecto"))).ToEntero
-
                     Dim dr As DataRow = DtMovimientos.NewRow
                     Dim CodigoCuenta As String = ""
 
-                    dr("IdCuenta") = IdCtaContable
+                    dr("CodigoCuenta") = NombreCuenta 'Cuenta & "<br>" & NombreCuenta
-                    dr("CodigoCuenta") = Cuenta & "<br>" & NombreCuenta
                     dr("Cuenta") = ConceptoAdministrativo
                     dr("Referencia") = Row("Referencia").ToString
                     dr("Concepto") = Row("Concepto").ToString
@@ -1961,10 +1987,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("EsComodin") = 0
                     dr("CveConcepto") = CveConceptoContable
                     dr("CveConceptoContable") = CveConceptoContable
-                    dr("ConceptoContable") = ""
+                    dr("ConceptoContable") = Row("ConceptoAdministrativo").ToString
-                    dr("Cargo") = Row("Cargo").ToString.ToDecimal
+                    dr("Cargo") = Row("Cargo").ToString.ToDecimal.RoundSQL
-                    dr("Abono") = Row("Abono").ToString.ToDecimal
+                    dr("Abono") = Row("Abono").ToString.ToDecimal.RoundSQL
-                    dr("Descripcion") = ""
+                    dr("Descripcion") = Row("Concepto").ToString
                     dr("CveSubProyecto") = CveSubProyecto
                     dr("CveProveedor") = -1
                     dr("CveCompra") = -1
@@ -1972,13 +1998,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                     dr("CveClasificacion") = CveClasificacion
                     dr("CveCliente") = -1
                     dr("CveVenta") = -1
+                    dr("CveCuenta") = CveCuenta
+
 
-                    TxtTotalAbonos.Text = (TxtTotalAbonos.Text.ToDouble + TxtAbono.Text.ToDouble).ToString.FormatoNumero
-                    TxtTotalCargos.Text = (TxtTotalCargos.Text.ToDouble + TxtCargo.Text.ToDouble).ToString.FormatoNumero
                     DtMovimientos.Rows.Add(dr)
                     DtMovimientos.AcceptChanges()
                 Next
 
+                TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
+                TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
 
                 GvMov.DataSource = DtMovimientos
                 GvMov.DataBind()

Contabilidad2/CatCuentas.aspx.vb

@@ -402,7 +402,7 @@ Partial Class Contabilidad2_CatCuentas
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
         Dim CuentaEfectivo As Integer = 0
-        Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
+        'Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
         Tcuenta.Text.Replace("-", "")
         Dim idnew As Integer = 0
 
@@ -426,6 +426,7 @@ Partial Class Contabilidad2_CatCuentas
         Dim DigAgrup As Integer
         Dim CveAgrupadorSat As Integer
         Dim NomIdioma As String
+        Dim TieneError As Boolean = False
         If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
 
             If CveConceptoContable > 0 Then
@@ -437,7 +438,7 @@ Partial Class Contabilidad2_CatCuentas
                     PorcentajeIVA = TxtPorcentaje.ToEntero / 100
                 End If
             End If
-
+            ObjConta.IniciaTransacSQL()
             If Afectable Then
                 If ObjConta.GetCuentas(IDSelected, "-1", -1, UsuarioActual.CveEmpresa) Then
                     drt = ObjConta.DtResultados.FiltroPrimero(String.Format("CveCuenta={0}", IDSelected))
@@ -456,13 +457,12 @@ Partial Class Contabilidad2_CatCuentas
                     DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
                     CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
                     NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero)
-
                     idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
                                         DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
                                         CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
                     If idnew > 0 Then
                         If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
-                            If ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
+                            If Not ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
                                      DigAgrup, CveAgrupadorSat, NomIdioma) Then
                                 ObjConta.RollBack()
                                 ObjConta.Dispose()
@@ -496,7 +496,7 @@ Partial Class Contabilidad2_CatCuentas
                     codigoPadre = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}") 'Tsubcuenta.Text
                     If UsuarioActual.Empresa.TipoContabilidad = 2 Then
                         ObjConta2 = New ClsContPAQi(UsuarioActual.Empresa)
-
+                        ObjConta2.IniciaTransacSQL()
                         If ObjConta2.GetCuentas(-1, "-1", -1) Then
                             IdPadre = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigoPadre}'").ToEntero
                             If ObjConta2.GetAgrupadoresSAT() Then
@@ -507,53 +507,66 @@ Partial Class Contabilidad2_CatCuentas
                                 Dim idnew2 As Integer = ObjConta2.AddCuenta(TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, CuentaEfectivo, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, TxtNomIngles.Text.Trim, Afectable, IdPadre, IdAgrupador)
 
                                 If idnew2 > 0 Then
-                                    If ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                                    If Not ObjConta.UpdateCuentaCompaq(idnew, idnew2, UsuarioActual.CveEmpresa) Then
+                                        TieneError = True
+                                        ObjConta2.RollBack()
+                                        ObjConta.RollBack()
+                                        Alert("Ocurrio un error al vincultar la cuenta con SIG y Compaq", TipoMensaje.MsgError)
                                     End If
+                                Else
+                                    TieneError = True
+                                    ObjConta2.RollBack()
+                                    Alert("Ocurrio un error al crear la cuenta en Compaq", TipoMensaje.MsgError)
                                 End If
-
                             End If
                         End If
                         ObjConta2.Dispose()
                     End If
-
+                    If Not TieneError Then
-                    Dim dr As DataRow = DtDatos.NewRow
+                        Dim dr As DataRow = DtDatos.NewRow
-                    dr("CveCuenta") = idnew
+                        dr("CveCuenta") = idnew
-                    dr("CuentaFormato") = TxtCuenta.Text
+                        dr("CuentaFormato") = TxtCuenta.Text
-                    'dr("CuentaFormato") = Tcuenta.Text
+                        'dr("CuentaFormato") = Tcuenta.Text
-                    dr("Nombre") = Tnombre.Text
+                        dr("Nombre") = Tnombre.Text
-                    dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
+                        dr("CtaCodigo") = String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text)
-                    'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
+                        'dr("CtaCodigo") = String.Format("{0} - {1}", Tcuenta.Text, Tnombre.Text)
-                    dr("Tipo") = DTcuenta.SelectedValue.ToString
+                        dr("Tipo") = DTcuenta.SelectedValue.ToString
-                    dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
+                        dr("CtaMayor") = DcuentaMayor.SelectedValue.ToString
-                    dr("CvePadre") = IDSelected
+                        dr("CvePadre") = IDSelected
-                    dr("Codigo") = Tnombre.Text
+                        dr("Codigo") = Tnombre.Text
-                    dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
+                        dr("CveMoneda") = DdlMoneda.SelectedValue.ToEntero
-                    dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
+                        dr("DigAgrup") = TxtDigAgrup.Text.Trim.ToEntero
-                    dr("NomIdioma") = TxtNomIngles.Text.Trim
+                        dr("NomIdioma") = TxtNomIngles.Text.Trim
-                    DtDatos.Rows.Add(dr)
+                        DtDatos.Rows.Add(dr)
-                    ArbolCuentas.DataSource = DtDatos
+                        ArbolCuentas.DataSource = DtDatos
-                    '.Attributes.Add("data-hijos","0");
+                        '.Attributes.Add("data-hijos","0");
-                    Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
+                        Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
-                    item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
+                        item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
-                    Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
+                        Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", IDSelected)), ADServerControl.DragableUL)
-                    If (IsNothing(objul)) Then
+                        If (IsNothing(objul)) Then
-                        objul = New ADServerControl.DragableUL
+                            objul = New ADServerControl.DragableUL
-                        objul.ID = String.Format("ul{0}", item.Cve)
+                            objul.ID = String.Format("ul{0}", item.Cve)
-                        item.Controls.Add(objul)
+                            item.Controls.Add(objul)
+                        End If
+                        ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
+                        CargaDatos()
                     End If
-                    ArbolCuentas.additem(objul, idnew, IDSelected, String.Format("{0} - {1}", TxtCuenta.Text, Tnombre.Text))
-
-
-                    CargaDatos()
-
                 End If
                 If ObjConta2 IsNot Nothing Then ObjConta2.Dispose()
 
             End If
+
+        Else
+            TieneError = True
+            ObjConta.RollBack()
+            Alert("Ocurrio un error al crear la cuenta", TipoMensaje.MsgError)
+        End If
+
+        If Not TieneError Then
+            ObjConta.Commit()
             LimpiarCampos()
             updatos.Update()
-            Alert("La cuenta se guardo correctamente")
+            Alert("La cuenta se guardo correctamente", TipoMensaje.MsgInformacion)
-
         End If
         ObjConta.Dispose()
 

Contabilidad2/RepEstadoActividades.aspx

@@ -13,79 +13,14 @@
 
     <li>
         <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-ad-excel"></i> Exporta Excel</asp:LinkButton>
-        <%--<img src="/Imagenes/separador02.gif" alt="" />&nbsp;    
-                <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="20px" Height="20px" />&nbsp;--%>
     </li>
     <li>
         <asp:LinkButton ID="Imprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
-        <%--                <img src="/Imagenes/separador02.gif" alt="" />&nbsp; 
-                <asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px;" />&nbsp;--%>
     </li>
 
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-
+     
-    <%--<asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
-        <ContentTemplate>
-            <div class="portlet solid grey-cascade portlet-filter" style="">
-                <div class="portlet-title portlet-filterT" style="">
-                    <div class="titlefiltros caption ">
-                        <ul class="list-inline">
-                            <<li>FechaInicio:
-                                <asp:TextBox ID="TxtFechaInicio" runat="server" Width="70px"></asp:TextBox>
-                                &nbsp;<asp:ImageButton runat="server" ID="imgFechaInicio" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
-                                <ajax:MaskedEditExtender ID="MEEFechaInicio" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" InitialValue="__/__/____" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Corte''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEFechaInicio" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaInicio" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </li>
-                            <li>FechaFin:
-                                <asp:TextBox ID="TxtFechaFin" runat="server" Width="70px"></asp:TextBox>
-                                &nbsp;<asp:ImageButton runat="server" ID="imgFechaFin" ImageUrl="/Imagenes/calendar.png" ImageAlign="AbsMiddle" Width="16px" Height="16px" AlternateText="Click para ver el Calendario" />
-                                <ajax:MaskedEditExtender ID="MEEFechaFin" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TxtFechaFin" InitialValue="__/__/____" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Corte''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                <ajax:ValidatorCalloutExtender ID="VCEFechaFin" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFin" Width="300px"></ajax:ValidatorCalloutExtender>
-                            </li>
-                            <li>Ejercicio:
-                            <asp:DropDownList ID="DdlEjercicio" runat="server" Width="100px">
-                                <asp:ListItem Text="2014" Value="2014"></asp:ListItem>
-                                <asp:ListItem Text="2015" Value="2015"></asp:ListItem>
-                            </asp:DropDownList>
-                            </li>
-                            <li>Periodo:
-                            <asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px">
-                                <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
-                                <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
-                                <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
-                                <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
-                                <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
-                                <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
-                                <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
-                                <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
-                                <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
-                                <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
-                                <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
-                            </asp:DropDownList>
-                            </li>
-                            <li>Firma:
-                                <asp:CheckBox ID="ChkFirma" runat="server" />
-                            </li>
-                        </ul>
-                    </div>
-                    <div class="tools">
-                        <asp:UpdatePanel runat="server">
-                            <ContentTemplate>
-                                <asp:Button ID="BtnConsultar" runat="server" Text="Filtrar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                    </div>
-                </div>
-            </div>
-        </ContentTemplate>
-    </asp:UpdatePanel>--%>
-
     <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
         <ContentTemplate>
             <div class="portlet solid  grey-cascade portlet-filter">
@@ -95,31 +30,28 @@
                     </div>
                     <div class="titlefiltros  caption ">
                         <div class="row">
-                            <ul class="list-inline text-size-12">
+                            <label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
-                                <li>Ejercicio:
+                            <div class="col-md-2" style="width: 125px;">
-                                </li>
+                                <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
-                                <li>
+                                </asp:DropDownList>
-                                    <asp:DropDownList ID="DdlEjercicio" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                            </div>
-                                    </asp:DropDownList>
+                            <label class="col-md-1 truncate" style="width: 90px;">Periodo:</label>
-                                </li>
+                            <div class="col-md-2" style="width: 130px;">
-                                <li>Periodo:
+                                <asp:DropDownList ID="DdlPeriodo" runat="server" Width="100px" CssClass="select2me">
-                                </li>
+                                    <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
-                                <li>
+                                    <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
-                                    <asp:DropDownList ID="DdlPeriodo" runat="server" Width="150px" CssClass="select2me">
+                                    <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
-                                        <asp:ListItem Text="Enero" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
-                                        <asp:ListItem Text="Febrero" Value="2"></asp:ListItem>
+                                    <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
-                                        <asp:ListItem Text="Marzo" Value="3"></asp:ListItem>
+                                    <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
-                                        <asp:ListItem Text="Abril" Value="4"></asp:ListItem>
+                                    <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
-                                        <asp:ListItem Text="Mayo" Value="5"></asp:ListItem>
+                                    <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
-                                        <asp:ListItem Text="Junio" Value="6"></asp:ListItem>
+                                    <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
-                                        <asp:ListItem Text="Julio" Value="7"></asp:ListItem>
+                                    <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
-                                        <asp:ListItem Text="Agosto" Value="8"></asp:ListItem>
+                                    <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
-                                        <asp:ListItem Text="Septiembre" Value="9"></asp:ListItem>
+                                    <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
-                                        <asp:ListItem Text="Octubre" Value="10"></asp:ListItem>
+                                </asp:DropDownList>
-                                        <asp:ListItem Text="Noviembre" Value="11"></asp:ListItem>
+                            </div>
-                                        <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </li>
                                 <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
                                 <div class="col-md-2 ">
                                     <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
@@ -128,7 +60,7 @@
                                 </div>
 
                                 <li runat="server" id="liTipoReporte" visible="false">Tipo:
-                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
+                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px" >
                                         <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
                                         <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -85,8 +85,8 @@ Partial Class AC_RepEstadoActividades
             If UsuarioActual.Empresa.UsaAC Then
                 ReporteComplementario = False
             Else
-                ReporteComplementario = True
+                ReporteComplementario = False
-                liTipoReporte.Visible = True
+                liTipoReporte.Visible = False
                 LtTitulo.Text = "Estado de Resultados"
             End If
 

Contabilidad2/RepSituacionFinanciera.aspx

@@ -19,6 +19,9 @@
         <asp:LinkButton ID="Imprimir" runat="server"><i class="fa fa-print"></i> Imprimir</asp:LinkButton>
         <%--<asp:ImageButton ID="Imprimir" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;--%>
     </li>
+    <li>
+        <asp:LinkButton ID="LnkCerrar" runat="server"><i class="fa fa-print"></i> Cerrar Ejercicio</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
@@ -584,6 +587,36 @@
 
             </div>
 
+    <div id="ModalCierre" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalEditarFecha" UpdateMode="Conditional" RenderMode="Inline">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <h4 class="modal-title">
+                            <asp:Literal ID="LtlCierre" Text="Cierre de Ejercicio" runat="server"> </asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <label class="col-md-1 truncate" style="width: 90px;">Ejercicio:</label>
+                            <div class="col-md-2" style="width: 125px;">
+                                <asp:DropDownList ID="DdlEjercicioCierre" runat="server" CssClass="select2me" DataTextField="Ejercicio" DataValueField="Ejercicio" Width="100px">
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate" style="width: 90px;">Cuentas:</label>
+                            <div class="col-md-2" style="width: 125px;">
+                                <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="select2me" DataTextField="CtaCodigo" DataValueField="CveCuenta" Width="100px">
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnCierre" runat="server" Text="Guardar" CssClass="btn btn-primary" ValidationGroup="VgmEditarFecha" />
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -158,12 +158,16 @@ Partial Class AC2_SituacionFinanciera
         Dim Clsconta As New ClsContabilidad
         If Clsconta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = Clsconta.DtResultados
+            DdlEjercicioCierre.DataSource = Clsconta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
+            DdlEjercicioCierre.DataSource = Nothing
         End If
         Clsconta.Dispose()
-        DdlEjercicio.DataBind()
+        DdlEjercicioCierre.DataBind()
+        DdlEjercicioCierre.SelectedValue = Now.Year.ToString
 
+        DdlEjercicio.DataBind()
         DdlEjercicio.SelectedValue = Now.Year.ToString
 
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
@@ -598,4 +602,34 @@ Partial Class AC2_SituacionFinanciera
         params.Add(New ReportParameter("periodo", String.Format("de {0} {1}", DdlPeriodo.SelectedItem.ToString, DdlEjercicio.SelectedItem.ToString)))
         ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
     End Sub
+
+    Protected Sub LnkCerrar_Click(sender As Object, e As EventArgs) Handles LnkCerrar.Click
+        RegistraScript("$('#ModalCierre').modal()")
+        CargaCtaContableE()
+    End Sub
+
+    Protected Sub BtnCierre_Click(sender As Object, e As EventArgs) Handles BtnCierre.Click
+        Dim objConta As New ClsContabilidad
+        Dim FechaIncio As String = String.Format("{0}/01/01", DdlEjercicioCierre.SelectedValue.ToString)
+        Dim FechaFin As String = String.Format("{0}/12/31", DdlEjercicioCierre.SelectedValue.ToString)
+        Dim CvePrepoliza As Integer = objConta.CierreEjercicio(UsuarioActual.CveEmpresa, DdlEjercicioCierre.SelectedValue.ToEntero, DdlCuentas.SelectedValue.ToEntero, FechaIncio, FechaFin, UsuarioActual.CveUsuario)
+        If CvePrepoliza > 0 Then
+            Alert(String.Format("Se realizo el cierre correctamente: <br/> <b> Poliza: </b> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrepoliza={0}'>{0}</a>", CvePrepoliza), TipoMensaje.MsgInformacion)
+            objConta.Commit()
+        Else
+            Alert("Ocurrio un error al realizar el cierre", TipoMensaje.MsgError)
+            objConta.RollBack()
+        End If
+        objConta.Dispose()
+    End Sub
+
+    Private Sub CargaCtaContableE()
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+            DdlCuentas.DataSource = ObjConta.DtResultados.FiltraParametros("Tipo = 'F' or Tipo = 'E' ", "")
+        End If
+        ObjConta.Dispose()
+        DdlCuentas.DataBind()
+        DdlCuentas.Items.Insert(0, New ListItem("Seleccionar", "-1"))
+    End Sub
 End Class

General/SaldosIniciales.aspx.vb

@@ -1109,6 +1109,7 @@ Partial Class General_SaldosIniciales
                     Dim CveMoneda As Integer = 1
                     Dim CveProveedorSucursal As Integer = Row("CveProveedorSucursal").ToString.ToEntero
                     Dim PorcentajeIVA As String = Row("PorcentajeIVA").ToString
+                    Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString, "0").ToDecimal
 
 
                     If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
@@ -1171,10 +1172,9 @@ Partial Class General_SaldosIniciales
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, Folio, 14, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
                     If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, Folio, 25, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=IEPS, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
 
-
                     If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetIVA, Folio, 15, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetIVA, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
                     If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, RetISR, Folio, 16, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=RetISR, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
-
+                    If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, Folio, 27, String.Format("{0}-{1}", Serie, Folio), Fecha, -1, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=ImpuestosLocales, CveSubProyecto:=Sucursal.ToEntero) Then ErrorCompras = True : Exit For
 
                     'Saldo
                     If Saldo < Total Then
@@ -1227,7 +1227,7 @@ Partial Class General_SaldosIniciales
 
                 For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
                     Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString}'")
-                    Dim TipoDocto As String = Row("Tipo Documento").ToString
+                    Dim TipoDocto As String = Row("Tipo Documento").ToString.Trim
                     Dim RFC As String = Row("RFC").ToString.Trim
                     Dim Serie As String = Row("Serie").ToString
                     Dim Folio As Integer = Row("Folio").ToString.ToEntero

Inicio.aspx

@@ -1255,6 +1255,47 @@
             </asp:UpdatePanel>
         </div>
     </div>
+
+        <div id="DvCorreoSinEnviar" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" id="H2" runat="server">Ventas sin correo enviado</h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-6">
+                                <label># No Enviadas: </label>    
+                                <asp:Label runat="server" ID="lblVentasSinEnviar" Text="0" Font-Bold="true"></asp:Label>
+                            </div>
+
+                            <div class="col-md-6" style="text-align: right">
+                            <input type="text" id="TxtBusquedaVenta" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaVenta','{0}')", GvVentasEmail.ClientID) %>" style="display: inline-block; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaCentroCosto','{0}')", GvVentasEmail.ClientID) %>" style="margin-top: -3px; margin-left: -13px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                            </div>
+                        </div>
+                        <asp:GridView ID="GvVentasEmail" runat="server" GridLines="None" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False" data-heighterror="800" EmptyDataText="No se encontraron registros">
+                            <Columns>
+                                <asp:HyperLinkField HeaderText="Serie-Folio" ItemStyle-Width="15%" DataNavigateUrlFields="CveVenta" DataTextField="SerieFolio" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" Target="_blank" />
+                                <asp:BoundField DataField="Fecha" ItemStyle-Width="15%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}"/>                                
+                                
+                                <asp:BoundField DataField="NombreComercial" ItemStyle-Width="60%" HeaderText="Nombre"  ItemStyle-HorizontalAlign="left" />
+
+                            </Columns>
+                        </asp:GridView>
+                    </div>
+                    <div class="modal-footer">
+                        <button data-dismiss="modal" class="btn btn-default">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
 

Inicio.aspx.vb

@@ -192,6 +192,9 @@ Partial Class Inicio
                 RegistraScript("$( document ).ready(function() { AbrirVentana('/Compras/PopUpFacturasPendientesAutorizar.aspx');});", "repFacturas")
             End If
 
+            'Ventas sin correo enviado
+            If UsuarioActual.TienePermisoProceso(319) Then MuestraVentasNoEnviadas()
+
             If UsuarioActual.TienePermisoProceso(271) Then MuestraVentasPUE()
             If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
 
@@ -301,6 +304,20 @@ Partial Class Inicio
         GvNoTimbradasCentroCosto.DataBind()
     End Sub
 
+    Private Sub MuestraVentasNoEnviadas()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetVentasNoEnviadas(UsuarioActual.CveEmpresa) Then
+            If ObjVentas.DtResultados.Rows.Count > 0 Then
+                lblVentasSinEnviar.Text = ObjVentas.DtResultados.Rows.Count
+                GvVentasEmail.DataSource = ObjVentas.DtResultados
+
+                RegistraScript("$('#DvCorreoSinEnviar').modal('show');", "showmodal2Incons")
+            End If
+        End If
+        ObjVentas.Dispose()
+        GvVentasEmail.DataBind()
+    End Sub
+
     Private Sub CargaSubProyectos()
         DdlSubproyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubproyectos.DataBind()

Inventarios/EntradasSalidas.aspx

@@ -81,11 +81,7 @@
             </li>
             <li>
                 <asp:HyperLink ID="HplPrePoliza" Target="_blank" runat="server" Visible="false"> Ver PrePóliza</asp:HyperLink>
-            </li>
+            </li>           
-            <li>
-                <asp:LinkButton runat="server" ID="LnkCambioInventarioFisico" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioInventarioFisico_Click"
-                    Text="<i class='fa fa-truck'></i> Inventario Fisico"></asp:LinkButton>
-            </li>
             <li>
                 <asp:LinkButton runat="server" ID="LnkCambioVigencia" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioVigencia_Click"
                     Text="<i class='fa fa-truck'></i> Cambiar Vigencias"></asp:LinkButton>
@@ -104,6 +100,10 @@
                 <asp:LinkButton runat="server" ID="LnkGenerarVirtual" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkGenerarVirtual_Click"
                     title="Generar Movimiento Virtual" Text="<i class='fa fa-server'></i> Generar Movimiento Virtual"></asp:LinkButton>
             </li>
+             <li>
+                <asp:LinkButton runat="server" ID="LnkCambioInventarioFisico" Visible="false" CssClass="" data-toggle="tooltip" data-placement="left" OnClick="LnkCambioInventarioFisico_Click"
+                    Text="<i class='fa fa-truck'></i> Inventario Fisico"></asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/EntradasSalidas.aspx.vb

@@ -1312,7 +1312,8 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha)
 
-        If CveMetodoInventario = 5 And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
+
+        If RowPS("AplicaSerie").ToString = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
             Valido = False
             Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
@@ -1324,6 +1325,18 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
+        Dim tCveSubProyecto As Integer
+        Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacen.SelectedValue))
+        If drA2 IsNot Nothing Then
+            tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
+        End If
+
+        If UsuarioActual.CveEmpresa = 119 AndAlso Not tCveSubProyecto.Contiene(10276) Then
+            FechaCaducidadVal = MinFecha
+            FechaCaducidad = MinFecha
+            Lote = ""
+        End If
+
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen
 
@@ -1679,7 +1692,7 @@ Partial Class Inventarios_EntradasSalidas
 
                         'Registro la prepóliza
                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                            Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
+                            Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
                             Dim tValorOtro As Decimal = tValorInventario
                             Dim idCtaContable As Integer = 0
                             Dim IdCtaContableOtro As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos
@@ -1762,7 +1775,7 @@ Partial Class Inventarios_EntradasSalidas
                             If UsuarioActual.Empresa.UsaAC AndAlso (DdlConcepto.SelectedValue = "3") AndAlso EsContabilizable Then
                                 Dim DtII As DataTable = Nothing
                                 Dim TotalDetalle As Double = 0.0
-                                Dim Importe As Double = DtMovimientos.SUM("Total", "Estatus IN ('','U')")
+                                Dim Importe As Decimal = DtMovimientos.SUMD("Total", "Estatus IN ('','U')")
                                 'NOTA. CUANDO ES SALIDA, EN AUTOMATICO NO TENEMOS LOS VALORES DE LA SALIDA TODAVIA, Y POR ESO IMPORTE ES CERO, ES RECARGAR CON LOS DATOS YA INSERTADOS
 
                                 If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
@@ -1812,7 +1825,7 @@ Partial Class Inventarios_EntradasSalidas
                                     If IDPoliza > 0 Then
                                         If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
                                             Dim DtMovtos = ObjInventario.DtResultados
-                                            Importe = DtMovtos.SUM("Total", "Estatus = ''")
+                                            Importe = DtMovtos.SUMD("Total", "Estatus = ''")
 
                                             If Importe > 0 Then
                                                 If CuentaCargoCOG > 0 AndAlso CuentaAbonoAlmacen > 0 Then
@@ -4177,7 +4190,7 @@ Partial Class Inventarios_EntradasSalidas
         'Obtiene valor salida
         If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
+                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
                 ValorSalida = tValorInventario
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then

Inventarios/EntregaAlmacen.aspx.vb

@@ -2261,7 +2261,6 @@ Partial Class Inventarios_EntregaAlmacen
 
                                     If ErrorMovInv Then Exit For
 
-
                                 Else
                                     ErrorMovInv = True
                                 End If
@@ -2574,10 +2573,10 @@ Partial Class Inventarios_EntregaAlmacen
 
                 End If
 
-            End If
+            End If
-
+
-
+
-            'DEVOLUCION APARTADOS
+            'DEVOLUCION APARTADOS
             If Not ErrorMovInv Then
                 If TipoMovimiento = 2 Then
                     If ObjInventario.VentasAlmacenApartadosGet(CveVentaSurtir) Then

Inventarios/Kardex.aspx.vb

@@ -81,18 +81,27 @@ Partial Class Inventarios_Kardex
 
         ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         ddlAlmacen.DataBind()
-        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString)
+        Dim CveTipoAlmacen As Integer
+        If IfNull(Request("CveAlmacen"), "-1").ToString.ToEntero > 0 Then
+            ddlAlmacen.SelectedValuesIfExist(Request("CveAlmacen").ToString)
+            CveTipoAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=Request("CveAlmacen").ToString.ToEntero).FiltroPrimeroValor("CveTipoAlmacen").ToEntero
+            '  If CveTipoAlmacen = 3 Then chktransitorio.checked = True
+        End If
         CargaClasificaciones()
 
+
         CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1)
         CBLTiposAlmacen.DataBind()
         For Each item As ListItem In CBLTiposAlmacen.Items
             If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then
-                item.Selected = False
+                If CveTipoAlmacen = 3 Then
+                    item.Selected = True
+                Else
+                    item.Selected = False
+                End If
             Else
                 item.Selected = True
             End If
-
         Next
     End Sub
     Private Sub CargaFuncionalidad105()

Nomina/Nomina2.aspx.cs

@@ -367,6 +367,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         dtConceptos = null;
         DataTable dtPeriodo = new DataTable();
         DataTable dtasistencia = new DataTable();
+        LnkAutorizar.Visible = false;
         if (FiltCvePeriodo > 0)
         {
 
@@ -380,7 +381,6 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     int CvePrePolizaProvision = drow["CvePrePolizaProvision"].ToString().ToEntero();
                     int CvePrePolizaProvisionAsimilados = drow["CvePrePolizaAsimilables"].ToString().ToEntero();
                     LnkConceptoEmpleado.Visible = (Estatus == 1);
-                    LnkAutorizar.Visible = (Estatus == 1);
                     LnkRegistrarProvision.Visible = (Estatus >= 2) && CvePrePolizaProvision <= 0;
                     LnkConceptoEmpleado.Visible = (Estatus < 2);
                     LnkCargaAsistenciaMasiva.Visible = (Estatus < 2);
@@ -819,6 +819,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         #endregion
         UpDatos.Update();
+        LnkAutorizar.Visible = dtempleados.COUNT("CvePersonal", "  CvePersonal > 0 AND NomAutorizado =0")>0 ;
     }
     private void setGVNominas()
     {

OC/OC.aspx

@@ -2545,7 +2545,7 @@
                                     <div class="row">
                                         <label class="col-md-1 ">Clientes:</label>
                                         <div class="col-md-11">
-                                            <asp:DropDownList ID="DdlClientes" CssClass="form-control  select2me" runat="server" AutoPostBack="true" Width="100%" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente"></asp:DropDownList>
+                                             <ADS:Dropdownlost ID="DdlClienteContrato" Width="100%" CssStyle="width: 100%;" UsaWebService="true" AppendDataBoundItems="true" AutoPostBack="true" CssClass="select2me" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente"></ADS:Dropdownlost>
                                         </div>
                                     </div>
                                     <div class="row">

OC/OC.aspx.vb

@@ -677,7 +677,7 @@ Partial Class OC
                     TipoOS = True
                 End If
 
-                BtnGeneraContrato.Visible = True : CargaClientes()
+                BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
                 CargaEstatusInicialFinal()
                 CargaEstatusUsuarios()
@@ -2499,9 +2499,18 @@ Partial Class OC
             If (TipoOC = "REQ" AndAlso CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse (TipoOC = "OC") Then
                 GeneraReq = If(TipoOC = "REQ", True, False)
                 ViewState("TipoLargo") = "Orden Compra"
+
                 CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
+                'If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
+                ' CveEstatusNuevo = If(TipoOC = "OC", CveEstatusInicialOC, CboE.SelectedValue.ToEntero)
+                ' Else
+                'CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
+                'End If
+
+
             End If
 
+
             'siempre se esta guardando el proveedor
             If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
                 CveProveedor = DdlProveedores.SelectedValue.ToEntero
@@ -2640,10 +2649,18 @@ Partial Class OC
                 OC.Commit()
                 BtnGuardar.Visible = False
             Else
+
                 If Conta IsNot Nothing Then Conta.RollBack()
                 If OC IsNot Nothing Then OC.RollBack()
                 Alert("Hubo un Error al registrar", TipoMensaje.MsgError)
                 CveOrdenCompra = -1
+
+
+                If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
+                    TipoOC = "REQ"
+                End If
+
+
             End If
 
             ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "")
@@ -6753,7 +6770,7 @@ Partial Class OC
         BtnSolicitudAnticipo.Visible = False
         HlAgregarExcel.Visible = True
         LbDescargarExcel.Visible = True
-        BtnGeneraContrato.Visible = True : CargaClientes()
+        BtnGeneraContrato.Visible = True : CargaClientesContrato()
 
         LbVerificarExistencia.Visible = True
         LnkAgregarGuia.Visible = False
@@ -7370,10 +7387,11 @@ Partial Class OC
 
 #Region "CONTRATOS"
 
-    Private Sub CargaClientes()
+    Private Sub CargaClientesContrato()
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
+        'DdlClientes.DataBind()
-        DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        'DdlClienteContrato
     End Sub
 
     Private Sub CargaContratos()
@@ -7386,20 +7404,20 @@ Partial Class OC
         UpContrato.Update()
     End Sub
 
-    Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged
+    Private Sub DdlClienteContrato_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteContrato.selectedindexchange
         DdlContratos.Items.Clear()
         ' DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, 1) Then
+        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClienteContrato.SelectedValue.ToEntero, -1, 1) Then
             If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 Then
 
                 DdlContratos.DataSource = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
-                DdlContratos.DataBind()
 
             End If
         End If
-
+        ObjContratos.Dispose()
+        DdlContratos.DataBind()
 
 
         DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -7475,7 +7493,7 @@ Partial Class OC
             End If
         Next
         TxtGrid.Text = If(DtDetalle.Rows.Count = 0, "", DtDetalle.Rows.Count.ToString)
-        Ddlcliente.txtValue.Value = DdlClientes.SelectedValue
+        Ddlcliente.txtValue.Value = DdlClienteContrato.SelectedValue
 
         CargaSuperior()
         CargaDatosDetalles()

RH/CalculoSBC.aspx.cs

@@ -21,7 +21,16 @@ public partial class RH_CalculoSBC : ClsPaginas
     //}
     protected void Page_Load(object sender, EventArgs e)
     {
+        if (!IsPostBack)
+        {
 
+            ADSNetLibrary.SIGAPI.Services.Agropecuaria.IAgropecuariaService servicioAgro = new ADSNetLibrary.SIGAPI.Services.Agropecuaria.AgropecuariaService(System.Configuration.ConfigurationManager.ConnectionStrings["Conexion"].ConnectionString);
+            ADSNetLibrary.SIGAPI.Models.Agropecuaria.Request.ActividadGET acmo = new ADSNetLibrary.SIGAPI.Models.Agropecuaria.Request.ActividadGET();
+            acmo.cveEmpresa = UsuarioActual.CveEmpresa; acmo.cveActividad = -1;
+            var obj = servicioAgro.ActividadesGet(acmo);
+            GVDetalleParteVariable.DataSource = obj.Result;
+            GVDetalleParteVariable.DataBind();
+        }
     }
 
     protected void LnkCalcular_Click(object sender, EventArgs e)

RH/CatDocumentos.aspx

@@ -66,20 +66,20 @@
 
                                             </asp:TemplateField>
 
-                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Documentacion Tipo">
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Tipo Documentación">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlDocumentacionTipo" runat="server" Text='<%# Eval("DocumentacionTipo") %>'></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
 
-                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Dias Limite">
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Días Límite">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlDocumentacionDiasLimite" runat="server" Text='<%#    If(Eval("DiasLimite").ToString() = "" Or Eval("DiasLimite").ToString() = "0", "-", Eval("DiasLimite").ToString())   %>'></asp:Literal>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 
-                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Aplica Limite">
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Aplica Límite">
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlAplicaDiasLimite" runat="server" Text='<%#   If(Eval("AplicaDiasLimite").ToString() = "1", "Si", "No")  %>'></asp:Literal>
                                                 </ItemTemplate>
@@ -196,11 +196,11 @@
                         <asp:TextBox ID="TxtDiasLimite" CssClass="form-control" onkeypress="validate(event)" MaxLength="2" runat="server"></asp:TextBox>
                         <asp:RequiredFieldValidator ID="rfvTxtDiasLimite" runat="server" ControlToValidate="TxtDiasLimite" ValidationGroup="GrpEscolaridad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo  es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
                         <ajax:FilteredTextBoxExtender ID="FilTxtDiasLimite" runat="server" TargetControlID="TxtDiasLimite" FilterType="Numbers" ValidChars="" />
-                        <label for="<%= TxtOrden.ClientID.ToString()%>">Dias Limite:</label>
+                        <label for="<%= TxtOrden.ClientID.ToString()%>">Días Limite:</label>
                     </div>
 
                     <div class="form-group form-md-line-input input-iconright">
-                        <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Dias Limite" />
+                        <asp:CheckBox ID="ChkAplicaDiasLimite" runat="server" Text="Aplica Días Límite" />
                     </div>
                     <div class="form-group form-md-line-input input-iconright">
                         <asp:CheckBox ID="ChkAplicaFechaVencimiento" runat="server" Text="Aplica Fecha de Vencimiento" />
@@ -230,12 +230,12 @@
                 </ContentTemplate>
             </asp:TabPanel>
 
-            <asp:TabPanel ID="TabParametros" runat="server" HeaderText="Parametros">
+            <asp:TabPanel ID="TabParametros" runat="server" HeaderText="Parámetros">
                 <ContentTemplate>
 
                     <div class="row">
                           <div class="form-group form-md-line-input input-iconright" style="text-align:right!important">
-                        <asp:LinkButton runat="server" ID="LnkAgregarParametro" CssClass="Texto" OnClick="LnkAgregarParametro_Click" Text="Agregar Parametro"></asp:LinkButton>
+                        <asp:LinkButton runat="server" ID="LnkAgregarParametro" CssClass="Texto" OnClick="LnkAgregarParametro_Click" Text="Agregar Parámetros"></asp:LinkButton>
                     </div>
                     </div>
 
@@ -249,7 +249,7 @@
                                 DataKeyNames="CveDocumentacionParametro,CveDocumentacion,Parametro,Descripcion " CssClass="table  table-hover table-advance  Widthall" GridLines="None">
                                 <Columns>
 
-                                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parametro">
+                                    <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="60px" HeaderText="Parámetro">
                                         <ItemTemplate>
                                             <asp:Literal ID="LtlParametro" runat="server" Text='<%# Eval("Parametro") %>'></asp:Literal>
                                         </ItemTemplate>
@@ -328,7 +328,7 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title"> 
-                            <h4> <asp:Literal ID="Literal1" runat="server">Parametros</asp:Literal></h4>
+                            <h4> <asp:Literal ID="Literal1" runat="server">Parámetros</asp:Literal></h4>
                         </h4>
                     </div>
 
@@ -336,8 +336,8 @@
  
                          <div class="form-group form-md-line-input input-iconright">
                             <asp:TextBox ID="TxtParametro" CssClass="form-control" MaxLength="50" runat="server"></asp:TextBox>
-                            <asp:RequiredFieldValidator ID="RfvTxtParametro" runat="server" ControlToValidate="TxtParametro" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parametro''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
+                            <asp:RequiredFieldValidator ID="RfvTxtParametro" runat="server" ControlToValidate="TxtParametro" ValidationGroup="GrpParametro" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Parámetro''</b> es necesario, por favor ingréselo."></asp:RequiredFieldValidator>
-                            <label for="<%= TxtParametro.ClientID.ToString()%>">Parametro:</label>
+                            <label for="<%= TxtParametro.ClientID.ToString()%>">Parámetro:</label>
                         </div>
 
                          <div class="form-group form-md-line-input input-iconright">

RH/CatDocumentos.aspx.vb

@@ -560,7 +560,7 @@ Partial Class RH_CatDocumentos
 
             Dim ObjDoc As New ClsEdocumentacion
             If ObjDoc.RemoveDocumentacionParametros(CveDocumentacionParametroEliminar, UsuarioActual.CveEmpresa) Then
-                Alert("Parametro eliminado correctamente.")
+                Alert("Parámetro eliminado correctamente.")
             End If
             ObjDoc.Dispose()
 
@@ -569,7 +569,7 @@ Partial Class RH_CatDocumentos
             Dim DRow As DataRow = DTTempParametros(IndexEliminar)
             DRow.Delete()
             DTTempParametros.AcceptChanges()
-            Alert("Parametro eliminado correctamente.")
+            Alert("Parámetro eliminado correctamente.")
         End If
 
 
@@ -612,12 +612,12 @@ Partial Class RH_CatDocumentos
 
             If CveDocumentacionParametro > 0 Then
                 If ObjDoc.UpdateDocumentacionParametros(CveDocumentacionParametro, CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa) Then
-                    Alert("Parametro actualizado correctamente.")
+                    Alert("Parámetro actualizado correctamente.")
                     ErrorProceso = False
                 End If
             Else
                 If ObjDoc.AddDocumentacionParametros(CveDocumentacion, TxtParametro.Text.Trim, TxtParametroDescripcion.Text.Trim, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
-                    Alert("Parametro agregado correctamente.")
+                    Alert("Parámetro agregado correctamente.")
                     ErrorProceso = False
                 End If
             End If
@@ -632,7 +632,7 @@ Partial Class RH_CatDocumentos
                 Drow("Descripcion") = TxtParametroDescripcion.Text
                 'Editar Row  en base a index
                 ErrorProceso = False
-                Alert("Parametro actualizado correctamente.")
+                Alert("Parámetro actualizado correctamente.")
             Else
 
                 Dim Drow As DataRow = DTTempParametros.NewRow
@@ -641,7 +641,7 @@ Partial Class RH_CatDocumentos
 
 
                 DTTempParametros.Rows.Add(Drow)
-                Alert("Parametro agregado correctamente.")
+                Alert("Parámetro agregado correctamente.")
                 ErrorProceso = False
                 'Agreagr Row
             End If

Ventas/CatDocumentosClientes.aspx.vb

@@ -384,30 +384,34 @@ Partial Class Vta_CatDocumentosClientes
         If ActualizarDocumentacion Then
 
             _formato = GuardarArchivo(CveDocumentacion)
-            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, UsuarioActual.Empresa.CveEmpresa, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0)) Then
+            If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
                 Alert("Documento Actualizado  correctamente.", TipoMensaje.MsgInformacion)
-                CargaDocumentacion()
+
             End If
 
         Else
-            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.Empresa.CveEmpresa) Then
+            If objRH.DocumentacionAdd(Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
 
                 CveDocumentacion = objRH.DtResultados(0)(0).ToString.ToEntero
                 _formato = GuardarArchivo(CveDocumentacion)
-                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.Empresa.CveEmpresa) Then
+                If objRH.DocumentacionUpdate(CveDocumentacion, Txtdocumentacion.Text.Trim, _formato, DdlDocumentacionTipo.SelectedValue.ToEntero, _estatus, TxtOrden.Text.ToEntero, _requerido, TxtDiasLimite.Text.ToEntero, If(ChkAplicaDiasLimite.Checked, 1, 0), If(ChkAplicaFechaVencimiento.Checked, 1, 0), UsuarioActual.CveEmpresa) Then
 
                 End If
 
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "divAgregarDocumentacion"))
                 Alert("Documento agregado correctamente.", TipoMensaje.MsgInformacion)
-                CargaDocumentacion()
+
             End If
         End If
 
+        objRH.Dispose()
+
         ActualizarDocumentacion = False
 
+        CargaDocumentacion()
+
     End Sub
 
 

Ventas/Clientes.aspx

@@ -171,6 +171,13 @@
             width: 100%;
             height: 250px;
         }
+
+
+        .orange{
+            color:orange;
+            background-color:orange;
+
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
@@ -3940,7 +3947,7 @@
 
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="50px">
                                                                     <ItemTemplate>
-                                                                        <asp:LinkButton ID="ImgDownLoadFormato" CssClass="btn btn-circle btn-sm  orange" OnClick="DownLoadFormato_ClickDocumentacion" runat="server"
+                                                                        <asp:LinkButton ID="ImgDownLoadFormato" CssClass="btn btn-circle btn-sm orange" OnClick="DownLoadFormato_ClickDocumentacion" runat="server"
                                                                             Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
@@ -3953,10 +3960,9 @@
                                                                 </asp:TemplateField>
 
                                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="50px">
-                                                                    <ItemTemplate>
+                                                                    <ItemTemplate>                                                                       
-                                                                        <%--<asp:Literal ID="ImgDownLoad" runat="server"></asp:Literal>--%>
                                                                         <asp:LinkButton ID="LnkDownLoadDoc" CssClass="btn btn-circle btn-sm blue" OnClick="DownLoad_ClickDocumentacion" runat="server"
-                                                                            Text="<i class='fa fa-download' style='color:white' title='Descargar formato'></i>" CausesValidation="False" />
+                                                                            Text="<i class='fa fa-download' style='color:white' title='Descargar Documento'></i>" CausesValidation="False" />
                                                                     </ItemTemplate>
                                                                 </asp:TemplateField>
 

Ventas/Clientes.aspx.vb

@@ -6826,10 +6826,12 @@ Partial Class Clientes
         UPGvDocumentosCliente.Update()
         'UpGvDocumentosFirma2.Update()
     End Sub
-    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+    Public Sub UploadModal_ClickDocumentacionFirmaContrato(sender As Object, e As EventArgs)
+
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         Dim chkEstatus As CheckBox
+
         CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero()
         CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero()
         Documentacion = GvRow.DataKey("Documentacion")
@@ -6849,7 +6851,29 @@ Partial Class Clientes
         UpTituloFirma.Update()
 
         RegistraScript("$('#ModalUploadFirmaContratoDocumento').modal({ backdrop: 'static',  keyboard: false});")
+
+        GvdocumentosEventosDescarga()
+
     End Sub
+
+
+    Private Sub GvdocumentosEventosDescarga()
+
+        For Each GvRow As GridViewRow In GvDocumentosCliente.Rows
+
+            If GvRow.RowType = DataControlRowType.DataRow Then
+
+                Dim LnkDownLoadDoc As LinkButton = GvRow.FCLinkButton("LnkDownLoadDoc")
+                Dim ImgDownLoadFormato As LinkButton = GvRow.FCLinkButton("ImgDownLoadFormato")
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoadFormato)
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
+
+            End If
+
+        Next
+
+    End Sub
+
     Private Sub GuardarDocumentosClientes(Optional _CveDocumentacionExcluir As Integer = -1)
 
         Dim hasError As Boolean = True
@@ -7072,18 +7096,38 @@ Partial Class Clientes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Adjunto As String = GvRow.DataKey("Adjunto")
 
-        Dim stringDescargaDocumento As String = ""
+        Dim stringDescargaDocumento As String = ""
-        If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
+
-            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa)
+        If GvRow.DataKey("Documentacion") = "Pagaré" AndAlso UsuarioActual.CveEmpresa = 140 Then
+
+            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\Formatos\Pagaré.docx", UsuarioActual.CveEmpresa)
+            TxtDireccionAval.Text = ""
+            TxtAval.Text = ""
+            RegistraScript("$('#ModalDivPagare').modal('show')")
+
         Else
-            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
+            stringDescargaDocumento = ModExtensiones.DirectorioBaseEmpresas & String.Format("Empresas\{0}\DocElectronica\Clientes\{1}\{2}", UsuarioActual.CveEmpresa, CveCliente, Adjunto)
-        End If
+
-        linkDescargaPagare = stringDescargaDocumento
+            linkDescargaPagare = stringDescargaDocumento
-
+
-        TxtDireccionAval.Text = ""
+            Dim File = New FileInfo(linkDescargaPagare)
-        TxtAval.Text = ""
+
-        RegistraScript("$('#ModalDivPagare').modal('show')")
+            If File.Exists Then
-
+
+                Response.Clear()
+                Response.AddHeader("Content-Disposition", "attachment; filename=" + File.Name)
+                Response.AddHeader("Content-Length", File.Length.ToString())
+                Response.ContentType = "text/octet-stream"
+                Response.Flush()
+                Response.TransmitFile(File.FullName)
+                Response.End()
+
+            End If
+        End If
+
+
+
+
     End Sub
 
     Protected Sub ImprimirPagare(sender As Object, e As EventArgs) Handles BtnAgregarPagare.Click
@@ -7153,7 +7197,7 @@ Partial Class Clientes
 
             Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString()
             Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato")
-            'Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
+            Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad")
             Dim LnkDownLoadDoc As LinkButton = e.Row.FCLinkButton("LnkDownLoadDoc")
             Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired")
             Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite")
@@ -7204,11 +7248,13 @@ Partial Class Clientes
             End If
 
             If documentacionFormato = "" Then
-                'ImgDownLoadFormato.Visible = False
+                ImgDownLoadFormato.Visible = False
                 LnkDownLoadDoc.Visible = False
-            Else
+            Else
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Formatos/" & CveDocumentacion & "" & documentacionFormato
+                LnkDownLoadDoc.Visible = True
-                LnkDownLoadDoc.Visible = True
+                ScriptManager.GetCurrent(Me).RegisterPostBackControl(ImgDownLoadFormato)
+
+
             End If
 
             txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate().ToString("dd/MM/yyyy")
@@ -7221,6 +7267,7 @@ Partial Class Clientes
 
                     LnkDownLoadDoc.Visible = True
                     ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDownLoadDoc)
+
                     'If extencion.Length > 0 Then
                     '    ImgDownLoad.Text = String.Format(" <a class='btn btn-circle btn-sm blue' href='{0}' target='_black' download='{1}'><i class='fa fa-download' title='Descargar documento'></i></a>", linkDescarga, CveCliente & Documentacion & "." & extencion)
                     'Else
@@ -7261,6 +7308,7 @@ Partial Class Clientes
         Dim PathRoot As String = Server.MapPath("/")
         Dim PathSource As String
         Dim pathDesti As String
+        Dim fname As String = ""
 
         PathSource = UsuarioActual.Empresa.Ruta & "Formatos\" & documento
         pathDesti = PathRoot & "Temp\" & CveCliente & documento
@@ -7269,26 +7317,46 @@ Partial Class Clientes
             File.Delete(pathDesti)
         End If
 
-        File.Copy(PathSource, pathDesti)
+        File.Copy(PathSource, pathDesti)
-
+
-        Dim objDoc As New clsGemBoxDocument(pathDesti)
-        Dim objRH As New ClsRH
-        Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
-
-
-        objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(-1, UsuarioActual.CveEmpresa)) ' Pendiente
-        objRH.Dispose()
-
-
-
-        objDoc.Guardar(pathDesti)
-
         Dim fileinfo As New FileInfo(pathDesti)
+        fname = fileinfo.Name
 
-        Dim baseUrl As String = Request.Url.GetLeftPart(UriPartial.Authority)
+        If fileinfo.Extension.ToUpper = ".XLS" Or fileinfo.Extension.ToUpper = ".XLSX" Then
-        baseUrl = baseUrl & "/temp/" & fileinfo.Name
+
-
+
-        RegistraDescargaJavaScript(baseUrl)
+            Try
+                Dim objDoc As New clsGemBoxDocument(pathDesti)
+                Dim objRH As New ClsRH
+                Dim FechaActual As String = Now.Day.ToString("0#") & " de  " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString()
+
+
+                objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(-1, UsuarioActual.CveEmpresa)) ' Pendiente
+                objRH.Dispose()
+
+                objDoc.Guardar(pathDesti)
+            Catch ex As Exception
+
+            End Try
+
+
+
+        End If
+
+
+        Dim FileD = New FileInfo(pathDesti)
+
+        If FileD.Exists Then
+
+            Response.Clear()
+            Response.AddHeader("Content-Disposition", "attachment; filename=" + FileD.Name)
+            Response.AddHeader("Content-Length", FileD.Length.ToString())
+            Response.ContentType = "text/octet-stream"
+            Response.Flush()
+            Response.TransmitFile(FileD.FullName)
+            Response.End()
+
+        End If
 
     End Sub
 

Ventas/ClientesAbonar.aspx

@@ -75,6 +75,7 @@
                                         <asp:DropDownList ID="DdlIngreso" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="RazonSocial" DataValueField="CveIE" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
                                         <asp:RequiredFieldValidator ID="RFVDeudor" runat="server" ControlToValidate="DdlIngreso" InitialValue="-1" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Ingresos''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         <ajax:ValidatorCalloutExtender ID="VCEDeudor" runat="server" HighlightCssClass="vco" TargetControlID="RFVDeudor" Width="300px"></ajax:ValidatorCalloutExtender>
+                                        <asp:HiddenField ID="HdnIngresoImporte" Value="0" runat="server" />
                                     </div>
                                 </div>
                             </asp:Panel>

Ventas/ClientesAbonar.aspx.vb

@@ -78,22 +78,7 @@ Partial Class Ventas_ClientesAbonar
             ViewState("IdCuentaBancariaComplementaria") = value
         End Set
     End Property
-    Private Property CveCuentaBancaria As Integer
+
-        Get
-            Return ViewState("CveCuentaBancaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancaria") = value
-        End Set
-    End Property
-    Private Property CveCuentaBancariaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaBancariaComplementaria") = value
-        End Set
-    End Property
     Private Property NombreComercial As String
         Get
             Return ViewState("NombreComercial").ToString
@@ -158,38 +143,6 @@ Partial Class Ventas_ClientesAbonar
         End Set
     End Property
 
-    Private Property CveCuentaCliente As Integer
-        Get
-            Return ViewState("CveCuentaCliente").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveCuentaCliente") = value
-        End Set
-    End Property
-    Private ReadOnly Property CveCuentaMonedaExtranjera As Integer
-        Get
-            Return ViewState("CveCuentaMonedaExtranjera").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaComplementaria As Integer
-        Get
-            Return ViewState("CveCuentaComplementaria").ToString.ToEntero
-        End Get
-    End Property
-
-    Private ReadOnly Property CveCuentaRetIVA As Integer
-        Get
-            Return ViewState("CveCuentaRetIVA").ToString.ToEntero
-        End Get
-    End Property
-    Private ReadOnly Property CveCuentaRetISR As Integer
-        Get
-            Return ViewState("CveCuentaRetISR").ToString.ToEntero
-        End Get
-    End Property
-
-
     Private Property Mail As String
         Get
             If ViewState("Mail") Is Nothing Then
@@ -301,7 +254,6 @@ Partial Class Ventas_ClientesAbonar
                 If CargaCliente(CveCliente, CveMonedaFiltro) Then
 
                     IdCuentaBancaria = 0
-                    CveCuentaBancaria = 0
 
                     TxtOtrosImportes.Attributes.Add("onKeyUp", String.Format("FnSuma(this,{0},{1});", "TxtTotal", 0))
 
@@ -397,12 +349,6 @@ Partial Class Ventas_ClientesAbonar
                 ViewState("IdCtaContRetIVA") = ObjCliente.IdCtaContRetIVA
                 ViewState("IdCtaContRetISR") = ObjCliente.IdCtaContRetISR
 
-                ViewState("CveCuentaCliente") = ObjCliente.CveCuentaClientes
-                ViewState("CveCuentaMonedaExtranjera") = ObjCliente.CveCuentaMonedaExtranjera
-                ViewState("CveCuentaComplementaria") = ObjCliente.CveCuentaComplementaria
-                ViewState("CveCuentaRetIVA") = ObjCliente.CveCuentaRetIVA
-                ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR
-
                 ViewState("IdCtaAnticipo") = ObjCliente.IdCtaContAnticipos
                 ViewState("IdCtaContMonedaExtranjeraAnticipo") = ObjCliente.IdCtaMonedaExtranjeraAnticipos
                 ViewState("IdCtaContMonedaComplementariaAnticipo") = ObjCliente.IdCtaContCompAnticipos
@@ -483,8 +429,6 @@ Partial Class Ventas_ClientesAbonar
             IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero
             IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero
 
-            CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero
-            CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero
             ValidaCuentaDePagoFormaDePago()
         End If
 
@@ -720,6 +664,12 @@ Partial Class Ventas_ClientesAbonar
             Exit Sub
         End If
 
+        'valida que no exceda lo seleccionado. con el valor del ie
+        If (RblTipoPago.SelectedValue = "3" AndAlso HdnIngresoImporte.value.todecimal < txttotal.text.todecimal) Then
+            Alert("Importe excedido para la aplicación", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim Cuenta As String = ""
         Dim CuentaDeposito As String = ""
 
@@ -843,6 +793,8 @@ Partial Class Ventas_ClientesAbonar
                     Dim tipoCambioPago As Decimal
                     Dim tipoCambioVentaValuacion As Decimal = 1
                     Dim TipoCambioGeneral As Decimal = 1
+                    Dim CveSubProyectoContabilizar As Integer = -1
+                    Dim CveSubProyectoMaximo As Integer = -1
                     Dim CuentasContablesInvalidas As New StringBuilder
                     Dim CuentasContablesInvalidasSIG As New StringBuilder
                     Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False)
@@ -914,12 +866,12 @@ Partial Class Ventas_ClientesAbonar
                                     Dim importeMX As Decimal
                                     Dim FechaMovimiento As Date = TxtFechaDocumento.Text
                                     Dim IdCtaContable As Integer = 0
-                                    Dim CveCuenta As Integer = 0
                                     Dim ConceptoMovimiento As String = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreComercial, gvr.DataKey("SerieFolio").ToString, TxtFolio.Text.Trim)
                                     Dim Referencia As String = gvr.DataKey("SerieFolio").ToString
                                     Dim CveSubProyecto As Integer = gvr.DataKey("CveSubProyecto").ToEntero
-                                    Dim CveSubProyectoContabilizar As Integer = -1
+                                    CveSubProyectoContabilizar = -1
                                     Dim PorcentajeImpuesto As Decimal = 0
+                                    If CveSubProyecto > 0 Then CveSubProyectoMaximo = CveSubProyecto
 
                                     Select Case ConceptoContable
                                         Case 2 'Pago Cliente
@@ -945,25 +897,22 @@ Partial Class Ventas_ClientesAbonar
                                             If gvr.DataKey("CveMoneda").ToEntero = 1 Then
                                                 IdCtaContable = If(EsAnticipoEspecial, IdCtaAnticipo, IdCuentaCliente)
                                                 ConceptoContable = If(EsAnticipoEspecial, 3, ConceptoContable)
-                                                CveCuenta = If(EsAnticipoEspecial, -1, CveCuentaCliente)
                                             Else
                                                 ConceptoMovimiento += $" TC:{tipoCambioVentaValuacion} ${ImporteMovimiento.FormatoNumero(2)}"
                                                 IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaComplementariaAnticipo, IdCtaContComplementaria)
-                                                CveCuenta = If(EsAnticipoEspecial, -1, CveCuentaComplementaria)
                                                 If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
                                                     importeMX = ImporteMovimiento
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioVentaValuacion) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, If(gvr.DataKey("TipoDocto") = "Ant" AndAlso UsuarioActual.CveEmpresa = 119, 226, 207), ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=(ImporteMovimiento * tipoCambioVentaValuacion - ImporteMovimiento).RoundSQL, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioVentaValuacion) Then
                                                         MsgError = "No se pudo insertar la póliza"
                                                     End If
                                                 End If
                                                 IdCtaContable = If(EsAnticipoEspecial, IdCtaContMonedaExtranjeraAnticipo, IdCtaContMonedaExtranjera)
-                                                CveCuenta = If(EsAnticipoEspecial, -1, CveCuentaMonedaExtranjera)
                                                 ConceptoContable = If(EsAnticipoEspecial, 3, ConceptoContable)
                                             End If
 
                                             If EsAnticipoEspecial Then
-                                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Referencia, 2, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=False) Then
+                                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, Referencia, 2, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=False) Then
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Referencia, 95, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=False) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Referencia, 95, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=False) Then
                                                         MsgError = "No se pudo insertar la póliza"
                                                     End If
                                                 Else
@@ -1010,16 +959,6 @@ Partial Class Ventas_ClientesAbonar
                                                 End If
                                             End If
 
-                                            'Conta SIG
-                                            If CveCuentaRetIVA <> 0 Then
-                                                CveCuenta = CveCuentaRetIVA
-                                            Else
-                                                If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                    If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                    End If
-                                                End If
-                                            End If
 
                                         Case 313 'Ret Iva Servicios
                                             If EsAnticipoEspecial Then Exit Select
@@ -1092,16 +1031,7 @@ Partial Class Ventas_ClientesAbonar
                                                 End If
                                             End If
 
-                                            'Conta SIG
+
-                                            If CveCuentaRetISR <> 0 Then
-                                                CveCuenta = CveCuentaRetISR
-                                            Else
-                                                If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                    If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                    End If
-                                                End If
-                                            End If
                                         Case 13 'Iva por Trasladar
                                             If EsAnticipoEspecial Then Exit Select
                                             If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -1126,15 +1056,12 @@ Partial Class Ventas_ClientesAbonar
 
                                             PorcentajeImpuesto = gvr.DataKey("PorcentajeIVA").ToDecimal
                                             Dim IdCtaIVAXTrasladar As Integer = 0
-                                            Dim CveCuentaIVAxTrasladar As Integer = 0
 
                                             If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
                                                 IdCtaIVAXTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVAXTrasladar").ToString.ToEntero
-                                                CveCuentaIVAxTrasladar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVAXTrasladar").ToString.ToEntero
                                             End If
 
                                             IdCtaContable = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar)
-                                            CveCuenta = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar)
                                             If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
                                         Case 62 'Ret IVA Trasladado
                                             If EsAnticipoEspecial Then Exit Select
@@ -1175,16 +1102,6 @@ Partial Class Ventas_ClientesAbonar
                                                 End If
                                             End If
 
-                                            'Conta SIG
-                                            If CveCuentaRetIVA <> 0 Then
-                                                CveCuenta = CveCuentaRetIVA
-                                            Else
-                                                If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                    If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                    End If
-                                                End If
-                                            End If
 
                                         Case 314 'Ret Iva Servicios Traslado
                                             If EsAnticipoEspecial Then Exit Select
@@ -1257,16 +1174,7 @@ Partial Class Ventas_ClientesAbonar
                                                 End If
                                             End If
 
-                                            'Conta SIG
+
-                                            If CveCuentaRetISR <> 0 Then
-                                                CveCuenta = CveCuentaRetISR
-                                            Else
-                                                If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                    If ObjMov.DtResultados.Rows.Count > 0 Then
-                                                        CveCuenta = ObjMov.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                    End If
-                                                End If
-                                            End If
                                         Case 61 'Iva Trasladado
                                             If EsAnticipoEspecial Then Exit Select
                                             If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -1291,15 +1199,12 @@ Partial Class Ventas_ClientesAbonar
 
                                             PorcentajeImpuesto = gvr.DataKey("PorcentajeIVA").ToDecimal
                                             Dim IdCtaIVATrasladado As Integer = 0
-                                            Dim CveCuentaIVATrasladado As Integer = 0
 
                                             If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows.Count > 0 Then
                                                 IdCtaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("IdCtaIVATrasladado").ToString.ToEntero
-                                                CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeImpuesto).Rows(0)("CveCuentaIVATrasladado").ToString.ToEntero
                                             End If
 
                                             IdCtaContable = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado)
-                                            CveCuenta = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado)
                                             If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}"
                                         Case 38 'IEPS por trasladar
                                             If EsAnticipoEspecial Then Exit Select
@@ -1324,7 +1229,6 @@ Partial Class Ventas_ClientesAbonar
                                             CveSubProyectoContabilizar = CveSubProyecto
 
                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar
-                                            CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSxTrasladar
                                         Case 39 'IEPS Trasladado
                                             If EsAnticipoEspecial Then Exit Select
                                             If CveMoneda = 1 AndAlso gvr.DataKey("CveMoneda").ToEntero = 1 Then
@@ -1348,7 +1252,6 @@ Partial Class Ventas_ClientesAbonar
                                             CveSubProyectoContabilizar = CveSubProyecto
 
                                             IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado
-                                            CveCuenta = UsuarioActual.Empresa.CveCuentaIEPSTrasladado
                                         Case 64 'Ganancia
                                             If CveMoneda <> 1 OrElse gvr.DataKey("CveMoneda").ToEntero <> 1 Then
 
@@ -1530,7 +1433,7 @@ Partial Class Ventas_ClientesAbonar
                                             '            CveCuenta = CveCuentaCliente
                                             '        End If
 
-                                            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE:=DdlIngreso.SelectedValue.ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteMX:=importeMX, CveCuenta:=CveCuenta, CveSubProyecto:=CveSubProyectoContabilizar) Then
+                                            '        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE:=DdlIngreso.SelectedValue.ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteMX:=importeMX,   CveSubProyecto:=CveSubProyectoContabilizar) Then
                                             '            MsgError = "No se pudo insertar la póliza"
                                             '        End If
 
@@ -1538,7 +1441,7 @@ Partial Class Ventas_ClientesAbonar
                                             '            IdCtaContable = IdCtaContComplementaria
                                             '            CveCuenta = CveCuentaComplementaria
                                             '            If ImporteMovimiento <> 0 AndAlso (IdCtaContable > 0 Or UsuarioActual.CveEmpresa = 119) Then
-                                            '                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 227, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE:=DdlIngreso.SelectedValue.ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento, CveCuenta:=CveCuenta, ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then
+                                            '                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, TxtObservaciones.Text, 227, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE:=DdlIngreso.SelectedValue.ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, CveCliente:=CveCliente, ImporteMX:=ImporteMovimiento * tipoCambioPago - ImporteMovimiento,  , ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioPago) Then
                                             '                    MsgError = "No se pudo insertar la póliza"
                                             '                End If
                                             '                importeMX = ImporteMovimiento
@@ -1557,7 +1460,7 @@ Partial Class Ventas_ClientesAbonar
 
                                                 If tipoCambioVenta > 1 Then ConceptoMovimiento += $" TC:{tipoCambioVenta} ${ImporteMovimiento.FormatoNumero(2)}"
 
-                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta) Then
+                                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, -1, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX) Then
                                                     MsgError = "No se pudo insertar la póliza"
                                                 End If
                                             End If
@@ -1575,13 +1478,7 @@ Partial Class Ventas_ClientesAbonar
                                             idCuentaContabilizacion = 0
                                         End If
 
-                                        'Conta SIG
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
-                                        If (CveCuenta < 1 Or CveCuentaBancaria < 1) Then
-                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                            CveCuentaContabilizacion = 0
-                                        End If
-
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, Referencia, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.FCHyperLink("HplF2").Text.ToEntero, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta, TipoCambio:=TipoCambioGeneral, TipoCambioPago:=tipoCambioPago, PorcentajeImpuesto:=PorcentajeImpuesto) Then
                                             MsgError = "No se pudo insertar la póliza"
                                             Exit For
                                         End If
@@ -1598,19 +1495,22 @@ Partial Class Ventas_ClientesAbonar
                     Next
 
                     If RblTipoPago.SelectedValue = "1" Then
+
+                        CveSubProyectoContabilizar = CveSubProyectoMaximo
+
                         If tipoCambioPago > 1 AndAlso CveMoneda = 2 Then
-                            If IdCuentaBancariaComplementaria > 0 OrElse CveCuentaBancariaComplementaria > 0 Then
+                            If IdCuentaBancariaComplementaria > 0 Then
                                 If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES
                                     tipoCambioPago = TxtTCDolares.Text.ToDecimal
                                 ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then
                                     tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                 End If
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
 
-                                If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 204, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), CveCuenta:=CveCuentaBancariaComplementaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If MsgError = "" AndAlso Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 204, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancariaComplementaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             Else
@@ -1620,7 +1520,7 @@ Partial Class Ventas_ClientesAbonar
                                     tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                 End If
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             End If
@@ -1631,7 +1531,7 @@ Partial Class Ventas_ClientesAbonar
                                 tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                             End If
 
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, ObjIE.Folio, 30, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCuentaBancaria, -1, CveIE, -1, -1, CveSubProyectoContabilizar, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
@@ -1647,11 +1547,11 @@ Partial Class Ventas_ClientesAbonar
                                     tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                 End If
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=TxtImporte.Text.Trim.ToDecimal, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), CveCuenta:=CveCuentaBancariaComplementaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, If(CveMoneda = 1 AndAlso TxtTC.Visible, TxtImporte.Text.ToDecimal / TxtTC.Text.ToDecimal, TxtImporte.Text.ToDecimal), TxtObservaciones.Text, 227, TxtObservaciones.Text + If(TxtTC.Visible, $" TC:{TxtTC.Text}", If(CveMoneda = 2, $" TC:{tipoCambioVenta}", "")), TxtFechaDocumento.Text, IdCtaContMonedaComplementariaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, (TxtImporte.Text.Trim.ToDecimal * tipoCambioPago) - TxtImporte.Text.Trim.ToDecimal, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             Else
@@ -1661,7 +1561,7 @@ Partial Class Ventas_ClientesAbonar
                                     tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                                 End If
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaContMonedaExtranjeraAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                     MsgError = "No se pudo insertar la póliza"
                                 End If
                             End If
@@ -1672,7 +1572,7 @@ Partial Class Ventas_ClientesAbonar
                                 tipoCambioPago = TxtTCDolaresDolares.Text.ToDecimal
                             End If
 
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), CveCuenta:=CveCuentaBancaria, TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtImporte.Text.ToDecimal, TxtObservaciones.Text, 92, TxtObservaciones.Text + If(CveMoneda = 2, $" TC:{tipoCambioPago}", ""), TxtFechaDocumento.Text, IdCtaAnticipo, -1, CveIE, -1, -1, -1, ViewState("CveCliente").ToString.ToEntero, ImporteMX:=If(CveMoneda = 2, TxtImporte.Text.Trim.ToDecimal * tipoCambioPago, TxtImporte.Text.Trim.ToDecimal), ImporteME:=If(CveMoneda = 2, TxtImporte.Text.ToDecimal, 0), TipoCambio:=tipoCambioPago, TipoCambioPago:=tipoCambioPago) Then
                                 MsgError = "No se pudo insertar la póliza"
                             End If
                         End If
@@ -3179,15 +3079,19 @@ Partial Class Ventas_ClientesAbonar
 
     Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged
         'saco la moneda de la selección
-
+        hdnIngresoImporte.Value = 0
         If DdlIngreso.SelectedValue.ToEntero > 0 Then
             Dim Banco As New ClsBancos
 
             If Banco.GetBancosIE(DdlIngreso.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
                 CveMonedaPago = Banco.CveMoneda
+                Dim Deudores As New ClsMovimientos
+                If Deudores.GetIngresosSaldosDetalle(CveCliente, -1, UsuarioActual.CveEmpresa) Then
+                    hdnIngresoImporte.Value = Deudores.DtResultados.FiltroPrimeroValor("Saldo", String.Format("CveIE = {0}", DdlIngreso.Selectedvalue))
+                End If
+                Deudores.Dispose()
             End If
             IdCuentaBancariaComplementaria = 0
-            CveCuentaBancariaComplementaria = 0
             Banco.Dispose()
         Else
             CveMonedaPago = -1

Ventas/Promociones.aspx.vb

@@ -458,7 +458,9 @@ Partial Class Ventas_Promociones
         Dim TieneError = False
         ObjVentas.IniciaTransacSQL()
 
-        If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha), DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario, CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlMarca.SelectedValue.ToEntero) Then
+        If ObjVentas.UpdatePromociones(TxtPromocion.Text.Trim, If(IsDate(TxtFechaI.Text), TxtFechaI.Text.ToDate, MinFecha), If(IsDate(TxtFechaF.Text), TxtFechaF.Text.ToDate, MaxFecha),
+                                       DdlVendedor.SelectedValue.ToEntero, CveCliente, ChkEstatus.Checked, DdlMoneda.SelectedValue.ToEntero, UsuarioActual.CveUsuario,
+                                       CvePromocion, DdlSubProyecto.SelectedValue.ToEntero, DdlTipoAplicacion.SELECTEDVALUE.TOENTERO, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero) Then
 
             For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows
                 If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble,

Ventas/RepRecuperacion.aspx

@@ -170,17 +170,10 @@
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label id="lblEsDistribuidor" runat="server" visible="false" class="col-md-1 truncate">Es Distrubuidor:</label>
+
-                        <div class="col-md-2" id="divEsDistribuidor" runat="server" visible="false">
-                           <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
 
                             <div class="col-md-1 truncate">F. Conciliado inicio:</div>
-                            <div class="col-md-1">
+                            <div class="col-md-1" style="padding-left: 0px">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -209,6 +202,46 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                        </div>
+                        <div class="row">
+                        <label id="lblEsDistribuidor" runat="server" visible="false" class="col-md-1 truncate">Es Distribuidor:</label>
+                        <div class="col-md-2" id="divEsDistribuidor" runat="server" visible="false">
+                           <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                            <div class="col-md-1 truncate">F. Registro IE inicio:</div>
+                            <div class="col-md-1" style="padding-left: 0px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioRegistroIEI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaRegistroIEI" runat="server" TargetControlID="TxtFechaRegistroIEI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtFechaRegistroIEI" PopupButtonID="imgCalendarioRegistroIEI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                            <div class="col-md-1 truncate">F. Registro IE Fin:</div>
+                            <div class="col-md-1">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
+                                    <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendarioRegistroIEF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEFechaRegistroIEF" runat="server" TargetControlID="TxtFechaRegistroIEF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtFechaRegistroIEF" PopupButtonID="imgCalendarioRegistroIEF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="rfvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="cvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="vcoFfvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
                     </div>
                 </div>
             </div>

Ventas/RepRecuperacion.aspx.vb

@@ -129,13 +129,16 @@ Partial Class Ventas_RepRecuperacion
         End If
 
         Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
-        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+
+        Dim FechaRegistroIEI As Date = If(IsDate(TxtFechaRegistroIEI.Text), TxtFechaRegistroIEI.Text.ToDate, MinFecha)
+        Dim FechaRegistroIEF As Date = If(IsDate(TxtFechaRegistroIEF.Text), TxtFechaRegistroIEF.Text.ToDate, MaxFecha)
 
 
         If ObjMovtos.GetRepRecuperacion(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1,
                                         "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue.ToString, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero,
                                         EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
-                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF) Then
+                                        EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
         Else
@@ -158,12 +161,14 @@ Partial Class Ventas_RepRecuperacion
     Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             Dim Css As String = "Texto"
-            Dim FechaI, FechaF, FechaAplicadoI, FechaAplicadoF As String
+            Dim FechaI, FechaF, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
             Dim CveClienteSucursal As Integer = -1
             FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
             FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
             FechaAplicadoI = If(IsDate(TxtFechaAplicadoI.Text.Trim()), TxtFechaAplicadoI.Text.Trim(), MinFecha.ToShortDateString.ToString)
-            FechaAplicadoF = If(IsDate(TxtFechaAplicadoF.Text.Trim()), TxtFechaAplicadoF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
+            FechaAplicadoF = If(IsDate(TxtFechaAplicadoF.Text.Trim()), TxtFechaAplicadoF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
+            FechaRegistroIEI = If(IsDate(TxtFechaRegistroIEI.Text.Trim()), TxtFechaRegistroIEI.Text.Trim(), MinFecha.ToShortDateString.ToString)
+            FechaRegistroIEF = If(IsDate(TxtFechaRegistroIEF.Text.Trim()), TxtFechaRegistroIEF.Text.Trim(), MaxFecha.ToShortDateString.ToString)
             If e.Row.DBCampo("Orden") = "" Then
                 e.Row.CssClass = "Totales"
             End If
@@ -175,15 +180,15 @@ Partial Class Ventas_RepRecuperacion
                 End If
             End If
 
-            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}",
+            Dim Liga4 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 2, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
 
             e.Row.FCHyperLink("HplPagado").NavigateUrl = Liga4
 
-            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}",
+            Dim Liga5 As String = String.Format("/Ventas/RepRecuperacionDetalle.aspx?GPO={0}&CveCliente={1}&CveSubProyecto={2}&Vendedor={3}&CveUsuario={4}&CveEstatusFactura={5}&IVA={6}&FechaI={7}&FechaF={8}&CveResponsable={9}&TipoDocto={10}&CveClienteSucursal={11}&CveBanco{12}&CveCuenta{13}&Grupo={14}&TipoCambio={15}&TCEspecifico={16}&CveMoneda={17}&Tipo={18}&EsDistribuidor={19}&FechaAplicadoI={20}&FechaAplicadoF={21}&FechaRegistroIEI={22}&FechaRegistroIEF={23}",
                                               DdlGrupo.SelectedValue, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveVendedor"),
-                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF)
+                                              e.Row.DBCampo("CveUsuario"), e.Row.DBCampo("CveEstatusFactura"), e.Row.DBCampo("GPO_IVA"), FechaI, FechaF, DdlResponsable.SelectedValue, e.Row.DBCampo("TipoDocto"), CveClienteSucursal, e.Row.DBCampo("CveBanco"), e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("GPO"), e.Row.DBCampo("TipoCambio"), e.Row.DBCampo("TCEspecifico"), e.Row.DBCampo("CveMoneda"), 1, e.Row.DBCampo("EsDistribuidor"), FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF)
 
             e.Row.FCHyperLink("HplVendido").NavigateUrl = Liga5
 

Ventas/RepRecuperacionDetalle.aspx

@@ -178,16 +178,9 @@
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
-                        <label id="lblEsDistribuidor" runat="server" visible="false" class="col-md-1 truncate">Es Distrubuidor:</label>
+                        
-                        <div class="col-md-2" id="divEsDistribuidor" runat="server" visible="false">
+                            <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
-                           <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                            <div class="col-md-1"  style="padding-left: 0px !important;">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                <asp:ListItem Text="Si" Value="1"></asp:ListItem>
-                                <asp:ListItem Text="No" Value="0"></asp:ListItem>
-                            </asp:DropDownList>
-                        </div>
-                        <div class="col-md-1 truncate">Fecha Aplicado Inicio: </div>
-                            <div class="col-md-1">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                     <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -216,7 +209,47 @@
                                 <ajax:ValidatorCalloutExtender ID="vcoFfvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                                 <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
-                    </div>
+                        </div>
+                            <div class="row">
+                                <label id="lblEsDistribuidor" runat="server" visible="false" class="col-md-1 truncate">Es Distribuidor:</label>
+                                <div class="col-md-2" id="divEsDistribuidor" runat="server" visible="false">
+                                   <asp:DropDownList ID="DdlDistribuidor" runat="server" AppendDataBoundItems="true" CssClass="form-control  input-small input-sm select2me" Width="100%">
+                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                        <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                        <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                                <div class="col-md-1 truncate">F. Registro IE inicio:</div>
+                                <div class="col-md-1" style="padding-left: 0px !important;">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; ">
+                                        <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioRegistroIEI" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaRegistroIEI" runat="server" TargetControlID="TxtFechaRegistroIEI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender3" TargetControlID="TxtFechaRegistroIEI" PopupButtonID="imgCalendarioRegistroIEI" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:CompareValidator ID="cvFechaRegistroIEI" runat="server" ControlToValidate="TxtFechaRegistroIEI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                                <div class="col-md-1 truncate">F. Registro IE Fin:</div>
+                                <div class="col-md-1" >
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding-left: 0px !important;">
+                                        <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendarioRegistroIEF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaRegistroIEF" runat="server" TargetControlID="TxtFechaRegistroIEF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CalendarExtender4" TargetControlID="TxtFechaRegistroIEF" PopupButtonID="imgCalendarioRegistroIEF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:CompareValidator ID="cvFechaRegistroIEF" runat="server" ControlToValidate="TxtFechaRegistroIEF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEF" Width="350px"></ajax:ValidatorCalloutExtender>
+                                </div>
+                            </div>
                 </div>
             </div>
         </ContentTemplate>

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -85,7 +85,7 @@ Partial Class Ventas_RepRecuperacionDetalle
     Private Sub CargaCombos()
         Dim CveCliente, CveVendedor, CveUsuario, CveSubProyecto,
          CveEstatus, CveResponsable, CveAgrupador, CveBanco, CveCuenta, CveClienteSucursal, CveMoneda, CveClienteClasificacion As Integer
-        Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF As String
+        Dim FechaI, FechaF, TipoDocto, TipoCambio, FechaAplicadoI, FechaAplicadoF, FechaRegistroIEI, FechaRegistroIEF As String
 
         'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
@@ -146,15 +146,25 @@ Partial Class Ventas_RepRecuperacionDetalle
             txtFechaI.Text = FechaI
         End If
 
-        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing, Request("FechaAplicadoI").ToString, "-1").ToString
+        FechaAplicadoI = If(Request("FechaAplicadoI") IsNot Nothing And Request("FechaAplicadoI").ToString <> "01/01/1900", Request("FechaAplicadoI").ToString, "-1").ToString
-        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing, Request("FechaAplicadoF").ToString, "-1").ToString
+        FechaAplicadoF = If(Request("FechaAplicadoF") IsNot Nothing And Request("FechaAplicadoF").ToString <> "01/01/9999", Request("FechaAplicadoF").ToString, "-1").ToString
+
+        FechaRegistroIEI = If(Request("FechaRegistroIEI") IsNot Nothing And Request("FechaRegistroIEI").ToString <> "01/01/1900", Request("FechaRegistroIEI").ToString, "-1").ToString
+        FechaRegistroIEF = If(Request("FechaRegistroIEF") IsNot Nothing And Request("FechaRegistroIEF").ToString <> "01/01/9999", Request("FechaRegistroIEF").ToString, "-1").ToString
+
         If FechaAplicadoF <> "-1" Then
             TxtFechaAplicadoF.Text = FechaAplicadoF
         End If
         If FechaAplicadoI <> "-1" Then
             TxtFechaAplicadoI.Text = FechaAplicadoI
+        End If
+
+        If FechaRegistroIEF <> "-1" Then
+            TxtFechaRegistroIEF.Text = FechaRegistroIEF
+        End If
+        If FechaRegistroIEI <> "-1" Then
+            TxtFechaRegistroIEI.Text = FechaRegistroIEI
         End If
-
 
         TipoDocto = IfNull(Request("TipoDocto"), "-1").ToString
         CveClienteSucursal = IfNull(Request("CveClienteSucursal"), "-1").ToString.ToEntero
@@ -232,14 +242,21 @@ Partial Class Ventas_RepRecuperacionDetalle
             TCEspecifico = TxtEspecifico.Text.ToDecimal
         Else
             TCEspecifico = -1
-        End If
+        End If
+
+        Dim FechaAplicadoI As Date = If(IsDate(TxtFechaAplicadoI.Text), TxtFechaAplicadoI.Text.ToDate, MinFecha)
+        Dim FechaAplicadoF As Date = If(IsDate(TxtFechaAplicadoF.Text), TxtFechaAplicadoF.Text.ToDate, MaxFecha)
+
+        Dim FechaRegistroIEI As Date = If(IsDate(TxtFechaRegistroIEI.Text), TxtFechaRegistroIEI.Text.ToDate, MinFecha)
+        Dim FechaRegistroIEF As Date = If(IsDate(TxtFechaRegistroIEF.Text), TxtFechaRegistroIEF.Text.ToDate, MaxFecha)
+
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetRepRecuperacionDetalle(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero,
                                    DdlClienteSucursal.SelectedValue.ToEntero, -1,
                                    Iva.ToString, DdlGrupo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlResponsable.SelectedValue.ToEntero,
                                    DdlTipoDocto.SelectedValue, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveBanco:=DdlBanco.SelectedValue.ToEntero, CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero, Grupo:=Grupo,
                                    TipoCambio:=RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, CveMoneda:=DdlMoneda.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, Tipo:=Tipo,
-                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=TxtFechaAplicadoI.Text.ToDate, FechaAplicadoF:=TxtFechaAplicadoF.Text.ToDate) Then
+                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF, FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF) Then
 
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados

Ventas/Ventas.aspx

@@ -8543,10 +8543,11 @@
         }
 
         //Suma Totales
-        function FnSuma() {
+    function FnSuma() {
-            $get('TxtSubTotal2').value = FormatoNumero(ToDouble($get('TxtSubTotal').value) - ToDouble($get('LblDescuentos').innerHTML) - ToDouble($get('LblAmortizacion').innerHTML), 2);
-            var totalVenta = ToDouble($get('TxtSubTotal2').value) + ToDouble($get('TxtIVA').value) + ToDouble($get('TxtIEPS') ? ToDouble($get('TxtIEPS').value) : 0) - ToDouble($get('TxtRetIVA').value) - ToDouble($get('TxtRetISR').value);
             debugger;
+            $get('TxtSubTotal2').value = FormatoNumero(ToDouble($get('TxtSubTotal').value) - ToDouble($get('LblDescuentos').innerHTML) - ToDouble($get('LblAmortizacion').innerHTML), 2);
+            var totalVenta = ToDouble($get('TxtSubTotal2').value) + ToDouble($get('TxtIVA').value) + ToDouble($get('TxtIEPS') ? ToDouble($get('TxtIEPS').value) : 0) - ToDouble($get('TxtRetIVA') ? $get('TxtRetIVA').value : 0) - ToDouble($get('TxtRetISR') ? $get('TxtRetISR').value:0);
+            
             $("#<%=GvImpuestosLocales2.ClientID%> input[type='text']").each(function () {
 
                 if ($(this).attr("class") == '5') // cuando es traslado de impuesto local, se suma

Ventas/Ventas.aspx.vb

@@ -9961,9 +9961,9 @@ Partial Class Ventas
 
 
         'RMF. faltan impuestos locales
-        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows.Count > 0 Then
+        If TmpDTImpuestos IsNot Nothing AndAlso TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows.Count > 0 Then
 
-            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto = 1").Rows
+            For Each DrImpuestosLocales As DataRow In TmpDTImpuestos.FiltraParametros("TipoImpuesto IN (1,3) ").Rows
                 If DrImpuestosLocales("Importe").ToString().ToDecimal > 0 Then
                     Dim ret As New CFDIRetencionesLocales With
                         {

packages.config

@@ -3,6 +3,9 @@
   <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net461" />
   <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net461" />
   <package id="Antlr" version="3.4.1.9004" targetFramework="net461" />
+  <package id="ClosedXML" version="0.95.4" targetFramework="net461" />
+  <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net461" />
+  <package id="ExcelNumberFormat" version="1.0.10" targetFramework="net461" />
   <package id="jQuery" version="1.6.4" targetFramework="net461" />
   <package id="log4net" version="1.2.10" targetFramework="net461" />
   <package id="Microsoft.AspNet.SignalR" version="2.4.1" targetFramework="net461" />
@@ -19,6 +22,7 @@
   <package id="Microsoft.Bcl.AsyncInterfaces" version="5.0.0" targetFramework="net461" />
   <package id="Microsoft.Bcl.Build" version="1.0.14" targetFramework="net461" />
   <package id="Microsoft.Bcl.HashCode" version="1.1.1" targetFramework="net461" />
+  <package id="Microsoft.CSharp" version="4.7.0" targetFramework="net461" />
   <package id="Microsoft.EntityFrameworkCore" version="3.1.14" targetFramework="net461" />
   <package id="Microsoft.EntityFrameworkCore.Abstractions" version="3.1.14" targetFramework="net461" />
   <package id="Microsoft.EntityFrameworkCore.Analyzers" version="3.1.14" targetFramework="net461" />
@@ -36,10 +40,9 @@
   <package id="Microsoft.IdentityModel.JsonWebTokens" version="6.11.0" targetFramework="net461" />
   <package id="Microsoft.IdentityModel.Logging" version="6.11.0" targetFramework="net461" />
   <package id="Microsoft.IdentityModel.Tokens" version="6.11.0" targetFramework="net461" />
-  <package id="Microsoft.Owin" version="4.1.1" targetFramework="net461" />
+  <package id="Microsoft.Owin" version="4.2.0" targetFramework="net461" />
   <package id="Microsoft.Owin.Host.SystemWeb" version="3.0.1" targetFramework="net461" />
-  <package id="Microsoft.Owin.Security" version="4.1.0" targetFramework="net461" />
+  <package id="Microsoft.Owin.Security" version="4.2.0" targetFramework="net461" />
-  <package id="Microsoft.Owin.Security.Jwt" version="4.1.0" targetFramework="net461" />
   <package id="Microsoft.Owin.Security.OAuth" version="4.1.0" targetFramework="net461" />
   <package id="Microsoft.ReportingServices.ReportViewerControl.WebForms" version="150.1358.0" targetFramework="net461" />
   <package id="Microsoft.ReportViewer.2015.Runtime" version="12.0.2.2402" targetFramework="net461" />
@@ -48,6 +51,7 @@
   <package id="Microsoft.SqlServer.Types" version="14.0.1016.290" targetFramework="net461" />
   <package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net461" />
   <package id="Microsoft.Web.Xdt" version="1.0.0" targetFramework="net461" />
+  <package id="morelinq" version="3.3.2" targetFramework="net461" />
   <package id="NC-OS-SessionStateProvider" version="4.4.0.0" targetFramework="net461" />
   <package id="Newtonsoft.Json" version="12.0.3" targetFramework="net461" />
   <package id="NuGet.Core" version="2.8.0" targetFramework="net461" />
@@ -56,8 +60,11 @@
   <package id="System.Buffers" version="4.5.1" targetFramework="net461" />
   <package id="System.Collections.Immutable" version="1.7.1" targetFramework="net461" />
   <package id="System.ComponentModel.Annotations" version="4.7.0" targetFramework="net461" />
+  <package id="System.Data.SqlClient" version="4.8.2" targetFramework="net461" />
   <package id="System.Diagnostics.DiagnosticSource" version="4.7.1" targetFramework="net461" />
-  <package id="System.IdentityModel.Tokens.Jwt" version="6.10.1" targetFramework="net461" />
+  <package id="System.IdentityModel.Tokens.Jwt" version="6.11.0" targetFramework="net461" />
+  <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />
+  <package id="System.IO.Packaging" version="4.0.0" targetFramework="net461" />
   <package id="System.Memory" version="4.5.4" targetFramework="net461" />
   <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net461" />
   <package id="System.Runtime.CompilerServices.Unsafe" version="5.0.0" targetFramework="net461" />

vwd.webinfo

@@ -242,6 +242,12 @@
     
   
     
+  
+    
+  
+    
+  
+