Painel de líderes

Eu faço dessa forma ... talvez ajude if Key=13 then begin ListBox.Items := Separar(eConsulta.Text,' '); qProdutos.Close; qProdutos.SQL.Text := 'select * from PRODUTOS where DESCRICAO like :vD1'; qProdutos.ParamByName('vD1').AsString := '%'+ListBox.Items.Strings[0]+'%'; if Listbox.Items.Count >= 2 then begin qProdutos.SQL.Add('and DESCRICAO like :vD2'); qProdutos.ParamByName('vD2').AsString := '%'+ListBox.Items.Strings[1]+'%'; end; if Listbox.Items.Count >= 3 then begin qProdutos.SQL.Add('and DESCRICAO like :vD3'); qProdutos.ParamByName('vD3').AsString := '%'+ListBox.Items.Strings[2]+'%'; end; if Listbox.Items.Count >= 4 then begin qProdutos.SQL.Add('and DESCRICAO like :vD4'); qProdutos.ParamByName('vD4').AsString := '%'+ListBox.Items.Strings[3]+'%'; end; qProdutos.SQL.Add('order by DESCRICAO'); qProdutos.Open; end; function Separar(Text: String; Break: Char): TStringList; var I: Integer; Pal: String; begin Result := TStringList.Create; if (Length(Text) = 0) or (Break = '') then Result.Add(Text) else for I := 1 to Length(Text) do if Text[I] = break then begin Result.Add(Pal); Pal := ''; end else Pal := Pal+Text[I]; if Pal <> '' then Result.Add(Pal); end;

Mais uma informação sobre a futura adesão de Minas Gerais à NFC-e: http://www.simi.org.br/noticia/bh-recebe-evento-que-promete-inovar-notas-fiscais-eletrônicas.html

Certo... vou tentar novamente sem o Fast! muito obrigado!

No caso não Ricardo é do Fortes se notar o fonte.

Obrigado mais uma vez.

Bom dia @honorato e @jeftookuni, Desculpe a demora, não estava na empresa por esses dias. Vi que já conseguiram sanar a dúvida. Tive esse problema também referente a barra "/" a mais no final da url. Sobre os certificados, eu só instalei a cadeia nova do Site da Receita Federal mesmo. Segue o link que utilizei http://www.receita.fazenda.gov.br/mrfb/ecac-orientacoes-certificado.html Att, PS: - Eu estava tendo um problema também para o envio de NFC-e usando o Wincrypt, não sei se vocês estão tendo esse problema também. Tal problema só foi resolvido após atualizar o Windows. O motivo é o novo protocolo TLS 1.2. Pelo que entendi o W7 desatualizado não dava suporte a esse protocolo, porém após atualizar tudo funcionou normalmente.

Boa tarde Graça, Isso ocorre quando colocamos os dois componentes na mesma Unit. A solução é bem simples, veja como eu fiz na minha aplicação. case DM_CTA.ParamDFeVersaoDF.AsInteger of 1: ACBrCTe.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve200; 2: ACBrCTe.Configuracoes.Geral.VersaoDF := pcteConversaoCTe.ve300; end; Desta forma deixa claro que o valor ve200 se refere ao tipo TVersaoCTe e não outro.

Ambiente de produção só em outubro. Att Ricardo

Eu também fiz mais algumas alterações no ACBrMDFeDAMDFEFR.pas Adição de TClientDataSet para Contratantes. Adição de TClientDataSet para Produtos Perigosos. Adição dos campos dhIniViagem e Lacres em cdsIdentificacao. Adição dos campos vValePed e codAgPorto em cdsModalRodo. Também alterei onde atribui o valor de nAver para não adicionar quebra de linha desnecessariamente. ACBrMDFeDAMDFEFR.pas

Basta você adicionar o nome da Unit antes do Objeto Unit.Objeto

No Grupo NA. ICMS para a UF de destino não mudou a regra, só aumentou o campo vBCFCPUFDest - Valor da BC FCP na UF de destino... Agora para o Grupo N - ICMS Normal e ST eu fiz assim: ... cst00: //CST – 00 – Tributada integralmente begin ICMS.vBC := RoundTo(cdsItensBASE_ICMS.AsCurrency, -2); ICMS.pICMS := RoundTo(cdsItensTAXA_ICMS.AsFloat, -2); ICMS.vICMS := RoundTo(cdsItensICMS.AsCurrency, -2); //NT 2016.002 //Se Operação interestadual (tag:idDest=2) para Consumidor Final (tag: indFinal=1) deve ser informado o valor do FCP no campo vFCPUFDest if NOT((Ide.idDest = doInterestadual) and (Ide.indFinal = cfConsumidorFinal)) then begin ICMS.vBCFCP := ICMS.vBC; //Mesma Base ?????? ICMS.pFCP := TProdutoController.AliquotaFCP(cdsItensID_PRODUTO.AsInteger); ICMS.vFCP := RoundTo(ICMS.vBC * (ICMS.pFCP / 100), -2); end; end; ... //NT 2016.002 //TOTALIZAR FTotalFCP := FTotalFCP + ICMS.vFCP; FTotalFCPST := FTotalFCPST + ICMS.vFCPST; FTotalFCPRet := FTotalFCPRet + ICMS.vFCPSTRet; Totalizo tudo no laço que preenche os itens e jogo no Grupo W - Valores Totais da NF-e, fiz os teste com alguns itens com contribuição para o FCP, deu certo todas as operações com Consumidor final e Contribuinte na versão 4.0.