adilsonpazzini

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

Boa tarde ao Pessoal , estou com o mesmo problema ao gerar o regisro74 , Registro de Inventário , so que nao estou utilizando a DLL , sera que eu fizer esse registro pela DLL , nao daria este problema de Out Of memory ? ... Desde ja agradesço Adilson Pazzini .

Esse problema . andei pesquisando . parece ser momentanio no provedor .. daqui a pouco para ... pelo menos pra mim . toda vez que aconteceu foi assim . fico durando umas 2 horas . depois voltou .. o problema é la ...

Belaza Gedes . valeu velho , ate assim . estava pesquisando pois um conto do forum do lazarus , disse que tinha conseguido instalar e inclusive tinha adiquirido o mesmo para lazarus , mais eu ate chegue enviar email pro pessoal da fast- report pra ver se me retornavam . mais nao tive retorno da parte deles ref instalacao para lazarus ... sendo q no produto no site . marca como se funciona-se ja para lazarus ... mais blz . valeu velhao .. Adilson Pazzini

Valeu pessoal pelas respostas , Se tambem tem a Enterprise Guedes ? conforme o Juliomar falou ?

FastReport VCL 4.13 released! November 20, 2012 We are pleased to release a new version of FastReport VCL for Embarcadero RAD Studio XE. FastReport VCL 4.13 officially supports the latest version, XE3, of RAD Studio. You can download a stable version from your customer panel for free. Support for Lazarus Beta is included in FastReport Professional Edition and above. The current version allows previewing, printing and report templates under Windows and Linux platforms (qt). Other changes: + published Quality property of TfrxPDFExport object + published UseMAPI property of TfrxExportMail object + published PictureType property in ODF export - fixed compatibility with FastReport FMX installed in the same IDE. This version can co-exist with FastReport FMX installed in the IDE - fixed bug with expressions in RichEdit - fixed bug in multi-column reports - fixed exception in the report designer - fixed bug with URLs in Open Document Text and Open Document Spreadsheet exports - fixed format string in XLS OLE export - fixed format string in XLS BIFF8 export - fixed output of check boxes on highlighted lines in PDF export - fixed bug with PDF anchors - fixed bug when using two or more macros in memo - other minor bug fixes about product download buy Então foi esse mesmo que baixei . ate ai fala que esta dando suporte a lazarus . mais instalacao especifica realmente nao tem . que vi que tinha é um Pacote pra Lazarus .. mais tentei compilar e da erro .. fs_lazarus.pas(10,3) Fatal: Can not find unit fs_ipascal used by fs_lazarus. Check if package fs_lazarus is in the dependencies. Adilson .

Baixei um demo aqui do FastReport4 e vi que dentro do diretorio dele , onde fica os pacotes do Delphi . tambem tem os Pacotes para Lazarus . tentei compilar mais deu erro . mais vi que vem na instalacao . mais como pacote mesmo . Alguem no forum ja tentou e conseguiu instalar o fastrepor para lazarus .. vi que agora estao desenvolvendo ele pra lazarus tambem Se alguem souber . poste aqui .. valeuuuu Adilson

Olha só . utilizei novamente o cast mais agora me vez de transformar em Varchar troquei pra Blob Binario , assim cast(X.XMLNFE as blob sub_type 0) e NESTE caso agora funcionou , sem dar problemas .

Então . realmente eu vi tambem ref a isso , de atualizar o Firebird , mais vi que era um problema da Versão 2.1 ... Como converti para versão 2.5.1 achei que não era pra dar esse problema .

Pra gravar , vc utiliza qual aQCAD.ParamByName('XMLNFE').ASSTRING := UTF8Encode(ANFE.NotasFiscais.Items[0].XML); ou assim aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob);

Tentei fazer igual ao seu mais continua o problema , E o pior é que quando a NF é emitida por mim , utilizo a mesma rotina . tanto pra gravação quanto pra leitura e funciona normal , agora quando pego xml de fornecedores pra gravar . ai da o problema ...

