This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -850,7 +850,7 @@ Public Class WS_PuntoVenta
|
||||
|
||||
If objVentas.GetVentaTerminal(objVenta.CveVentaTerminal, objVenta.Fecha, objVenta.CveSubProyecto, objVenta.CveEmpresa) Then
|
||||
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("Vta", 4, objVenta.Total, objVenta.Total, objVenta.CveMoneda, objVenta.Fecha, "", objVenta.CveUsuario, objVenta.CveEmpresa)
|
||||
CvePrePoliza = ObjConta.AddPrePolizas("Vta", 4, objVenta.Total, objVenta.Total, objVenta.CveMoneda, objVenta.Fecha, "Punto de Venta addVenta", objVenta.CveUsuario, objVenta.CveEmpresa)
|
||||
|
||||
If objVentas.DtResultados.Rows.Count = 0 Then
|
||||
If objVentas.AddVenta(objVenta.TipoDocto, objVenta.FolioFact, objVenta.CveCliente, objVenta.CveClienteSucursal,
|
||||
@@ -858,7 +858,7 @@ Public Class WS_PuntoVenta
|
||||
objVenta.Total, objVenta.CveMoneda, objVenta.TipoCambio, objVenta.CveMetodoPago, objVenta.CondicionesPago,
|
||||
objVenta.FormaPago, Now, objVenta.Fecha, objVenta.MotivoDescuento, objVenta.Observaciones, objVenta.FechaEjecucion,
|
||||
objVenta.CveVendedor, If(objVenta.Alfa1 IsNot Nothing, objVenta.Alfa1, ""), If(objVenta.Alfa2 IsNot Nothing, objVenta.Alfa2, ""), If(objVenta.Alfa3 IsNot Nothing, objVenta.Alfa3, ""), objVenta.Num1,
|
||||
objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, objVenta.CveMesa, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal) Then
|
||||
objVenta.Num2, objVenta.Num3, Fech1, Fech2, Fech3, objVenta.CveCorte, objVenta.CveMesa, If(objVenta.NumeroPersonas > 255, 255, objVenta.NumeroPersonas), CvePrePoliza, objVenta.CveUsuario, objVenta.CveEmpresa, objVenta.Propina, objVenta.CveVentaTerminal, CveSubProyecto:=objVenta.CveSubProyecto, CveSubProyectoEjecucion:=objVenta.CveSubProyecto) Then
|
||||
objVenta.CveVenta = objVentas.CveVenta
|
||||
'Ingresar los detalles
|
||||
For Each Detalle As ClsVentaWS.ClsVentaDetalleWS In objVenta.Detalle
|
||||
@@ -979,8 +979,9 @@ Public Class WS_PuntoVenta
|
||||
'Se agrega movimiento separado por la cuenta de ventas (ER)
|
||||
' For Each Row As DataRow In DT.Rows
|
||||
ImporteMov = objVenta.SubTotal ' TmpDT.SUM("Total", "IdCtaContVentas = '" & Row("IdCtaContVentas").ToString & "'")
|
||||
Dim CveClasificacion_04 = -1
|
||||
If ImporteMov <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoVenta, " ", objVenta.Fecha, -1, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoVenta, " ", objVenta.Fecha, -1, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov, CveSubProyecto:=objVenta.CveSubProyecto, CveClasificacion:=CveClasificacion_04) Then
|
||||
ErrorMovtosVentas = True
|
||||
End If
|
||||
End If
|
||||
@@ -989,7 +990,7 @@ Public Class WS_PuntoVenta
|
||||
'Se agregan los DSV DESCUENTOS
|
||||
ImporteMov = objVenta.Descuento
|
||||
If ImporteMov <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, IdCtaContDSV, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoDSV, " ", objVenta.Fecha, IdCtaContDSV, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
|
||||
ErrorMovtosDSV = True
|
||||
End If
|
||||
End If
|
||||
@@ -998,7 +999,7 @@ Public Class WS_PuntoVenta
|
||||
'Se agregan las CxC
|
||||
ImporteMov = objVenta.Total - TotalPagado
|
||||
If ImporteMov <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", CveConceptoAfectacion, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
|
||||
ErrorMovtosCxC = True
|
||||
End If
|
||||
End If
|
||||
@@ -1006,7 +1007,8 @@ Public Class WS_PuntoVenta
|
||||
'Si hubo un pago agregarlo
|
||||
ImporteMov = TotalPagado
|
||||
If ImporteMov <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
|
||||
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoVenta, ImporteMov, " ", 2, " ", objVenta.Fecha, IdCtaContClientes, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov) Then
|
||||
ErrorMovtosCxC = True
|
||||
End If
|
||||
End If
|
||||
@@ -1014,7 +1016,11 @@ Public Class WS_PuntoVenta
|
||||
'Se agregan el Traslado de IVA
|
||||
ImporteMov = objVenta.IVA
|
||||
If ImporteMov <> 0 Then
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoIVA, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE) Then
|
||||
Dim PorcentajeImpuesto = 0
|
||||
If objVenta.SubTotal > 0 Then
|
||||
PorcentajeImpuesto = (objVenta.IVA / objVenta.SubTotal)
|
||||
End If
|
||||
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoVenta, ImporteMov, " ", CveConceptoIVA, " ", objVenta.Fecha, 0, -1, CveVenta:=objVenta.CveVenta, CveCliente:=objVenta.CveCliente, CveIE:=CveIE, ImporteMX:=ImporteMov, PorcentajeImpuesto:=PorcentajeImpuesto) Then
|
||||
ErrorMovtosTrasladoIVA = True
|
||||
End If
|
||||
End If
|
||||
@@ -1238,7 +1244,7 @@ Public Class WS_PuntoVenta
|
||||
|
||||
Try
|
||||
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Banc", CvePlantillaPoliza, Importe, Importe, Moneda, Fecha, "", CveUsuario, CveEmpresa)
|
||||
CvePrePoliza = ObjMov.AddPrePolizas("Banc", CvePlantillaPoliza, Importe, Importe, Moneda, Fecha, "Punto de venta IE", CveUsuario, CveEmpresa)
|
||||
|
||||
'valida prepoliza
|
||||
If CvePrePoliza > 0 Then
|
||||
@@ -1252,9 +1258,9 @@ Public Class WS_PuntoVenta
|
||||
|
||||
If CveIE > 0 Then
|
||||
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", CveConceptoContable, " ", Now, 0, -1, CveIE) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", CveConceptoContable, " ", Now, 0, -1, CveIE, ImporteMX:=Importe) Then
|
||||
Dim IVA As Double = 0
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, "", CveConceptoCompra, " ", Now, 0, -1, CveIE) Then
|
||||
If ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, Importe - IVA - CIF, "", CveConceptoCompra, " ", Now, 0, -1, CveIE, ImporteMX:=Importe - IVA - CIF) Then
|
||||
|
||||
Else
|
||||
MsgError = "no se pudo insertar el detalle de la póliza2"
|
||||
|
||||
@@ -53,13 +53,36 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState
|
||||
context.Response.Write(sendMail(context))
|
||||
Case "sendMailLPM"
|
||||
context.Response.Write(sendMailLPM(context))
|
||||
Case "GetTokenAngular"
|
||||
context.Response.Write(GetTokenAngular(context))
|
||||
context.Response.End()
|
||||
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
ex.GuardaLog(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Function GetTokenAngular(context As HttpContext) As String
|
||||
Dim usuario As Usuario = UsuarioActual(context)
|
||||
Dim tokenDescriptor = New Microsoft.IdentityModel.Tokens.SecurityTokenDescriptor With {
|
||||
.Subject = New System.Security.Claims.ClaimsIdentity(New System.Security.Claims.Claim() {New System.Security.Claims.Claim("CvePlataforma", usuario.CvePlataforma.ToString()),
|
||||
New System.Security.Claims.Claim("CveUsuario", usuario.CveUsuario.ToString()), New System.Security.Claims.Claim("CveEmpresa", usuario.CveEmpresa.ToString()),
|
||||
New System.Security.Claims.Claim("CveRol", usuario.CveRol.ToString()), New System.Security.Claims.Claim("Fecha", Date.Now.ToLongDateString())}),
|
||||
.Expires = Date.UtcNow.AddHours(3),
|
||||
.SigningCredentials = New Microsoft.IdentityModel.Tokens.SigningCredentials(
|
||||
New Microsoft.IdentityModel.Tokens.SymmetricSecurityKey(Encoding.ASCII.GetBytes("*_AsistenciaDesarrolloSistemas-SIGAPI_*17-06-2020")),
|
||||
Microsoft.IdentityModel.Tokens.SecurityAlgorithms.HmacSha256Signature)}
|
||||
Dim tokenHandler = New System.IdentityModel.Tokens.Jwt.JwtSecurityTokenHandler()
|
||||
Dim newtoken = tokenHandler.CreateToken(tokenDescriptor)
|
||||
'context.Response.AddHeader("Access-Control-Allow-Origin", "http://localhost:4200")
|
||||
'context.Response.AddHeader("Access-Control-Allow-Methods", "GET, POST")
|
||||
'context.Response.AddHeader("Access-Control-Allow-Headers", "Content-Type, Accept")
|
||||
context.Response.AddHeader("Access-Control-Allow-Credentials", true )
|
||||
context.Response.StatusCode = 200
|
||||
Dim stokenn As String = tokenHandler.WriteToken(newtoken)
|
||||
Return stokenn
|
||||
|
||||
End Function
|
||||
Private Function sendMailLPM(context As HttpContext) As String
|
||||
Dim retorno As String = "true"
|
||||
Dim nombre As String = ""
|
||||
|
||||
@@ -126,6 +126,8 @@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user