FiveTech Software tech support forums

Nages oPanel:aControls[ nItem ]:End() HB_ADel( oPanel:aControls[ nItem ], nItem, .t. ) ASize( oPanel:aControls, Len( oPanel:aControls ) ) oPanel:SetRange() oPanel:refresh() I saw on oPanel:aControls there are also the records https://i.postimg.cc/QNKWmS1C/mm.png ...

... */ Return .T. ************************************** FUNCTION SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; ...

... */ Return .T. ************************************** FUNCTION SetRT(cOutFile) ************************************** LOCAL oRTF Public oPrinter,aSize DEFINE RTF oRTF FILE cOutFile ; FONTS "Times New Roman", "Courier New", "Arial Cyr" ; FONTFAMILY "froman","fswiss","fmodern"; ...

Hi, Why this line above returns ASIZE error? VetXmlsNf := aGetFiles( "*.xml", "Selecione o(s) xml(s)", "*.xml", "") Time from start: 0 hours 0 mins 10 secs Error occurred at: 03/01/2024, 15:45:34 Error ...

FW_ReadImage( ; [oWnd / hDC ] ; //or NIL uImage, ; [aSize], ; // { w, h } for resizing [lGDIP] ) // Use GDI+ or not. Default .F. --> aImage. uImage: Can be any file name, resource name, image buffer, hBitmap, hIcon, aShape Array, Image URL on the ...

... aHead:= {"Código","Descripción","Rubro","Precio 1","Precio 2"} aSize:= { 90 * Factory,240 * Factory,240 * Factory,110 * Factory,110 * Factory } aJust:= { AL_CENTER , AL_LEFT , AL_LEFT, AL_RIGHT , AL_RIGHT } @ 0, ...

... aData AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } ) if len( ATail( aData ) ) < 2 ASize( aData, Len( aData ) - 1 ) endif Adel(aData,1) // erase first line // save to dbf oMisura:= TDatabase():Open( , cPath+"Unitamisura", ...

... aData AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } ) if len( ATail( aData ) ) < 2 ASize( aData, Len( aData ) - 1 ) endif Adel(aData,1) // erase first line // save to dbf oMisura:= TDatabase():Open( , cPath+"Unitamisura", ...

with ASize( aData, Len( aData ) - 1 )
I can erase that line but How I can Know that line is empty ?

... aData AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } ) if len( ATail( aData ) ) < 2 ASize( aData, Len( aData ) - 1 ) endif Adel(aData,1) // erase first line // save to dbf oMisura:= TDatabase():Open( , cPath+"Unitamisura", ...

... .t. ) AEval( aData, { |c,i| c := StrTran( c, Chr(1), CRLF ), aData[ i ] := HB_ATokens( c, cSymbol, .t., .t. ) } ) if len( ATail( aData ) ) < 2 ASize( aData, Len( aData ) - 1 ) endif Adel(aData,1) <---------------- erase the first line But when I save aData on Archive, inserts an empty record ...

... y X cantidad de filas. Necesito agregarle más adelante otra columna, de manera que quede de 21 columnas y X filas sin perder los datos. Traté con ASIZE() pero al parecer solo funciona con arreglos de 1 dimension. ¿hay alguna manera? Gracias por la idea que puedan aportarme.

Keep at least one hash in the array while creating xbrowse. Later ON INIT of oDlg, ASize( oBrw:aArrayData, 0 )

Hola. usando harbour y Fwh la ultima. Me arroja estos errores: [1]:iLink32.Exe -Gn -q -aa -Tpe -x @testMaria.bcl Error: Unresolved external 'WinMain' referenced from X:\HARB\BCC7\LIB\C0W32.OBJ Error: Unresolved external '_hb_vmProcessSymbols' referenced from X:\PROYECTOS\TEST\MARIA\OBJ\MARIA.OBJ Err...

... ) ) aTmp := hb_aTokens( cBuf, Chr(10) ) AEval( aTmp, { |c,i| aTmp[ i ] := hb_aTokens( c, ';' ) } ) aHeaders := aTmp[ 1 ] aTmp := ADel( aTmp, 1 ) aSize( aTmp, Len( aTmp ) - 1 ) return aTmp the file csv "UserName","Activity","Work Date","Time Worked""Falconi ...