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

Cxc impreiosn, rep checaor preasistencia día siguiente retardo despues de edicicón

Browse Source
This commit is contained in:
rakcsle
2024-07-09 10:43:39 -07:00
parent 18d72c1e8e
commit aa5bd73b44
2 changed files with 84 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
App_Code/Timbrado.vb
View File

@@ -895,10 +895,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, 6)
VentaTipoCambio = Math.Round(VentaTipoCambio, 10)
Equivalencia = Math.Round((1 / VentaTipoCambio), 10)
ElseIf MonedaPago = "USD" AndAlso VentaAbreviaturaSAT <> "USD" Then
VentaTipoCambio = Math.Round(VentaTipoCambio, 6)
VentaTipoCambio = Math.Round(VentaTipoCambio, 10)
Equivalencia = VentaTipoCambio
End If
@@ -924,8 +924,8 @@ Public Class Timbrado
.TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal,
.Impuesto = drp("TipoImpuesto").ToString,
.Importe = drp("Importe").ToString().ToDecimal.RoundSQL,
.BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6),
.ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6)
.BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(2),
.ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(2)
}
)

81
Compras/Compras.aspx.vb
View File

@@ -8557,6 +8557,8 @@ Partial Class Compras_Compras
Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
Dim SeActualizoDetalle As Boolean = False
Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
If Not CveSubProyectoPrincipal > 0 Then
Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
@@ -8654,7 +8656,7 @@ Partial Class Compras_Compras
CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=tNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
If Not ComparaDatatables() Then
SeActualizoDetalle = True
'Regeneramos el concepto 6 de PrePolizas
'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
' If Not RegenerarPrePoliza(ObjContabilidad, ObjContaAC, 6, False, MultiplicadorNC) Then
@@ -9143,6 +9145,7 @@ Partial Class Compras_Compras
ObjCompra.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
SeActualizoDetalle = False
Finally
If Retorno Then
If ObjContabilidad.MensajePolizaDescuadre IsNot Nothing AndAlso ObjContabilidad.MensajePolizaDescuadre.ToString <> "" Then
@@ -9161,6 +9164,7 @@ Partial Class Compras_Compras
ObjCompra.RollBack()
If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
Alert("Ocurrió un error al actualizar la compra, por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia)
SeActualizoDetalle = False
End If
If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose()
@@ -9176,6 +9180,81 @@ Partial Class Compras_Compras
CargaGvBitacora()
UpBitacora.Update()
If SeActualizoDetalle Then
MandaCorreoActualizacionDetalle(CveCompra)
End If
End Sub
Private Sub MandaCorreoActualizacionDetalle(CveCompra As Integer)
If UsuarioActual.CveRol <> 1 Then
Exit Sub
End If
Dim DTCorreos As New DataTable
Dim DTMovimientos As New DataTable
Dim strBody As New StringBuilder
Dim Asunto, Para, ArrayCC, Body As String
Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
If Para.ToString = "" AndAlso UsuarioActual.CveRol = 1 Then
Para = "oscar.irigoyen@adssistemas.mx"
End If
Dim uri As Uri = HttpContext.Current.Request.Url
Dim URlCompleta As String = uri.AbsoluteUri
Dim SerieFolioCompra As String = $"{TxtSerie.Text}{If(TxtSerie.Text.Trim.Length > 0, "-", "")}{TxtFolio.Text.Trim}"
strBody.Append("<html xmlns=""http: //www.w3.org/1999/xhtml""> ")
strBody.Append("<head> ")
strBody.Append(" <style type=""text/css""> ")
strBody.Append(" * {")
strBody.Append(" font-family: Verdana; ")
strBody.Append(" }")
strBody.Append(" body { ")
strBody.Append(" padding: 0px;")
strBody.Append(" margin: 0px; ")
strBody.Append(" } ")
strBody.Append(" p {")
strBody.Append(" font-size: 14px;")
strBody.Append(" }")
strBody.Append(" /*ESTILOS ESTANDAR DE TABLA*/")
strBody.Append(" table {")
strBody.Append(" font-size: 12px;")
strBody.Append(" }")
strBody.Append(" table tr{")
strBody.Append(" height:20px;")
strBody.Append(" }")
strBody.Append(" table .thead{")
strBody.Append(" background-color:#dddddd;")
strBody.Append(" text-align:center;")
strBody.Append(" vertical-align:middle;")
strBody.Append(" }")
strBody.Append(" table .tbody{")
strBody.Append(" background-color:#F7F6F3; ")
strBody.Append(" }")
strBody.Append(" </style> ")
strBody.Append("</head> ")
strBody.Append("<body>")
strBody.Append($"<p> Se realizo una actualización en los detalles de la compra <a href='{URlCompleta}' >{SerieFolioCompra}</a> </p>")
strBody.Append("</body>")
strBody.Append("</html>")
'' ENVIO DEL CORREO
Asunto = $"Actualizacion de Compra {SerieFolioCompra}"
ArrayCC = ""
Body = strBody.ToString
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
End Sub
Private Function ComparaDatatables() As Boolean