Atenas Soluções Softwares

Tem 2 maneiras , 1 - Utilizar o próprio TTreeView nativo programando para este resultado . 2 - Utilizar um componente de 3º (Anexei um com fonte zTreeView que já utilizei em alguns projetos) Boa sorte zTreeView.rar

Não tem este recurso pelo componente , vc pode se quiser utilizar chamadas em paralelo na sua AC através da DLL .

Nova atualização , 1 - Como estão sendo criado alguns Eventos , reinstalem o componente . 2 - Utilizem o Demo em anexo . ACBrNCMs.rar Demo_ACBrNCMs.rar

Nova atualização , 1 - Como estão sendo criado alguns Eventos , reinstalem o componente . 2 - Utilizem o Demo em anexo . ACBrNCMs.rar Demo_ACBrNCMs.rar

Bom dia a todos , Foi criado 2 novos Eventos no componente , disponibilizado o Demo para avaliarem . Nesta atualização as ncm's listadas já vão sendo disponibilizadas . Obs : Reinstalem ACBr_TCP com a nova unit . ACBrNCMs.rar Demo_Delphi.rar

Marcião , bom dia , estou efetuando alterações na lista completa , hj ainda disponibilizo aqui pra testes .

No meu normal ! Vc atualizou como descrevi acima ???

Entendo Vagner , não sei como vcs utilizam em vossas soluções ; No meu caso acho que seria inviável a cada chamada ao componente digitar Captcha , porque tenho clientes que ao criar uma NFe o sistema já valida todas as NCM's em massa sem digitar nada . A não ser que digitando uma única Captcha na primeira chamada resolva o resto !

Para que seria a necessidade de digitar Captcha ??

1 - Pelo menos por enquanto continua não necessitando de Captcha , houve apenas nova alteração no link . 2 - Ao copiarem a unit ACBrNCMs.pas em anexo , vcs terão que reinstalar ACBr_TCP.dpk , lembrando primeiramente de excluir ACBr_TCP.bpl anterior (Se não conseguirem reinstalem a Suite ACBr completa novamente e é claro com ACBrNCMs.pas modificada na pasta dos fontes de instalação) . ACBrNCMs.rar

Bom dia Pessoal , Testem por favor no formato que esta e vamos optimizando ok . ACBrNCMs.rar Demo_Delphi.rar

Pessoal , realmente pra listar as ncms está complicado , implementei um TLabel + TProgressbar na chamada de ListarNcms do componente , não sei se o Daniel vai permitir isso no componente !!!! Vejo essa implementação nescessária para mostrar um status nesta chamada porque está realmente grande o processamento disso . Particularmente não utilizo está chamada de listar Ncms em minhas aplicações somente utilizo a Validação mesmo mas como não tratamos o forum com egoísmo vamos sofrer juntos pra tentar melhorar isso !!! Na segunda feira pela manhã posto aqui pra vcs avaliarem . Abraço

Nova Alteração ... Conforme testes que fomos efetuando surgiram alguns ajustes que estão sendo implementados ok ACBrNCMs.rar

Nova alteração ACBrNCMs.rar

Em anexo correção do componente na validação de NCM's ACBrNCMs.rar

Componente em anexo corrigido , testarem por favor !!! ACBrNCMs.rar

Na verdade não precisa colocar captcha , o problema esta em na SubPosição 1 e SubPosição 2 que em algumas ncm's nescessitam para que o Objeto HTTPGet retorne a lista de Ncm's . Consegui alterar o componente para quando não existe SubPosição 1 e SubPosição 2 na pesquisa da NCM , estou ainda pensando uma maneira de se fazer isso , porque o looping vai ficar imenso para retorno caso seja necessário preencher estes 2 campos para o retorno .

A minha solução para o momento foi utilizar um ifthen(ACBrECF.Modelo = ecfECFVirtual , Aliquota , Indice) para informar a Aliquota no ACBrECF.VendeItem , ja que tenho utilizado o ACBrECFVirtualSat e inteligentemente ele absorve no objeto Det no evento OnVendeItem as demais tags para gerar o XML do cupom Sat . Tenho estudado em dar um UP para o método ACBrECF.VendeItemEX .

Daniel , o problema é na minha estrutura de banco de dados mesmo e os componentes estão perfeitos . Muito obrigado cara pela ajuda .

Então Daniel , No metodo ACBrECF.VendeItem em Aliquota informamos o Indice que pode ser T01 , FF etc... ou o percentual da Alíquota , certo ? No meu caso eu utilizo por indice e para ECF's funciona porque ele não edita nada porque ja esta cadastrado no ECF o padrão da Aliquota T01 , T02 etc... , mas no caso do ACBrECFVirtualSat ele modifica os indices no ini . Não quis modificar o componente para sugestão porque o pessoal deve ter um formato diferente de utilizar , eu criei uma solução na AC que somente quando for ECFVirtual informo no ACBrECF.VendeItem a Aliquota em % e não o índice que pega no ini , porque no meu caso usando Virtual e buscando o indice da Aliquota que vem do ini ele da "Alíquota 'XX' não encontrada" em algumas alíquotas ! , fica divergente o meu índice informado do meu banco com o do ini . Obrigado Daniel

