Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 11-09-2017 em todas as áreas

  1. 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;
    1 ponto
  2. 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
    1 ponto
  3. Certo... vou tentar novamente sem o Fast! muito obrigado!
    1 ponto
  4. No caso não Ricardo é do Fortes se notar o fonte.
    1 ponto
  5. Obrigado mais uma vez.
    1 ponto
  6. 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.
    1 ponto
  7. 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.
    1 ponto
  8. Ambiente de produção só em outubro. Att Ricardo
    1 ponto
  9. 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
    1 ponto
  10. Basta você adicionar o nome da Unit antes do Objeto Unit.Objeto
    1 ponto
  11. 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.
    1 ponto
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.