Jump to content
Fórum Script Brasil

Fábio Spies

Membros
  • Posts

    14
  • Joined

  • Last visited

About Fábio Spies

Fábio Spies's Achievements

0

Reputation

  1. O comando funcionou, porem ele abre a janela pedindo pra escolher a impressora, o que eu queria é que entrasse na "Visualizar Impressão" (usando a impressora padrão do windows). No IE tambem aparece a janela de conteúdo bloqueado não sei se tem como entrar direto, no Firefox não aparece.
  2. Obrigado amigos, vou fazer alguns testes e dou retorno aqui.
  3. Buenas Amigos. alguém sabe como posso fazer o seguinte: Na linha de comando do Windows (Iniciar, Executar), gostaria de digitar uma linha de comando que abrisse o Internet Explorer e ir direto no Visualizar Impressão do próprio IE. Algo tipo assim: iexplore "http://scriptbrasil.com.br" -???? Sei que tem por exemplos: iexplore -nohome -> que não abre a home defaul do ie iexplore -k -> que entra direto no estilo tela cheia. Isso com finalidade de otimização.... Desde já agradeço.
  4. Assim consegui constatar que na verdade eu utilizo o componente do crystal 8.5 para Delphi 5, pois nunca tinha reparado nesse detalhe, pois na instalação e nos detalhes do meu componente não aparece escrito a versão em lugar nenhum, somente ví isso nos Packages do delphi como você mostrou no VB. Então provavelmente deverá resolver se eu instalar componente do crystal 8.5 para Delphi 6 ou 7. No momento não poderei fazer isso, vou deixar mais pra frente, podem dar como concluído. Apenas se puder e tiver o link para baixar o "componente do crystal 8.5 para Delphi 6" pois procurei pelo google e não achei. Obrigado.
  5. Obrigado pelo resposta amigo. Realmente deve ser bem isso que você falou. Pelo que pesquisei no google e em vários outros lugares, não tem como habilitar o HTML 4.0 no Crystal Reports Control. Agora com relação essa dll que você fala, talves seje a solução, mas como devo fazer? Já procurei por download da dll Crystal Reports ActiveX Design Run Time Library mas não achei nada específico. Se puder me diga como ou onde devo pegar essa dll e de que forma deve ser instalada. A versão do componente do crystal é 8.5 mesmo e a principio não faz diferença se é pro Delphi ou VB. Desde já agradeço.
  6. Minha sugestão é que você fassa isso no "On Calc Fields" Se você criou um acesso a essa tabela do Access, deve ter usado um componente Table ou um Query, em ambos no Events tem o "On Calc Fields" onde você coloca exatamente a expressão matemática que quer. Mas antes disso você tem que criar um ou mais campos do tipo "Calculated" no seu query ou table, é só colocar o nome do campo e o tipo que no seu caso deve ser um currency. Então no "On Calc Fields" pode ser algo assim: sua_tabela.seu_campo_novo_1 := sua_tabela.valor_do_cheque x 3.5 / 100; sua_tabela.seu_campo_novo_2 := sua_tabela.valor_do_cheque + sua_tabela.seu_campo_novo_1; ou se quizer otimizar mais usando apenas um campo novo: sua_tabela.seu_campo_novo := sua_tabela.valor_do_cheque + ( sua_tabela.valor_do_cheque x 3.5 / 100 ); Lembrando que esse campo novo é apenas virtual, para aparecer na tela, um dbgrid por exemplo. Escrevi muito rápido se alguém vir algo errado fique a vontade pra corrigir. Espero ter te ajudado.
  7. No meu Dephi6 ele faz automático assim: Ex.: datetimepicker1.date := now - 90;
  8. Estou tentando emitir um relatório do Delphi no crystal 8.5, quando configuro o componente do crystal para o formato HTML32ext o arquivo sai todo desconfigurado, se eu tento emitir direto do crystal tenho a opção de emitir no formato hmtl 4.0 (dhtml) onde o arquivo sai correto, mas no componente não acho esta opção html 4.0. Alguém sabe como faço para gerar este arquivo de dentro do Delphi com o componente crystal com o formato do arquivo HTML 4.0?
  9. Boa idéia, fiz isso, aparentemente deu certo, testei numa relação de 100 clientes. Vou colocar aqui os códigos que fiz, para cpf e cnpj. Não sou expert em crystal / fórmulas, mas deu pra quebrar o galho, alguém depois pode otimizar, etc... ============================================ Fórmula Valida_CPF ============== Shared numbervar soma; Shared numbervar Resto; Shared numbervar i ; Shared stringvar cpf; Shared booleanvar valida; Valida := true; CPF := Replace(seu_numero_de_cpf_aqui, ".", ""); CPF := Replace(CPF, "-", ""); CPF := Replace(CPF, "/", ""); If Len(CPF) <> 11 Then Valida := False; soma := 0; For i := 1 To 9 do soma := soma + Val(Mid(CPF, i, 1)) * (11 - i); Resto := 11 - (soma - (Int(soma / 11) * 11)); If Resto = 10 Or Resto = 11 Then Resto := 0; If Resto <> Val(Mid(CPF, 10, 1)) Then Valida := False; soma := 0; For i := 1 To 10 do soma := soma + Val(Mid(CPF, i, 1)) * (12 - i); Resto := 11 - (soma - (Int(soma / 11) * 11)); If Resto = 10 Or Resto = 11 Then Resto := 0; If Resto <> Val(Mid(CPF, 11, 1)) Then Valida := False; Valida; ============================================ Fórmula Valida_CNPJ ============== Shared stringvar xCNPJ; Shared stringvar xTEXTO; Shared numbervar nPos; Shared BooleanVar Valida; Shared numbervar nX1; Shared numbervar nX2; Shared numbervar nX3; Shared numbervar nX4; Shared numbervar nX5; Shared numbervar nX6; Shared numbervar nX7; Shared numbervar nX8; Shared numbervar nX9; Shared numbervar nX10; Shared numbervar nX11; Shared numbervar nX12; Shared numbervar nX13; Shared numbervar nTX; Shared numbervar nInt; Shared numbervar nResto; Shared numbervar xDigito; Shared numbervar yDigito; xCNPJ := ''; Valida := true; xCNPJ := Replace(seu_cgc_aqui, ".", ""); xCNPJ := Replace(xCNPJ, "-", ""); xCNPJ := Replace(xCNPJ, "/", ""); // Calculo para o primeiro digito // Extrair os numeros de 1 a 12 e multiplica-los por 5,4,3,2,9,8,7,6,5,4,3,2 nX1 := Val(Mid(xCNPJ, 1, 1)) * (5); nX2 := Val(Mid(xCNPJ, 2, 1)) * (4); nX3 := Val(Mid(xCNPJ, 3, 1)) * (3); nX4 := Val(Mid(xCNPJ, 4, 1)) * (2); nX5 := Val(Mid(xCNPJ, 5, 1)) * (9); nX6 := Val(Mid(xCNPJ, 6, 1)) * (8); nX7 := Val(Mid(xCNPJ, 7, 1)) * (7); nX8 := Val(Mid(xCNPJ, 8, 1)) * (6); nX9 := Val(Mid(xCNPJ, 9, 1)) * (5); nX10 := Val(Mid(xCNPJ, 10, 1)) * (4); nX11 := Val(Mid(xCNPJ, 11, 1)) * (3); nX12 := Val(Mid(xCNPJ, 12, 1)) * (2); // Soma o Resultado nTX := ((nX1) + (nX2) + (nX3) + (nX4) + (nX5) + (nX6) + (nX7) + (nX8) + (nX9) + (nX10) + (nX11) + (nX12)); // Divide-se o resultado por 11 e pega-se a parte inteira nInt := (Int((nTX) / (11))); // Acha-se o resto nResto := ((nTX) - ((nInt) * (11))); //Acha-se o Digito xDigito := Val(Mid(xCNPJ, 13, 1)); yDigito := ((11) - (nResto)); If yDigito >= 10 Then yDigito := 0; // Calculo para o segundo digito If xDigito = yDigito Then //Extrair os numeros de 1 a 11 e multiplica-los por 6,5,4,3,2,9,8,7,6,5,4,3,2 nX1 := Val(Mid(xCNPJ, 1, 1)) * (6); nX2 := Val(Mid(xCNPJ, 2, 1)) * (5); nX3 := Val(Mid(xCNPJ, 3, 1)) * (4); nX4 := Val(Mid(xCNPJ, 4, 1)) * (3); nX5 := Val(Mid(xCNPJ, 5, 1)) * (2); nX6 := Val(Mid(xCNPJ, 6, 1)) * (9); nX7 := Val(Mid(xCNPJ, 7, 1)) * (8); nX8 := Val(Mid(xCNPJ, 8, 1)) * (7); nX9 := Val(Mid(xCNPJ, 9, 1)) * (6); nX10 := Val(Mid(xCNPJ, 10, 1)) * (5); nX11 := Val(Mid(xCNPJ, 11, 1)) * (4); nX12 := Val(Mid(xCNPJ, 12, 1)) * (3); nX13 := Val(Mid(xCNPJ, 13, 1)) * (2); //Soma o Resultado nTX := ((nX1) + (nX2) + (nX3) + (nX4) + (nX5) + (nX6) + (nX7) + (nX8) + (nX9) + (nX10) + (nX11) + (nX12) + (nX13)); //Divide-se o resultado por 11 e pega-se a parte inteira nInt := (Int((nTX) / (11))); //Acha-se o resto nResto := ((nTX) - ((nInt) * (11))); //Acha-se o Digito xDigito := Val(Mid(xCNPJ, 14, 1)); yDigito := ((11) - (nResto)); If yDigito >= 10 Then yDigito := 0; //Retorno da funcao If xDigito = yDigito Then Valida := True Else Valida := False; if nResto = 10 then Valida := true; //(não sei porque mas tive q colocar essa linha pra dar certo.) valida; ===================================
  10. Validar CGC/CPF - Existe como no crystal 8.5 ?
  11. Pelo editor do Crystal 8.5 o rolamento do mouse funciona corretamente, porem chamando pelo Delphi 6, usando o componente que acompanha o CR 8.5, o rolamento não funciona, não acontece nada quando mecho no rolamento do mouse...... Se alguém tiver uma dica desde já agradeço.
  12. Perfeito amigo, deu certinho. Eu tava insistindo em tentar a mesma coisa pelo Format Section, mas na verdade é no Change Group. Brigadao ae.
  13. Já passei por isso muitas vezes, basta voce usar corretamente aquelas flexinhas que colocamos na regua pra servir de orientação da posição dos campos (margin rules se não me engano), o excel acerta as colunas por essas guias e você vai percebendo por que alguma coluna sai em branco ou misturada com outras colunas. Se não fui claro avisa aí que te mando um exemplo.
  14. Boa tarde. alguém sabe como consigo no Crystal a seguinte situação. Exemplo: Grupo 1 : Cabeçalho da Nota Fiscal. Detail : produtos da nota fiscal. Gostaria de saltar página a cada grupo SOMENTE se o grupo e os detalhes dele não couberem na mesma página. Ou seja se hover espaço na mesma página deixa imprimir 2 grupos na mesma página, caso contrário salte a página. Desde já agradeço.
×
×
  • Create New...