From 3904343f17a39d15464541527f41568c9554d79e Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 18 Nov 2023 05:33:39 -0700 Subject: [PATCH] -- mejora --- App_Code/ClsContabilidad.vb | 2 ++ Bancos/PopIEVentas.aspx | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 336499c97..4a132fe6b 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -6094,6 +6094,7 @@ Public Class ClsContabilidad .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 8000).Direction = ParameterDirection.Output .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output + .Add("@FolioPoliza", SqlDbType.Int).Direction = ParameterDirection.Output End With Try @@ -6103,6 +6104,7 @@ Public Class ClsContabilidad MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString + ContaFolio = SqlAdapter.SelectCommand.Parameters("@FolioPoliza").Value.ToString.ToEntero If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza") If MensajePolizaDescuadre = "" Then diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index d1a5e2397..851a7d32a 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -217,8 +217,8 @@
- +