Ale SB

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17190 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

citação:A FUNÇÃO LEDITCOL DO LISTBOX É SIMPLES E FUNCIONAL, PORÉM O VISUAL DO LISTBOX DEIXA A DESEJAR. id=quote>id=quote> As versoes mais recentes, estao mais bonitas e com mais recursos, para deixar o browse bem elegante. citação:QUANDO PRESSIONAR UMA TECLA NO XBROWSE, ESTE ENTRE EM MODO DE EDIÇÃO Jà COM A TECLA PRESSIONADA E GRAVE NO CAMPO CERTO APÓS O ENTER. id=quote>id=quote> //--> 02 - Data oCol:= oBrw:AddCol() oCol:bStrData := { || VendaIte->Data_Vit } oCol:cHeader := "data" oCol:nWidth := 200 oCol:nHeadStrAlign := AL_LEFT oCol:nDataStrAlign := AL_LEFT oCol:bEditvalue := { || VendaIte->Data_Vit } oCol:nEditType := EDIT_GET oCol:cEditPicture := "99/99/9999" oCol:oHeaderFont := oFontB oCol:bOnPostEdit := { | oCol, uVal, nKey | VendaIte->( FieldPut(oCol:nCreationOrder, uVal) ) } id=red> id=code>id=code>Veja tb: \samples\testxbrw.prg -> Funçao AutoEdit() @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Teste harbour + Bcc582, pra nao dizerem q eu fui desumano...heheh...aplicando o Vc2010. http://www.fivewin.com.br/exibedicas.asp?id=1109 @Joao; Andou tendo aulas de programaçao com o DonJuan !!!!???? Programaçao eh o conjunto da obra. o Msvc eh mais rapido q o Bcc, o Harbour eh mais rapido q o xHarbour; o FW eh mais Rapido q a Qt Nokia; o Pelles e muito melhor q o WS. o Vasco eh mais rapido q o Corintians...kkkkkkk @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Este assunto eh pano pra manga.... ...tem muito topico aqui e no forum do Pc Toledo explicando as direfenças e pq Hoje o harbour eh uma soluçao mais interessante... ...de qq forma em questao de velocidade montei este exemplo pra vcs tirarem as proprias conclusoes... aqui veras Dois exemplos( com fonte e EXE )...podem testar: 1-> hb_Opalao.EXE >> harbour 2-> xHb_Fusca.EXE >> xHarbour http://www.fivewin.com.br/exibedicas.asp?id=1108 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Fala Patrao Blz..isso aki deve te ajudar tb: http://www.fivewin.com.br/exibedicas.asp?id=923 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Se Kizer usar um Gif Animado... function Teste_Wait() local oWait, nVezes := 10 oWait := sb_MsgWaitGif() do while nVezes > 0 SysWait(1) nVezes-- SysRefresh() enddo oWait:End() return id=code>id=code> ******************************************************************************** function sb_MsgWaitGif(cPatchGif) //////////////////////////////////////////////////////////////////////////////// // Autor..........: Ideia Original do Forum Inter // // Modificaçoes...: Ale SB - Soft Camus // // Descricao......: Dialog de Espera com Gif. // // Parametros ==> // // - cPatchGif : Path do Gif. // // Dependencias ==> // // Retorno ==> Objeto da Dialog. // //////////////////////////////////////////////////////////////////////////////// ******************************************************************************** local lGif := .t. local oDlgWait, oFont DEFAULT cPatchGif := hb_DirBase() + "sb_Bmps\sb_wait_1.gif" if !hb_FileExists(cPatchGif) lGif := .f. endif SysRefresh() DEFINE FONT oFont NAME "Arial" SIZE 0, -14 BOLD *****--- INICIO DA DIALOG ---*************************************************** DEFINE DIALOG oDlgWait ; FROM 0,0 TO 9, 34 ; STYLE NOR( DS_MODALFRAME, DS_SYSMODAL, WS_POPUP) oDlgWait:SetColor(nRGB( 255, 255, 255 ) , nRGB( 0, 0, 0 ) ) oDlgWait:oFont := oFont ACTIVATE DIALOG oDlgWait CENTERED NoWait VALID !GetKeyState( VK_ESCAPE ) ; ON INIT( if( lGif, TGif():New( oDlgWait, cPatchGif, 2, 2 ),) ) ; ON PAINT (if( !lGif, oDlgWait:Say( 1, 0, xPadC( "Aguarde! - Processando...", (oDlgWait:nRight) ) ), ) ) oFont:End() SysRefresh() return(oDlgWait) id=code>id=code>Eu Uso o PhotoShop para criar meus Gif Personalizados..Fica bem Legal. Se Kizer testar com um Gif meu para ver o efeito..pode baixar aki: http://www.4shared.com/photo/C_IbpEtp/sb_wait_1.html @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 27/04/2012 11:15:37

