soaresja1

Boa Tarde! Pessoal. Alguém tem programa fonte de boleto bancário que possa me passar, fazendo o favor.

Bom dia! Kapiaba, Esta rotina e para ser usada com pesquisa de produto para venda, pesquisa por código , descrição , retornando o código em uma célula de pedido de venda, por isso usei o ListBox. Você não tem um programa que faça isso para ter um modelo, quando você usa o BROWSE() não tem como definir os campos os títulos a pesquisa. Muito obrigado pela ajuda.

Kapiaba, acho que tem algo referente as versão . Em anexo o erro e o programa, tem como você executar este programa PEDP001 , erro.log e o arquivo dbf Obrigado. PEDP001.prg error.log ARQPEC.dbf ARQPEC.cdx

Boa Tarde! Estou com um erro ao clicar em uma célula no ListBox acontece este erro. Path and name: D:\Projetos\Controle\Controle.EXE (32 bits) Size: 4,138,496 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20161218) FiveWin version: FWHX 17.09 C compiler version: Borland/Embarcadero C++ 7.0 (32-bit) Windows version: 6.2, Build 9200 Time from start: 0 hours 0 mins 16 secs Error occurred at: 26/04/2019, 14:46:15 Error description: Error BASE/1004 Class: 'LOGICAL' has no exported method: EVAL Args: [ 1] = L .T. [ 2] = N 86 [ 3] = N 444 [ 4] = N 1 [ 5] = O TWBROWSE [ 6] = L .F. Stack Calls =========== Called from: => EVAL( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:LBUTTONDOWN( 1972 )

É isso mesmo , muito Obrigado.

Obrigado, vou fazer uns teste com xBrowse.

Boa Tarde! Emotta, não tem como me mandar o fonte desta Tela? soaresja1@terra.com.br Obrigado

Em FIVEWIN. Obrigado

Você mandou a imagem.jpg, e isso mesmo, teria como você me mandar o programa prg, só para ter uma base de paramentros. Obrigado

Bom dia! Alguém tem um programa com 2 Telas. 1) Tela Cabeçalho (Pedido de vendas Ex: Cliente , Condição de Pago , Etc) 2) Tela Itens (Código Itens , descrição,preço de Venda, etc) Obs. Tenho um sistema e Clipper usava a função Getlis, com trabalho com Advpl uso MSGetDados(), na totvs. Alguém pode me ajudar?

Obrigado pela Dica Só que agora esta dando este erro Called from: => DBUSEAREA(0) Isso e uma funçao do clipper, eu vou sempre ter que adicionar esta ?.DLL *.LIB no diretorio do FIVEWIN existe LIB e DLL no diretorio do xHarbour existe LIB e DLL no diretorio do Bcc5(Borland C++) Lib Quando na configuraçao do xDev no caminho do SET PATH ja pegasse estas Lib e Dll. Tem como voce me dar uma explicaçao sobre isso ?

Como o xDev 0.70 Como faço para colocar esta libs?

Baixei WORKSHOP.EXE e só editar e grava novamente ? Porque esta dando este erro tambem? Error: Unresolved external '_HB_FUN_DBFCDX' referenced from EXEMPLO2.obj tem que adicionar qual a ?.DLL tem alguns documento que informar este tipo de erros!! Voce pedio para baixar prev32.dll a que tenho e do 09/02/2009 ? onde baixo? Obrigado camarada

