Eroni

Reavivando o tópico, coisa antiga, problema novo: Quando uso o timer em uma dialog, funciona redondinho, quando eu uso em uma window, não funciona, alguem já possou por uma barbaridade dessa? Abraços.

Boa tarde, posso disponibilizar um exemplo, me adicione no skype.

Veja o exemplo em ..\samples\combos.prg do fivewin: // Showing the use of different styles of ComboBoxes controls #include "FiveWin.ch" #include "Combos.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oSay local oCbx1, oCbx2, oCbx3 local cItem1, cItem2 := "One", cItem3, cItem4 := "None" SET _3DLOOK ON // SkinButtons() DEFINE DIALOG oDlg RESOURCE "Combos" REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "One", "Two", "Three" } ; ID ID_SIMPLE OF oDlg ; ON CHANGE ( cItem4 := cItem1, oSay:Refresh() ) ; VALID ( cItem4 := cItem1, oSay:Refresh(), .t. ) REDEFINE COMBOBOX oCbx2 VAR cItem2 ITEMS { "One", "Two", "Three" } ; ID ID_DROPDOWN OF oDlg ; STYLE CBS_DROPDOWN ; ON CHANGE ( cItem4 := cItem2, oSay:Refresh() ) ; VALID ( If( ! oCbx2:Find( oCbx2:oGet:GetText() ),; oCbx2:Add( oCbx2:oGet:GetText() ),), .t. ) oCbx2:oGet:bKeyDown = { | nKey | SearchItem( nKey, oCbx2 ) } REDEFINE COMBOBOX oCbx3 VAR cItem3 ITEMS { "One", "Two", "Three" } ; ID ID_DROPDOWNLIST OF oDlg ; ON CHANGE ( cItem4 := cItem3, oSay:Refresh() ) ; VALID ( cItem4 := cItem3, oSay:Refresh(), .t. ) REDEFINE SAY oSay PROMPT cItem4 ID ID_SELECTION OF oDlg COLOR "R+/W" ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// function SearchItem( nKey, oCbx ) local nAt if Len( AllTrim( oCbx:oGet:GetText() ) ) == 1 if ( nAt := AScan( oCbx:aItems, { | c | Left( c, 1 ) == AllTrim( oCbx:oGet:GetText() ) } ) ) != 0 oCbx:oGet:SetText( oCbx:aItems[ nAt ] ) return 0 endif endif

Bom dia, eu uso apenas os SPEDs. Abraço.

Boa noite, estou também iniciando o desenvolvimento, estou verificando a possibilidade de usar o projeto ACBR para criar uma dll. Alguem mais ?

Uso o harbour boleto a bastante tempo, ultimamente tive que usar para caixa econômica e foram necessários ajustes, no mais tudo ok.

Boa noite, eu trabalho e gero lote, qual a sua dúvida?

Pessoal, alguém sabe como se comporta isso com base de dados grandes e SQL?

Boa noite, acho que este ano, se tudo der certo, vou poder comparecer. Mas falando em ADS, apenas gostaria de dizer que não uso a sintaxe xBase para manipulação de banco de dados a uns 8 anos ou mais, decidi escrever algumas classes que manipulam banco de dados usando sql puro. Desta forma, trabalho com sistema acessando banco de dados na nuvem super tranquilo. Com estas classes, tenho formas automatizadas de criar cadastros, consultas e processos de forma extremamente otimizadas e de código enxuto. Vou tentar desta vez participar do encontro. Abraços.

Boa noite, eu desisti da linguagem xBase para manipular banco de dados a muito tempo, se for usar na nuvem, então, esquece, o desempenho é sofrível, atualmente tenho minhas próprias classes que usam somente sql purissimo. Abraço.

Poxa, e ai vamos ter que ir para o Harbour obrigatoriamente?

Já percebi que a flexdocs gera pdf, mas não tinha olhado, vou dar uma verificada.

Bom dia, a solução de visualizar o danfe e gerar um pdf da tela de visualização já está ok, a solução que eu preciso é que na hora de enviar o e-mail do xml ao cliente, já consiga gerar o pdf e enviar junto, ai neste ponto que eu preciso gerar um pdf sem a intervenção do usuário.

Obrigado Kapiaba, na real eu uso hoje o CutePDF Writer para imprimir o danfe, pela classe do Gilmer, que por sua vez usa a tprinter. A solução que eu preciso é que não tenha que abrir a tela para que o usuário tenha que informar o arquivo. Uso a versão 1209 do fivewin. Você tem nfe e imprime Danfe?

