adilsonpazzini

Elton o pessoal la do forum do lazarus (Gilson Nunes) , me ajudaram a resolver o problema . na Funcao IsValidChar incluido as seguintes linhas {+} if S[1] = DecimalSeparator then {+} s := '0' + s; ai resolvel o problema , agora queria saber se tem como enviar essa correção para o repositório http://sourceforge.net/projects/lazarus-ccr/ da rxlib para lazarus . function TCustomNumEdit.IsValidChar(Key: Char): Boolean; var S: string; ASelStart, SelStop, DecPos: Integer; RetValue: Extended; begin Result := False; S := EditText; GetSel(ASelStart, SelStop); System.Delete(S, ASelStart + 1, SelStop - ASelStart); System.Insert(Key, S, ASelStart + 1); S := TextToValText(S); DecPos := Pos(DecimalSeparator, S); if (DecPos > 0) then begin ASelStart := Pos('E', UpperCase(S)); if (ASelStart > DecPos) then DecPos := ASelStart - DecPos else DecPos := Length(S) - DecPos; if DecPos > Integer(FDecimalPlaces) then Exit; if S[1] = DecimalSeparator then s := '0' + s; end; Result := IsValidFloat(S, RetValue); if Result and (FMinValue >= 0) and (FMaxValue > 0) and (RetValue < 0) then Result := False; end; Desde ja agradeço , Adilson Pazzini .

Os dois exemplos , um em lazarus e outro em Delphi , estou utilizando o Edit mesmo , mais com as funções do CurrencyEdit , pra ficar facil emular o problema . Q no caso ao digitar a virgula por primeiro , sem nenhum numero antes , no delphi passa mais no lazarus nao passa . ambos os testes estao anexados para testar . Desde de já agradesco . Adilson Pazzini . curedit_lazarus.zip curedit_delphi.zip

Entao Elton , agradeço a dica . é que como estou convertendo meus projetos de delphi pra lazarus . preciso ajusta esse componente por enquanto , isso pra ir saindo do delphi mesmo pra lazarus . como ja uso em delphi , e tem no lazarus . por isso q to querendo ver se ajusto o erro ... a quem puder me ajudar . descobri que o problema esta na função : function IsValidFloat(const Value: string; var RetValue: Extended): Boolean; var I: Integer; Buffer: array[0..63] of Char; begin Result := False; for I := 1 to Length(Value) do if not (Value in [DecimalSeparator, '-', '+', '0'..'9', 'e', 'E']) then begin ShowMessage(Value); Exit; end; Result := TextToFloat(StrPLCopy(Buffer, Value, SizeOf(Buffer) - 1), RetValue, fvExtended); ///-- a mesma no delphi retorna TRUE,. ja no lazarus , ta retornando FALSE ... end; q esta na unit curredit , e na verdade qndo digito a virgula , a funcao TextToFloat(StrPLCopy(Buffer, Value, SizeOf(Buffer) - 1), RetValue, fvExtended); ta retornando falso , no delphi , essa mesma funcao retorna true ... alguem sabe me dizer o porque ? Desde ja agradeço . Adilson PAZZINI

Alguem utiliza esse componente em projeto , pois como vim do Delphi e agora estou portando minhas aplicacoes pra Lazarus , percebi que esse componente pra lazarus . ta com um problema , ao digitar a Virgula . ele nao dispara nada no CurrencyEdit , so se tiver um valor antes numerico antes, ex: 0, ... caso eu tente digitar a virgula sem ter nenhum valor . ele nao aceita ... isso no DELPHI nao acontece , .alguem sabe como resolver esse problema nesse componente , ou se tem algo melhor pra ser usado ? Desde ja agradeço . Adilson PAZZINI

Seguinte fiz conforme o Regys falou . ai deu certo . if key = VK_RETURN then begin Key := 0; ModalResult := MROK ; end; Ref ao que o Daniel falo eu havia feito . Propriedade AUTOADVANCE=aaNone mais mesmo assim . ele continuava movendo pro proximo registro . o duro que estou convertendo do Delphi pro Lazarus . e tenho muitas telas utilizando esse tipo de acao . qndo ao pressionar a tecla ENTER . ele abria o registro . mais no Lazarus ele move pro proximo e ai mostra o item seguinte . em vez do que eu pressionei . Mais se tiverem mais dicas pra resolver agradeço .... Desde ja agradeço . Adilson Pazzini .

Boa pessoal . to com um problema aqui no DBGrid do lazarus. qndo pressiono o ENTER no grid . ele ta movento pro proximo registro , nao tem como nao fazer isso ? pois inclui uma opcao q ao clicar no ENTER ele chame outra tela com os detalhes do GRID . mais ao clicar ele posiciona sempre no proximo ai sim executa o keydown ... desde ja agradeço Adilson PAZZINI

Fiquei com uma duvida , ref aos campos vBCSTRet , vICMSSTRet , esse valores , e quando tenho estoque , que no no caso foi comprador de fornecedores diferentes , e acabei formando um estoque com duas notas ,e a primeira nf que comprei e de um fornecedor mais barato e a segunda mais cara , no caso de qual nota pegaria o valor da base e st , da primeira nf que dei entrada ou da ultima ... ou teria q fazer uma media das duas ... Desde ja agradeço Adilson

o contador me enviou um email dizendo que é pra enviar o estoque de DEZEMBRO/2012 no movimento de fevereiro de 2013 (Portaria CAT 149/09) sem mais, Adilson

