Rodrigo Cardilo

@paulo aquino eu fiz funcionar em outras máquinas com Windows 7. somente uma (que é win7 professional) não tá danto certo.

Bom dia Galera, Estou com problema em somente um cliente. Em outros já está funcionando ok. Já tentei todas as alternativas descritas aqui e não deu certo (inclusive atualizei Framework). Lá é Win 7 Professional com Service Pack 1. Segue o erro.

Consegui dessa forma com certificados A1. Com A3 não deu certo.. Alguém sabe porque?

Aparentemente voltou sem eu precisar mudar nada no sistema. Continuo com o wincripty sem problema algum. É bem provável que seja instabilidade no SEFAZ MG. Grato luisclaudio_jr.

Aí complicou pois abandone o capicom a muito tempo. Será que pode ser o algum problema de certificado?

Boa tarde amigos, Começou hoje a tarde um problema em todos meus clientes na hora de enviar CT-e em MG. Rejeição: Falha no Schema do Xml do CTe. Alguém está passando pelo mesmo problema?

Perfeito Marcelo, Resolveu meu problema. Muito obrigado.

Boa tarde, Eu criei uma aplicação simples utilizando firedac para conectar ao banco de dados MySql hospedado na hostgator. Utilizei o FdConnection, FdTable e um DataSource. Consigo abrir a tabela e visualizar os dados na DbGrid. Quando tento alterar alguma informação na grid e dar o ApplyUpdates depois de alguns segundos (tipo 30 segundos) aparece o seguinte erro: "Lost connection to MySQL server during query" O curioso é que se eu abrir a tabela e alterar rapidamente (em menos de 10 segundos) dá certo e inclusive grava no banco. Alguém sabe me dizer como faço pra resolver? Grato desde já.

@EMBarbosa perfeito. acrescentei row 1 to 50 e ficou infinitamente mais rápido. Já implementei e o usuário está feliz.. (rs) Mas confesso que não entendo o porque dessa demora. Você sugere alguma mudança no componente? Te agradeço muito pela solução desde já. Você deixou muita gente feliz nesse começo de semana (kkk).

@EMBarbosa concordo plenamente com você. Quanto tentei usar o profiler confesso que não entendi muito o funcionamento. E só mostrou resultados para a ntdll. Não achei nada sobre o assunto no google e por isso não insisti. Fiz vários testes. Por exemplo: Numa tabela com 500 registros não tenho problema algum de lentidão. Quando faço uma consulta o retorno dos registros também é muito mais rápido que no obsoleto DBExpress. Porém, na principal tabela do meu sistema que é a de vendas e onde eu preciso de maior agilidade está acontecendo isso. Tenho uma outra tabela com 500000 registros que também acontece o mesmo problema. Outro teste que fiz foi uma conexão direta, sem Datasnap. As coisas mudam. A gravação é bem mais rápida. Por isso postei ajuda aqui pois não sei se muda alguma coisa no Datasnap. Comecei a testar outras alternativas aqui e se puderem me dar sugestões eu agradeço desde já.

@EMBarbosa eu tentei usar.. Mas não mostrou nenhuma novidade. Confesso que não sei usar a ferramenta direito mas, como te disse antes, é no applyupdates que a coisa trava. Eu já fiz um teste com o sql direto (INSERT INTO......) e aí funciona bem mais rápido. Mas aí vou ter que abandonar o clientdataset e é quase impossível modificar essa estrutura toda. Estou pensando em voltar pro DbExpress ou Unidac, segundo relatos de outros que tiveram problema parecido. Lembrando que minha aplicação cliente utiliza DATASNAP. Gostei muito do Firedac mas com essa lentidão tá complicado.

