adilsonpazzini

Achei o problema .. no antes do Lfm .. coloquei ',' e tinha que ';' .. Valeuuuu

Valeu Daniel , então estou tentando pelo FIND IN FILES ... mais não consegui .. Eu queria por exemplo alterar a propriedade AlternateColor do DBGrid . de todos os formulários que o contem .. de uma so vez . . tentei pelo FIND IN FILES . mais nao retornada .

Lazarus 1.8 - Existe possibilidade de alterar propriedades de um componente nos arquivos .lfm dos formularios. Estou precisando alterar uma propriedade do DBGrid em todos os formulários que o contem . uma propriedade do DBGrid ? Sem mais, Adilson Pazzini

Achei um dos problemas , e porque existem outras Units referenciando em um formulário que não estão anexados no projeto, e ai ele da esse erro ai , conforme adiciono para o problema . Adilson .

Fiz a conversão do projeto total de Delphi7 para Lazarus .. porem em alguns formulários deu esse problema "Error: Wrong token type: = expected but Symbol found (at 529,16, stream offset 000039D3)" , ai exclui o lfm criado pelo conversor e copiei o .dfm como .lfm . e abriu normal .. porem tive que ajustar os acentos na tela, porem . ao ir incluindo no projeto . o mesmo erro acontece na hora de compilar .. dando o erro abaixo : se alguem ja passou por isso e puder me ajudar . agradeço . Alguem aqui ja pegou esse erro no Lazarus ? estou criando um projeto novo e adicionando as units e forms .. Error: Wrong token type: = expected but Symbol found (at 529,16, stream offset 000039D3) dms.lpr(33,1) Error: Error while compiling resources -> Compile with -vd for more details. Check for duplicates. Lazarus 1.8 . Windows 7 32 Bits . Sem mais , Adilson Pazzini

Fmz Rafael ... VALEUUU Vou testar aqui . Adilson Pazzini .

Boa tarde, Seguinte . estou tendo problemas para envio da NF-e usando o AcbrNFe, onde quando vai fazer a assinatura do xml da o erro "Falha ao localizar o nó de Assinatura" , so que isso somente esta acontecendo quando o EXE ja esta compilado e no Cliente , na maquina onde tem o Delphi nao acontece, ai vi em alguns topicos onde dizem que tem que ajustar o “Debugger Exception Notification” , achei uma forma na internet pelo link https://pt.stackoverflow.com/questions/5917/há-como-desabilitar-o-debugger-exception-notification-do-delphi Delphi 7 - No menu superior, clique em Tools-Debugger Options abrirá uma janela, navegue até a aba Language Exceptions e você verá uma checkbox dizendo [ ] Stop on delphi exceptions marque-a, pronto. so que ao entrar no mesmo . ja esta marcado . e mesmo assim . da esse problema . Sera que devo desmarcar essa opcao para que ele ignores esse tipo de Exception ? Sem mais, Adilson Pazzini .

Estou com o mesmo problema . porem no DELPHI7 ... vi eles comentando algo sobre ignorar Exceptions, mais no delphi7 nao consegui fazer isso . So que no DELPHI 7 . so acontece na estacao do cliente .. se usar dentro do Delphi7, Nao ocorre esse problema .

OK

OK Entendi , ainda esta tendo compatibilidade do Delphi7 com o Acbr ?

uso Delphi7 . qual a diferença de eu carregar um xml com true no final ou false .. AcbrNFe.NotasFiscais.LoadFromFile(busca.FileName, true); fiz uma atualizacao na sexta e se deixo vazio essa propriedade vi que ele pega automatico como false so que ao gravar no banco da erro pra gravar o blob.. percebi que quando ta como false , se tem acentos em qualquer parte das informacoes do xml , ele traz Agora se carrego o mesmo arquivo com true no final . vem certinho a parte de acentos . alias . ele arranca os acentos .. eu posso utilizar essa opcao de true no final pra gravar os xml no banco , pois sem ,. nao ta deixando . fica dando erro de "Malformed String" agora se uso o True como parametro no final . ele grava certinho . vi que ele tira os acentos no xml .. tem algum problema utilizar essa formar de carregar o arquivo xml com o true no final ? sem mais, Adilson PAzzini

Acho que o problema para união e o PIS e COFINS sobre servicos .. que ai como esta nas maos das prefeituras hj a gestao da NFSe, fica ruim para eles controlarem .talvez por isso esse projeto nacional .

Obrigado pelas respostas .. vi la que fala sobre NFCe para usar com Integrador . nao vi nada sobre NFe .. vai ter que integrar tambem NFe ?

Boa tarde . Onde posso ler sobre emissão de NFe ou NFCe para o Integrador ... existe prazo para implementação já ? Seria somente para o Estado do CEARA ? Desde ja agradeço Adilson Pazzini

