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

OC con estatus de Requisicion, eFacturas se agrega pdf a carga manual de facturas

Browse Source
This commit is contained in:
rakcsle
2021-06-01 09:41:47 -07:00
parent 85c2e502ba
commit d12b4ed9b0
2 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/eFacturas.aspx.vb
View File

@@ -1429,7 +1429,7 @@ Partial Class Compras_eFacturas
'filemove.FilesMove("", String.Format("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
'AGREGA XML A LA LISTA
If FileExtension.ToUpper = "XML" Then
If FileExtension.ToUpper = "XML" Or FileExtension.ToUpper = "PDF" Then
ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
End If

18
OC/OC.aspx.vb
View File

@@ -2500,9 +2500,17 @@ Partial Class OC
GeneraReq = If(TipoOC = "REQ", True, False)
ViewState("TipoLargo") = "Orden Compra"
CveEstatusNuevo = If(TipoOC = "OC", CveEstatusInicialOC, CboE.SelectedValue.ToEntero)
CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
'If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
' CveEstatusNuevo = If(TipoOC = "OC", CveEstatusInicialOC, CboE.SelectedValue.ToEntero)
' Else
'CveEstatusNuevo = If(TipoOC = "OC", CboE.SelectedValue.ToEntero, CveEstatusInicialOC)
'End If
End If
'siempre se esta guardando el proveedor
If Not ChkCotizacion.Checked OrElse (UsuarioActual.Empresa.Funcionalidad(565) = "1" AndAlso CveConfianzaProveedor > 0) Then
CveProveedor = DdlProveedores.SelectedValue.ToEntero
@@ -2641,10 +2649,18 @@ Partial Class OC
OC.Commit()
BtnGuardar.Visible = False
Else
If Conta IsNot Nothing Then Conta.RollBack()
If OC IsNot Nothing Then OC.RollBack()
Alert("Hubo un Error al registrar", TipoMensaje.MsgError)
CveOrdenCompra = -1
If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
TipoOC = "REQ"
End If
End If
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("<a href='/OC/OC.aspx?OC={0}'>{1}</a>", CveOrdenCompra, Folio), "")