FiveTech Software tech support forums

local cData_To_Print,nData_To_Print:=1
local aDataPrint :={"Campo","Valore"}

@ 26, 5 Say "Dato da Stampare" SIZE 90,20 PIXEL OF oDlg TRANSPARENT
@ 24, 75 COMBOBOX aGet[2] VAR nData_To_Print ITEMS aDataPrint SIZE 50,90 PIXEL OF oDlg STYLE CBS_DROPDOWNLIST;
ON CHANGE (IIF(nData_To_Print=2,;
(aGet ...

Puedes lograr ese efecto con la función transform(nData,"9,999,999.99")

When trying to build using:
nData := 242.08
RetDat := FW_NumToWords( nData )

yields the following error when trying to do the build:

>Fivehc32.lib(NUMCWORD.obj) : error LNK2019: unresolved external symbol __imp__strncpy referenced in function _copyword
>Fivehc32.lib(NUMCWORD.obj) : error LNK2019 ...

... de las tablas de los diferentes shemas ?

Podes fazer USE "cTable@connection string"

3- como cambio de un shema a otro ?
estoy utilizando nData:=hb_adoRddGetConnection() para saber en que shema estoy trabajando, pero quiero cambiarme a otro que funcion uso ?

Só necessitas de seleccionar a ...

... MYRABLE" ALIAS MY NEW SHARED VIA "SQLRDD" CONNECTION nMain
¿Es posible utilizar un comando parecido con ADORDD ?

3- como cambio de un shema a otro ?
estoy utilizando nData:=hb_adoRddGetConnection() para saber en que shema estoy trabajando, pero quiero cambiarme a otro que funcion uso ?

Saludos

... CONSTRUCTOR *
* *
****************************************************************************
METHOD New (cCom,nInBytes,nOutBytes,nBaud,cParity,nData,nStop,nDelay) CLASS TRS232
LOCAL cDcb,cError
// inicializa parametros por defecto
DEFAULT nInBytes := 1024
DEFAULT nOutBytes := 128
DEFAULT ...

Antonio,

Puedo recoger una valor de la clase en .prg por su nombre, por ejemplo


PHB_ITEM Self = hb_stackSelfItem();
int nData = ????( Self, "nData" );

Esa función q pongo en interrogantes existe en [x]Harbour?

Saludos

... ReadComm( nComm , @cDataRead)
cSat = STR(HexToDec( Str2Hex( cDataread )))
oDlg1:Update()
Enddo

lLoop := .t.
DataRead := ""
lconnect := .f.
nData := 1
cData := ""
cPrevData := 0
use \ezsatbt\oxdata
go top
zap

do while lLoop = .t.
Memory(-1)
SysRefresh()
if ReadComm( nComm ...

... function Main()

Local oDlg, aCtl[ 7 ], aFonts[ 2 ]
Local aLoc[ 3 ]
Local oBottone,oData

FORNITORE=SPACE(5)
NUMERO=SPACE(5)
NDATA=DATE()




DEFINE FONT aFonts[ 1 ] NAME "MS Sans Serif" SIZE 0, -13 BOLD
DEFINE FONT aFonts[ 2 ] NAME "Arial" SIZE 0, -16 BOLD
* 200 239 ...

... il messaggio perchè?????
ho fatto questa prova ma non succedde nulla
mi potete dare una mano?

*DTPICKER
@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, msginfo ...

... function Main()

Local oDlg, aCtl[ 7 ], aFonts[ 2 ]
Local aLoc[ 3 ]
Local oBottone,oData

FORNITORE=SPACE(5)
NUMERO=SPACE(5)
NDATA=DATE()




DEFINE FONT aFonts[ 1 ] NAME "MS Sans Serif" SIZE 0, -13 BOLD
DEFINE FONT aFonts[ 2 ] NAME "Arial" SIZE 0, -16 BOLD
* 200 239 ...

... DEFINE DIALOG oDlg FROM 0, 0 TO 190, 230 PIXEL ;
COLORS CLR_BLACK, CLR_WHITE ;
TITLE "Inserimento Dati"

@ 42, 49 DTPICKER aCtl[ 5 ] VAR NDATA OF oDlg ;
FONT aFonts[ 2 ] ;
COLORS CLR_HGREEN, nRGB( 240, 248, 255 ) SIZE 67, 11 PIXEL
aCtl[ 5 ]:bKeyDown = { | nKey | If( nKey =13, aCtl[ 7 ...

... STOP <nStop> ];
[ BAUD <nBaud> ];
[ PARITY <cParity> ];
[ INSIZE <nInQueue> ];
[ OUTSIZE <nOutQueue> ];
[ DEVICE <nDevice> ];
[ DATA <nData> ];

<oComm> The variable to hold this object.
<nNumber> Number of queue to flush.
<nData> Number of bits.
<nCode> Escape code to send ...

... can be seen in IOLib.ch
Version 1.2r1
*******************************************************************************

INIT_PORT(Nx_port,Nbaud,Ndata,Nparity,Nstop,Nirq,@cIn_buffer) => log
Initializes the communication port and sets up the input bufferd stream
Pass:
Nx_port= base port value see ...

... 256 ;

// ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ //

HB_FUNC(INIT_PORT) /* Nx_port(string),Nbaud(numerico),Ndata(numerico),Nparity(numerico),Nstop(numerico),nBufferSize(numerico)
retorna .t. se abriu a porta */

/* cPort, nBaudrate, nDatabits, nParity ...