Seguinte , estou tentando validar um SPED de uma empresa aqui ref ao mes 02/2013 , mais ao validar o mesmo esta dando que o registro H005 , dese ser informado , porem , no bloco H , estou enviando como Sem Registro |H001|1| |H990|2| 0- Bloco com dados informados; 1- Bloco sem dados informados ///--> estou utilizando essa opcao . mais , no validador , ele insiste em solicitar esse registro , alguem ta passando por isso , ou sabe se no mes de Fev-2013 , ta sendo obrigatorio informar o estoque ? Desde ja agradeço Adilson Pazzini

Sabe dizer se é Padrao abrasfe , se nao me engano essa 4R Sistema , nao tem opcao pra Webserver , somente digitacao no proprio Site . e tambem tem uma opcao de envio de arquivo com um layout em texto se nao me engano ... Adilson Pazzini .

Ja tive problemas com isso mesmo , na verdade é alguma coisa na instalacao do Certificado . Tive muitos problemas com Windows Sevem tambem ... Windows Server .. ja no XP na maioria das vezes foi tranquilo .

Nao esta mais na Pasta Branches , agora esta na Trunk como AcbrNfse

Ref ao FAST REPORT , ainda nao tem para NFSe . ref a utilizar a impressao do DANFE da NFe , para impressao daNFSe acredito so podera usar se a prefeitura for liberada pelo Estado . ai vc tera que ver com a prefeitura da sua cidade . a maioria é indepente da NFe , q no caso utilizam a NFSe mesmo e sua danfe propria .

Ja vi que se utilizar SELF em Width e Height , agora vai mostrar o Caption . a unica coisa que ficou errado agora é que a cor Não ta sendo trocada no lazarus ... no delphi ta ok mais no lazarus ainda nao . Quem puder ajudar agradesço Adilson

Segue anexo componente com os pacotes para Delphi e Lazarus . pra ver se fica mais facil pra analise . Desde ja agradesço . Adilson Pazzini BevelLabel.rar

Desenvolvi um componente Bevel Com Label junto , Desenvolvi em Delphi e podois fiz adaptacoes para lazarus . Compilando e instalando tudo .. Ai no Delphi funcionou legal . mais no Lazarus nao tem efeito a parte do Caption ,nao sei o que fiz de errado . se tem alguma coisa na classe q no lazarus nao tem reação . pois que nem falei o mesmo foi compilado e instalados para ambos IDE-s , mais so no Delphi funcionou 100% ... Se alguem puder analisar e ver onde estou errando . Agradesço desde já . Adilson Pazzini ---- Abaixo segue o codigo do componente .

Valeu Jeter . vou ver isso .. Obrigadoooo Adilson pazzini

Se não me engano Campinas é Padrao Dsf , e DSF não esta no padrao abrasf .... Não sei se o componente funcionaria . Adilson Pazzini

Agora por ultimo , rsrssr , Como é que faz pra colocar uma imagem no Componente para aparecer na paleta do Delphi7 , pois ta aparecendo com aquela icone padrao do Delphi pra componenete .? Desde ja agradesço ... Adilson Pazzini

Deu certo Elton ... valeu velhão . Mais uma vez obrigadoooo ..;. Adilson

Putz , era isso mesmo velho ... na verdade la em baixo nao estava declarando ele com o nome do Objeto TVisual ... agora colocando foi .. Muito Obrigado Elton ... agora outra coisa . pra quem pude me ajudar . to tentando incluir a Propriedade Font nele . pra que qndo eu altere a fonte ele altere a font do texto que vai aparecer . ate fiz assim private { Private declarations } //variavel interna que receberá a cor //indicada no Object Inspector FAlinhar:TAlinhar; FLayout:TLayout; FCor: TColor; FCaption :TCaption; FPopupMenu:TPopupMenu; //função que será chamada quando o usuario //mudar a cor no Object Inspector procedure SetAlinhamentoCaption(const Value:TAlinhar); procedure SetLayoutCaption(const Value:TLayout); procedure SetCor(value: TColor); procedure SetCaption(value :TCaption); procedure SetFont(Value:TFont); property Font: TFont read FFont write SetFont; procedure TVisual.SetFont(value: TFont); begin FFont:= value; invalidate; end; ate compila . mais da o Erro ao clicar no Object inspector - 'Cannot assign a nil to a TFont .'. Desde ja agradesço mais uma vez ...

Estou tentando montar um componente em DELPHI , e criei um tipo enumerado pra poder jogar na propriedade de um complenente Grafico que estou montando , mais qndo vou declarar a procedure SetAlinhamentoCaption(const Value:TAlinhamento); da o erro de Unsatisfied forward or external declaration 'TVisual.SetAlinhamentoCaption' alguem consegue ver o que estou errado ... pois so falta isso pra completar esse complenente q estou montando .... Desde ja agradesço a todos Adilson Pazzini abaixo parte do codigo : unit visual; interface uses Classes, SysUtils, Graphics, StdCtrls, Controls, Messages, Menus ,Windows; type TAlinhamento = (taEsquerda,taCentro,taDireita); type TVisual = class(TGraphicControl) private { Private declarations } FAlinhamento:TAlinhamento; procedure SetAlinhamentoCaption(const Value:TAlinhamento);

Não tenho certeza , mais acho que o DSF nao é padrao abrasf .... Adilson Pazzini

OK ... Vou ver aqui entao ... muito obrigado Elton ... Adilson Pazzini .

Delphi7 , Windows XP e com o FastMM ainda nao tentei . ate ai ver com o amigo se resolvel pra ele utilizando o FastMM ... até assim . nao entendo muito bem da diferença da geração do acbrSPED para AcbrSintegra , mais sera que é possivel implementar a opcao de Concommitante no Sintegra , pois se tiver , vou estudar e tentar implementar , ou pela estrutura não seria possivel , se nao é possivel ai realmente teria que utilizar o FastMM ... Desde já Agradesço Adilson Pazzini