arce

Olá Tenho uma classe principal chamada TTabela. Através de herança crio outras classes filhas, que neste exemplo vou chamar de TUsuario. Criei uma tela de pesquisa base que receberá as configurações de acordo com as informações da Classe referente. Gostaria de saber se é possível declarar uma variável private do tipo TTabela, e sobrepor o conteúdo com a classe filha (TUsuario), uma vez que preciso criar a classe em tempo de execução para uso dos métodos internos do form. unit untPsqBase; interface uses (...); type TfrmSPsqBase = class(TfrmBase) cbbFiltro: TComboBox; lbl1: TLabel; edtSearch: TEdit; lbl2: TLabel; private FTabela: TTabela; public constructor Create(AOwner: TComponent; cClass: String); overload; end; var frmPsqBase: TfrmPsqBase; implementation {$R *.dfm} uses uDM; constructor TfrmSearchEntity.Create(AOwner: TComponent; cClass: String); begin inherited Create(AOwner); FTabela := TTabela(GetClass(cClass)); // cClass = 'TUsuario' end; end. Consigo fazer a instância com TForms como pode ser visto no exemplo abaixo: procedure TfrmBase.btnPesqClick(Sender: TObject); var oClasseForm: TFormClass; cClasseForm: String; begin inherited; cClasseForm := 'TfrmPsq'+scTabela; oClasseForm := TFormClass(GetClass(cClasseForm)); if(Assigned(oClasseForm))then begin giCodigoPesquisado := 0; with(oClasseForm.Create(Self))do begin ShowModal; free; end; end; end;

Jhonas, entrei em contato com o José Araujo do FortesReport, e ele passou duas soluções. 1ª. No finally substituir o código existente por: RLFilters.SelectedFilter := nil;, desta forma limpa o último filtro selecionado. 2ª. Destruir a instância do FiltroMatricial (comigo, o erro acontecia, pois tenho uma instância do DraftFilter em um form comum)

Obrigado, vou testar

Boa tarde Migrei recentemente para o Fortes Report CE, e estou com um problema relacionado aos filtros padrão e matricial. Meu código era desta forma, se o usuário escolhe a opção 1, e depois escolher a opção 3, e novamente a 2, o FortesReport atribuirá o filtro correto de acordo com a opção escolhida. Lembrando que quando o RLPrinDialogtSetup1.Filter recebe NIL, este interpreta como filtro padrão de impressão, limpando a referencia da Matricial. RLPrinDialogtSetup1.Filter := nil; try case(iOpImp)of 1: begin RLReport.Prepare; RLReport.PreviewModal(); end; 2: begin RLReport.Prepare; RLReport.Print; end; 3: begin RLReportMatrcial.Prepare; RLReportMatrcial.DefaultFilter := RLDraftFilter1; RLReportMatrcial.Print; end; end; finally RLPrinDialogtSetup1.Filter := nil; end; Após a atualização o componente RLPrinDialogtSetup1 deixou de existir, logo não consigo limpar o filtro. O problema é que após utilizar o filtro matricial, todas as demais impressões realizadas posteriormente terão este filtro atribuido Minha dúvida é como atribuir o default de impressão no fortesreport-ce?

Bom dia Recentemente um de meus clientes trocou a placa da balança Jundiaí, e também tive que alterar a leitura do retorno. Resolvi criando parâmetros de leitura (caracter inicial. final e qtd de caracteres para leitura), de forma que agora consigo configurar em qualquer outra balança rodoviária. No método ACBrBAL1LePeso(Peso: Double; Resposta: String); a variável "Resposta" retorna o conteúdo da porta, cada modelo de balança retorna de forma diferente. Ex01: "# 00025685$# 00025685$# 00025686$" Ex02: " 00025685 00025685 00025686" No evento LePeso, associei o meu método, que seria chamado no Ex01 assim, LerPesoBalanca(Resposta, '#', '$', 11) e no Ex02 LerPesoBalanca(Resposta, '', '', 11) Algumas balanças retornam a resposta em Hexadecimal, nesses casos é necessário converter para ASCII.

