cefantacini

Legal, consegui pelo menos desabilitar o Ctrl D. O problema do Ctrl Z é que eu devo ter apertado o Ctrl D e não percebi e salvei e passou um tempo e depois percebi....daí já não dava mais para desfazer ...

Eu não estou conseguindo fazer a configuração formatação de código no lazarus, quando aperto Ctrl+D. Na verdade nem gosto dessa ferramenta, porém acho que acabei apertando isso acidentalmente alguma vez no passado e bagunçou meu código fonte. Agora não consigo configurar de forma a ficar da forma que eu prefiro. Se tiver alguém no grupo que tá mais familiarizado com essas configurações e puder me dar umas dicas. Eu prefiro manter o if then else como abaixo: if then begin end else begin end; E gostaria tbém depois de corrigir, desabilitar esse recurso para não acontecer de usar acidentalmente novamente. Não sei se muda alguma coisa mais o projeto é migrado do Delphi, porém o código foi desalinhado já no lazarus. Se alguém do grupo tiver alguma noção agradeço.

Estou fazendo uma simulação aqui, deixo a pasta de schemas vazia, carrego os dados da nota no componente e peço para validar, daí ele dá o erro. "Arquivo de Schema não especificado" Normal! Se na sequencia, eu copiar os arquivos de schemas para a pasta - com o sistema aberto mesmo -, carregar a nota novamente e validar novamente ele dá o mesmo erro. Porém agora os schemas estão na pasta. Existe alguma forma de eu forçar o "recarregamento" dos arquivos de schemas pelo componente?

Atualizei aqui e resolveu. Obrigado! Se quiser pode fechar o tópico.

Segue o XML 35210564707268000140550010000008471023179200-nfe.xml

Estou usando o Fortes.

Estou fazendo os ajustes do sistema para a nota técnica 2020.006. Consegui emitir nota normalmente usando a tag xPag. Porém um dúvida/sugestão. Meu componente DANFE está configurado a propriedade ExibeCampoDePagamento = eipQuadro. Porém, se usada a forma de pagamento 99 e a tag xPag for preenchida, no DANFE, não aparece o valor do xPag e sim a palavra Outro. Existe alguma configuração adicional para que passe a aparecer o valor da tag xPag ou o comportamento será esse mesmo?

Eu consegui resolver, da seguinte forma: Selecionei todos os controles (Edit, ComboBox, BitBtn, etc) da tela (Shift pressionado + clique do mouse sobre o controle). Com todos marcados apertei Ctrl+X, ou seja, removi eles da tela. Compilei o programa que deu erro pq o código fazia referência aos controles. Voltei ao Form, apertei Ctrl+V e colei de volta, aí, o lázatus já cola nos mesmos locais. Pedi para o próprio lázarus fazer o alinhamento do TabOrder e o problema foi resolvido. Fechei, abri o projeto, testei, tudo ok. Se quiser pode fechar o tópico.

Daniel, a nova versão eu devo instalar na mesma pasta que estava a anterior antes de ser renomeada? Vc saberia me dizer qual a última versão estável?

Para o pessoal que está a costumado a utilizar o lazarus, qual a melhor forma de atualização? Depois de atualizado vai ser necessário reinstalar os componentes todos ou ele já assume? Qual seria a melhor versão estável atual?

mcarolino, no meu caso não tenho DBCheckBox na tela, tenho um CheckBox, tentei colocar a o tabstop dele igual a false porém o problema continua...

Daniel Os componentes estão todos sobre o form mesmo. Eu fiz um outro teste alterando a propriedade TabOrder dos componentes em vez de clicar o botão contrário no meio da tela e ir em ordem de tabulação. O problema persistiu. É interessante que eu compilo o projeto e em tempo de execução a ordem não é respeitada, se eu volto para o tempo de projeto a ordem está correta. Se eu fecho o projeto e abro de novo a ordem volta para a forma errada em tempo de projeto.

