edjal

Não. Me parece que o form está com o foco, porém no ícone SystemMenu (na borda), entende? quando teclo qualquer coisa, ai sim, o foco passa para o Edit. Fiz o seguinte para resolver: Deixei o form sem borda e criei uma borda superior com panel e um botão [X] fechar. Com isso esse icone (SystemMenu) não aparece e o problema fica resolvido, pois o foco vai 100% para o referido Edit, mas entendo que isso é uma gambiarra e fiquei curioso para entender o fato. Não posso dizer para o usuário: "tecle alguma coisa antes de inserir valor..." Esse menu da imagem abaixo aparece quando teclo [Enter] como se a borda do form estivesse focada!

Sim. Está setado justamente no Edit, inclusive ele é o primeiro da lista de tabulação, deveria receber o foco e até recebe. O cursor fica dentro dele só que não pisca, entende? Já coloquei uns testes no OnEnter desse Edit, por exemplo, mudar a cor dele e muda! Também enviar um texto para um memo do tipo " Entrei no EditX", também acontece sugerindo que o edit recebeu o foco, porém a digitação do primeiro caractere não entra, apenas do segundo em diante. Como disse na mensagem, se teclar [ENTER] abre aquele menu de sistema que fica no alto à esquerda da janela.

Prezados, Estou com um problema curioso num form da minha aplicação em Lazarus, o problema é o seguinte: Quando um determinado form de pesquisa é apresentado ao invés do foco ficar no Edit que receberia o valor para pesquisa o foco fica no SystemMenu da janela?!?!? Com isso, quando o usuário digita algum valor para ser consultado, o primeiro dígito é ignorado passando a entrar a partir do segundo. É como se o edit não estivesse com o foco, mas recebendo só depois que o usuário pressiona a primeira tecla, no caso o primeiro dígito, logo entra o valor incorreto. Ex.: para "1234" entra "234"; Sei que é o SystemMenu que está no foco, pois se teclo [Enter] assim que esse form abre, ele aparece. Já fiz diversos testes como: Mostrar o componente ativo num label quando o form é aberto (o edit está lá); Colocar EditX.setFocus no OnShow do Form; Usar o EditX no ActiveControl do Form... Nada disso resolveu. Resolvi retirando a borda e colocando um botão para fechar, mas confesso que gostaria de entender o por que disso e como resolver sem esse quebra galho.

Prezados, Estou precisando fazer uma leitura sequencial dos arquivos SPED FISCAL do ano inteiro e notei que após carregar um mês e fazer o processamento ao carregar o mês seguinte os registros do anterior continuam lá. Percebi isso, pois quando fui processar março os registros do inventário que constam no de fevereiro estavam sendo processados novamente. Como faço para substituir um pelo outro?

Era um produto com Alíquota do ICMS em branco. Muito obrigado.

Estou com o seguinte problema na hora de salvar o arquivo SPED "Parâmetro Value não passui um valor numérico" Isso acontece na hora que chamo o método : ACBrSPEDFiscal1.SaveFileTXT;

Obrigado Daniel.

Prezados, Não estou conseguindo usar: ACBrValidador1.FormatarMascaraDinamica(). Lazarus 2.0.12 - FPC 3.2.0 devolve o seguinte erro: Error: identifier idents no member "FormatarMascaraDinamica".

Deixar de imprimir a razão social no DANFCe e imprimir apenas o nome Fantasia é ilegal? É possível fazer isso com ACBrNFeDanfCeFortes? Obrigado.

Prezados, Preciso construir um relatório que mostre os detalhes de uma consulta totalizados por grupo, isso é fácil. Porém, no final do grupo (Sumário) relatório preciso mostrar os totais agrupados por categoria. Não é simplesmente o somatório de uma ou mais colunas, isso é fácil, mas o total agrupado por um valor específico de cada item. Pensei em criar uma tabela temporária para ir agrupando os totais de acordo com os registros (categorias) dos ítens. Não sei como fazer isso (mostrar os itens dessa tabela temporária), como se fosse um novo relatório dentro do Summary. Seria como um subrelatório pegando detalhes de outro dataset. Lazarus+Zeos+FortesReportCE Exemplo.txt

Daniel, talvez eu não tenha me expressado bem ou não coloquei o problema com clareza. Entendo que qualquer botão, quando recebe o foco, é acionado sim com o [ENTER] . É claro que o [TAB] vai passar para o próximo controle, mas [ENTER] dispara sim o evento OnClick do botão. Num formulário Modal, se o botão tem a propriedade "Default" setada em TRUE, ele é acionado mesmo sem foco, isso é verdade, mas não é disso que estou falando. O que está ocorrendo é, como disse no início, se tenho um TDINoteBook e um botão no Form, esse botão, mesmo com foco nele, não é acionado pelo [ENTER]. Sugiro que você faça o seguinte: Abra o exemplo do TDINotebook e execute; Com o projeto em execução abra um novo Form1; Vá apertando [TAB] até alcançar o botão "Close Form" e dê [ENTER]. Observe que vai disparar o OnClick dele. Encerre o programa e volte ao projeto; Coloque um ACBrEnterTab e configura TabAsEnter = "TRUE"; Repita o procedimento acima e verá que o evento não é disparado com o [ENTER] quando deveria. A idéia do EnterTab é simular o TAB ao pressionar enter, mas se o controle ativo não for um botão.

Daniel, eu uso Lazarus. Como te disse anteriormente usei o demo, só esqueci de mencionar que era do Lazarus.

