kapiaba

Oi Kapiaba... boa tarde

Me desculpe por incomoda-lo tanto!

Mas já tentei tudo para resolver o problema com o hb_vmdo() (inclusive com suas sugestões de adicionar o SysRefresh e o  HB_GCALL( .F. ) )

tenho utilizado o Monitor de Recursos do Windows 7 para ver a memoria disponivel quando ocorre o erro e vi que neste momento tenho 1,7Gb livres .

Vi no site do Linares (fivetech) sugestões para utilizar o Harbour ao invés do Xharbour mas não sei o que preciso modificar nos meus prgs para tanto.

Por isto te pergunto:

Como faço para compilar e lincar meu programa com Harbour

Tenho feito isto com FWH10.09,   XHB10264  e BCC582

Tenho o Harbor Harbour 3.2 para BCC582  e FWH17.09

Segue anexo o bat que uso para compilações e lincagens:

Agradeço por qq ajuda!

build_cusmol 2020.zip

Boa tarde Kapi, em uma oportunidade (entre varias), me ajudaste com a função Tira_acentuacao, me ajudou muito, porem à pouco tempo atras, apos uma atualização do win 10, não reconhecia mais os carateres, apos muitos intentos resolví assim.

FUNCTION TIRA_ACENTUACAO( cStr )

   LOCAL cStrNew := "", nX 
  *cAcentos := {  "ã"   ,  "à"   ,  "ä"   ,  "á"   ,  "å"   ,   "â"   ,   "À"   ,   "Á"   ,   "Â"   ,   "Ã"   ,   "Ä"   ,   "Å"   ,   "ç"   ,   "è"   ,   "é"   ,   "ê"   ,    "ë"   ,   "í"   ,   "Í"   ,   "É"   ,   "Ê"   ,   "-"   ,   "ó"   ,   "õ"   ,   "ô"   ,   "Ô"   ,   "Ó"   ,   "Õ"   ,   "ú"   ,   "û"   ,   "Ú"   ,   "Û"   ,   "Ç"   , "º", chr( 239 ) }
   cAcentos := {Chr(237),Chr(224),Chr(228),Chr(225),Chr(229), Chr(226), Chr(192), Chr(193), Chr(194), Chr(195), Chr(196), Chr(197), Chr(231), Chr(232), Chr(233), Chr(234), Chr(235), Chr(237), Chr(205), Chr(201), Chr(202), Chr(173), Chr(243), Chr(245), Chr(244), Chr(212), Chr(211), Chr(213), Chr(250), Chr(251), Chr(218), Chr(219), Chr(199), "º", chr( 239 ) }
   cLetras  := {  "a"   ,   "a"  ,  "a"   ,  "a"   ,  "a"   ,    "a"  ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "c"   ,   "e"   ,   "e"   ,   "e"   ,   "e"   ,   "i"   ,   "I"   ,   "E"   ,   "E"   ,    ""   ,   "o"   ,    "o"  ,   "o"   ,   "O"   ,   "O"   ,   "O"   ,   "u"   ,   "u"   ,   "U"   ,   "U"   ,   "C"   ,  "",    ""      }
    

   For nX := 1 TO LEN( cAcentos )

      cStrNew := StrTran( cStr, cAcentos[nX], cLetras[nX] )

      cStr := cStrNew

   Next  

Return( cStr)

Com Chr() funcionou ok novamente, Se serve de alguma coisa, fica contigo, já que tu me brindaste a função.

Valeu, obrigado

Boa Tarde. Muito Obrigado, mas eu já utilizo a FileXLS.LIB e preciso baixar  a 32 Bits e não consigo. Consegue me ajudar ?

Kapiaba, um sistema onde o cliente cria seus próprios formulários de acordo com o perfil do cliente, e salva só as respostas (entre colchetes)...  mas o get não funfa rsssss

Kapiaba, um sistema onde o cliente cria seus próprios formulários de acordo com o perfil do cliente, e salva só as respostas (entre colchetes)...  mas o get não funfa rsssss

Voce tambem está fazendo o e-Social

Kapiaba.. gostaria de trocar umas ideias contigo nobre colega... como poderei faze-lo??

Att.

Everton