Eu tenho um form em um projeto lazarus, não está respeitando a ordem de tabulação. Eu configuro a ordem correta, compilo e ele não obedece. Se eu fechar o projeto e abrir de novo, mesmo em tempo de projeto a ordem de tabulação volta a ficar da forma que estava antes de eu configurar. Já apaguei a pasta lib e não resolveu. Alguém já passou por alguma coisa semelhante?

Eu testei no Delphi 7, mais importando pelo WSDL Importer do Delphi 7. De inicio, ficou idêntico ao Lazarus, os métodos de consulta funcionavam e o de envio de arquivo não. E o erro que dava no Delphi 7 era exatamente o mesmo do Lazarus. Eu localizei a solução para o Delphi 7 nesse tópico: http://www.activedelphi.com.br/forum/viewtopic.php?p=412350&sid=572ef584ded98979457f777f925abe2d Acontece que o Importer do Delphi 7 na Initialization, ficava originalmente da seguinte forma: initialization InvRegistry.RegisterInterface(TypeInfo(sngpcSoap), 'http://tempuri.org/', ''); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(sngpcSoap), 'http://tempuri.org/%operationName%'); Quando o correto seria: initialization InvRegistry.RegisterInterface(TypeInfo(sngpcSoap), 'http://tempuri.org/', ''); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(sngpcSoap), 'http://tempuri.org/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(sngpcSoap), ioDocument); Ao adicionar essa última linha, no Delphi 7 o problema foi totalmente resolvido. Por isso, acredito que o problema possa ser a ausência de algum registro na initialization do Lazarus. Porém não tenho idéia do que poderia ser. O Initialization do Lazarus depois de importado pelo Web Service Tool Kit fica da seguinte forma: initialization typeRegistryInstance := GetTypeRegistry(); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(ValidarUsuario_Type),'ValidarUsuario',[trioqualifiedElement]); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(ValidarUsuarioResponse),'ValidarUsuarioResponse',[trioqualifiedElement]); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EnviaArquivoSNGPC_Type),'EnviaArquivoSNGPC',[trioqualifiedElement]); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(EnviaArquivoSNGPCResponse),'EnviaArquivoSNGPCResponse',[trioqualifiedElement]); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(ConsultaDadosArquivoSNGPC_Type),'ConsultaDadosArquivoSNGPC',[trioqualifiedElement]); typeRegistryInstance.Register(sNAME_SPACE,TypeInfo(ConsultaDadosArquivoSNGPCResponse),'ConsultaDadosArquivoSNGPCResponse',[trioqualifiedElement]); É completamente diferente do Delphi 7.

Valeu Juliomar Eu fiz o que vc disse, peguei uma rotina na internet para fazer... Mais o problema persiste, vou postar com as alterações, se vc ou alguém do grupo puder dar uma olhada ... Anvisa.rar

Vou te passar os detalhe de acesso que tenho aqui no private.

Grande Juliomar Obrigado pela sugestão! O Exemplo está em anexo... Anvisa.rar

