Leaderboard

Olá, amigos. Pelo visto a obrigatoriedade de informar o CEST será prorrogada de novo. Favor analisar este link sobre o assunto. http://www.spedbrasil.net/forum/topics/cest-nova-data-janeiro-2017

Boa noite a todos, O meu projecto está dando um erro 9009 quando coloco browse() aparece uma mensagem "hb_xrealloc não pode realocar memória" O projecto funciona bem e só quando quero colocar browse() ou ? " xpto " ou ? alias() é que aparece aquele erro. Alguém pode me ajudar? Abraços Júlio Fernandes

Pessoal estou começando a migrar meu sistema dbf para mysql e tenho tres duvidas se alguem puder me ajudar 1- Para criar um arquivo de indices estou fazendo assim e simplesmente o computador trava dbUseArea(.t.,'SqlRdd','dcadcpg0','VEN',.t. ) index on condpgto to xcadcpg1 index on descricao to xcadcpg2 2 - apos o insert na tabela o listbox fica todo bagunçado,ao sair do sistema e entrar de novo ai fica ok *------------------------------------------------* Static Function Gravar() *------------------------------------------------* Local cInsert :='' IF lAppend cInsert :='Insert Into dcadcpg0(Condpgto, Descricao, NroVencto, tipo, venc1, venc2, venc3, venc4,venc5,venc6, venc7, venc8, venc9,venc10 ) values (' cInsert :=cInsert +SR_cDBValue(mCondpgto)+','+SR_cDBValue(mdescricao)+','+SR_cDBValue(mNroVencto)+','+SR_cDBValue(mTipo)+','+SR_cDBValue(mVenc1)+','+SR_cDBValue(mVenc2)+','+SR_cDBValue(mVenc3)+','+SR_cDBValue(mVenc4)+','+SR_cDBValue(mVenc5)+','+SR_cDBValue(mVenc6)+','+SR_cDBValue(mVenc7)+','+SR_cDBValue(mVenc8)+','+SR_cDBValue(mVenc9)+','+SR_cDBValue(mVenc10)+' )' oSql := SR_GetConnection() oSql:exec( cInsert ) else cInsert := 'update dcadcpg0 set Descricao = '+SR_cDBValue(mDescricao)+', NroVencto ='+SR_cDBValue(mNroVencto)+', tipo = '+SR_cDBValue(mTipo)+' ' cInsert := cInsert + ', venc1 ='+SR_cDBValue(mVenc1)+', venc2 = '+SR_cDBValue(mVenc2)+' ' cInsert := cInsert + ', venc3 ='+SR_cDBValue(mVenc3)+', venc4 = '+SR_cDBValue(mVenc4)+' ' cInsert := cInsert + ', venc5 ='+SR_cDBValue(mVenc5)+', venc6 = '+SR_cDBValue(mVenc6)+' ' cInsert := cInsert + ', venc7 ='+SR_cDBValue(mVenc7)+', venc8 = '+SR_cDBValue(mVenc8)+' ' cInsert := cInsert + ', venc9 ='+SR_cDBValue(mVenc9)+', venc10 = '+SR_cDBValue(mVenc10)+' ' cInsert := cInsert +' where Condpgto = '+SR_cDBValue(mCondpgto) oSql := SR_GetConnection() oSql:exec( cInsert ) Endif go vn_ponta cIndice := "Descricao" oCbx3 :Refresh() * mudaVend() oLbx :Refresh() oLbx:upstable() oDlg :Refresh() oDlg :SetFocus() * lAppend:=.F. DesativaGet() oCbx3:Enable() oLbx:Enable() return NIL 3 - quando uso o dbf apos a exclusao o registro fica deletado dentro do banco de dados ja no mysql ele some. Qual é a melhor forma de trabalhar com registros que foram excluidos pois no dbf se eu precisar recuperar esse registro basta desmarcar o deleted e como faço isso no mysql IF MsgYesNo( "Confirma Exclusão "+ven->Descricao, "Excluir Cond.Pagto") cDele = 'DELETE FROM dcadcpg0 WHERE condpgto = '+SR_cDBValue(mCondpgto) oSql := SR_GetConnection() oSql:exec( cdele ) vn_ponta=recno() oDlg :Refresh() endif

Alguém usa? http://www.resource-builder.com/download.html Obg. abs.

Olá Alguém tem a classe TFirebird do Rodrigo Moreno para xHarbour 123 com Bcc 7, tentei contato com ele, mas ele não respondeu meus emails, sei que tem uma classe nova, estou precisando urgente dela.

Pessoal As UF's que alteraram as suas alíquotas internas foram somente BA e RO? de 17 para 18 e de 17 para 17,5, respectivamente? Ou teve mais alguma que não estou sabendo??? []s,

Olá bom dia. Tenho uma pequena aplicação feita em fiveppc, não tenho nenhuma experiência em fivewin, teria usar o mesmo fonte, fazer os ajuste necessários, desde que não seja muitos, e colocar ele para rodar em windows? Será que é viável? Existe alguma versão free da fivewin? Leco FivePPc Five PPC Harbour 1.0.1 - 1999-2008