From 692222d23a6b8a710430deeedeece74097e041a3 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 6 Nov 2023 21:26:42 -0700 Subject: [PATCH] =?UTF-8?q?--=20simplificaci=C3=B3n=20de=20valores=20--=20?= =?UTF-8?q?parametro=20de=20tipodocto?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsRH.vb | 3 ++- App_Code/Modelos.vb | 46 +++++++++++++++----------------------------- App_Code/Timbrado.vb | 4 ++-- 3 files changed, 19 insertions(+), 34 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index fcc6dab3f..5788f496d 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2675,7 +2675,7 @@ Public Class ClsRH End Function Public Function AddAsistencia(CvePersonal As Integer, CveCliente As Integer, CveSubProyecto As Integer, Fecha As Date, CveAsistenciasInasistencias As Integer, PorcentajePago As Double, - HorasDobles As Double, HorasTriples As Double, CveMotivoHoraExtra As Integer, Observacion As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + HorasDobles As Double, HorasTriples As Double, CveMotivoHoraExtra As Integer, Observacion As String, CveUsuario As Integer, CveEmpresa As Integer, Modulo As String) As Boolean Dim Retorno As Boolean = False Data = New DataTable @@ -2693,6 +2693,7 @@ Public Class ClsRH .Add("@HorasTriples", SqlDbType.Float).Value = HorasTriples .Add("@CveMotivoHoraExtra", SqlDbType.Int).Value = CveMotivoHoraExtra .Add("@Observacion", SqlDbType.VarChar).Value = Observacion + .Add("@Modulo", SqlDbType.VarChar).Value = Modulo .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 9037914bb..841e529e5 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1277,7 +1277,7 @@ Namespace Modelos Return Retorno End Function - Public Shared Function CrearVentaNueva(UsuarioActual As Usuario, CveSubProyecto As Integer, CveCliente As Integer, CveMoneda As Integer) As Modelos.Factura + Public Shared Function CrearVentaNueva(UsuarioActual As Usuario, CveSubProyecto As Integer, CveCliente As Integer, CveMoneda As Integer, Optional TipoDocto As String = "Ing") As Modelos.Factura Dim ObjFactura As New Modelos.Factura(UsuarioActual) Try ObjFactura.DirectorioServidor = HttpContext.Current.Server.MapPath("/") @@ -1289,41 +1289,26 @@ Namespace Modelos ObjFactura.Version = "4.0" ObjFactura.CveUsuario = UsuarioActual.CveUsuario ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa - ObjFactura.ConvertirPesos = False ObjFactura.CveMoneda = CveMoneda ObjFactura.Moneda = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("Moneda", $"CveMoneda = {ObjFactura.CveMoneda} ") ObjFactura.MonedaSAT = ClsPaginas.GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {ObjFactura.CveMoneda}") ObjFactura.TipoCambio = If(ObjFactura.CveMoneda = 1, 1, ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal()) - ObjFactura.TipoDocto = "Ing" - ObjFactura.RefDocto = "" + ObjFactura.TipoDocto = TipoDocto ObjFactura.Folio = -1 ObjFactura.Serie = "-1" ObjFactura.Fecha = ClsPaginas.NowADS() - ObjFactura.CvePrePoliza = -1 + ObjFactura.CveMetodoPago = 1 ObjFactura.MetodoPago = "Efectivo" ObjFactura.FechaPago = DateTime.Today - ObjFactura.MotivoDescuento = "" - ObjFactura.Observaciones = "" ObjFactura.FechaEjecucion = DateTime.Today ObjFactura.UsuarioCreo = UsuarioActual.Usuario - ObjFactura.CveCondicionEntrega = -1 - ObjFactura.CondicionEntrega = "" - ObjFactura.NumeroCuenta = "" ObjFactura.CondicionesPago = 0 - ObjFactura.FormaPago = 0 - ObjFactura.PedidoContrato = "" - ObjFactura.NumeroContrato = "" - ObjFactura.DescripcionContrato = "" - ObjFactura.CveCorte = -1 + + ObjFactura.TipoDocumento = "Factura" - ObjFactura.Alfa1 = "" - ObjFactura.Alfa2 = "" - ObjFactura.Alfa3 = "" + 'Totales, Y se llena TmpDTImpuestos - ObjFactura.Descuento = 0 - ObjFactura.Amortizacion = 0 - ObjFactura.CveContrato = -1 'CLIENTE ObjFactura.CveCliente = CveCliente ObjFactura.SetCliente() @@ -1345,13 +1330,13 @@ Namespace Modelos End If End If - If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then - If ObjCliente.DtResultados.Rows.Count > 0 Then - ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero()) - Else - ObjFactura.CveClienteSucursal = -1 - End If - End If + 'If ObjCliente.GetSucursales(ObjFactura.CveCliente) Then + ' If ObjCliente.DtResultados.Rows.Count > 0 Then + ' ObjFactura.CveClienteSucursal = If(String.IsNullOrEmpty(ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'")), -1, ObjCliente.DtResultados.FiltroPrimeroValor("CveClienteSucursal", "Estatus = 'Activo'").ToEntero()) + ' Else + ' ObjFactura.CveClienteSucursal = -1 + ' End If + 'End If ObjCliente.Dispose() ObjFactura.CveSubProyecto = CveSubProyecto.ToEntero @@ -1377,7 +1362,6 @@ Namespace Modelos ObjFactura = Nothing End Try - Return ObjFactura End Function @@ -7181,7 +7165,7 @@ Namespace Modelos Public Property Version As String = "" Public Property Serie As String = "" - Public Property Folio As Integer + Public Property Folio As Integer = -1 Public ReadOnly Property SerieFolio As String Get @@ -7321,7 +7305,7 @@ Namespace Modelos Public Property MonedaAbreviatura As String Public Property TipoCambio As Decimal = 1 Public Property TipoCambioDolares As Decimal - Public Property ConvertirPesos As Boolean + Public Property ConvertirPesos As Boolean = False Public Property ConvertirDolares As Boolean Public Property FormaPago As Integer = 0 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index a465c685d..e07fb9d12 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -904,10 +904,10 @@ Public Class Timbrado Equivalencia = 1 'condiciones especiales para el pago en pesos, facturas en moneda extranjera ElseIf MonedaPago = "MXN" AndAlso VentaAbreviaturaSAT <> "MXN" Then - VentaTipoCambio = Math.Round(VentaTipoCambio, 10) + VentaTipoCambio = Math.Round(VentaTipoCambio, 6) Equivalencia = Math.Round((1 / VentaTipoCambio), 10) ElseIf MonedaPago = "USD" AndAlso VentaAbreviaturaSAT <> "USD" Then - VentaTipoCambio = Math.Round(VentaTipoCambio, 10) + VentaTipoCambio = Math.Round(VentaTipoCambio, 6) Equivalencia = VentaTipoCambio End If