Bom dia Daniel , Então , como o componente reposiciona os índices no .Ini eu perco a minha sequencia do meu cadastro , as alíquotas estão cadastradas só que a sequencia dos índices das alíquotas se alteram , por exemplo : O meu indice = 05=6|03|18,00|T|0| altera para 08=9|09|18|T|0| e não há mais oque programar em alíquotas . Utilizo ACBrECF.VendeItem e na Aliquota coloco o indice e não Aliquota . ACBrECF.VendeItem( Prod_Atual.Prod_cEAN , // Código de Barras Prod_Atual.Prod_xProd_Redusida , // Descrição Prod_Atual.Imposto_ICMS_ECF , // Indice da Aliquota = FF , II , T01 , T02 .... ====>>> Aqui Prod_Atual.Prod_qCom , // Quantidade Prod_Atual.Prod_vUnCom , // Valor Unitário Prod_Atual.Prod_vDesc , // Valor Desconto / Acréscimo Prod_Atual.Prod_uCom , // Unidade de Medida Prod_Atual.Prod_Tipo_Desc_Acresc , // Tipo do Desconto/Acréscimo se '%' ou '$' Prod_Atual.Prod_Desc_Ou_Acresc) ; // 'D' ou 'A' Obrigado Daniel

Boa noite , Utilizo o ACBrECFVirtualSat e tenho o cadastro de Alíquotas de Icms normal , F1 , T18 , etc... na retaguarda . Quando carrego a AC carrego tambem em ACBrSat.ini reescrevendo estas configurações do meu cadastro de índices da minha retaguarda que fica assim : [Aliquotas] // Meus indices 00=1|FF|0,00|T|0| 01=2|II|0,00|T|0| 02=3|NN|0,00|T|0| 03=4|01|7,00|T|0| 04=5|02|12,00|T|0| 05=6|03|18,00|T|0| 06=7|04|25,00|T|0| 07=8|05|18,00|T|0| 08=9|06|18,00|T|0| 09=10|07|12,00|T|0| 10=11|08|11,00|T|0| ...quando ativo o ACBrECFVirtualSat ele tem um método interno que é procedure TACBrECFVirtualClass.AtualizarAliquotasMemoria; que reposiciona todos os meus indices rescrevendo o arquivo ACBrSat.ini e não consigo ter o controle destes índices modificando e deixando como abaixo : [Aliquotas] // Indices que o componente reposiciona 00=1|F1|0|T|0| 01=2|I1|0|T|0| 02=3|N1|0|T|0| 03=4|FS1|0|S|0| 04=5|IS1|0|S|0| 05=6|NS1|0|S|0| 06=7|07|7|T|0| 07=8|08|12|T|0| 08=9|09|18|T|0| 09=10|10|25|T|0| 10=11|11|18|T|0| 11=12|12|18|T|0| 12=13|13|12|T|0| 13=14|14|11|T|0| Gostaria por gentileza saber dos colegas como estão lidando com este caso ? Obrigado

Bom dia @Daniel Simoes e demais colegas , Tenho utilizado este recurso em minha AC com o ACBrTEFD e alguns clientes estão acostumado a este recurso , alias é comum hj nos Softwares Comerciais a captura do Cpf e Cnpj pelo PinPad . Em se falando do recurso implementado no ACBrTEFD , tivemos um problema "AV" em locais distintos no Delphi ao debugar quando capturado "Somente o CNPJ" utilizando a chamada ObtemDadoPinPadDiretoEx . A correção veio na alteração da chamada a DLL para ObtemDadoPinPadEx , a diferença entre as duas chamadas é que ObtemDadoPinPadEx retorna o solicitado em ContinuaFuncaoSiTefInterativo no campo 670 . Resolvi então criar uma unit separada de acesso a DLL CliSitef , ou seja , trabalho o TEF com o ACBrTEFD e utilizo a chamada separado somente para captura de Cpf e Cnpj fora do componente , neste caso desativo o ACBrTEFD antes da captura e esta funcionando bem . Vou postar aqui a unit pra quem quiser utilizar . Obrigado Daniel . Unit_TEF_Util_Sitef.pas

Bom dia @Daniel Simoes , tudo bem ?! Atualizei hj os fontes e percebi que ainda não foi implementado ao componente este recurso , por gentileza , teria como verificar por favor ? Grato .

for i := 0 to Arquivo_List.count -1 do showmessage('Conteudo Linha = ' + inttostr(i) + ' = ' + Arquivo_List.Strings);