Simples Daniel. Coloque um ACBrEnterTab no Form1 do Demo ativando o EnterAsTab e execute. Pressione enter quando o foco estiver no button1 que o cursor irá para o próximo controle não acionando o evento onclick do button.

Prezados, O componente TACBrEnterTab não está assumindo o comportamento padrão para a tecla [Enter] (quando deveria) se o controle ativo é TButtonControl em um form criado no TTDINotebook. Talvez o problema esteja aqui: A Linha 172 de TACBrEnterTab.pas está assim: try if not (AForm is TForm) then exit ; Por enquanto estou desativando o EnterAsTab na entrada e ativando na saída do botão para contornar.

PageCount - Peço desculpas pela postagem desnecessária.

Estou precisando saber a quantidade de abas abertas no TDINotebook. Não encontrei nada como "count". Alguma dica?

No caso a orientação a objetos que você se refere é criar novas classes para todas as entidades do sistema como no PHP com os métodos Get e Set? Pensei em fazer isso, mas vai demandar muito tempo e implicaria em reestruturar todo a aplicação, também perder um pouco a idéia de RAD da IDE. Quando comecei a migrar pra Lazarus e escolhi Zeos para acesso aos dados não sabia desse pequeno incoveniente. Quanto à chamada a uma função também ficou claro. Por enquanto vou editando as propriedades DisplayFormat dos campos. Obrigado pela dica.

Os dados numéricos do são apresentados no DBGrid em notação científica (3,1E4 por exemplo). Estou usando o DisplayFormat para resolver isso, porém preciso alterar em todos os campos do DataSet. Existe alguma solução automatizada para resolver isto? (Lazarus IDE: 2.0.6, FPC: 3.0.4 - TZQuery Zeos - Firebird)

Daniel, obrigado pela resposta. Funcionou, mas pensava em algo mais automatizado como no windows onde os formatos são preenchidos conforme definido no Sistema. Entendo que Linux é outro mundo e vou precisar me adaptar.

Errei no título do post, era para ser EFD ICMS/IPI mesmo. Obrigado a todos pela ajuda.

Os componentes que citei acima juntos têm sim todos os blocos necessários, mas eu posso usar dois componentes para gerar uma declaração?

Prezados, Qual componente devo usar para gerar a "EFD ICMS IPI"? Baixei a NT 2019.001 v1.0 e comparei com os programas exemplo (Sped Fiscal e SpedPisCofins) e percebi que na NT existem blocos dos dois. (Que são exigidos, mas não estão presentes num ou no outro). Exemplo: Se usar o ACBrSpedFiscal tenho "BLOCO 0" e "BLOCO C", mas não tenho o "BLOCO B" (no programa exemplo) Já no ACBrSpedPisCofins tenho "BLOCO 0", "BLOCO B", mas não o "BLOCO E" obs: Quando digo: "não tenho" estou me referindo ao botão nos programas exemplo do Lazarus.

Mais uma vez, obrigado.

Prezados, Gostaria da opinião dos colegas sobre como proceder para lidar com a seguinte situação: Um cliente compra um produto "A" de uma loja de varejo, arrepende-se e volta para trocar esse produto por outro R$ 10,00 mais caro. Nesse caso, a loja recebe a mercadoria e recoloca na prateleira, dando ao cliente um Voucher, Vale-Crédito ou similar no valor da mercadoria de entrada para uma nova compra que pode ser feita imediatamente ou numa data futura, data esta que pode ultrapassar o exercício de apuração do ICMS (mensal). Ex. Devolução no dia 30, nova compra no dia 1º. Pergunto: a) A loja emite a nota de entrada por devolução referenciando a NFC-e de saída, mas quais são os dados que devem constar nos campos do destinatário? O cliente (Pessoa física, não contribuinte) ou a própria loja - Pergunto porque já vi/ouvi as duas possibilidades. b) Essa nota de entrada pode ser subtraída do faturamento do mês para fins de cálculo de ICMS, visto que empresas do SIMPLES Nacional não apuram o imposto pelo resultado das Entradas X Saídas? O motivo dessas perguntas básicas e talvez já discutidas nesse espaço, é que não consigo encontrar respostas uniformes na internet nem mesmo com alguns contadores, por incrível que pareça. Também entendo que essa questão parece mais para um fórum de contabilidade, mas percebo que, a cada dia que passa, nossa profissão, ou nossos produtos, se confundem com uma assessoria contábil, tanto para os nossos clientes quanto para o Estado. Desde já peço desculpas pela delonga e fico no aguardo de qualquer comentário que possa nos ajudar. Abraço.

Prezados, Estou tendo dificuldade com máscaras para os TStringFields no Lázarus. O problema é o seguinte: Tenho um form com um DBEdit ligado ao TStringField cujo campo é um número de telefone; Estou atribuindo a máscara: "(99)9999.9999;0;_" à propriedade "EditMask" desse componente TStringField como faço no Delphi, porém o comportamento do DBEdit no Lazarus, não é o mesmo do Delphi. O DBedit só fica formatado com máscara " (91)8181.8181 " enquanto o está sendo editado, perdendo a formatação assim que o foco sai do componente. Ex.:" 9181818181 ". Existe alguma propriedade que estou deixando de configurar no DBEdit ou TStringField? ou esse é o comportamento "normal" desses componentes no Lazarus? OBS.: Uso Lazarus 1.8.2; Firebird; Zeos (Windows 8.1)