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

Empresas2

Browse Source
This commit is contained in:
rakcsle
2023-08-07 09:18:36 -07:00
parent 2bdf079d8d
commit aa9fa03bdc
10 changed files with 364 additions and 139 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Sistemas/Empresa.aspx.vb
View File

@@ -199,8 +199,7 @@ Partial Class Sistemas_Empresa
BtnGuardar.Text = "Guardar Cambios"
'Plantilla Correo
TxtPlantillaVenta.Text = UsuarioActual.Empresa.PlantillaMailVenta
TxtAsunto.Text = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
Else
'Configuración de Modalidad Insert
@@ -320,6 +319,12 @@ Partial Class Sistemas_Empresa
TxtImporte.Text = .Importe.ToString
TipoContabilidad = .TipoContabilidad
TxtPlantillaVenta.Text = .PlantillaMailVenta
TxtAsunto.Text = .AsuntoPlantillaMailVenta
TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion
'NUEVOS
TxtAreaGeografica.Text = .AreaGeografica
DdlProtocolo.Text = .Buzon_Tipo
@@ -1317,10 +1322,19 @@ Partial Class Sistemas_Empresa
End If
Dim ObjEmpresa As New ClsSisEmpresas()
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, UsuarioActual.CveEmpresa) Then
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVenta", TxtAsunto.Text.Trim, "PlantillaMailVenta", TxtPlantillaVenta.Text.Trim, CveEmpresa) Then
If ObjEmpresa.UpdatePlantillaMail("AsuntoPlantillaMailVentaCotizacion", TxtAsuntoCotizacion.Text.Trim, "PlantillaMailVentaCotizacion", TxtPlantillaCotizacion.Text.Trim, CveEmpresa) Then
End If
Alert("La plantilla de mail de ventas se guardó correctamente.", TipoMensaje.MsgInformacion)
UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim
UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
'TxtPlantillaVenta.Text = ""
'TxtAsunto.Text = ""
End If