Bom Exportando para Matricial, nunca precisei usar...mas... Desta forma eu gero o relatorio Direto na matricial, sem abrir o Preview. //oFrPrn:ShowReport() //--> Impressao Direta oFrPrn:PrintOptions:SetShowDialog(.f.) oFrPrn:PrepareReport() oFrPrn:Print(.f.) oFrPrn:PrintOptions:ClearOptions() id=code>id=code>Para Exportar Direto eu uso PDF oFrPrn:SetProperty("PDFExport","FileName", "&cDirPdf\" + oDbfCota_Cab:ProtoCtc + ".pdf") oFrPrn:SetProperty("PDFExport","ShowDialog", .f.) oFrPrn:SetProperty("PDFExport","OpenAfterExport", .f. ) oFrPrn:PrepareReport() oFrPrn:DoExport("PDFExport") id=code>id=code>Para exportar para matricial acredito q seja este o parametro 'DotMatrixExport' em vez de usar 'PDFExport' Faz um teste substituindo PDFExport por DotMatrixExport...ok @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

citação:Bom, ainda não sabemos se vai ser uma cooperativa ou uma associação... estamos evoluindo nas conversas que tivemos. O mais importante no momento é definirmos as nossas responsabilidades que serão compartilhadas com todos e assim quem entrar, já deve de antemão saber o que tem de direitos e deveres. Kleyber Derick xHarbour 1.1.0 + FWH 8.02 + xDevStudio + SQLLIB (98) 8162-1301 / (98) 3217-8162 Visite São Luís - MA A Ilha dos Amores id=quote>id=quote>Kleyber..sabe da admiraçao e respeito q tenho por TI..mas..pela minha poko experiencia...soh tenho uma coisa a te dizer..Muda de ramo... ...a Cooper de Vcs..ja nasce Morta..olha o tanto de Pirateiro e safados de Plantao q kerem entra..no esquema..tem gente ai..q viveu..sem dar..dar algo util ao forum...programadores falidos..tem q q ser excluidos...nao pode ter DÓ..o Capitalismo eh assim... Ker ter sucesso...simples !!!... Coloca os outros pra trabalhar pra vc......... @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Putz... Cara te passei a soluçao do problema..a atualizaçao da Fast vem por seu email...( se ela for Original claro, neh ). Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Atualize sua versao da Fast. http://groups.google.com/group/fastreport_for_x_harbour/search?group=fastreport_for_x_harbour&q=Suspicious+pointer+conversion+in+function+&qt_g=Pesquisar+este+grupo @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Eu nao tenho o Win 7, para testar aki....vou ver se consigo algum para testar...mas..o caminho das pedras eh +- isso ai. Se eu conseguir alguma coisa aviso. @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Eh um metodo de minha classe...eh soh vc transformar em funçao... FUNCTION FireWall_Win() //--> Coloque o nome q kizer ( RegSysWin(), eh um bom nome tb. ) @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 02/02/2012 00:21:50

Verifique se seu: SET EXACT esta em ON. SET EXACT ON if alltrim(forma->tipo)='CHEQUE' ? '1' elseif alltrim(forma->tipo)='CHEQUE-PRE' ? '2' id=code>id=code>Dica : Se nao quiser usar o SET EXACT como ON use o simbolo '==' ( Exatamente igual ) e nao o '=' ( Igualdade ). Eu prefiro usar aki o SET EXACT ON e toda comparaçao uso o '==' ( Exatamente Igual ). @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 01/02/2012 20:30:34

