cendon

variavel2=strzero(variavel1,2) sendo 2 o numero de digitos da variavel obs: a variavel1 deve ser numerica Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Editado por - cendon on 10/07/2009 08:51:49

Boa tarde Luiz se não me engano vc nã pode abrir o arquivo 1 e tentar fazer uma append from Select 2 Use Arquivo 2 Select 3 Use Arquivo 3 Define Dialog ...< "Faço tudo que tem ser feito" > Redefine Button... Funcao(wCD) Activate Dialog..Function Funcao(wCD) wCD=Codigo Select Arquivo 3 Append From Arquivo 1 For Int(conta)=Wcd assim deve funcionar ok se existir outro usuario utilizando o arquivo 1 vai dar pau tbm espero ter ajudado Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

http://www.fivewin.com.br/exibedicas.asp?id=519 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Evaldo, achei uma referencia na internet sobre a função em harbour http://www.vouch.info/harbour/index.html?hbgt.htm Pode ser que ajude Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

o comando MODE é do dos, por este motivo tem q estar no bat ele altera s ports do dos,quando vc colocou o primiero comando vc alterou a velocidade e os bits de controle da porta serial com1. o segundo mode é para mudar com1 para lpt2 o dos passa a enxergar a com1 como se fosse lpt2. a sintax dos comando é Configura os dispositivos de sistema. Porta serial: MODE COMm[:] [bAUD=b] [PARITY=p] [DATA=d] [sTOP=s] [to=on|off] [xon=on|off] [odsr=on|off] [octs=on|off] [dtr=on|off|hs] [rts=on|off|hs|tg] [idsr=on|off] Status de dispositivo: MODE [dispositivo] [/sTATUS] Redirecionar impressÆo: MODE LPTn[:]=COMm[:] Selecionar p gina de c¢digos: MODE CON[:] CP SELECT=yyy Status de p gina de c¢digos: MODE CON[:] CP [/sTATUS] Modo de exibi‡Æo: MODE CON[:] [COLS=c] [LINES=n] Velocidade de repeti‡Æo: MODE CON[:] [RATE=r DELAY=d] Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Para fabricar um UTF-8 você deve começar com esses 3 caracteres (ASCII) sendo eles: chr(239)+chr(187)+chr(191) digamos que você começasse o seu arquivo assim: fll := chr(239)+chr(187)+chr(191) crfl := chr(13)+chr(10) fll += "arquivo não sei o que, não sei o que lá e bla bla bla"+crfl fll += "o goveno pediu isso e aquilo e aquilo outro"+crfl fll += "e assim por ai vai"+crfl memowrit("arquivo.txt",fll) Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

crie um arquivo de inclusões e exclusões e faça um relatorio de balanço, no arquivo tem: saldo anterior, inclusões, exclusões,data movimentação. Vc terá a movimentação do seu estoque com as entradas e saidas. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Em linux: http://phpbrasil.com/articles/article.php/id/1609 Mysql: http://www.infoblogs.com.br/view.action?contentId=28655&Encoding-MySQL-para-UTF8.html em java: http://jsfromhell.com/pt/geral/utf-8 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Rikardo esta faltando uma linha de comando no BAT MODE LPTn:=COMm ex: MODE LPT2:=COM1 dentro do programa: set printer to lpt2 ou xx="lpt2" set printer to &xx Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Editado por - cendon on 07/04/2009 10:33:04

http://www.fivewin.com.br/exibedicas.asp?id=623 http://www.fivewin.com.br/exibedicas.asp?id=951 http://www.fivewin.com.br/exibedicas.asp?id=951 Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Tente assim: crie um dbf com os campos correspondentes sele 0 use xxx append from sdf delimited with ";" Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop Editado por - cendon on 26/01/2009 10:31:59