****** Registro trava ao dar UPDATE ou DELETE ****** Boa tarde. Tenho uma tabela chamada LOG que armazeno todos os logins do meu sistema. O problema é que um registro específico está travado, não consigo fazer UPDATE nele, e também não consigo DELETAR. Já tentei fazer um backup restore também e o processo trava na tabela LOG. Seria uma opção fazer extract metadata das tabelas exceto da "LOG", porém estou tentando não perder as informações desta. Alguém tem alguma dica? Obrigado!

As configurações estão exatamente iguais, nas abas que você mencionou... não estou entendendo porque um projeto compila diferente do outro

Bom dia Estou com o seguinte problema. Tenho dois projetos que compartilham boa parte das units. No processo de inicialização dos forms no dpr, cada projeto se comporta de uma forma. {$R *.res} begin Application.Initialize; Application.CreateForm(TdmPrincipal, dmPrincipal); Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(TformBaseDados, formBaseDados); Application.CreateForm(TfrmLogin, frmLogin); Application.Run; end. No 1º projeto (q está da forma correta), ao inicializar; todos os forms listados são criados de uma só vez, e após a criação do frmLogin (último) que o sistema executa o TFormCreate do frmPrincipal (primeiro). No 2º Projeto que dispõe das mesmas units para inicialização, os forms são criados um de cada vez, sendo que no momento de criar o frmPrincipal, executa-se o TFormCreate e TFormShow do mesmo, ou seja, após criar cada form o projeto executa seus comandos inciais. Comparei diversas propriedades entre os projetos, e não encontrei nada que faça com que o projeto seja compilado de maneira diferente.

Em minha empresa desenvolvemos usando Firebird e delphi 7, e vou iniciar um novo sistema, para tal quero usar o clienteDataSet para realizar as transações. Alguém teria algum fonte simples exemplificando o uso do componente? obrigado

Jhonas Eu instalei e testei localmente o Visual SourceSafe na minha máquina e funcionou perfeitamente. Acontece, que preciso colocar os fontes na nuvem. Instalei corretamente no servidor do cloud (server 2003), o problema é q não estou conseguindo conectar a máquina local com a base de dados do VSS(cloud). no Share Location ... eu especifico o caminho EX: \\XSDJJJJ:C:\FONTES Mas ao tentar a conexão aparece a seguinte mensagem de erro: "\\XSDJJJJ:C:\FONTES does not contain a valid SourceSafe database(srcsafe.ini)" e no diretório, o arquivo "srcsafe.ini" exite. Aguardo resposta.

Bom dia, trabalho em uma pequena empresa de desenvolvimento de Software, e como crescemos a cada semestre aumentamos o numero de colaboradores. Agora esta ficando complicado o gerenciamento do código fonte. Estou pesquisando sobre ferramentas específicas para sanar este problema, já q apesar dos nossos cuidados, esta havendo sobreposição de código. Utilizo Delphi 7, e nas minhas pesquisas soube do StarTeam (próprio da Borland) e do Visual SourceSafe 6.0. Mas ambos procurei para download sem sucesso, o ultimo até encontrei disponível mas está dando erro ao instalar. aguem tem alguma sugestão de outras ferramentas de gerenciamento de software? Ou alguma ajuda para encontrar os programas acima citados? Obrigado.

Olá, Estou com o seguinte problema, uma tabela da minha base de dados corrompeu. Consegui criar um script com os dados, mas preciso deletar a tabela para depois cria-la e inserir os dados novamente. Mas aparece a seguinte mensagem de erro Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements. database file appears corrupt (). bad checksum. checksum error on database page 15565. tentei dropar por script e clicando na table tambem... mas não deu certo. alguém poderia me ajudar

OK.. resolvido usei a formula que postei neste post (que você mesmo respondeu) http://scriptbrasil.com.br/forum/index.php...mp;#entry612385 e apliquei na variável Resposta (string que vem da porta serial) do componente, tratei esta string e extrai o peso no formato correto. obrigado

muito obrigado Jhonas .. OK

Tenho um pequeno script em clipper e quero passa-lo para o Delphi peso := val(substr(m->str_,at(" ",m->str_),11)) Converti da seguinte forma peso := StrToFloat(Copy(m = str_, pos(' ',m = str_),11)); mas dá erro ao compilar. alguém pode traduzir este código corretamente para mim? Obrigado