manuexposito escribió:
Hola a todos
Hola Bruno, es posible que _retl() no pirule bien?
Me explico, la función que tiene el _retl() no devuelve un valor lógico sino numérico!!

Hola Manu.
Aviso, no soy experto en C !!!!!
Pero mira:
_retl()
Post a logical return value
------------------------------------------------------------------------------
C Prototype
#include "extend.api"
void _retl(
int iLogical
)
Arguments
iLogical is an integer type that represents the logical value to be
returned. A value of zero is interpreted as false (.F.). Any other
value is interpreted as true (.T.).
Returns
_retl() has no return value.
Description
_retl() posts a logical value into CA-Clipper's return value area. When
your Extend routine returns control to the calling CA-Clipper program,
the posted value becomes the CA-Clipper return value of your Extend
routine.
Examples
. From C:
_retl(1);
. From Assembly language:
EXTRN __retl:FAR
mov ax, 1
push ax
call __retl
add sp, 2 ; reset stack pointer
Me parece que lo que tiene que devolver es un entero.
Saludos!!!