Ressucitando o assunto, este pdfMachine permite que vc gere o pdf sem abrir a tela solicitando o nome do arquivo pelo usuário? Abraços.

Boa tarde, fui na pagina do harbour boleto ver se havia alguma atualização e me parece que está desativada, alguem mais confirma? Por coincidencia, vou precisar mexer para implementar o banco Banrisul que não tem. Pretendo dar uma revisada geral e implementar varias melhorias que estou pensando. O fonte que tenho aqui data de 2008, se tivesse uma atualização mais nova talvez as coisas que eu iria fazer ja existem.

Boa tarde, Judson, esta base de dados é grande? Como você faz para incrementar o número do pedido/orçamento/vendas? No passado quando eu ainda usava dbf, quando a base começou a crescer, ocorria que a leitura e gravação ficava lenta e quando mais de um mandava gravar ao mesmo tempo ai dava muito problema, a solução na época foi criar uma tabela com um unico registro para controlar os ultimos numeros dos pedidos/orçamentos/vendas, etc. Desta forma, cada vez que eu ia gravar, eu pegava o ultimo numero nesta tabela de um unico registro e incrementava, depois gravava na tabela dos dados. Depois que implementei esta solução em todo meu sistema, nunca mais me incomodei, e tinha cliente que mais de 10 vendedores trabalhavam ao mesmo tempo. Quem sabe poderia ser uma solução.

Bom dia, eu uso o harbourboleto com xHarbour, nunca deu problema, gera remessa e trata retorno também.

Manoel, estou na mesma que você, estudando o layout. Como fazer tem, porque já existe solução como a NFE que faz isso, o problema, como você mesmo citou, é a imensidão do projeto, que é enorme.

Bom dia, em Fastreport não tenho, não uso esta ferramenta. Espero que alguem possa lhe ajudar melhor então.

Bom dia, meu sistema possui os livros fiscais, porém não sei se são neste formato que mencionou, tenho um cliente que usa a mais de 10 anos, não sei se resolve o seu problema, posso enviar uma amostra em pdf. Abraço.

Boa tarde, segue o meu fonte. // Quando o usuario clicar Ok para iniciar , com o browse marcado...... For a := 1 to len( [ sua lista de tabelas, ou seu browse de tela ] ) CASE [ linha do seu browse ] == "tabela abc" // Mensagem ao usuario tipo "aguarde, indexando a tabela abc..." SWCreateIndex( [ linha do seu browse ], [Nome do indice no banco ], [nome do campo ] ) SWCreateIndex( [ linha do seu browse ], [Nome do indice no banco ], [nome do campo , nome do campo 2 ] ) // e assim sucessivamente, para varios indices da mesma tabela next a // proxima tabela marcada // etc, finalizar. ******************************************************************************************* ******************************************************************************************* FUNCTION SWCreateIndex( cTable, cIndex, cKey ) LOCAL cDropIndex := "" IF cTable = NIL .OR. cIndex == NIL .OR. cKey == NIL RETURN( .F. ) ENDIF cDropIndex := "DROP INDEX " + Upper( AllTrim( cIndex ) ) IF Upper( oSistema:cDbDriver_ ) == "MYSQL" cDropIndex := "DROP INDEX " + Upper( AllTrim( cIndex ) ) + " ON " + Upper( AllTrim( cTable ) ) ENDIF TRY SWExecSql( cDropIndex,.F. ) SWExecSql( "CREATE INDEX " + Upper( AllTrim( cIndex ) ) + " ON " + Upper( AllTrim( cTable ) ) + " (" + Upper( AllTrim( cKey ) ) + ")",.F. ) CATCH SWExecSql( "CREATE INDEX " + Upper( AllTrim( cIndex ) ) + " ON " + Upper( AllTrim( cTable ) ) + " (" + Upper( AllTrim( cKey ) ) + ")",.F. ) END RETURN( .T. ) Desculpe se nao ta claro o suficiente, qualquer coisa é so pedir por email, ou skype. Abraço.

Na SqlRdd o codigo é -1 Vou tentar implementar algo também, depois posto o fonte e o resultado. Abraços

Empresoft, tem que dar o drop antes sim. O banco não faz automatico. Em meu sistema tenho uma tela com um browse que permite as tabelas que seram criados os indices, isso para o caso de no decorrer do desenvolvimento você ir criando mais indices conforme achar necessário. Uma ideia é fazer uma função para automatizar a criação e já fazer o drop. Recomendo fortemente a rever suas tabelas e criar os indices o mais rapido possivel, porque tua aplicação vai decolar em termos de performance, principalmente se tiver base de dados grande. Se quiser posto o meu fonte de criação de indices. Abraço.