Beleza Jose . obrigado pelo Retorno ... fico no aguardo . Adilson Pazzini .

Bom dia ... teria como incluir essa alteração por favor ... Adilson Pazzini .

top ... Bom dia Jose, vi que nao deu ainda para atualizar .. qndo puder te agradeço . Obrigado . Adilson Pazzini .

Deu certo Daniel .. putz valeu meu velho ... muito obrigado ... var lPoint:TPoint; begin lPoint := veig05.ClientToScreen(Point(0,0)); RlImage1.picture.Bitmap.Assign(AreaCapture(lPoint.X+5, lPoint.Y+Bevel1.Top+5, 1024, 530));

Valeu Jose .. obrigado mesmo . Adilson Pazzini

José , desculpe , mais poderia ver para commitar minhas atualizações, vi que esses dias vc commitou bastante ajustes , porem vi que o meu nao foi ainda .. se puder agradesço . Ajuste para o Envio Layout 400 . Quando informado Parcela no titulo, estava pegando sempre '01' mesmo informando o numero de parcela superior a 1. Ajuste na linha inicio : 845 . de Result := Result+PadLeft(NossoNum, 10, '0')+ // 38 a 57 - Carteira PadLeft('01', 02, '0')+ PadLeft(wModalidade, 02, '0')+ '4'+ Space(5); para Result := Result+PadLeft(NossoNum, 10, '0')+ // 38 a 57 - Carteira PadLeft(inttostr(ifthen(parcela=0,1,parcela)), 02, '0')+ //PadLeft('01', 02, '0')+ PadLeft(wModalidade, 02, '0')+ '4'+ Space(5); Adilson Pazzini

Bom dia , queria saber se alguém poderia me ajudar , estou tentando desenvolver uma funcao para capturar a tela atual . informando as coordenadas (Left, Top, Width, Height) pois ai , dando certo , conseguiria informar apenas uma parte do formulário . estou usando essa função .. function AreaCapture(Left1, Top1, Width1, Height1 : integer) : TBitmap; var ScreenDC : HDC; begin Result := TBitmap.Create; ScreenDC := GetDC(0); try try Result.Width := Width1; Result.Height := Height1; BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, ScreenDC, Left1, Top1, SRCCOPY); finally ReleaseDC(0, ScreenDC); end; except Result.Free; Result := nil; end; end; a função esta OK, o problema, esta quando vou buscar as coordenadas do formulário filho, aberto pelo TDI, pois quando vou buscar FORM2.Left e FORM2.Top, ele sempre traz como 0, 0 .. ate entendo que deveria pegar então o TOP e LEFT do formulário principal que o chamou, mais mesmo assim . não tá dando certo . não sei onde estou errando .. se alguém tiver uma ideia e puder me dar uma luz , me ajudaria muito ... Exemplo da chamada da funcao : RlImage1.picture.Bitmap.Assign(AreaCapture(dm.MENU_Left+veig05.Left+5, dm.MENU_Top + veig05.Top+Bevel1.Top+5, 1024, 530));

obrigado ....

Bom dia , existe a possibilidade de commitar minha atualizacao , pois com a alteracao , consegui homologar .. desde ja agradeço Adilson PAZZINI

Bom dia, Acima postei um Ajuste no código , alguém poderia commitar por favor .. o banco Homologou . Desde ja agradeço Adilson PAZZINI

Pelo que entendi o componente rlLogo ta com a propriedade Heigth = 1 . e quando e feito essa parte Assim deu certo Juliomar //Detalhes de Dimensionamento LogoTipo {$IfNDef NOGUI} rlLogo.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo); if rlLogo.Visible then begin rlLogo.Height:=LogoHeigth+1; imgLogo.Picture.Assign( ACBrSATExtrato.PictureLogo ); imgLogo.Center := LogoCenter; imgLogo.Width := LogoWidth; imgLogo.Height := LogoHeigth; imgLogo.AutoSize := LogoAutoSize; imgLogo.Stretch := LogoStretch; end; rlLogoCanc.Visible := LogoVisible and Assigned(ACBrSATExtrato.PictureLogo); if rlLogoCanc.Visible then begin rlLogoCanc.Height:=LogoHeigth+1; imgLogoCanc.Picture.Assign( ACBrSATExtrato.PictureLogo ); imgLogoCanc.Center := LogoCenter; imgLogoCanc.Width := LogoWidth; imgLogoCanc.Height := LogoHeigth; imgLogoCanc.AutoSize := LogoAutoSize; imgLogoCanc.Stretch := LogoStretch; end; {$EndIf} Adilson Pazzini ACBrSATExtratoFortesFr.pas