diff --git a/App_Code/WS_PuntoVenta.vb b/App_Code/WS_PuntoVenta.vb index ee2e087e2..602e52a5b 100644 --- a/App_Code/WS_PuntoVenta.vb +++ b/App_Code/WS_PuntoVenta.vb @@ -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" diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index eb6cd7d95..92c7de325 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -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 = "" diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 9dcbcfc51..2e6fb7957 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -1,6 +1,15 @@ /* here you can put your own css to customize and override the theme */ /* establezco el color de fondo de total, sin importar que este en un renglon alternativo */ +@media (max-width: 768px) { + + + .ContentPlaceHolderc { + max-width: 100%; + overflow-x: auto !important; + } +} + .table-striped > tbody > tr:nth-of-type(odd).ADSRow, table > tbody > tr.ADSRow > td, table.table > tbody > tr.ADSRow > td, table > tr.ADSRow > td, table.table > tr.ADSRow > td, @@ -49,7 +58,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { .AdsBody .ADSCroll::-webkit-scrollbar { width: 8px; - height:10px; + height: 10px; background-color: #F5F5F5; } @@ -58,7 +67,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol { background-color: #AAA; border-radius: 4px; background-color: #F5F5F5; - -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); + -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); } .line-Lite .form-group.form-md-line-input .form-control { @@ -440,7 +449,7 @@ input[type="hidden"] { } /*end tabwizard*/ -/*tab wizard2*/ +/*tab wizard2*/ .tab-wizard2 { text-align: center; counter-reset: section; @@ -467,28 +476,29 @@ input[type="hidden"] { position: relative; display: block; padding: 10px 15px; - text-align:center; + text-align: center; } .tab-wizard2 .ajax__tab_outer a.ajax__tab_tab > span::before { content: ' '; display: block; } - .tab-wizard2 .ajax__tab_outer a.ajax__tab_tab::before { - background-color: #eee; - text-align: center !important; - padding: 13px 15px 11px; - height: 45px; - width: 45px; - -webkit-border-radius: 50% !important; - -moz-border-radius: 50% !important; - border-radius: 50% !important; - counter-increment: section; - content: ' 'counter(section); - display: inline-block; - position: relative; - margin-right:4px; - } + + .tab-wizard2 .ajax__tab_outer a.ajax__tab_tab::before { + background-color: #eee; + text-align: center !important; + padding: 13px 15px 11px; + height: 45px; + width: 45px; + -webkit-border-radius: 50% !important; + -moz-border-radius: 50% !important; + border-radius: 50% !important; + counter-increment: section; + content: ' 'counter(section); + display: inline-block; + position: relative; + margin-right: 4px; + } .tab-wizard2 .ajax__tab_active .ajax__tab_outer a.ajax__tab_tab::before { background-color: rgb(54, 198, 211); @@ -506,7 +516,7 @@ input[type="hidden"] { .tab-wizard2 .progress-striped .progress-bar { background-image: linear-gradient(45deg,rgba(255,255,255,.15) 25%,transparent 25%,transparent 50%,rgba(255,255,255,.15) 50%,rgba(255,255,255,.15) 75%,transparent 75%,transparent); - } + } /*end tabwizard2*/ @@ -728,11 +738,12 @@ div.ADScroller { line-height: .5 !important; } -div:not(.ADScroller-header)>table tbody .trnopadding.ADtr { +div:not(.ADScroller-header) > table tbody .trnopadding.ADtr { visibility: hidden; } -.ADScroller-header>table tbody .trnopadding.ADtr td{ - background-color :#ddd; + +.ADScroller-header > table tbody .trnopadding.ADtr td { + background-color: #ddd; } div.ADScroller-header { @@ -2661,6 +2672,7 @@ select.select2-offscreen, select.select2-offscreen:focus { font-size: 20px; margin-top: 15px; } + .addropzone.dz-clickable:after { position: absolute; content: "o presione doble click"; @@ -2925,9 +2937,9 @@ select.select2-offscreen, select.select2-offscreen:focus { margin-right: 0px; } -.select2 .select2-selection__rendered{ - line-height:1; - color:#111; +.select2 .select2-selection__rendered { + line-height: 1; + color: #111; } .select2 .select2-selection--multiple { @@ -2951,18 +2963,21 @@ select.select2-offscreen, select.select2-offscreen:focus { .btn-consultar { background: #444; - color:#fff -} -.btn-consultar:hover { - background: #2f353b; color: #fff } + + .btn-consultar:hover { + background: #2f353b; + color: #fff + } + .ADScroller > div > table.table.table-smallpadding > tbody > tr > td:nth-last-child(1) a, table.ScrollAD.table.table-smallpadding > tbody > tr > td:nth-last-child(1) a, .ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) a, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) a, .ADScroller > div > table.table.table-smallpadding > tbody > tr > td:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > td:nth-last-child(1) span, -.ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span{ +.ADScroller > div > table.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span, table.ScrollAD.table.table-smallpadding > tbody > tr > th:nth-last-child(1) span { padding-right: 7px; } + div.mypaste * { display: none; -} \ No newline at end of file +} diff --git a/vwd.webinfo b/vwd.webinfo index 58b25d2ef..821cf7887 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -126,10 +126,6 @@ - - - -