Obrigado Isaque , so uma duvida , vc está granvando no banco como BLOB SUB_TYPE 1 , qual character set vc utiliza , e tambem se puder como vc esta gravando no banco de dados , so pra verificar se tem alguma diferença . Adilson Pazzini .

é até vergonhoso mais to no BDE ainda ....rs

Boa pessoal estou com um problema na Gravação do XML de terceiros (No caso meus fornecedores , onde baixo pelo portal da NFe) no Banco de Dados . Estou utilizando Firebird 2.5.1 , Delphi7 e ACBRNfe . Abaixo a estrutura da tabela no firebird pra gravação do xml : CREATE TABLE PCANFEXML (ID_NFE INTEGER NOT NULL, DATA DATA , XMLNFE BLOB SUB_TYPE 1 SEGMENT SIZE 8192 CHARACTER SET UTF8); Ou seja campo Blob Textual , utilizando como Character Set o UTF8 , mais tambem ja tentei como ISO8859_1 . Abaixo a Rotina de gravação para o Banco de Dados no DELPHI7.até assim está gravando no banco de dados . mais o problema e na hora de recuperar a informacao q ta dando problema . procedure GRAVA_XMLFOR_BANCO(aQCAD:TQuery;aID_NF:Integer;aNFE:TACBRNFe); begin //===> Rotina Incluida para Ver se campo nNF esta vazio ou não... if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF <> 0 then begin aQCAD.Close; aQCAD.SQL.CLEAR; aQCAD.SQL.ADD('UPDATE OR INSERT INTO PCANFEXML (ID_NFE,XMLNFE,DATA) VALUES (:ID_NF,:XMLNFE,:DATA) MATCHING (ID_NFE)') aQCAD.ParamByName('ID_NF').asinteger := aID_NF; aQCAD.ParamByName('XMLNFE').ASSTRING := UTF8Encode(ANFE.NotasFiscais.Items[0].XML); // aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob); //-- >UTILIZEI ESSAS DUAS OPCOES PARA ARMAZENAMENTO , POREM NENHUM // DEU CERTO , TANTO A DE CIMA PARA A DE BAIXO . aQCAD.ParamByName('DATA').AsDateTime := now; aQCAD.EXECSQL; end; end; Abaixo agora a rotina pra recuperacao do xml gravado no banco . Onde que ocorre o erro = Inválid BLOB ID if not livm01.QCONS1.FieldByName('XMLNFE').isnull then begin dmnfe.NFe.NotasFiscais.Clear; try aXML := TStringStream.Create(livm01.QCONS1.FieldByName('XMLNFE').value); //--- O Erro ocorre nesta linha ,. qndo vai ler o campo XMLNFE . dmnfe.NFe.NotasFiscais.LoadFromStream(aXML); Finally FreeAndNil(aXML); end; end; A unica forma que consegui trazer os dados da banco sem dar o erro . tive que converter o campo BLOB em Varchar utilzando a funcao CAST do firebird . cast(b.xmlnfe as varchar(32765)) xmlnfe , so assim consegui trazer o xml pro compoenente se dar o erro de inválid BLOB ID . e outra ,. esse problema esta dando apenas para NF que vem de terceiro ou é baixada pelo Portal da NF-e . Qndo eu mesmo faço a emissao da NF-e e gravo e depois tento consultar da certo . mais pra nf de terceiro ja fica apresentando esse erro . Se alguem ja tiver passado por isso . e puder me ajudar . agradesço . Adilson Pazzini.

nfe.NotasFiscais.Items[0].NFe.procNFe.cStat NFE.WebServices.Cancelamento.cStat Existem algumas propriedades do ACBR q te trazem o resultado do envio , mais ai tambem é preciso tratar . alguns tipos de excessoes , por exemplo , quando vc consegue enviar uma nf-e pro sefaz , mais por algum problema o retorno nao chega ate vc , devido a queda de internet ou energia . algo parecido . mais tem a propriedade cstat , q vc consegue pegar o codigo de retorno de uma NF-e . Adilson .