Jump to content
Fivewin Brasil

CLICK21

Membros
  • Posts

    89
  • Joined

  • Last visited

CLICK21's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Troquei o ace32.dll da pasta do Visual pelo ace32.dll do FWH 6.12 e funcionou. Grato pela informação. Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k Editado por - click21 on 29/09/2009 17:31:37
  2. Prezados Fivewiners Ao baixar a versão free 6.12 e compilar junto com o Visual for Harbour 2.4.91 deu esse erro. Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Fatal: Unable to open file 'ACE32.LIB' ***ERROR*** Obrigado pela informação . Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k Editado por - click21 on 29/09/2009 16:43:20 Editado por - click21 on 29/09/2009 16:44:02
  3. Prezados Fivewiners Ao baixar a versão free 6.12 e compilar junto com o Visual for Harbour 2.4.91 deu esse erro. Turbo Incremental Link 5.00 Copyright © 1997, 2000 Borland Fatal: Unable to open file 'ACE32.LIB' ***ERROR*** Obrigado pela informação . Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k Editado por - click21 on 29/09/2009 16:43:20 Editado por - click21 on 29/09/2009 16:44:02
  4. Gilmer, O Código que vem no CD não poderia estar amarrado no Login ? Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  5. CLICK21

    Ordscope

    Prezados , Kapi e Vagner, Agradeço pela resposta. Estarei compilando em Clipper 5.3. ---------------------------------- Kapi, Eu acho que não é só ele que é "pré histórico", "Vagner no bom sentido" pois eu ainda rodo um Fabrica (Fundição) com o bom e velho Clipper. , mas ainda não consegui passar para um ambiente Windows. e olha que comprei o fw2.5 e o FWH 2.5. Questão de Filosofia por parte da minha diretoria, mas logo, logo estarei fera no FWH. ---------------------------------- Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  6. CLICK21

    Ordscope

    Grande Kapi, Modesta a parte, fico agradecido em responder o meu tópico. Estou usando o Clipper 5.2e []´s Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  7. CLICK21

    Ordscope

    Prezados Fivewinne´s Como faço para resolver este erro: 'ordscope' : unresolved external Fiz um pq. prg em FW 2.5 estou compilando com o Blinker Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  8. CLICK21

    Ordscope

    Prezados Fivewinne´s Como faço para resolver este erro: 'ordscope' : unresolved external Fiz um pq. prg em FW 2.5 estou compilando com o Blinker Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  9. Prezados Fivewinners, Peço uma ajuda, como posso atualizar a minha listbox. quando o arquivo receber mais registros , gostaria de atualizar automaticamente. Estou fazendo um prg = o abaixo, mas não sai desse. []´s -------------- // Placing bitmaps at standard ListBoxes in FiveWin #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oLbx, cCli, cVlr public cUpdate, cUpdate1, cIni, cFim , cTotal LMKDIR("TMP") set date brit SET _3DLOOK ON SET DELETE ON USE s:\sisfun\dbf\VENDAS ALIAS VENDAS SHARED cUpdate = lastrec() index on vendas->fantasia to c:\tmp\ix close index atualiza(cUpdate,0) sum all tmpbco->valor to cTotal go top DEFINE DIALOG oDlg TITLE " Faturamento de Clientes v. 1.0" FROM 1,.5 TO 27, 50 @ .5, .5 LISTBOX oLbx Fields TMPBCO->CLIENTE, TRANSFORM(TMPBCO->VALOR,"@Ez 9999,999,999.99"); header " Cliente"," Valor em R$"; Fieldsizes 220,50; SIZE 310,160 of oDlg @ 11, 1 say "Periodo de : " +transf(cIni,"@D")+" - "+transf(cFim,"@D") @ 11, 18 say " R$ "+transf(cTotal,"@ez 9,999,999,999.99") @ 10, 12 BUTTON "&Calculo" ACTION dbcloseall() ;main() @ 10, 22 BUTTON "&Sair " ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED dbcloseall() erase c:\tmp\ix.ntx return nil Function atualiza(cup,cCont) local cCli, cVlr DBCREATE("C:\TMP\TMPBCO", { {"Cliente" , "C", 50, 0 },; {"Valor" , "N", 15, 2 } } ) USE C:\TMP\TMPBCO ALIAS TMPBCO NEW SELE VENDAS go bott m->cFim = vendas->emissao m->cIni = m->cFim - day(m->cFim) + 1 go top cup=lastrec() cCli = vendas->Fantasia cVlr = 0 set index to c:\tmp\ix DO WHILE !EOF() if vendas->emissao > m->cFim .or. vendas->emissao < m->cIni .OR. VENDAS->TIPOFAT#'VENDAS' skip loop endif cCli = vendas->Fantasia do while vendas->Fantasia = cCli IF VENDAS->BAIXA = 'S' SKIP LOOP ENDIF cVlr = cVlr + vendas->v_fatura1 skip ENDDO sele Tmpbco appe blank replace cliente with cCli replace valor with cVlr sele vendas cVlr = 0 ENDDO sele tmpbco go top return nil Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  10. Prezados Fivewinners, Peço uma ajuda, como posso atualizar a minha listbox. quando o arquivo receber mais registros , gostaria de atualizar automaticamente. Estou fazendo um prg = o abaixo, mas não sai desse. []´s -------------- // Placing bitmaps at standard ListBoxes in FiveWin #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oLbx, cCli, cVlr public cUpdate, cUpdate1, cIni, cFim , cTotal LMKDIR("TMP") set date brit SET _3DLOOK ON SET DELETE ON USE s:\sisfun\dbf\VENDAS ALIAS VENDAS SHARED cUpdate = lastrec() index on vendas->fantasia to c:\tmp\ix close index atualiza(cUpdate,0) sum all tmpbco->valor to cTotal go top DEFINE DIALOG oDlg TITLE " Faturamento de Clientes v. 1.0" FROM 1,.5 TO 27, 50 @ .5, .5 LISTBOX oLbx Fields TMPBCO->CLIENTE, TRANSFORM(TMPBCO->VALOR,"@Ez 9999,999,999.99"); header " Cliente"," Valor em R$"; Fieldsizes 220,50; SIZE 310,160 of oDlg @ 11, 1 say "Periodo de : " +transf(cIni,"@D")+" - "+transf(cFim,"@D") @ 11, 18 say " R$ "+transf(cTotal,"@ez 9,999,999,999.99") @ 10, 12 BUTTON "&Calculo" ACTION dbcloseall() ;main() @ 10, 22 BUTTON "&Sair " ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED dbcloseall() erase c:\tmp\ix.ntx return nil Function atualiza(cup,cCont) local cCli, cVlr DBCREATE("C:\TMP\TMPBCO", { {"Cliente" , "C", 50, 0 },; {"Valor" , "N", 15, 2 } } ) USE C:\TMP\TMPBCO ALIAS TMPBCO NEW SELE VENDAS go bott m->cFim = vendas->emissao m->cIni = m->cFim - day(m->cFim) + 1 go top cup=lastrec() cCli = vendas->Fantasia cVlr = 0 set index to c:\tmp\ix DO WHILE !EOF() if vendas->emissao > m->cFim .or. vendas->emissao < m->cIni .OR. VENDAS->TIPOFAT#'VENDAS' skip loop endif cCli = vendas->Fantasia do while vendas->Fantasia = cCli IF VENDAS->BAIXA = 'S' SKIP LOOP ENDIF cVlr = cVlr + vendas->v_fatura1 skip ENDDO sele Tmpbco appe blank replace cliente with cCli replace valor with cVlr sele vendas cVlr = 0 ENDDO sele tmpbco go top return nil Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  11. CLICK21

    ADORDD

    Prezados, Estou compilando com Xmate e não consegui o que estou fazendo de errado. ou que erro é esse : can´t open #include file: "usrrdd.ch" ; No such file or directory Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  12. CLICK21

    ADORDD

    Valeu Ale Fico no aguardo. []´s Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  13. CLICK21

    ADORDD

    Ale Por favor, poderias enviar os arquivos para o e-mail adilsonpv@ig.com.br , pois o que fiz download não funciona nem a pau. Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k Editado por - click21 on 01/08/2008 11:12:28
  14. CLICK21

    ADORDD

    Prezados, Alguém pode me ajudar ? Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
  15. CLICK21

    ADORDD

    Gvc, Formatei uma maquina, fiz download, e tentei compilar e não tem jeito, peço ao amigo que envies os arquivos para compilar, nos e-mails acima. []´s Adilson Paes FWH 2.5 - xharbour 0.99.50 - xmate 1.9k
×
×
  • Create New...