Eu importei o WebService da ANVISA com o Web Service Toolkit do Lazarus: http://sngpc.anvisa.gov.br/webservice/sngpc.asmx Para o métoido EnviaArquivoSNGPC ele criou o tipo: EnviaArquivoSNGPC_Type = class(TBaseComplexRemotable) private FEmail : String; FSenha : String; FArq : TBase64StringRemotable; FHashIdentificacao : String; private function wstHas_Email() : Boolean; function wstHas_Senha() : Boolean; function wstHas_Arq() : Boolean; function wstHas_HashIdentificacao() : Boolean; public constructor Create();override; procedure FreeObjectProperties();override; published property Email : String read FEmail write FEmail stored wstHas_Email; property Senha : String read FSenha write FSenha stored wstHas_Senha; property Arq : TBase64StringRemotable read FArq write FArq stored wstHas_Arq; property HashIdentificacao : String read FHashIdentificacao write FHashIdentificacao stored wstHas_HashIdentificacao; end; Eu não estou conseguindo usar o parametro Arq: TBase64StringRemotable Pelo que eu pesquisei eu deveria registrar alguma coisa com a propriedade: RegisterAttributeProperty() Porém não estou tendo êxito Código da chamada .... var ClasseSNGPC : sngpcSoap; Arquivo : EnviaArquivoSNGPC_Type; . . . begin SYNAPSE_RegisterHTTP_Transport( ); ClasseSNGPC := wst_CreateInstance_sngpcSoap( ); Arquivo := EnviaArquivoSNGPC_Type.Create(); Arquivo.Email := eMail; Arquivo.Senha := Senha; Arquivo.Arq.EncodedString := StringBase64; Arquivo.HashIdentificacao := Hash; try ClasseSNGPC.EnviaArquivoSNGPC( Arquivo ); except on e: Exception do ShowMessage( E.Message ); end; Mensagem de erro: Service exception : Code = "soap:Server" Message = "System.Web.Services.Protocols.SoapException: Server was unable to process request. ---> System.ArgumentNullException: Value cannot be null. Parameter name: buffer at System.Security.Cryptography.HashAlgorithm.ComputeHash(Byte[] buffer) at sngpc.sngpc.GetMD5HashFromByte(Byte[] file) in C:\inetpub\wwwroot\sngpc\webservice\sngpc.asmx.cs:line 479 at sngpc.sngpc.EnviaArquivoSNGPC(String Email, String Senha, Byte[] Arq, String HashIdentificacao) in C:\inetpub\wwwroot\sngpc\webservice\sngpc.asmx.cs:line 902 --- End of inner exception stack trace ---" Se alguém tiver alguma sugestão...

Eu consegui gerar usando o exemplo do Elviro. Alguém teria exemplo de transmissão do arquivo?

Deu certo Daniel, resetei a impressora e usei as informações desse tópico: Para conseguir retroceder a etiqueta ... Funcionou tudo certinho, se quiser, pode fechar o tópico.

Daniel, era isso mesmo, resolveu a comunicação. Agora estou com um problema que é quando a imprime, depois que termina a impressão ela "joga" um punhado de etiqueta pra frente, vc poderia me ajudar com isso? Em relação aos comandos ImprimirTexto, ImprimirBarra e ImprimirCaixa, teria alguma forma de eu consultar a definição dos parametros que são passados, para ficar mais fácil para eu posicionar a informação?

Estou começando a configurar a impressão usando o exemplo do ACBr. Eu seleciono a porta da impressora que já aparece montada no box e peço para enviar uma etiqueta simples e não imprime. O led da impressora READY apaga por aproximadamente 1 segundo e depois acende de novo e a impressão não sai. Vou postar o print da tela do programa de exemplo. Imagino que esteja faltando configurar alguma coisa, porém não estou acostumado com o ACBrETQ.

Consegui fazer usando o fortes mesmo, impressão direta como se fosse uma bobina. Se quiser pode fechar o tópico.

Alguém que já tenha feito impressão para essa impressora poderia me dar alguma dica ou passar alguma rotina de como ela trabalha? Obrigado!

Sei que o assunto não tem nada a ver com o0 ACBr e nem Delphi/Lazarus, porém como o pessoal do grupo se ajuda muito, vou postar para o caso de alguém conseguir me ajudar. Instalei uma loja prestashop e instalei um módulo dos correios, porém o primeiro cálculo está bem lento. O pessoal do suporte do módulo que eu comprei me orientou a fazer uma configuração no arquivo php.ini, semelhante a essa: soap.wsdl_cache_dir = /home/usuario/wsdl soap.wsdl_cache = 3 Simples, cria uma pasta no servidor e direcionar o cache para ela. Porém o meu servidor é compartilhado e eu não tenho acesso ao php.ini, então o pessoal do suporte do servidor me orientou a inserir a configuração no arquivo .htaccess. Porém eu não sei a sintaxe correta e nem onde inserir essa informação no arquivo. Parece bem simples, porém já pesquise muito na internet e não encontrei solução. Se alguém puder me ajudar o arquivo .htaccess está em anexo..... .htaccess