Luiz Arruda (ICO)

Boa Tarde, nunca usei a xDev com Harbour, sempre usei xHarbour nos projetos.

sinto não poder ajuda-lo.

Bom dia,

Não recordo direito mas creio que esta versão DEMO não vá funfar com o BCC0612,

Tente trocar pela BCC55 ou Bcc56

após incorporar a PCREPOS.LIB, faça o mesmo com a msimg32.lib

ela está na pasta c:\bcc56\lib\msimg32.lib

Em seguida faça o mesmo com seus *. PRGs

Abraços...

Boa Tarde..

Temos não João, a gente usa de terceiros, de uma empresa especializada em folha pgto. até porque tem um setor juridico e financeiro a disposição e atentos para eventuais mudancas nas legislações e tabelas, mexer com folha é ralo, a gente tem que ficar atualizando o sistema direto sempre que tem alterações na legislação em tabelas e ou aliquotas do governo, por isso contratamos essa empresa a 12 anos(não vou por aqui pq usa Xbase mais é de concorrente) e é eses setores que disto pra gente, só precisamos atualizar o sistema que ela mesma avisa atraves de um canal, e com isso ocupamos o tempo com outros assuntos... e não é carol. Mas se alguém do forum tiver uma completa tb. me interessa, até porque será em uma liguagem que a gente conhece bem e confia.

Valeu

Obrigado..

Bom Dia

O rodapé ficou igual o da imagem abaixo ???

vc. selecionou o PRG na aba "projeto/modulos do projeto" ??

verifique também se o seu arquivo.prg de teste tem mesmo a extenção PRG, pq. tem editores que salvam como TXT ...

inclua também estas libs ao projeto "c:\xharbour\lib\pcrepos.lib" e "c:\bcc56\psdk\msing32.lib"

Verifique também se a versão do xHarbour é compativel com o seu FiveWin ...

Abraços...

Bom Dia ... Veja se ajuda...

VEJA QUE SE TUDO ESTIVER CERTO VAI APARECER ASSIM NO RODAPÉ

DEPOIS É SÓ SETAR EM PROJETO

Abraços...

Veja se eu entendi... eu tenho que saber o numero do cep para que mostre o nome da rua ??

é que não consegui usa-los, não está retornando nada, tudo em branco, tô mais perdido do que cão que cai de mudança...

Obrigado

Eu eu eu \o/

Bom Dia..

Compilei seu código e deu tudo certo, exceto o StrTran e :Cargo de resto funcionou sem alterar os fonts do buttons.

Jackson, a versão é 9.04 e por enquanto vou deixar como está, criando um registro vazio no inicio e excluindo ele ao sair da dialog, pq. se a classe do 9.04 é bugada não vai adiantar eu fazer de outra forma ...

Abraços..

e Kapi, a intenção é esta mesma... só inclusão ... kapitche ?

beijinho no ombro ...

Assim eu consegui.. só que sempre cria um registro vazio na entrada da dialog, e é só um mesmo, olhando a gente até sabe onde tá criando

mas se eu tirar tirar o oCli:append ou oCli:Blnak ali do inicio ou do Action para de funcionar geral...

Tudo bem por enquanto, é só excluir o registro vazio ao fechar a janela que fica OK, mas ainda espero uma solução

Obrigado a todos que ajudaram...

      
DATABASE oCli
  oCli:SetBuffer( .T. ) 
  oCli:Append()
  oCli:Blank() 
  oCli:gotop()
Define Dialog oDlg Resource "#1001"
   
   Redefine Get oGet[1] Var oCli:Comp   ID 4007 Of oDlg
   Redefine Get oget[2] Var oCli:Data   ID 4008 Of oDlg
   Redefine Get oGet[3] Var oCli:Loja   ID 4009 Of oDlg
   Redefine Get oGet[4] Var oCli:Numero ID 4010 Of oDlg
   Redefine Get oGet[3] Var oCli:Garant ID 4011 Of oDlg
   Redefine Get oGet[4] Var oCli:Marca  ID 4018 oF oDlg
   Redefine Get oGet[5] Var oCli:Valor  ID 4014 Of oDlg
   Redefine Get oGet[6] Var oCli:obs    ID 4012 Of oDlg 
                                
Redefine Button obtn Prompt "Cadastrar" ID 4016 Action  ;
                              ( oCli:Save(),;
                                      oCli:SetBuffer(.t.),;
                                      oCli:Append(),;
                                      oCli:Blank(),;
                                      oDlg:refresh(),;   
                                      odlg:Update())

Isso já tinha tentando, tentei tb. oCli:gotop() mas não funfam no action do buttom

será que tô falando javanês ???

EU JÁ CONSEGUI CADASTRAR,,, não sei como dar o loop para incluir um novo registro...

Não.. bêbê... eu não quero mexer com variaveis, é por isso que quero DATABASE, quero digitar direto, do jeito que postei a pouco até grava, mas não dá o loop para um novo registro

Assim Funciona, porém para uma unica entrada,

mesmo se eu colocar isso no action, como dou um loop limpando os dados ??

 
  DATABASE oCli
    oCli:Load()
    oCli:SetBuffer( .T. ) 
    oCli:Append()
    oCli:Blank()  

Interessante... nem um das duas formas funcionou...

