RicardoVoigt

Bom dia, espero que esta ideia ajude, no meu sistema eu fiz uso da tabela (Firebird) do CANTU (http://www.firebase.com.br/artigo.php?id=2862) e montei um algoritmo com um laço de 8 até 2 onde busco por parte do ncm até encontrar o CEST. cest := ''; i := 8; while (i >= 2) and (cest = '') do begin // busca na tabela o cest usando parte do ncm qryBuscaCEST.Close; qryBuscaCEST.SQL.Clear; qryBuscaCEST.SQL.Add('select CEST from TAB_CEST'); qryBuscaCEST.SQL.Add('where NCM = :NCM and char_length(NCM) = ' + IntToStr(i)); qryBuscaCEST.ParamByName('NCM').AsString := Copy(ncm, 1, i); qryBuscaCEST.Open; if qryBuscaCEST.FieldByName('CEST').AsString <> '' then cest := qryBuscaCEST.FieldByName('CEST').AsString; else dec(i); end; Enfim, caso não encontre, o campo está aberto para o usuário digitar no cadastro do produto. Att Ricardo

Bom dia, hoje de manhã, comecei a testar e achei onde está a causa do erro. No evento FormCreate, COMENTEI a seguinte linha e o erro sumiu: ScrollBox.VertScrollBar.Position := 0; OBS: Inseri a linha no evento FormShow e funcionou normalmente. Att Ricardo

Tente instalar, rodar , registrar as dlls capicom... como Administrador...

Complementando, os 2 pcs onde compilei e rodei o ACBrMonitorPLUS são 32 bits.

Boa noite, detectei a seguinte situação: - fonte atualizado - compilei o ACBrMonitorPLUS no Lazarus versão 1.6 Ao executá-lo, na caixa "Respostas enviadas" da tela inicial, aparece a seguinte mensagem de erro: TWinControl.ScrollBy_WS: Handle not allocated Obs: o mesmo ocorreu em 2 computadores diferentes, um com Windows XP e outro com Windows 7. Att Ricardo

Oi, Não implantei ainda múltiplos pcs usando o mesmo monitor, mas acho que essa ideia pode funcionar: 1. Meu programa salva o arquivo do monitor (com o comando EnviarNFe) com o mesmo nome do XML da nf-e, mas extensão ".TXT", na pasta de entrada. 2. Depois meu programa fica esperando o respectivo arquivo de resposta com o mesmo nome do XML, mas extenção "-resp.TXT", na pasta de saída. Acho que, assim cada estação grava sua NFC-e, vc teria de programar para receber o retorno da nota e não um nome de arquivo "genérico" como SAI.TXT Att Ricardo

Bom dia, sugestão de como eu faço: configuro para monitorar a pasta, e meu programa salva lá dentro o arquivo TXT contendo o comando EnviarNFe com o mesmo nome do XML, mas extensão TXT, assim na pasta de saída fica salvo o histórico de todas as respostas, de cada NF-e enviada, como uma com seu respectivo "-resp.TXT" Att Ricardo

Olá, atualizei aqui e verifiquei que, rodando o MonitorPLUS, notei que a "ancoragem" do componente speProdutosPorPagina não ficou certo, tipo está pela direita. Quando maximiza a tela, ele vai pra baixo do "Decimais Quantidade". Att Ricardo

Bom dia, estou estudando o fonte do MonitorPLUS, e dentro do método ConfiguraDanfe, desconfiei da linha 6988. ACBrNFe1.DANFE.ProdutosPorPagina := speLargCodProd.Value; Achei melhor comentar pois pode ser um "bug", uma vez que na tela (aba Impressão), este componente speLargCodProd (TSpinEdit) se refere à "Largura Cód.Produto". Mais abaixo, na linha 7008 este componente é novamente usado para alimentar a seguinte propriedade: ACBrNFeDANFeRL1.LarguraCodProd := speLargCodProd.Value; Espero ter ajudado, Att Ricardo

Bom dia, no trunk2, ao invés do SaveToFile, use GravarXML... Att Ricardo A implementação de um colection seria para o caso de fazer o envio de um lote com várias notas de uma só vez (eu acho)... Att Ricardo

valeu mesmo, fazia muito tempo que tinha visto esse PDF e não lembrei dele... Att Ricardo

como fazer "download" dos fontes? na URL do SVN, ao inves de informar trunk2 no fim, deixe apenas trunk para puxar o trunk anterior... Acho que é isso... Att Ricardo

Uma dúvida, já que não encontrei no fórum vou pedir aqui, acho que ajudaria se alguém postasse a ordem correta dos pacotes a serem compilados e instalados, para fazer a instalação dos componentes no Lazarus... Att Ricardo

Também tenho tido ocorrências de "Erro interno" em alguns clientes de forma meio aleatória... As vezes muda o código na linha "Erro HTTP:" Att Ricardo

Essa dica acabou de me salvar agora há pouco... Att Ricardo

Bom dia, em primeiro lugar, aproveito para parabenizar o grupo pelo trabalho e iniciativa do projeto ACBr. Eu já conheço o ACBrMonitorPLUS, mas gostaria de fazer um questionamento, indo direto ao ponto, sobre ressuscitar o primeiro ACBrNFeMonitor do "trunk" anterior. Levanto essa hipótese pensando nos casos onde o objetivo se restringe "apenas" a emitir NF-e e NFC-e. Enfim, eu decidi por minha conta e risco, ajustar e compilar o projeto do primeiro ACBrNFeMonitor (trunk) usando os componentes do trunk2. Consegui compilar, mas ainda não testei em um ambiente onde tenha um certificado digital. Acredito que esta semana eu consiga fazer algum teste. Concluindo, realmente sei que, na prática, seria um "baita pepino" seguir com essa ideia por conta, assim sozinho, por isso pensei em abrir este tópico e tentar algum retorno de mais alguém interessado na ideia, ou ver se decido migrar de vez para o PLUS. Pensei também em ir registrando, em itens, quais foram os ajustes necessários até deixar redondo. Att Ricardo

Bom dia, gostaria de dar um "chute" pra ver se ajuda, nem sei se tem isso no Windows 10, mas lá vai... Nas "Opções da Internet", desmarcar aquela configuração "Verificar revogação de certificados do servidor". Att Ricardo

Bom dia, tudo atualizado aqui com trunk2, a princípio eu apenas troquei no meu sistema ACBrNFe1.NotasFiscais[0].SaveToFile(... por ACBrNFe1.NotasFiscais[0].GravarXML(); E agora dá esse erro: ID Inválido. Impossível Salvar XML Será que faltou configurar alguma propriedade nova no componente? Att Ricardo Blz, achei a solução, antes de GravarXML() chemei o GerarXML() Att Ricardo

oi, pois eh, esta assim no trunk, pelo que entendi a implementação dessa propriedade surgiu nesse tópico Anexei um xml + 2 pdfs de como fica sem definir altura (2 paginas) e com a definição da altura da pagina em 297mm (A4) onde coube tudo numa página... Obs: neste xml de exemplo seria uma venda a prazo, tenho uma opção no sistema onde o cliente pode incluir nas informações complementares uma espécie de "confissão de dívida", o que ajudou a "espichar" a impressão.... Att Ricardo TESTE-XML-PDF.zip

Ola, segue o ACBrDANFCeFortesFr.pas zipado para análise, para o trunk2... eu tinha criado a propriedade como PapelAltura, mas se acharem melhor mudar pra AlturaPagina ou PaginaAltura, está por vcs... Já aproveitei e colei junto a propriedade MargensAjustaveis tal qual foi publicada no trunk, de acordo com outro tópico aqui do fórum... Att Ricardo ACBrDANFCeFortesFr.zip

Ola, da uma lida nesse meu tópico, pode ser que resolva seu caso também... http://www.projetoacbr.com.br/forum/topic/21289-dúvida-acbrnfedanfcefortes-tamanho-da-página/ Nesse outro tópico eu postei um "bacalhau" compilado com a propriedade pra testar como ficaria a impressão... Espero que ajude... o problema é que a propriedade pra definir altura da página/papel ainda não foi postada no SVN, nem no trunk nem no trunk2 (justamente onde se encontra o monitorPLUS) estou no aguardo... Att Ricardo

Boa tarde, alguma previsão dessa propriedade MargensAjustaveis no trunk2 ? Att Ricardo

dae gurizada, acho que descobri como resolver essa parada.... Vamos por partes, para compilar o pacote FortesReportCE_Win32_D7_vcl.dpk, eu fiz o que descrevi acima: - removi as diretivas na unit RLUtils para "habilitar" a function CharInSet - em algumas units troquei "ifend" por "endif" Pacote compilado e instalado no Delphi 7, agora vem o detalhe para conseguir compilar seus projetos: No Library path, vc não pode incluir a pasta Source do Fortes, deve ser incluída a pasta Binary\Win32_d7_vcl onde se encontram os arquivos DCU e DCP compilados. OBS: o compilador ainda vai acusar falta do arquivo RLReport.res, é só copiá-lo da pasta Source para a pasta correta. Espero que dê certo aí pra vcs... Att Ricardo

será que a solução não está no arquivo "RLReport.inc" ?? onde é definido o parametro VCL... pelo que entendi, o problema está ai, o compilador do D7 não está entrando nos "IFDEF VCL"... Att Ricardo

bah...