--cambio en getsucursales

App_Code/ClsPaginas.vb

@@ -2251,7 +2251,7 @@ Public Class ClsPaginas
             Dim AppNombre As String = $"GlobalDTClientesSucursales-{CveEmpresa}"
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjClientes As New ClsClientes
-                If ObjClientes.GetClienteSucursales(-1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados.Copy()
+                If ObjClientes.GetSucursales(-1, -1, CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClientes.DtResultados.Copy()
                 ObjClientes.Dispose()
             End If
             Dim filtros As New List(Of String)
@@ -9451,7 +9451,6 @@ Public Class ClsPaginas
         End If
         If Pago.TipoPago = "A" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' A N T I C I P O
             Concepto = String.Format("{0} Ant:{1}", VentaActual.ClienteNombre, Pago.Referencia)
-            Dim Ret As New ConceptosRetenciones
             'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
@@ -9465,7 +9464,6 @@ Public Class ClsPaginas
         End If
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A   D E   C R E D I T O 
             Concepto = String.Format("{0} NC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
-            Dim Ret As New ConceptosRetenciones
             Dim ConPrePNC As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, Pago.CveMonedaPago, True, 2)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
@@ -9479,7 +9477,6 @@ Public Class ClsPaginas
         End If
         If Pago.TipoPago = "I" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' I N G R E S O S   X   C O M P R O B A R 
             Concepto = String.Format("{0} IxC:{1}", VentaActual.ClienteNombre, Pago.Referencia)
-            Dim Ret As New ConceptosRetenciones
             If VentaActual.UsuarioActual.Empresa.TipoContabilidad = 2 Then
                 'If Pago.CveMonedaPago > 1 AndAlso ObjConta.GetRetCuenta(207, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
                 If VentaActual.UsuarioActual.CveEmpresa.Contiene(119) Then
@@ -9501,6 +9498,14 @@ Public Class ClsPaginas
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 92, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=Pago.CveClientePago, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
             End If
         End If
+
+        If Pago.TipoPago = "FyE" AndAlso Not ErrorMovtos Then ' F U N C I O N A R I O S  Y  E M P L E A D O S
+            Concepto = String.Format("{0} - {1}", VentaActual.ClienteNombre, Pago.Referencia)
+
+            'Agregamos Nacional
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 29, Pago.Referencia, Concepto, CveVenta:=VentaActual.CveVenta, CveCliente:=Pago.CveClientePago, CveIE:=Pago.CveIE, CveSubProyecto:=VentaActual.CveSubProyecto, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+
+        End If
         'si tiene otros gastos/ingresos
 
         If Not ErrorMovtos AndAlso Pago.OtroGastoIngreso <> 0 Then