.. e não tem desvio, não tem chamadas para lugar nem um o PRG é só isso ai mesmo. nada mais

 
Procedure Entrada()
  Local oGet[8]
  Select 1
  USE BDADOS ALIAS OCLI Exclusive New 
  
  DATABASE oCli
  oCli:Load()
  oCli:SetBuffer( .T. ) 
   
 Define Dialog oDlg Resource "#1001"
   Redefine Get oGet[1] Var oCli:Comp   ID 4007 Of oDlg
   Redefine Get oget[2] Var oCli:Data   ID 4008 Of oDlg
   Redefine Get oGet[3] Var oCli:Loja   ID 4009 Of oDlg
   Redefine Get oGet[4] Var oCli:Numero ID 4010 Of oDlg
   Redefine Get oGet[3] Var oCli:Garant ID 4011 Of oDlg
   Redefine Get oGet[4] Var oCli:Marca  ID 4018 oF oDlg
   Redefine Get oGet[5] Var oCli:Valor  ID 4014 Of oDlg
   Redefine Get oGet[6] Var oCli:obs    ID 4012 Of oDlg  
   Redefine Button obtn Prompt "Cadastrar" ID 4016 Action (oCli:Save(),oCli:SetBuffer( .F. ))
 Activate Dialog oDlg Centered
 Return(.t.)

Boa Tarde ..

Alguém poderia dizer porque o código abaixo não está salvando no DBF ??

Eu clico no buttom "cadastrar" e nada acontece ...

 
Procedure Entrada()
  Local oGet[8]
  Select 1
  USE BDADOS ALIAS OCLI Exclusive
  
  DATABASE oCli
 
 Define Dialog oDlg Resource "#1001"
      Redefine Get oGet[1] Var oCli:Comp   ID 4007 Of oDlg
      Redefine Get oget[2] Var oCli:Data   ID 4008 Of oDlg
      Redefine Get oGet[3] Var oCli:Loja   ID 4009 Of oDlg
      Redefine Get oGet[4] Var oCli:Numero ID 4010 Of oDlg
      Redefine Get oGet[3] Var oCli:Garant ID 4011 Of oDlg
      Redefine Get oGet[4] Var oCli:Marca  ID 4018 oF oDlg
      Redefine Get oGet[5] Var oCli:Valor  ID 4014 Of oDlg
      Redefine Get oGet[6] Var oCli:obs    ID 4012 Of oDlg  
 Redefine Button obtn Prompt "Cadastrar" ID 4016 Action (oCli:Save())
  
 Activate Dialog oDlg Centered
 Return(.t.)
 

Alguém me fale como excluir um tópico ...

deu algum pau no micro e não no RES, o executável era criado e não executava... dava uma mensagem estranha de programa não executado lado a lado e mais alguma coisa que não lembro. fiz a recuperação do sistema para a data de ontem e tudo voltou ao normal...

Só que não consegui excluir este tópico ...

Obrigado a todos que ajudaram ....

Boa tarde..

Ontem abri um PRG para colocar uma MsgInfo("Conta Cadastrada com sucesso","Cadastro")

porque de um funcionário novo,,, até tudo bem, compilei o programa e está funcionando que é uma beleza, o problema tá que agora se eu tento compilar novamente o maledeto o xDev está retornando este erro

Duplicate resource:  Type 10 (RCDATA), ID DVCLAL; File TMP1.$$$ resource kept; file FONTE\P9.RES resource discarded.  

e não gera o Executável, e não mexi em nem uma virgula dos PRG, o que pode ser esse erro ?

desde já obrigado...

Marcelo, Vcs. estão em extinção.... e sendo só vc. e o Kapi. não vai ter jeito de continuar a espécie.. kkkkkkkkkkkkk

João, é a coisa mais simples do mundo... eu comecei usando a screnn32.dll, e até hoje ainda uso, abro ela no PellesC, faço o que tenho que fazer e gravo para RES... pronto. depois disso só abro o RES para alterações

Para criar as telas/controles etc... é ir ReSource e escolher o que vc. quer como na imagem

Se até eu consegui vc. tb. consegue... vai por mim

Acho que o unico que ainda usa o The Best, Maravilhoso, show de bola , exxxtraordinário, mega fantastic Ws

e ainda vive é o Kapiaba ...

Arilston ... foi pro seu email...

sói pra lembrar... veja minha versões no rodaopé ...

Abraços...

Boa tarde

acho que é isso que vc. quer ...

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=10479

Abraços ...

Por hora resolvido

comentei as linha 1735 e 1736

//    BitBlt( ::oBmp:getDC(), 0, 0, nArea, nArea, ::MetaDC, x, y, 13369376 )
//   ::oBmp:ReleaseDC()

e o erro parou ...

obrigado por tentar ajudar...

Ai é que tá a kka amigo...

Esse preview não é original do FW, a muuuuuuuuito tempo peguei de alguém no antigo forum que nem lembro mais de quem é , veja que ele mostra miniaturas na esquerda da tela, tudo funfa normalmente como mostro na imagem em anexo. só não posso clicar dentro da imagem do preview que arrebenta tudo...

mesmo assim esse method está igualzinho esse ai ...

Tentei tira-lo e deixar o oficial do FWH mas ai nem compila, já dá erro de cara na compilação sem mesmo mexer em nem uma linha dos PRGs... muito estranho

Bom dia pessoal...

Em todos os relatórios sempre que clico no preview está retornando este erro

Error BASE/1004 Class: 'NIL' has no exported method: GETDC

e aborta o programa... dei uma procurada no forum e não consegui achar, talvez algo sobre isso se perdeu no antigo forum ...

desde já obrigado...