kuroi

pode usar tanto a funcao Int() como a Val() q devem funcionar.

Dim horadefinida As Date horadefinida = CDate("12:00:00") If horadefinida = Time Then ***codigo** End If[/code] caso você não va considerar os segundos, faca If horadefinida = TimeSerial(Hour(Time), Minute(Time), 0) Then

hum, mas ve ai se fica certo mesmo. declara como Single ou Double. o Double suporta valores bem gdes, acho q no seu caso pode ser Single.

ta, você tem q fazer um relatorio diferente para o contas a receber com uma estrutura identica a do contas pra pagar, é isso?? não sei trabalhar com procedures no oracle com crystal, mas imagino q a sua procedure funciona tipo como uma view no seu relatorio, certo?? então, faca a procedure do receber exatamente com a mesma estrutura de campos do pagar, e ai, em vez de adicionar a procedure do receber junto no relatorio, substitua a já existente do pagar pela do receber. normalmente isso é feito pelo menu Database -> Set Location, já com essas suas procedures, não sei, mas imagino q seja o mesmo esquema. ai se tiver alguma diferenca entre as estruturas das duas procedures (tipo nomes de campos diferentes) ele deve pedir pra você mapear a nova view. ai você associa cada campo da view antiga com os campos da nova.

o q é exatamente essa "procedure"?? seria tipo no Visual Basic ou na linguagem q você estiver usando??

você pode fazer um igual pro piloto sim, qual o problema q você ta tendo?? se precisar, some umas decimais na pontuacao, mas mostre sempre o valor inteiro. ponha uns valores q nunca cheguem em 1. por exemplo, não sei qual a classificacao mais q o cara não ganha ponto, mas faz de conta q é a 10. do 10 ate o 22 são 13 pilotos. então some pro primeiro desses, 0.0012, pro segundo, some 0.0011 ate chegar no penulitmo q você somaria 0.0001 e no ultimo q você não somaria nd. ou faca uma propriedade a mais de desempate e some os numero inteiros 13, 12, 11, ..., 1, 0 e, quando o piloto tiver 0 pontos, considere essa pontuacao.

entendi, mas você não precisa mexer no xMotor. não to lembrado agora, como você sabe q o motor da equipe 0 é o 3?? tipo, onde você guarda?? você não tem um type equipe?? não é la q você guarda?? se for, quando você ordenar a equipe, o motor vai junto. a é verdade nesse caso então tem q ter sim algum esquema de desempate. alias, já não tinha um engocio desse, ou era só pra equipe??

o Write escreve o texto entre aspas. a finalidade disso eu já não tenho mta certeza de qual seria. EDITADO: alias, de uma olhada nesse link: http://www.5starsupport.com/info/vb.htm entre mtas otras coisas interessantes, ele passa todos os comandos (alem do Print e do Write) q existem pra escrever txt, procure na pagina por File Handling - ASCII-specific.

serio q ta ordenando junto?? mas acho q não precisaria ordenar... e acho q te como mudar o codigo pra não ordenar, de uma olhada ai. o meu pc de casa foi ocupado ate o carnaval e aqui no trampo eu não tenho o seu projeto e pode ficar dificil de eu conseguir olhar quando você mandar, mas de uma olhada la no codigo q ordena... porque exatamente ta ordenando o motor junto?? ou fui q falei pra ordenar e nem lembro mais... mas de qualquer forma esse codigo q você postou deve voltar pro estado original sim. como assim não fica correta?? se tem por exemplo tres pilotos q não pontuam, os tres tem q ficar nas tres ultimas colocacoes certo?? os tres tariam empatados, nenhum taria na frente de outro. ai você não pode fazer um salario baseado na pontuacao?? ai você especifica um salario pra quem não tiver ponto.

num Module, declare uma variavel string la em cima, tipo assim: Pubic v As String ai no Unload do form do ComboBox, faca um for pra pegar todos os indices e adicione na string tudo separado por um caractere q você sabe q não vai aparecer no ComboBox, por exemplo, separe por "|". ai ficaria tipo assim: Dim i As Integer v = "" For i = 0 To ComboBox1.ListCount - 1 v = v & ComboBox1.List(i) & "|" Next[/code] ai na hora q carregar o form de novo, você pega dessa variavel e adiciona td de novo. tipo assim: [code]Dim s() As String, i As Integer s = Split(v, "|") For i = LBound(s) To UBound(s) ComboBox1.AddItem s(i) Next acho q seria tipo isso o codigo, mas não testei aqui veja ai se funciona.

isso acho q tem mais a ver ca sala de banco de dados do q ca de Visual Basic, então vo mover pra la.

você vai ter q fazer um campo formula q ponha os 0s na frente. em Basic Syntax seria tipo isso: Dim i As Number, s As String s = Replace(CStr({Tabela.Campo}), ",00", "") For i = Len(s) + 1 To 3 s = "0" & s Next Formula = s[/code] se o campo do seu numero for do tipo texto, então substitua a linha s = Replace(CStr({Tabela.Campo}), ",00", "") por simplesmente s = {Tabela.Campo} note q eu fiz tb um Replace pra tirar o formato padrão do Crystal (q no meu caso, ele poe duas casas decimais na hora de converter). ai dependendo de como ta setado seu Crystal, você pode ter q modificar essa parte.

acho q você ta falando do FileSystemObject certo (da referencia Microsoft Scripting Runtime)??

todos os campos do filter tem q estar no select do recordset q deve estar ativo e aberto. é possivel q o nome de algum dos campos esteja errado, confira ai. se você tiver dificuldade de encontrar, tenta ir tirando campo por campo do filter e va tentando ver se funciona a cada campo tirado assim você pode encontrar qual o errado.

beraldo, td bem q o cookie dura 7 dias, mas não tem como fazer com q, a cada vez q eu acesse o forum, tipo a cada vez q eu comece uma nova session, ele seja renovado por mais sete dias?? tipo, de um modo q ele só expire se eu ficar 7 dias seguidos sem entrar. ou seja, ai se eu acessar o forum todo dia, ele não expiraria nunca.

Report.txt hijackthis.log

você tem q gravar item por item do combobox. pegue pela propriedade List, e passe o numero do indice entre parentes. ai você usaria um For pra acessar todos os Items. ai você pode gravar num otro array ou mesmo pode concatenar todos numa string, separando por um caractere especifico e depois usar split pra recuperalos. ai quando abrir o formulario de novo, você teria q adicionar um por um com o metodo AddItem.

no editor do crystal, clica em menu File e deixa a opcao Save data with Report deschecada e ai salve o relatorio q deve funcionar.

olha http://scriptbrasil.com.br/forum/index.php?showtopic=111825 http://scriptbrasil.com.br/forum/index.php?showtopic=104831

se vencimento é uma data é melhor dexar como data do q texto. o where, no access, ficaria assim: Select * From Tabela Where data = #YYYY-MM-DD# onde YYYY é o ano, MM o mes e DD o dia.

você tem q adicionar a dll tb do Crystal Reports ActiveX Design Run Time Library e tb qualquer outra q estiver usando.

clica em menu Report -> Sort Records. ai é só selecionar os campos e clicar em Add -> e por na ordem q você quiser.

manda o seu cliente tentar em outra impressora pra ver se o problema persiste.

valeu, funcionou aqui.

sim, é esse mesmo. não sei se tem outros componentes, mas com esse da pra fazer quase tudo. como assim maximizar com o form?? isso é do Crviewer, não??