@EMBarbosaInfelizmente não sei usar nenhum dos profiles. Mas utilizando o POG (Programação orientado a gambiarra) eu achei o momento da lentidão. Está exatamente no ApplyUpdates. Daí concluí que é realmente não hora de gravar. E tenho certeza que não está vindo nenhum registro pois a tabela abre rapidamente (atualizando que a quantidade de registros da tabela Mestre (Venda) é de 1.600.000 aproximadamente. Estou pensando em abandonar o Firedac

Um resumo da estrutura @EMBarbosa Servidor: Firedac, AdQuery, Provider Cliente Datasnap: ClientDataModule(no caso é a TB10000) e datasource Eu utilizo o Insert mesmo. O packetrecords eu mantenho 0 para não vir registro algum mesmo. Fiz um teste com o DBExpress e a performance é bem melhor.

DM1.TB10000.PacketRecords := 0; DM1.TB10000.Open; Antes de abrir a tabela eu tomo esse cuidado. Utilizo o código acima e depois insiro os dados tanto na tabela mestre (VENDA) como na details (itens). Para gravar, utilizo o código abaixo. DM1.TB10000.POST; DM1.TB10000.APPLYUPDATES(-1); Interessante que antes no DbExpress funcionava bem mais rápido. As consultas e gravação em tabelas com menos registros funciona bem, sem problemas.

Oi amigo, Qual versão do Unidac você está utilizando. Estou com o mesmo problema. Grato

Prezados, Migrei um sistema multi camadas para o Firedac a algum tempo e percebi uma lentidão para gravar em algumas tabelas com muitos registros. Minha estrutura é Servidor de Aplicação com Firedac, Cliente Datasnap utilizando ClientDatamodule. O problema só acontece quando tento gravar uma tabela com mais de 500.000 registros (Tabela de Venda) Alguém já passou por isso e conseguiu alguma solução? Grato desde já,

Também percebi isso e concordo mas, como eu disse anteriormente, eu utilizei um auditor independente que apresentou como possível motivo para advertência por alguns SEFAZ. Achei interessante compartilhar a informação. A alguns meses o SEFAZ/MG notificou um cliente a utilizar a seriação dos documentos fiscais com 3 zeros. Exemplo: Nota 10 Série 1 tem q ser apresentada como Série 001. Parece besteira mas uma discussão com a fiscalização é inútil.

Bom dia, Segue unit corrigida. Aguardo atualização no svn. ACBrEFDBloco_C_Class.pas

A quem possa interessar resolvi mudando a seguinte linha na unit ifthen(FBloco_0.Registro0000.COD_VER > vlVersao111, LFill(VL_ABAT_NT, 0, 2, True), ''); para ifthen(FBloco_0.Registro0000.COD_VER > vlVersao111, LFill(VL_ABAT_NT, 0, 2), ''); Segue anexo arquivo corrigido. ACBrEFDBloco_C_Class.pas

Prezados, Averiguei um problema na geração do registro C170. O campo Vl_ABAT_NT tem que ir zerado (utilizo auditor para conferir os arquivos). Porém ele está indo vazio. Achei essa linha na unit ACBrEFDBloco_C_Class ifthen( FBloco_0.Registro0000.COD_VER > vlVersao111 ,LFill( VL_ABAT_NT, 0, 2,True ),''); Porém já alterei o valor e não funciona. Quando coloco um valor maior que zero ele gera sem problemas. Alguém pode me ajudar como resolvo esse problema? Grato

Ja tentei sim.. Não funciona. :(

Boa tarde amigos, Estou com um seguinte dilema. Criei uma tela de download onde eu não preencho a propriedade fACBrDownload.DownloadNomeArq. Portanto quando eu coloco a propriedade fACBrDownload.DownloadUrl o componente automaticamente salva o arquivo com o mesmo nome do arquivo da url. Eu gostaria de saber se tem como eu pegar o nome do arquivo após o download, ou seja, se eu digitei a url www.cardilo.com/remoto.exe eu queria obter o nome remoto.exe para eu executar automaticamente após o download. Preenchendo a propriedade fACBrDownload.DownloadNomeArq fica fácil, porém como vou deixar o usuário colocar a url nem sempre vou saber qual arquivo ele vai baixar. Segue exemplo do meu código: fACBrDownload.DownloadDest := '.\'; //aqui eu defini pra salvar o arquivo na mesma pasta do executavel fACBrDownload.DownloadUrl := Edit1.Text; //aqui o usuário digita a url fACBrDownload.StartDownload; Obrigado desde já

Boa tarde amigos, Eu acabei de receber a mesma recusa do amigo Fernando pelo Bradesco. Discuti com eles que no Manual (em anexo) não é explícito essa informação do Sequencial na linha 2 porém não tem discussão. Alterei o arquivo na mão e foi aceito perfeitamente. Fiz manualmente a alteração proposta pelo Fernando e não tenho mais problema com o Bradesco. ACBrBancoBradesco.pas 4008-524-0339-mp-operacionais-troca-arquivos-240-posicoes.pdf

Boa tarde amigos, Estou gerando o sped fiscal e o registro 0305 não está sendo gerado. Estou utilizando o código abaixo: with Registro0300New do begin COD_IND_BEM := DM1.TB07100CODIGO.AsString; IDENT_MERC := DM1.TB07100TIPO.Value; DESCR_ITEM := DM1.TB07100DESCRICAO.Value; COD_PRNC := ''; if DM1.TB07100TIPO.Value = 2 then COD_PRNC := DM1.TB07100CODPRINCIPAL.AsString; COD_CTA := DM1.TB07100CODCTA.AsString; NR_PARC := DM1.TB07100PARCELAS.Value; // FILHO with Registro0305New do begin COD_CCUS := DM1.TB07100CODCUSTO.Value; VIDA_UTIL := DM1.TB07100VIDAUTIL.Value; FUNC := DM1.TB07100FUNCAO.Value; end; end; Alguém sabe me dizer se estou fazendo algo errado pois no arquivo não aparece o registro 0305, somente o 0300. Grato desde já

Eu também estava com esse problema. Resolvi assim: ACBrNFe1.SSL.SSLXmlSignLib := xsLibXml2;