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

EMD - solicitar anticipo de OC, error, y permite duplicar la solicitud

Browse Source
This commit is contained in:
rakcsle
2024-05-15 13:42:46 -07:00
parent 2d2b993a8d
commit 98b6ff8dbe
1 changed files with 16 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
OC/OC.aspx.vb
View File

@@ -5443,7 +5443,7 @@ Partial Class OC_OC
If Not TieneError Then If Not TieneError Then
RegistraScript("$('#ModalSolicitarAnticipo').modal('hide');", "ModalSolicitarAnticipoHide") RegistraScript("$('#ModalSolicitarAnticipo').modal('hide');", "ModalSolicitarAnticipoHide")
ObjOC.Commit() ObjOC.Commit()
EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento) EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporte.Text.ToDecimal, DdlSAUsuario.SelectedValue.ToEntero)
'LIMPIA 'LIMPIA
BtnSolicitudAnticipo.Visible = False BtnSolicitudAnticipo.Visible = False
DdlSAUsuario.SelectedValue = "-1" DdlSAUsuario.SelectedValue = "-1"
@@ -5465,20 +5465,20 @@ Partial Class OC_OC
End Sub End Sub
Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, Optional ImporteAnticipo As Decimal = 0) Private Sub EnviaCorreoSolicitudAnticipo(CveEvento As Integer, ImporteAnticipo As Decimal, CveUsuaioCorreo As Integer)
Dim Param As New List(Of String) Dim Param As New List(Of String)
Dim DtPara As DataTable = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) Dim DtPara As DataTable = GlobalDTUsuarios(CveUsuaioCorreo, CveEmpresaActual)
If DdlMetodoPago.SelectedValue.ToEntero = 0 Then 'If DdlMetodoPago.SelectedValue.ToEntero = 0 Then
DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual) ' DtPara = GlobalDTUsuarios(DdlSAUsuarioContado.SelectedValue.ToString.ToEntero, CveEmpresaActual)
If DtPara Is Nothing Then ' If DtPara Is Nothing Then
DtPara = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual) ' DtPara = GlobalDTUsuarios(DdlSAUsuario.SelectedValue.ToString.ToEntero, CveEmpresaActual)
End If ' End If
End If 'End If
Try Try
If DtPara IsNot Nothing AndAlso DtPara.Rows.Count > 0 Then If DtPara IsNot Nothing AndAlso DtPara.Rows.Count > 0 Then
@@ -5486,20 +5486,19 @@ Partial Class OC_OC
Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para Param.Add(DtPara.Rows(0)("Correo").ToString()) 'Para
Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto Param.Add("Solicitud de anticipo de Orden de Compra") 'Asunto
'If ImporteAnticipo = 0 Then
If ImporteAnticipo = 0 Then ' ImporteAnticipo = TxtSAImporte.Text.ToDecimal
ImporteAnticipo = TxtSAImporte.Text.ToDecimal 'End If
End If
Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), ImporteAnticipo.ToString, DdlProveedores.SelectedText)) Param.Add(GeneraCorreoAnticipo(lblFolio.Text, DtPara.Rows(0)("Nombre").ToString(), String.Format("http://sig.adssistemas.mx/OI/EventoDetalle.aspx?CveTipoEvento=1&CveEvento={0}", CveEvento), ImporteAnticipo.ToString, DdlProveedores.SelectedText))
Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra)) Param.Add(String.Format("{0}PDF\OC-{1}.pdf", UsuarioActual.Empresa.Ruta, CveOrdenCompra))
Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo) Dim Hilo As New Threading.Thread(AddressOf MandaCorreoAnticipo)
Hilo.Start(Param) Hilo.Start(Param)
Else
Alert("Correo de solcitud de anticipo no enviado", TipoMensaje.MsgAdvertencia)
End If End If
Catch ex As Exception Catch ex As Exception
Alert("Correo de solcitud de anticipo no enviado", TipoMensaje.MsgAdvertencia)
End Try End Try
End Sub End Sub
@@ -9012,7 +9011,7 @@ Partial Class OC_OC
End If End If
If Not TieneError Then If Not TieneError Then
EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal) EnviaCorreoSolicitudAnticipo(ObjOI.CveEvento, TxtSAImporteContado.Text.ToDecimal, DdlSAUsuarioContado.SelectedValue.ToString.ToEntero)
'LIMPIA 'LIMPIA
DdlSAUsuarioContado.SelectedValue = "-1" DdlSAUsuarioContado.SelectedValue = "-1"
TxtSAImporteContado.Text = "" TxtSAImporteContado.Text = ""