Obrigado Pessoal O programa veio junto ao Livro FIVEWIN (FATEC SISTEMAS) Vilian F. Arraes Vem o livro e CD o programa e esse. ****************************************************************************************** * Programa: SCR.PRG * * Funcao..: Programa principal do SCR - Sistema de Contas a Receber * * * * Autor...: Vilian F. Arraes Em: 01/10/02 * ****************************************************************************************** #INCLUDE "FiveWin.ch" #include "ads.ch" FUNCTION Main() LOCAL oMenu, oBar, oBmp PRIVA oWnd MENU oMenu //Cria um objeto do tipo menu e armazena esse objeto em oMenu MENUITEM "&Arquivos" //Faz Sub-Menu de manutenção de arquivos MENU MENUITEM "&Clientes..." ; ACTION Scr110() ; MESSAGE "Manutenção do cadastro de clientes" SEPARATOR MENUITEM "Sai&r..." ; ACTION iif( MsgYesNo( "Sai do sistema?","Confirmação"),oWnd:End(),); MESSAGE "Encerra a aplicação" ENDMENU MENUITEM "Manutenção" ; MESSAGE "Manutenção de Dados" MENU MENUITEM "&Clientes..." ; ACTION Scr110() ; MESSAGE "Manutenção do cadastro de clientes" MENUITEM "&Fornecedor..." ; ACTION Scr110() ; MESSAGE "Manutenção do cadastro de fornecedor" MENUITEM "&Vendedor..." ; ACTION Scr110() ; MESSAGE "Manutenção do cadastro de vendedor" SEPARATOR MENUITEM "Sai&r..." ; ACTION iif( MsgYesNo( "Sai do sistema?","Confirmação"),oWnd:End(),); MESSAGE "Encerra a aplicação" ENDMENU MENUITEM "Lançamentos" ; MESSAGE "Manutenção de lançamentos a receber" MENUITEM "Consultas" ; MESSAGE "Manutenção de lançamentos a receber" MENUITEM "&Relatórios" //Faz Sub-Menu de relatórios MENU MENUITEM "&Lançamentos por período" ; MESSAGE "Emite relatório com lançamentos a receber por período" MENUITEM "&Lançamentos por cliente" ; MESSAGE "Emite relatório com lançamentos a receber por cliente" ENDMENU MENUITEM "&Utilitários" //Faz Sub-Menu de utilitários MENU MENUITEM "&Reorganiza a base de dados" ; ACTION Scr410() ; MESSAGE "Cria os arquivos de índice do sistema" MENUITEM "&Cópia de segurança" ; MESSAGE "Gera arquivo ZIP com os arquivos do sistema" ENDMENU MENUITEM "A&juda" //Faz Sub-Menu de ajuda MENU MENUITEM "&Tópicos da Ajuda" ; MESSAGE "Aciona manual eletrônico" SEPARATOR MENUITEM "Sobre o SCR for Windows" ; MESSAGE "Exibe versão e direitos de cópia" ENDMENU ENDMENU DEFINE WINDOW oWnd ; // Define a janela principal do sistema TITLE "SCR - Sistemas de Contas a Receber Versão 1.0" ; MENU oMenu //Defini figura para área de trabalho DEFINE BITMAP oBmp FILE ("logodgd.bmp") ADJUST oWnd:bPainted = { | hDC | PalBmpDraw( hDC, 0, 0, oBmp:hBitMap ) } //Define uma barra de ferramentas p/ o sistema DEFINE BUTTONBAR oBar OF oWnd DEFINE BUTTON FILE "..\BITMAPS\CALC.BMP" OF oBar ; ACTION WinExec( "Calc" ) ; TOOLTIP "Calculadora" ; MESSAGE "Aciona a calculadora" DEFINE BUTTON FILE "..\BITMAPS\EXIT.BMP" OF oBar ; ACTION iif( MsgYesNo( "Sai do sistema ?","Confirmação"),oWnd:End(),) ; TOOLTIP "Sair" ; MESSAGE "Encerra a execução do sistema" SET MESSAGE OF oWnd TO ; "CopyRight By SYSCOMP-Sistema e Consultoria Serviços Ltda - 2009" CENTERED KEYBOARD DATE TIME ACTIVATE WINDOW oWnd MAXIMIZED //Ativa a janela principal do sistema RETURN( NIL ) ****************************************************************************************** * Programa: SCR110.PRG * * Funcao..: Implementa as operações de manutenção do arquivo de clientes. * * * * Autor...: Vilian F. Arraes Em: 01/10/02 * ****************************************************************************************** PROCEDURE SCR110 LOCAL oDlg, oLbx USE clientes ALIAS cli NEW EXCLUSIVE //Abre arquivo de clientes DEFINE DIALOG oDlg ; //Define dialog a ser exibido FROM 2,0 TO 17,63 ; TITLE "Manutenção do cadastro de clientes" ; OF oWnd @ 0.5,0.5 LISTBOX oLbx ; //Define browser para o arquivo CLIENTES.DBF FIELDS cli->codigo,cli->nome ; FIELDSIZES 56, 320 ; HEADERS "CÓDIGO", "NOME DO CLIENTE" ; SIZE 195, 100 ; OF oDlg @ 0.5,34 BUTTON "&Incluir" SIZE 40,10 OF oDlg ACTION SCR110m("I",oLbx) //Define butões para a janela de dialogo @ 1.5,34 BUTTON "&Alterar" SIZE 40,10 OF oDlg ACTION SCR110m("A",oLbx) @ 2.5,34 BUTTON "&Excluir" SIZE 40,10 OF oDlg ACTION SCR110m("E",oLbx) @ 3.5,34 BUTTON "&Consulta" SIZE 40,10 OF oDlg ACTION SCR110m("C",oLbx) @ 4.5,34 BUTTON "Im&primir " SIZE 40,10 OF oDlg ACTION SCR110m("P",oLbx) @ 5.5,34 BUTTON "&Fechar" SIZE 40,10 ACTION ( oDlg:End() ) OF oDlg ACTIVATE DIALOG oDlg CENTERED //Ativa a janela de dialogo RETURN STATIC FUNCTION SCR110m ( cOrig, oLbx ) LOCAL oDlgMan,cCodigo,cNome,nValor IF cOrig = "E" // Processa exclusão de clientes IF MsgYesNo( "Exclui "+Rtrim(cli->nome)+" ?","Confirmação") DELETE SKIP -1 oLbx:Refresh() ENDIF RETURN ELSEIF cOrig = "P" // Imprime o conteúdo do arquivo oLbx:Report() RETURN ELSEIF cOrig = "I" // Incializa variáveis para inclusão GO BOTTOM cCodigo := StrZero(Val(cli->codigo)+1,4) cNome := Space(40) nLimite := 0 ELSE // Inicializa vari;aveis para alteração cCodigo := cli->codigo cNome := cli->nome nLimite := cli->limite ENDIF DEFINE DIALOG oDlgMan ; // Defini janela p/ interação com o cliente FROM 10,10 TO 17,70 ; TITLE Iif(cOrig="I","Inclusão","Alteração")+" de clientes" oDlgMan:Cargo := .F. @ 00,02 SAY "Cod:" @ 00,06 SAY "Nome do Cliente:" @ 00,34 SAY "Limite:" @ 01,01 GET cCodigo OF oDlgMan PICTURE "9999" WHEN cOrig = "I" @ 01,04 GET cNome OF oDlgMan PICTURE "@!" VALID .NOT. Empty(cNome) @ 01,24 GET nLimite OF oDLgMan PICTURE "999,999.99" VALID nLimite >= 0 @ 02,13 BUTTON "&Ok" SIZE 40,10 OF oDlgMan ACTION ( oDlgMan:Cargo := .T., oDlgMan:End() ) WHEN .NOT. (Empty(cCodigo) .OR. Empty(cNome)) @ 02,20 BUTTON "&Cancela" SIZE 40,10 OF oDlgMan ACTION ( oDlgMan:End() ) ACTIVATE DIALOG oDlgMan CENTERED // Ativa a janela de diálogo IF oDlgMan:Cargo IF cOrig = "I" APPEND BLANK REPLACE codigo WITH cCodigo ENDIF REPLACE nome WITH cNome ,; limite WITH nLimite oLbx:Refresh() ENDIF RETURN NIL ****************************************************************************************** * Programa: SCR410.PRG * * Funcao..: Reorganiza a base de dados re-criando os arquivos CDX * * * * Autor...: Vilian F. Arraes Em: 01/10/02 * ****************************************************************************************** PROCEDURE Scr410 LOCAL bAction bAction := { | oMeter, oText, oDlg, lEnd | Reorganiza( oMeter, oText, oDlg, @lEnd ) } MsgMeter( bAction ,"Preparando...","Reorganização da base de dados" ) RETURN STATIC FUNCTION Reorganiza(oMeter,oText,oDlg,lEnd) oText:SetText("Classificando Clientes...") USE clientes ALIAS cli NEW EXCLUSIVE oMeter:nTotal := cli->( LastRec() ) PACK INDEX ON codigo TAG clientes TO clientes ; EVAL {|| oMeter:Set(cli->( Recno() ))} EVERY 5 oText:SetText("Classificando Receber...") USE receber ALIAS rec NEW EXCLUSIVE oMeter:nTotal := rec->( LastRec()*2 ) PACK INDEX ON nlanc TAG receber TO receber ; EVAL {|| oMeter:Set(rec->( Recno() ))} EVERY 5 INDEX ON Dtos(data_venc) TAG vencto TO receber ; EVAL {|| oMeter:Set(rec->( rec->( LastRec() )+Recno() ))} EVERY 5 CLOSE DATA lEnd := .T. RETURN nil Quando mando imprimir o relatorio

