FiveTech Software tech support forums

... 'FONT "Swiss 721 BT",20' ) AADD( aLabel, 'DIR 1' ) AADD( aLabel, 'ALIGN 5' ) AADD( aLabel, 'PRPOS 400,925' ) AADD( aLabel, 'PRTXT "ABC COMPANY' ) AADD( aLabel, 'FONT "Swiss 721 BT",32' ) AADD( aLabel, 'ALIGN 5' ) AADD( aLabel, 'PRPOS 400,800' ) AADD( aLabel, 'PRTXT "' ...

... base de datos ,,, altas , bajas , cambios estructura , genera un archivo respaldo.dbf que es el que contiene los cambios la segunda parte sera,, abc, de los registros en el codigo tengo varias condiciones dependiendo de cuantos campos contiene la base de datos ,, ya que no supe como meter los ...

... base de datos ,,, altas , bajas , cambios estructura , genera un archivo respaldo.dbf que es el que contiene los cambios la segunda parte sera,, abc, de los registros en el codigo tengo varias condiciones dependiendo de cuantos campos contiene la base de datos ,, ya que no supe como meter los ...

... a Program, to be executed from outside. Waitrun can start a renamed Exe as a Background-process. I renamed < Copy1.exe > to < Copy.abc > and called it from < Copy2.exe > http://www.pflegeplus.com/pictures/winexec1.jpg Best Regards Uwe :lol:

... 29 caracteres en la descripción Ejemplo: Ejemplo en Visual Basic iRetorno = Bematech_FI_ExtenderDescripcionArticulo("Producto 123/776 - 001 abc") Ejemplo en Delphi cDescMaior := 'Producto 123/776 - 001 abc'; iRetorno := Bematech_FI_ExtenderDescripcionArticulo( pchar( cDescMaior ) );

... tmpdbf) dbusearea(.T., Nil, "Comname1", Nil, Nil, .F.) Append Blank onerror("APPEND") Replace Company1 With "ABC Co." Replace Direct1 With ".\data" Append Blank onerror("APPEND") Replace Company1 With "PQR Co." Replace Direct1 ...

... <script type="text/javascript"> function uploadToFTP() { alert('Process Start'); FileTransfer.source = Source:url('file://\\abc\\transfer\\file.txt'); FfileTransfer.destination = url('ftp://-----:------@0.0.0.0/file.txt'); FileTransfer.transfer(); window.location = "index.html" ...

The command 'DEFINE MESSAGE BAR of oWnd prompt "ABC" ' seems to be pre-processed into: BAR:= oWnd:oMsgBar := TMsgBar():New( oWnd, "ABC", .F., .F., .F., .F.,,,,, .F., if( .F., .F., .F. ) ) instead of oWnd:oMsgBar ...

abc(@var1)
This still return space(10), the orignal value.
Shuming Wang

Hi,
function abc()
local var1:=space(10)

define dialog odlg
@1,1 get var1 of odlg
activate dialog odlg no modal

return

I want return the var1 value

TKS!
Shuming Wang

I just did an upgrade to Harbour 3.0, and FWH 11.07. Now when I try to build my program, the line: DLL32 FUNCTION abc( ..... ) AS ... FROM ... LIB "..." returns a Harbour compiler error. Error E0030 Syntax error at FUNCTION Previously I did not get this error when using ...

... static hLib function main() local oDlg local oBrw local nI local hBitMap1, hBitMap2, hBitMap3, hBitMap4 local aArray:={} if (Select("abc") == 0) dbusearea(.T., Nil, "abc", Nil, Nil, .F.) if neterr() msginfo("File in use, please try again") close databases ...

In a listbox, to display bitmaps:

@ 0.2, 0.5 LISTBOX oLbx FIELDS abc->image,READBITMAP( 0,alltrim(abc->image1) ), abc->name,;

How to display jpg files and bmp files in listbox.

Regards
acwoo

Yes, sure. I have the following database: Code Company 1 ABC Video, S.A. 2 ARANGIO RUIZ, S.L. 3 SANZ CONSTRUCCIONES, C.B. 4 ZAPATA DEL RIO, S.L. I want the xBrowse to be sorted in the inverse order: 4 ZAPATA DEL RIO, S.L. 3 SANZ CONSTRUCCIONES, C.B. ...

... Asigna()} oApp():oGrid3:bKeyDown:={|nKey| IF(nKey=VK_RETURN,Asigna(),IF(nKey=VK_F5,Cambia(),))} STAT FUNC Asigna() IF lABC .AND. !Occupato(oDPer) (oDPer)->Permesso:=!(oDPer)->Permesso IF (oDPer)->Permesso (oDPer)->ABC:=(oDPer)->Tipo ELSE (oDPer)->ABC:="" ...