poste o código Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Luiz, Obrigado pela ajuda vou testar e depois posto. Obrigado Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde João coloquei o nowait para passar pela dialog e não fecha-la e executar a rotina de recalculo, nela a medida que o saldo muda ele dá um refresh() na variavel do @ say da dialog. carrego a variavel com a informação e dou um refrsh() pelo q entendi to fazendo algo muito errado ou do outro mundo. qual seria a melhor maneira de fazer isso? Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde pessoal estou com um pequeno problema tenho uma rotina para fazer um recalculo de saldo e quero mostrar algumas informações enquanto recalculo porem quando monto a dialog e tento atualizar com campos ela simplesmente fica toda em branco. todas as variaveis estão públicas os fontes estão ai em baixo: . . . msaldov=space(20) msaldoc=space(20) mconta=0 VarLiv=" " ************** inicaliza contador ************** DEFINE DIALOG oDlg5 FROM 5, 1 TO 30, 50 ; TITLE "Recalculo de Livros" FONT oFont @ 1, 2 say "Recalculo de saldo - Livro: " OF oDlg5 @ 1, 33 say ovarliv VAR VarLiv OF oDlg5 @ 2, 2 say "Saldo Vencimento: " OF oDlg5 @ 2, 33 say osaldov VAR msaldov OF oDlg5 @ 3, 2 say "Saldo Conciliado: " OF oDlg5 @ 3, 33 say osaldoc VAR msaldoc OF oDlg5 @ 4, 2 say "Contador de Registros: " OF oDlg5 @ 4, 33 say oconta VAR mconta picture "99999" OF oDlg5 ACTIVATE DIALOG oDlg5 nowait ************************************************ . . . // atualizando os dados msaldov=transform(msaldo,"@E 999,999,999.99") " "+dataven osaldov:refresh() mconta=mconta+1 oconta:refresh() . . . desde já obrigado Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde pessoal estou com um pequeno problema tenho uma rotina para fazer um recalculo de saldo e quero mostrar algumas informações enquanto recalculo porem quando monto a dialog e tento atualizar com campos ela simplesmente fica toda em branco. todas as variaveis estão públicas os fontes estão ai em baixo: . . . msaldov=space(20) msaldoc=space(20) mconta=0 VarLiv=" " ************** inicaliza contador ************** DEFINE DIALOG oDlg5 FROM 5, 1 TO 30, 50 ; TITLE "Recalculo de Livros" FONT oFont @ 1, 2 say "Recalculo de saldo - Livro: " OF oDlg5 @ 1, 33 say ovarliv VAR VarLiv OF oDlg5 @ 2, 2 say "Saldo Vencimento: " OF oDlg5 @ 2, 33 say osaldov VAR msaldov OF oDlg5 @ 3, 2 say "Saldo Conciliado: " OF oDlg5 @ 3, 33 say osaldoc VAR msaldoc OF oDlg5 @ 4, 2 say "Contador de Registros: " OF oDlg5 @ 4, 33 say oconta VAR mconta picture "99999" OF oDlg5 ACTIVATE DIALOG oDlg5 nowait ************************************************ . . . // atualizando os dados msaldov=transform(msaldo,"@E 999,999,999.99") " "+dataven osaldov:refresh() mconta=mconta+1 oconta:refresh() . . . desde já obrigado Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Não sei se entendi bem a pergunta. crie um contador de linhas, que vai sendo incrementado de 1 a cada linha, nLin++ oPrn:CharSay(nlin, 01, detalhe) no inicio PAGE . . . . ENDPAGE Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Obrigado Marcio, vou testar Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde João e Luiz, obrigado pelas respostas o fonte de letra eu estou usando Lucida Console pois preciso que os caracteres ocupem o mesmo espaço. Define Font opFont4 Name "Lucida Console" Size 35, -10 of oPrn quanto ao tamanho do papel, em todas está a4 é muito estranho, pois uso tambem pdf-creator e ai é claro a impressão sai normal. O problema é com laser X deskjet Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde pessoal, estou com um pequeno problema,tenho um relatorio sendo impresso numa impressora laser HP, funcionando perfeitamente. Quando seleciono uma impressora deskjet, tambem HP, o relatorio fica desconfigurado, o padrão das letras é modificado. O fonte de letra aumenta de tamanho. isso é normal? Eu tenho que configurar um relatorio para laser e outro pra jato de tinta? Obrigado. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Boa tarde pessoal, estou com um pequeno problema,tenho um relatorio sendo impresso numa impressora laser HP, funcionando perfeitamente. Quando seleciono uma impressora deskjet, tambem HP, o relatorio fica desconfigurado, o padrão das letras é modificado. O fonte de letra aumenta de tamanho. isso é normal? Eu tenho que configurar um relatorio para laser e outro pra jato de tinta? Obrigado. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

run start winword.exe Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

Ve se ajuda!! A pasta Spool -------------------------------------------------- ------------------------------ Para se comunicar, a biblioteca PageScript e PageScript o driver de impressora deve ser configurado para apontar para uma pasta específica spool. Por padrão, ambos apontam para a pasta [installation Folder] \ Spool, onde [installation Folder] é a pasta onde está localizado PScript.exe (ex.: C: \ PScript \ Spool). Clipper em sua aplicação, quando inicializar PageScript usando o PSInit () function, PageScript olha para o spool pasta na seguinte seqüência: Pasta especificada como o parâmetro da função PSInit (); Procure um arquivo chamado PSPath.ini localizada em C: \. Este arquivo é criado automaticamente pelo PageScript's spool driver (PScript.exe), ele inicia hiden; Se o caminho não foi encontrado ou o spooler não foi iniciado, PSInit () irá retornar 999 (PageScript não responder). Se você preferir não usar o sistema de detecção automática spool caminho, então você deve fornecer um caminho válido spool. Modo automático Em PScript.ini [Caminho] Spool = Na sua aplicação Clipper Você não especificar spool pasta quando a emissora PSInit () function. Por exemplo: se PSInit () == 0 / / Utiliza a pasta padrão StartMainProgram () diferente Alerta ( "Abee PageScript não está instalado ou não responde.") endif Modo manual Uma pasta spool pode ser especificado para a aplicação Clipper e do driver de impressora para comunicar. Você configura o driver da bobina de pasta alterando a Spool entrada do Caminho seção no arquivo PScript.ini; como no exemplo abaixo: Em PScript.ini [Caminho] Spool = C: \ Abee \ Spool Clipper em seu aplicativo, você especificar a pasta usando o spool PSInit () function. Por exemplo: se PSInit ( "C: \ ABEE \ spool") == 0 / / Pontos de pasta definida no PScript.ini StartMainProgram () diferente Alerta ( "Abee PageScript não está instalado ou não responde.") endif No exemplo acima, nós inicializar a biblioteca Clipper PageScript ao chamar a PSInit () function. Se o driver de impressora está funcionando (PSInit () retorna zero), então o StartMainProgram () função é chamada. Se o controlador não está instalado ou não responde, a mensagem de alerta é mostrada. Se o driver está correndo, mas não responde, certifique-se de especificar o caminho corrct no Spool PScript.ini a entrada de arquivo. Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

vc consegue ler as chaves, usando fread() o tamanho da sequencias de chaves, e sempre o mesmo, vc tem qual descobrir o tamanho Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop

http://www.baixaja.com.br/downloads/Windows/Business/Databases-Tools/Full-Convert-InterbaseFirebird_2758.html Abençoados sejam os pessimistas, eles fizeram backups!! Angelo Cendon cendon.angelo@gmail.com Belo Horizonte-MG Fivewin 2.4 - Harbour 0,38 - @ l,c Workshop