Obrigado Pessoal Sobre as DLL RES RC Teria que adicionar no xDev quando cria o projeto? Onde encontro as RC ? Na configurar Paths( xDev) SET PATH C:\bcc55\bin;C:\xHB110\bin;C:\FWH_901\lib;C:\FWH_901;C:\FWH_901\DLL e continua com erros.

Application =========== Path and name: D:\FIVEWINCD\fivewin\segundo projeto.EXE (32 bits) Size: 1,657,856 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 07/14/09, 11:55:06 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: PREVIEW_PROC Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE(0) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:REPORT(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => SCR110M(163) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => (b)SCR110(144) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(0) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => SENDMESSAGE(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(0) Called from: => DIALOGBOXINDIRECT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => SCR110(147) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => (b)MAIN(21) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => MAIN(113) System ====== CPU type: Intel® Core2 Duo CPU T5800 @ 2.00GHz 2000 Mhz Hardware memory: 2048 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6154) Windows version: 6.0, Build 6001 Service Pack 1 Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: => CLI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 5 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 HASHENTRY 2 HBCLASS 3 HBOBJECT 4 TMENU 5 TMENUITEM 6 TWINDOW 7 TBRUSH 8 TFONT 9 TCONTROL 10 TBITMAP 11 TBAR 12 TRECT 13 TBTNBMP 14 TMSGBAR 15 TMSGITEM 16 TTIMER 17 TDIALOG 18 TWBROWSE 19 TBUTTON 20 TSCROLLBAR 21 TREPORT 22 TPRINTER 23 TPEN 24 TRLINE 25 TRCOLUMN 26 TSAY 27 ERROR 28 TREG32 Memory Analysis =============== 150 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes Alguem pode me dar uma força, pois estou começando agora no FIVEWIN? Jose Antonio soaresja1@terra.com.br soaresja1@hotmail.com msn.

Application =========== Path and name: D:\FIVEWINCD\fivewin\segundo projeto.EXE (32 bits) Size: 1,657,856 bytes Time from start: 0 hours 0 mins 5 secs Error occurred at: 07/14/09, 11:55:06 Error description: Error FiveWin/3 Cannot create Dialog Box: Resource: PREVIEW_PROC Stack Calls =========== Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: .\source\classes\REPORT.PRG => TREPORT:ACTIVATE(0) Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:REPORT(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => SCR110M(163) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => (b)SCR110(144) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(0) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => SENDMESSAGE(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(0) Called from: => DIALOGBOXINDIRECT(0) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => SCR110(147) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => (b)MAIN(21) Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(0) Called from: => TWINDOW:HANDLEEVENT(0) Called from: .\source\classes\WINDOW.PRG => _FWH(0) Called from: => WINRUN(0) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(0) Called from: D:\FIVEWINCD\harbour\Exemplo1.PRG => MAIN(113) System ====== CPU type: Intel® Core2 Duo CPU T5800 @ 2.00GHz 2000 Mhz Hardware memory: 2048 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Compiler version: xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6154) Windows version: 6.0, Build 6001 Service Pack 1 Linked RDDs =========== DBF DBFFPT DBFBLOB DBFNTX DataBases in use ================ 1: => CLI RddName: DBFNTX ============================== RecNo RecCount BOF EOF 1 5 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 HASHENTRY 2 HBCLASS 3 HBOBJECT 4 TMENU 5 TMENUITEM 6 TWINDOW 7 TBRUSH 8 TFONT 9 TCONTROL 10 TBITMAP 11 TBAR 12 TRECT 13 TBTNBMP 14 TMSGBAR 15 TMSGITEM 16 TTIMER 17 TDIALOG 18 TWBROWSE 19 TBUTTON 20 TSCROLLBAR 21 TREPORT 22 TPRINTER 23 TPEN 24 TRLINE 25 TRCOLUMN 26 TSAY 27 ERROR 28 TREG32 Memory Analysis =============== 150 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes Alguem pode me dar uma força, pois estou começando agora no FIVEWIN? Jose Antonio soaresja1@terra.com.br soaresja1@hotmail.com msn.