diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx
index 7b11dbbb3..2477b9e6d 100644
--- a/AF/CatAF.aspx
+++ b/AF/CatAF.aspx
@@ -36,7 +36,54 @@
padding-right: 4px !important;
padding-left: 4px !important;
}
+
+ img.cbp-img-ajustada {
+ max-width: 150px;
+ max-height: 150px;
+ height: auto;
+ width: auto;
+ object-fit: contain;
+ display: block;
+ cursor: pointer;
+}
+
+
@@ -370,6 +417,39 @@
+
+
+ <%-- 20 --%>
+
+
+
+
+
+
+
+
+
+
+
+
+
.ToString)) %>)
+ <%--
![]()
--%>
+
+
+
+
+
+
+
+
+
@@ -436,30 +516,18 @@
|
- |
-
- |
-
- |
+
+
+ |
+
+ |
+
-
+
|
- |
-
- |
-
- |
-
- |
+
-
-
-
-
-
-
-
@@ -496,7 +564,10 @@
-
+
+
×
+
![Vista ampliada]()
+
@@ -516,4 +587,57 @@
}
--%>
+
+ <%----%>
+
+
+
+
+
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index 6feb748f4..d50f844b9 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -53,6 +53,14 @@ Partial Class AF_CatAF
CargaCombos()
CargaCaracteristicas()
+ If UsuarioActual.CveEmpresa = 13 Then
+ ChkUltimaImagen.Checked = True
+ ChkMarcaActivoFijo.Checked = True
+ ChkModeloActivoFijo.Checked = True
+ ChkNoSerie.Checked = True
+ ChkObservaciones.Checked = True
+ End If
+
If (Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0) Then
CargaParametrosInicial()
Else
@@ -62,6 +70,7 @@ Partial Class AF_CatAF
CargaPersonalizacion()
+
End If
End Sub
@@ -598,6 +607,8 @@ Partial Class AF_CatAF
If ChkObservaciones.Checked Then ListPersonalizada.Add("Observaciones")
+ If ChkUltimaImagen.Checked Then ListPersonalizada.Add("UltimaImagen")
+
If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatAF.aspx", String.Join("|", ListPersonalizada)) Then
'Alert("Personalizacion guardada")
@@ -638,6 +649,15 @@ Partial Class AF_CatAF
'ChkSubProyecto.Checked = False
ChkNombreCliente.Checked = False
ChkObservaciones.Checked = False
+ ChkUltimaImagen.Checked = False
+
+ If UsuarioActual.CveEmpresa = 13 Then
+ ChkUltimaImagen.Checked = True
+ ChkMarcaActivoFijo.Checked = True
+ ChkModeloActivoFijo.Checked = True
+ ChkNoSerie.Checked = True
+ ChkObservaciones.Checked = True
+ End If
Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
@@ -703,6 +723,9 @@ Partial Class AF_CatAF
Case "Observaciones"
ChkObservaciones.Checked = True
Exit Select
+ Case "UltimaImagen"
+ ChkUltimaImagen.Checked = True
+ Exit Select
Case Else
Exit Select
End Select
@@ -762,6 +785,7 @@ Partial Class AF_CatAF
'GvDatos.Columns(18).Visible = ChkSubProyecto.Checked
GvDatos.Columns(18).Visible = ChkNombreCliente.Checked
GvDatos.Columns(19).Visible = ChkObservaciones.Checked
+ GvDatos.Columns(20).Visible = ChkUltimaImagen.Checked
diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb
index 145843325..135d41b25 100644
--- a/App_Code/ClsBancos.vb
+++ b/App_Code/ClsBancos.vb
@@ -1593,7 +1593,14 @@ Public Class ClsBancos
' Me.OnError("Ocurrió un error al guardar los cambios en el Banco", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
' End If
Catch ex As Exception
- OnError("Ocurrió un error al guardar los cambios en el Banco IE Conciliar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+ If ex.Message.Contains("Número: 2601;") Then
+ Alert("Ya existe un movimiento bancario con el mismo Folio: " & Folio & ".", TipoMensaje.MsgAdvertencia)
+ Me.OnError("Ocurrió un error al Guardar el Movimiento. Ya existe un movimiento bancario con el mismo Folio: " & Folio & ".", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Else
+ OnError("Ocurrió un error al guardar los cambios en el Banco IE Conciliar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End If
+
End Try
Return Retorno
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index c6e5e4842..59ece46c1 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3538,7 +3538,12 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("Almacen", Almacen))
params.Add(New ReportParameter("Fecha", Fecha))
params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
- params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
+ If NombreCliente = "" Then
+ params.Add(New ReportParameter("FacturadoA", Recibio))
+ Else
+ params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
+ End If
+
params.Add(New ReportParameter("Observaciones", Observaciones))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToString("dd/MM/yyyy")))
params.Add(New ReportParameter("Folio", Folio))
diff --git a/Empresas/Grales/Formatos/Salida.rdlc b/Empresas/Grales/Formatos/Salida.rdlc
index ec108c2e6..3428967bb 100644
--- a/Empresas/Grales/Formatos/Salida.rdlc
+++ b/Empresas/Grales/Formatos/Salida.rdlc
@@ -1104,7 +1104,7 @@
0.79361cm
11.65255cm
0.6cm
- 9.5262cm
+ 9.15694cm
4