Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. se você usar o CRControl, então deve ser assim: cr1.ParameterFields(0) = "nome;valor;True" onde nome é o nome do seu parameters field, e valor é o valor.
  2. o running total fields não vai enxergar mesmo. você não vai conseguir somar um campo q já faz soma. mas se eu entendi o q você quer, acho q você não precisa usar o running total fields. é so por o campo formula com o codigo q já esta ai no group footer q deve resolver. com a unica diferenca q se você quer fazer a soma pra cada grupo seria assim: Sum ({Lancamentos.VALOR}, {Lancamentos.NOME_DO_CAMPO_PELO_QUAL_VC_AGRUPOU})
  3. mtas?? mas você so postou duas. é sim, se eu entendi, o melhor a fazer é usar um campo parametro, como explicado aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=137895
  4. qual o codigo q esta dentro da formula??
  5. kuroi

    Relatório de Vale

    frias, não sei se você já resolveu... mas como você ta apontando as tabelas?? você aponta direto pra elas e faz o link direto no crystal?? ou é alguma consulta ou procedure?? o q exatamente fazia essa procedure q você comentou e qual o probelma q ocorre quando você tenta utiliza-la?? de qualquer modo, o erro é q ele começa a gerar uma linha pra cada pagamento do vale, seria isso?? então acho q você teria q fazer um grupo e somar dentro dele, não é isso??
  6. você diz q quer alterar o filtro?? no selecion formula, seria isso?? ai depende do componente q você usa. se for o CRControl, faca: CrystalReport1.ReplaceSelectionFormula " - ponha aqui a formula - " se for o CRAXDRT, faca: crRep.RecordSelectionFormula = " - ponha aqui a formula - "
  7. geovane, você vai usar o visual basic?? se for, você pode seguir as instrucoes desse tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=122749 ai la tem um exemplo pra exportar pra word. ai acho q você trocaria crEFTWordForWindows por crEFTPortableDocFormat para exporat pra pdf.
  8. ue, sempre q eu instalo ele pede. mas é so digitar la o numero ue.
  9. acho q você teria q somar os dois campos dentro de um campo formula e somar esse campo formula no running total field, não seria isso??
  10. cara, isso ai acho q significa q você ta pondo um valor invalido em algum campo. por exemplo, você ta pondo texto em campo numerico. ou tentando por valor em campo auto-numeracao. ou ta tentando dexar em branco campo de preenchimento obrigatorio. ou esta passando um valor maior do q o aceito. ai você vai ter q identificar qual o campo e qual o problema.
  11. o q acontece de errado?? não é pra escrever caminho, é pra por, entre aspa, o caminho do diretorio onde estao os arquivos q você quer listar. acho q é pra ser App.path & "\Contas"
  12. use a funcao dir: a = Dir(caminho) Do While a <> "" Combo1.AddItem a a = Dir Loop[/code]
  13. cara o numero do erro não diz nd, se você não falar qual a descricao fica dificil. mas olhando o seu codigo, acho q pode ser porque você não passa uma conexao ativa pro recordset. alias, você abre a conexao, mas em vez de associa-la ao recordset, você ta passando a connection string de novo. tenta abrir o rs assim: rs.Open "select * from clientes", Conex, adOpenDynamic, adLockOptimistic agora, como o fabin disse, acho melhor você fazer o insert por query do q por addnew.
  14. isso, se você declarar a varaiavel ou objeto como public no module ele vale pra todos os formularios. agora se você so vai usar o recordset em um form, o melhor é declarar so no generals. hum o q é fieldsets?? então, esse codigo aqui q eu passei devia funcionar certinho, qual o problema q ta ocorrendo?? adicione a linha conexao.CursorLocation = adUseClient e troque a linha: rsSeleçao.Open "SELECT * FROM Cadastro ORDER bY CodCliente", conexao, adOpenForwardOnly, adLockReadOnly por: Set rsSeleçao = conexao.Open("SELECT * FROM Cadastro ORDER bY CodCliente") e veja se não resolve.
  15. tenta instalar como esta e veja se não da problema nenhum. o melhor seria compilar no vista.
  16. kuroi

    (Resolvido) Excluir

    nanda, ta estranho, pelo q to vendo não teria porque ele excluir quando você clicar em não. sera q a exclusao não acontece em alguma parte do codigo depois disso??
  17. kuroi

    Textbox

    nanda, seria so isso q você quer saber?? Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click txtCredito.Text = txtCredito.Text + valor End Sub[/code]
  18. porque você não quer usar Mid()??
  19. kuroi

    Soma ou Subtração

    então compara o valor do campo pelo qual esta agrupado pelo previous() desse mesmo campo. se for diferente, significa q mudou, ai você zera.
  20. kuroi

    Soma ou Subtração

    acho q no Running Total Fields tem uma opcao Reset After ou qualquer coisa assim. ai você poe pra resetar a cada mudancao nesse grupo.
  21. não, ponha as imagens no details e faca como eu expliquei e veja se não da certo.
  22. kuroi

    Soma ou Subtração

    tenta isso. cria um campo formula chamado por exemplo, soma. dentro da formula dele ponha debito - credito. crie um campo running total fields, chamado por exemplo, total, e mande fazer um sum() da formula soma criada anteriormente. cria um segundo campo formula q seja a soma do campo total criado acima com o saldo q esta no header. e ponha ele pra ser mostrado na coluna de valor e veja se não funciona.
  23. hum, mas da pra adicionar um checkbox no crystal?? tipo pro usuario clicar?? ou você quer so mostar o check box?? se for isso, você pode adicionar no details duas figuras. uma do checkbox checado e otra dele deschecado, uma sobreposta a outra. ai você clicando com o botao direito na figura e depois em Format Graphic, selecione a opcao Supress e clique no botao a direita para adicionar a formula (a figura sera suprimida de acordo com o resultado da formula) no checkbox desmarcado insira esse codigo: Not IsNull({Tabela.Campo}) //quando não estiver nulo, a imagem não sera mostrada e no checkbox marcado ponha esse: If IsNull({Tabela.Campo}) Then True Else {Tabela.Campo} <> 'N' //quando for diferente de N a imagem não sera mostrada[/code]
  24. tem alguma dll faltando. se você entrar em menu Project -> References veja se não tem nenhuma opcao checada q ele aponta como MISSING. chece tb em menu Project -> Components
  25. como você pode ver no link q passei é so o usar o dir: If Dir("Modificaçoes\Scripts\Scripts.ini") = "" then MsgBox "Scripts.ini não existe ou foi excluido!", 16, "Erro" End if[/code] quanto a ler os dados do arquivo, use o link do jonathan
×
×
  • Criar Novo...