From 43cf365c78a4ea9550e39fbf2ae94db2e4469555 Mon Sep 17 00:00:00 2001
From: fdbozzo <fdbozzo@.(none)>
Date: Mon, 2 Mar 2015 01:18:44 +0100
Subject: [PATCH] =?UTF-8?q?Changeset:=20658=20-=20Indicaci=C3=B3n=20del=20?=
 =?UTF-8?q?n=C3=BAmero=20de=20l=C3=ADnea=20real=20y=20contenido=20de=20la?=
 =?UTF-8?q?=20misma?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foxbin2prg.prg | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/foxbin2prg.prg b/foxbin2prg.prg
index 85e8f3a..b0f4f62 100644
--- a/foxbin2prg.prg
+++ b/foxbin2prg.prg
@@ -10781,8 +10781,9 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
 	PROCEDURE set_UserValue
 		LPARAMETERS toEx as Exception
 
-		LOCAL lcMethods, I, lcLine, laCodeLines(1), lcMethod, lcLocation
+		LOCAL lcMethods, I, lcLine, laCodeLines(1), lcMethod, lcLocation, lnErrorLine
 		STORE '' TO lcMethods, lcLine, laCodeLines, lcMethod, lcLocation
+		STORE 0 TO lnErrorLine, I
 
 		toEx.UserValue = toEx.UserValue + CR_LF
 
@@ -10805,10 +10806,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
 				DO CASE
 				CASE LEFT(lcLine, 10) == 'PROCEDURE '
 					lcMethod	= ALLTRIM( SUBSTR( lcLine, 11) )
+					lnErrorLine	= THIS.n_Methods_LineNo - I
 					EXIT
 					
 				CASE LEFT(lcLine, 9) == 'FUNCTION '
 					lcMethod	= ALLTRIM( SUBSTR( lcLine, 10) )
+					lnErrorLine	= THIS.n_Methods_LineNo - I
 					EXIT
 					
 				ENDCASE
@@ -10821,7 +10824,12 @@ DEFINE CLASS c_conversor_bin_a_prg AS C_CONVERSOR_BASE
 				lcLocation	= 'Method: ' + lcLocation + '.' + lcMethod
 			ENDIF
 
+			IF lnErrorLine > 0 THEN
+				lcLocation	= lcLocation + ', Line ' + TRANSFORM(lnErrorLine)
+			ENDIF
+
 			toEx.UserValue	= toEx.UserValue + lcLocation + CR_LF
+			toEx.UserValue	= toEx.UserValue + '> ' + laCodeLines(THIS.n_Methods_LineNo) + CR_LF
 		ENDIF
 
 		toEx.UserValue = toEx.UserValue + 'Recno: ' + TRANSFORM(RECNO()) + CR_LF