AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
asmx/WSApp.asmx
View File

@@ -358,7 +358,7 @@ Public Class WSApp
End Try
End Sub
Private Sub EnviarCorreoFactura(Correo As String, Factura As Modelos.Factura, Retorno As Modelos.Factura.MMensajeFactura, DireccionEnvio As String, UsuarioActual As Usuario)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, DateTime.Now)
Dim Body = GeneraCorreoRemision(Retorno.CveVenta, Retorno.SerieFolio, Factura.Cliente.Nombre, Factura.Cliente.NombreComercial, DireccionEnvio, Factura.Observaciones, ClsPaginas.NowADS())
Factura.Dispose()
Try
Dim Asunto As String = String.Format("SIG - Se ha realizado un pedido: {0}", Retorno.SerieFolio)
@@ -591,15 +591,15 @@ Public Class WSApp
Case 1
ObjFactura.TipoCambio = 1
Case 2
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal
Case Else
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(Now).ToDecimal
ObjFactura.TipoCambio = ClsPaginas.GlobalTipoCambio(ClsPaginas.NowADS()).ToDecimal
End Select
ObjFactura.CveVendedor = -1
'VALIDA PROMOCIONES Y EXISTENCIAS
Dim ObjVentas As New ClsVentas
If ObjVentas.GetPromocionesPS(-1, Now, CveSubProyecto, CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetPromocionesPS(-1, ClsPaginas.NowADS(), CveSubProyecto, CveCliente, ObjFactura.CveVendedor, 1, UsuarioActual.CveEmpresa) Then
ObjFactura.DtPromociones = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
@@ -618,12 +618,12 @@ Public Class WSApp
ObjFactura.TipoDocto = "Rem"
ObjFactura.RefDocto = ""
'ObjFactura.CveMesa = -1
ObjFactura.Fecha = Now
ObjFactura.Fecha = ClsPaginas.NowADS()
ObjFactura.CvePrePoliza = -1
ObjFactura.FechaPago = Now
ObjFactura.FechaPago = ClsPaginas.NowADS()
ObjFactura.MotivoDescuento = ""
ObjFactura.Observaciones = Observaciones
ObjFactura.FechaEjecucion = Now
ObjFactura.FechaEjecucion = ClsPaginas.NowADS()
ObjFactura.UsuarioCreo = UsuarioActual.Usuario
ObjFactura.CveCondicionEntrega = -1
ObjFactura.CondicionEntrega = ""
@@ -1568,8 +1568,8 @@ Namespace WebServiceAppModels2
Total = 0
IVA = 0
SubTotal = 0
Fecha = DateTime.Now
FechaIng = DateTime.Now
Fecha = ClsPaginas.NowADS()
FechaIng = ClsPaginas.NowADS()
End Sub
Public Property IDTempVenta As Integer