soaresja1
-
Posts
19 -
Joined
-
Last visited
Posts posted by soaresja1
-
-
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.
-
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 9200Time 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.
Boleto Bancario
in Programação
Posted
Boa Tarde! Pessoal.
Alguém tem programa fonte de boleto bancário que possa me passar, fazendo o favor.