Luiz Arruda (ICO)

Boa Tarde .. Eu Uso assim sem problemas hDCid=red> := GetPrintDC( GetActiveWindow() ) if hDC == 0 id=red> cImpressoras := prnGetname() MSGINFO("Impressão cancelada pelo usuário","..::Impressão") Return .f. endif if oPrn:nLogPixelX()<300 Elseif oPrn:nLogPixelX()>300 End id=code>id=code>Vejase Ajuda.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 10/10/2012 15:28:06

Boa Tarde.. Alguém teria um exemplo de como usar a PdfLib ?? Tô com a necessidade de salvar alguns prévios para imprimir posteriormente, antigamente 1986 A.C com o FW16 eu salvava o EMF/WMF, mas isso não é mais possivel desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa Tarde.. Alguém teria um exemplo de como usar a PdfLib ?? Tô com a necessidade de salvar alguns prévios para imprimir posteriormente, antigamente 1986 A.C com o FW16 eu salvava o EMF/WMF, mas isso não é mais possivel desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Um grupo de amigos foi acampar no mato e entre eles tinha um paraplégico, chegando lá armaram as barracas acenderam uma fogueira e ficaram bebendo e cantando noite adentro. Nisso apareceu uma onça rugindo que nem doida, foi aquela correria, um pega num pega dos infernos era unhadas arranhões nas costas gritos e muita choradeira o aleijado entrou com a cadeira de rodas numa moita e ali ficou quietinho só vendo o desespero lá fora nisso alguém lembrou dele e muito preocupado com o coitado começou a gritar pros outros amigos -Pega o aleijadinho, pega o aleijadinho, por favor pega o aleijadinho. o aleijado saiu da moita puto da vida e respondeu gritando -deixa pelo menos a onça escolher seu FDP id=code>id=code>Tenham um ótimo fim de semana \o/ Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

O poder do If If Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar) EMPRESAS->ALERTA1 := cVar id=code>id=code>Valeu grande guru, era isso. Obrigado Abraços.. \o/ Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 24/09/2012 16:21:20

Boa tarde cVar:="CampoTextonoDBF" nesta situação Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar) id=code>id=code>Mostra os botões "OK" e "Cancelar". É possivel gravar a variável cVar no Campo do DBF ao pressiocar em "Ok" ?? Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa tarde cVar:="CampoTextonoDBF" nesta situação Msgget("Lembrete individual","Altere ou exclua a mensagem",@cVar) id=code>id=code>Mostra os botões "OK" e "Cancelar". É possivel gravar a variável cVar no Campo do DBF ao pressiocar em "Ok" ?? Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

citação:Que eu saiba, o disparo não é no PROMPT do BOTÃO e sim no ITEM do MENU, crie ITENS de MENU com o mesmo nome que voce DEU (_|_id=red>)id=size4> nos botões... kkkkkkkkkkkkkk abs, João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Mas isso já tem.. já existe os menus criados.. o que não to conseguindo é disparar um "Alt-letra" correspondente ao "&letra" do botão na Window. Se não tem jeito deixa prá lá.. vou tentar o método POG pra ver se resolve.. Obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 18/09/2012 08:54:55

Bom dia.. Isso é uma Window, eu queria dar o "Alt-S" para abrir o menu do button igual eu faço com o mause, idem para os outros buttons "Alt-C","Alt-todas_as_letras".. etc... Abraços.. \o/ Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Tá eu vi que o tópico é antigo .. mas como aqui tb. não está funcionando... DEFINE BUTTON obtn[03] OF oBar ; RESOURCE "Saldos" ; PROMPT "&Saldos" ; MESSAGE "Visualiza Saldos" ; ACTION oBtn[03]:ShowPopup(eSaldos()) ; MENU MenuSaldos ; TOOLTIP "Menu de Saldos" NOBORDER id=code>id=code> E agora como faço.. Obrigado Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

