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

eFacturas Subir facturas

Browse Source
This commit is contained in:
rakcsle
2024-07-15 19:30:05 -07:00
parent c7752358fc
commit a33230b711
4 changed files with 2213 additions and 229 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Compras/Compras.aspx.vb
View File

@@ -9155,7 +9155,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
@@ -9192,23 +9192,22 @@ Partial Class Compras_Compras
UpBitacora.Update()
If SeActualizoDetalle Then
MandaCorreoActualizacionDetalle(CveCompra)
If SeActualizoDetalle AndAlso UsuarioActual.CveEmpresa = 119 Then
MandaCorreoActualizacionDetalle()
End If
End Sub
Private Sub MandaCorreoActualizacionDetalle(CveCompra As Integer)
Private Sub MandaCorreoActualizacionDetalle()
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")
'Para = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo")
Para = "fernanda.romo@agrojam.com.mx"
If Para.ToString = "" AndAlso UsuarioActual.CveRol = 1 Then
Para = Para & ";oscar.irigoyen@adssistemas.mx;rene.molina@adssistemas.mx"
@@ -9260,8 +9259,8 @@ Partial Class Compras_Compras
Asunto = $"Actualizacion de Compra: {SerieFolioCompra} Proveedor: {HplProveedor.Text}"
ArrayCC = ""
Body = strBody.ToString
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)
Dim Mail As New ClsSisMail()
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, ArrayCC)