citação:Tem alguma forma registrar no registro do windows que resolva isso...? id=quote>id=quote>Isso deve te ajudar: . . *****--- CHAVES DE REGISTRO DO WINDOWS ---************************************** #define HKEY_CLASSES_ROOT 2147483648 // 0x80000000 #define HKEY_CURRENT_USER 2147483649 // 0x80000001 #define HKEY_LOCAL_MACHINE 2147483650 // 0x80000002 #define HKEY_USERS 2147483651 // 0x80000003 #define HKEY_PERFORMANCE_DATA 2147483652 // 0x80000004 #define HKEY_CURRENT_CONFIG 2147483653 // 0x80000005 #define HKEY_DYN_DATA 2147483654 // 0x80000006 . . METHOD FireWall_Win() CLASS TRegSys_sb local cRegkey, cNameValue, cValue local nKey local oReg32 local uVal nKey := HKEY_LOCAL_MACHINE cRegkey := "SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List" cNameValue := hb_Argv(0) //--> Verificar se Existe Registro. oReg32 := TReg32():New( nKey, cRegKey ) if oReg32:nError == 0 //REG32_ERROR_SUCCESS //--> Se Existe Registro. uVal := oReg32:Get( cNameValue ) if (Empty(uVal) .or. uVal == nil) //--> Ativo o sistema. cValue := cNameValue + ":*:Enabled:" + "Nome do meu sistema, nao precisa ser o Executavel." //::cNameSis oReg32:Set(cNameValue, cValue) endif endif oReg32:Close() return id=code>id=code>@braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 01/02/2012 20:08:27

Mostra ai pra gente como vc ta fazendo o browse ! @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Pelo q conversamos no MSN..ficaria +- assim: Na hora de vc puxar a infomaçao q vai no browse vc deve tratar antes se eh numero ou nao. No browse eh soh colocar um flag.. Vc ta puxando os dados de algum lugar correto!...entao..qdo puxar..faz o valtype e joga um flag (lNum := .t.) dentro do browse. IF lNum ... Vc tem q tratar entao antes de começar o for/next...eh mais partico. @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Soh para completar; Procure em Dicas por Wbrowse, vai encontrar exemplos legais. Vai aparecer algumas wbrowse do Hernan, q eh a classe Twbrowse melhorada por ele( coisa antiga muito boa), ai neste caso..para usar a classe dele..deve incorporar os fontes dela ao seu projeto. Uma dica..tente usar a nativa mesmo..depois q estiver afiado nela..ai sim..teste a classe melhorada...lembrando q o unico inconveniente de classes de terceiros q nao tem mais suporte e te dar problemas futuros na migraçao de versao do FW. Fica ai a dica. @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 26/01/2012 21:59:36

Rubens; wbrowse == TWBrowse wbrowse nome do .Prg onde esta a classe TWBrowse (CLASS TWBrowse FROM TControl) abra o prg e veras. @braços Ale citação:Grato pelas respostas, pero somente encontrei a wbrowse e xbrowse em fwh\source\classes, será que posso usar a twbrowse, onde consigo para testar? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop id=quote>id=quote> Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Rubens ; Para este sua versao (6.12), a Twbrowse tb eh uma boa opçao, acho ela ate mais estavel q a xBrowse. neste caso. @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red> Editado por - Ale SB on 26/01/2012 15:36:34

E preguiça de abrir Link..heimmm...hehehe.. Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

veja se ajuda amigo http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13649&p=70020&hilit=GetAdaptersInfo#p70020 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Amigo, a FolderEx ainda nao esta 100% estavel. A unica versao q aparentemente esta kase 100% eh a 11.12...pelo menos estes Bugs foram corrigidos para esta versao. @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

No seu cadastro de produtos, vc tem q ter a Unidade de Entrada e Unidade de venda. Na Unid de Entrada, vc usa CX e usa o Fator de conversao para entrada de estoque. Unid de Compra == CX Fator == 12 Unid de venda == UN Fator == 1 +- isso ai @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Acredito q este exemplo possa te ajudar..dê uma estudada nele...no samples do FW tb tem otimos Exemplos: http://www.fivewin.com.br/exibedicas.asp?id=358 @braços Ale Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>

Tb voltei a receber seus SPAN'S... A situaçao ta se tornando desagradavel.. Cuidado, o feitiço pode virar contra o feiticeiro... Quem Trabalha não tem tempo de ganhar Dinheiro.id=red>