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("{0}\Temp\Facturas", UsuarioActual.Empresa.Ruta))
filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa)) filemove.FilesMove("", String.Format("Empresas\{0}\Temp\Facturas", UsuarioActual.CveEmpresa))
'AGREGA XML A LA LISTA '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)) ListXML.Add(String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, filemove))
End If End If

18
OC/OC.aspx.vb
View File

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