From a6b4220893d0ea7cb2131560a6fda837ffcfe6f0 Mon Sep 17 00:00:00 2001 From: fdbozzo Date: Fri, 3 Apr 2015 13:38:57 +0200 Subject: [PATCH] =?UTF-8?q?-=20Agregado=20de=20comentario=20para=20documen?= =?UTF-8?q?taci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- foxbin2prg.prg | 3 +++ 1 file changed, 3 insertions(+) diff --git a/foxbin2prg.prg b/foxbin2prg.prg index 30cf714..1fe9ecf 100644 --- a/foxbin2prg.prg +++ b/foxbin2prg.prg @@ -5578,6 +5578,9 @@ DEFINE CLASS C_CONVERSOR_BASE AS SESSION lnPos = ASCAN( .a_SpecialProps, lcPropName, 1, 0, 1, 1+2+4 ) ENDCASE + *-- Genera una propiedad con el formato "A nnn Propiedad", donde los valores más altos quedan al final, + *-- de modo que primero van las props nativas, luego las del usuario y al final "name", que es especial. + *-- Ej: "A004ScaleMode", ..., "A998UserProp", "A999Name" lcPropName = 'A' + PADL( EVL(lnPos,998), 3, '0' ) + lcPropName ENDWITH && THIS ENDCASE