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.