citação:E eu pensei que fosse o único!! kkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Né não João, estamo quase em extinção mas ainda dá um cardo... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Isso mesmo Vagner.. Excluindo o CDX antigo e recriando depois do append deu certo.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

citação:Empresas.250 ?? Então voce tem 2 arquivos? Empresas.250 e empresas.dbf? E empresas.dbf está vazia?? Agora boiei total... kkkkkkkkkkkkkkk João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>Não, não tenho 2 arquivos, o empresas.250 é o empresas.dbf renomeado, já que o DbCreate() vai criar um Empresas.dbf vazio, e com o append eu recupero os cadastro das empresas feito anteriormente. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

citação:Bom, faz sentido, como estava o seu índice na hora que estava appendando ? Vagner Wirts "Ele não sabendo que era impossível, foi lá e fez" id=quote>id=quote>Vagner :: Eu havia criado ele na abertura, antes de dar o append. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Que doido.. matei o CDX com o Ferase()junto com o Empresas.250 e agora tá dando certo.. quero entender porque isso. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa Tarde.. Pessoal.. porque esse APPEND ai não está funcionando ? Procedure ChecaEmpresa() //Pré cadastro de Empresasid=blue> Private oxCampo:="c:\pessoal9" REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") FERASE("c:\pessoal9\EMPRESAS.250") CLOSE DATA DBCLOSEAREA() Select 1 Use Empresas EXCLUSIVE xVerStru := DBSTRUCT() Close empresas If .Not. xStru("ENDERECO",xVerStru) MsgInfo("A tebela EMPRESAS será Alterada","..::Tabelas") fRename("&oxCampo\EMPRESAS.dbf", "&oxCampo\EMPRESAS.250" ) aestru:={} Aadd(aestru, {"NOME", "C", 035,000 }) Aadd(aestru, {"SENHA", "C", 003,000 }) Aadd(aestru, {"CPF", "C", 016,000 }) Aadd(aestru, {"ALERTA1", "C", 250,000 }) Aqui ele adiciona os campos normalmenteid=red> Aadd(aestru, {"ENDERECO", "C", 100,000 }) Aadd(aestru, {"BAIRRO", "C", 050,000 }) Aadd(aestru, {"CIDADE", "C", 035,000 }) Aadd(aestru, {"CEP", "C", 010,000 }) DbCreate("&oXCampo\EMPRESAS.DBF", aestru) MsgInfo("Tabela Alterada com sucesso!","..::Empresas") Close Data DbcloseArea() Use \PESSOAL9\EMPRESAS EXCLUSIVE append from c:\pessoal9\EMPRESAS.250 browse() coloquei só pra ver se tava OK, não faz parte do códigoid=red> Endif Return(.t.) id=code>id=code>Inclusive coloquei esses Close Data e DbcloseArea pra ver se resolvia e não deu em nada. eu faço essas alterações em vários DBFs e funciona, mas nesse ai("Empresas.dbf") não quer dar certo.. Se eu dou um browse no Empresas.250, que é o antigo empresas.DBF renomeado eu vejo as empresas cadastradas, só que no append não estão indo pra empresas.DBFid=red> deve ter algum erro que não tô vendo e tô passando por cima dele. Se alguém puder ajudar agradeço.. Desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa Tarde.. Pessoal.. porque esse APPEND ai não está funcionando ? Procedure ChecaEmpresa() //Pré cadastro de Empresasid=blue> Private oxCampo:="c:\pessoal9" REQUEST DBFCDX, DBFFPT, ORDKEYCOUNT,ORDKEYGOTO, ORDKEYNO, DTOS RDDSETDEFAULT("DBFCDX") FERASE("c:\pessoal9\EMPRESAS.250") CLOSE DATA DBCLOSEAREA() Select 1 Use Empresas EXCLUSIVE xVerStru := DBSTRUCT() Close empresas If .Not. xStru("ENDERECO",xVerStru) MsgInfo("A tebela EMPRESAS será Alterada","..::Tabelas") fRename("&oxCampo\EMPRESAS.dbf", "&oxCampo\EMPRESAS.250" ) aestru:={} Aadd(aestru, {"NOME", "C", 035,000 }) Aadd(aestru, {"SENHA", "C", 003,000 }) Aadd(aestru, {"CPF", "C", 016,000 }) Aadd(aestru, {"ALERTA1", "C", 250,000 }) Aqui ele adiciona os campos normalmenteid=red> Aadd(aestru, {"ENDERECO", "C", 100,000 }) Aadd(aestru, {"BAIRRO", "C", 050,000 }) Aadd(aestru, {"CIDADE", "C", 035,000 }) Aadd(aestru, {"CEP", "C", 010,000 }) DbCreate("&oXCampo\EMPRESAS.DBF", aestru) MsgInfo("Tabela Alterada com sucesso!","..::Empresas") Close Data DbcloseArea() Use \PESSOAL9\EMPRESAS EXCLUSIVE append from c:\pessoal9\EMPRESAS.250 browse() coloquei só pra ver se tava OK, não faz parte do códigoid=red> Endif Return(.t.) id=code>id=code>Inclusive coloquei esses Close Data e DbcloseArea pra ver se resolvia e não deu em nada. eu faço essas alterações em vários DBFs e funciona, mas nesse ai("Empresas.dbf") não quer dar certo.. Se eu dou um browse no Empresas.250, que é o antigo empresas.DBF renomeado eu vejo as empresas cadastradas, só que no append não estão indo pra empresas.DBFid=red> deve ter algum erro que não tô vendo e tô passando por cima dele. Se alguém puder ajudar agradeço.. Desde já obrigado.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Uma vez com Scrip.VBS pra testar e deu certo, só que eu não uso o aplicativo junto do relogio e não posso dizer se vá funcionar 100% testa ai e vê se resolve Activate Window oWnd ; On Init Criaico() Return(nil) Proc Criaico() Run Tutor.vbs Return(.t.) id=code>id=code>Agora crie o VBSid=blue> *********** TUTOR VBS *********** strWorkDir ="C:\tst" strAppPath = "C:\tst\tst.exe" strIconPath = "%SystemRoot%\system32\SHELL32.dll,5" Set objShell = CreateObject("WScript.Shell") objDesktop = objShell.SpecialFolders("Desktop") Set objLink = objShell.CreateShortcut(objDesktop & "\tst.lnk") objLink.Description = "Teste icone" objLink.HotKey = "CTRL+SHIFT+X" objLink.IconLocation = "C:\tst\tutor.ICO" objLink.TargetPath = strAppPath objLink.WindowStyle = 3 objLink.WorkingDirectory = strWorkDir objLink.Save WScript.Quit id=code>id=code>PS: TSTid=red> é a pasta que usei pra fazer o teste. Abraços Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Na mosca [:8] Valeu amigo.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Na mosca [:8] Valeu amigo.. Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa tarde.. nunca tive esse tipo de problema de lentidão com xBrowse(CDX), mas creio que seja devido a quantidade de registro, por se tratar de pessoa fisica(Rural) meus arquivos nunca passaram de 4.000 registros em cada uma das empresa. A noite vou fazer uns testes e reporto... Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa tarde.. Pessoal, tenho um relatorio bem simples com tREPORT, só para demonstrar quem é registrado e quem é diarista. REPORT oRpt TITLE "RELAÇÃO DE EMPREGADOS", ; "RAZÃO SOCIAL: &eemp", ; "EMPRESA: &wFazenda" LEFT ; HEADER "Data: "+DTOC(DATE()),"Página: "+STRZERO(oRpt:nPage,3) RIGHT ; FOOTER "NewRelJat()" RIGHT ; FONT oFont1,oFont2,oFont3; PREVIEW CAPTION "Relação de Empregados" COLUMN TITLE "CONTA" DATA NewRel->Conta COLUMN TITLE "Nome " DATA NewRel->Nome SIZE 40 COLUMN TITLE "TIPO " DATA "Registrado" NewRel->inic COLUMN TITLE "ADMISSAO" DATA " / / " size 10 COLUMN TITLE "TP" Data " " SIZE 3 END REPORT oRpt:CellView() // oRpt:oTitle:aFont[1]:={|| 3} oRpt:bStartLine := {|o| If( ++nLines > 70 .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) } Activate REPORT oRpt ON STARTPAGE StartPage() ; ON POSTEND FimRelatorio() id=code>id=code>Antes era demonstrado com "R" e "N" direto do cadastro, agora surgiu a necessidade de escrever "FIXO" e "DIARISTA" só que se eu fizer assim If TP = "R" COLUMN TITLE "TIPO " DATA "FIXO" //NewRel->inic Elseif TP = "N" COLUMN TITLE "TIPO " DATA "Diarista" //NewRel->inic Endif id=code>id=code> id=blue>Não funciona.. como faço isso ?? Na matricial eu fiz assim e deu certo, só que usando codigo o famoso Prow(),Lin do Clipper e não tReport desde já obrigado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Boa tarde.. Pessoal, tenho um relatorio bem simples com tREPORT, só para demonstrar quem é registrado e quem é diarista. REPORT oRpt TITLE "RELAÇÃO DE EMPREGADOS", ; "RAZÃO SOCIAL: &eemp", ; "EMPRESA: &wFazenda" LEFT ; HEADER "Data: "+DTOC(DATE()),"Página: "+STRZERO(oRpt:nPage,3) RIGHT ; FOOTER "NewRelJat()" RIGHT ; FONT oFont1,oFont2,oFont3; PREVIEW CAPTION "Relação de Empregados" COLUMN TITLE "CONTA" DATA NewRel->Conta COLUMN TITLE "Nome " DATA NewRel->Nome SIZE 40 COLUMN TITLE "TIPO " DATA "Registrado" NewRel->inic COLUMN TITLE "ADMISSAO" DATA " / / " size 10 COLUMN TITLE "TP" Data " " SIZE 3 END REPORT oRpt:CellView() // oRpt:oTitle:aFont[1]:={|| 3} oRpt:bStartLine := {|o| If( ++nLines > 70 .and.!oRpt:lFinish, (o:EndPage(), nLines := 1), ) } Activate REPORT oRpt ON STARTPAGE StartPage() ; ON POSTEND FimRelatorio() id=code>id=code>Antes era demonstrado com "R" e "N" direto do cadastro, agora surgiu a necessidade de escrever "FIXO" e "DIARISTA" só que se eu fizer assim If TP = "R" COLUMN TITLE "TIPO " DATA "FIXO" //NewRel->inic Elseif TP = "N" COLUMN TITLE "TIPO " DATA "Diarista" //NewRel->inic Endif id=code>id=code> id=blue>Não funciona.. como faço isso ?? Na matricial eu fiz assim e deu certo, só que usando codigo o famoso Prow(),Lin do Clipper e não tReport desde já obrigado. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Marcão era um antigo funcionário de uma cervejaria no interior de São Paulo. Ele era feliz no trabalho, embora seu sonho fosse ser degustador de cerveja, bebida que tanto dorava. Certa vez, trabalhando no turno da noite, ele caiu dentro de um tonel de cerveja. Pela manhã, o vigia deu a triste notícia: - É com profundo sofrimento que informo que o Marcão se desequilibrou, caiu no tonel de cerveja e morreu. Um grande amigo de Marcão com a voz muito triste pergunta: - Meu Deus!!! Será que ele sofreu??? O vigia então responde: - Acredito que não, porque, segundo as imagens da câmera de segurança, ele chegou a sair três vezes do tonel para mijar... id=code>id=code>Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.

Bom dia.. Reccount() Abraços.. Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc.