Luciano Ramos Palandi

Oi Alexandre boa noite, vou verificar, tenho um cliente que utiliza nota 21, assim que atualizei os aplicativos de verificação da SEFAZ passou a exigir 289 caracteres

Senhores por favor se for possível realizar alteração no componente ACBRconvenio115, o mesmo gera arquivo destinatário múltiplo de 282 caracteres, pelo que entendi agora é exigido 289. Obrigado.

Bom dia Cleber e Breno, após eu ressomar inumeras vezes adicionei um RoundTo -2 e a nota foi emitida, muito obrigado pela atenção de vocês. roundTO((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency* dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)- (((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency* dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)*33.33)/100),-2);

Senhores por favor quem puder dar uma ajuda, tenho uma nota de devolução no valor de 183,02 e preciso destacar icms de 18% com redução de 33,33%, o cliente é do simples nacional, segue parte do código e xml em anexo, desde já grato. // Totais da nota fiscal Total.ICMSTot.vBC := 122.02; Total.ICMSTot.vICMS := 21.97; //rotina para emissao de nota com calculo de icms percorrendo os produtos ICMS.CSOSN := StrToCSOSNIcms(ConverteOk, '900'); if not ConverteOk then raise Exception.Create('Situaçãoo tributária no simples nacional desconhecida.'); ICMS.modBC := dbiValorOperacao; ICMS.vBC := (dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency* dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)- (((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency* dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat)*33.33) /100);//0.00; ICMS.pICMS := 18.00; ICMS.vICMS := ((((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency * dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat) * 18)/100)- ((((dm.Q_NFEDEV_PROD.FIELDBYNAME('CUSTO').AsCurrency * dm.Q_NFEDEV_PROD.FIELDBYNAME('QUANTIDADE').AsFloat) * 18)/100) *33.33)/100); ICMS.pRedBC := 33.33; 35230344339621000170550010000000771000000018-nfe.xml

Olá Senhores, por favor alguém tem novidades sobre o assunto?, não estou conseguindo emitir com A3 em homologação

Vou verificar, muito obrigado Juliomar

Por favor se tiver sugestão para melhorar aceito, obrigado

Fiz desta forma para o último dm.Q_PROD.Close; dm.Q_PROD.SQL.Text:= 'select first :COUNT skip :START * from dbprodut order by codintprod desc'; dm.Q_PROD.ParamByName('COUNT').AsInteger:= 30; dm.Q_PROD.ParamByName('START').AsInteger:= 0; dm.Q_PROD.Open; ficou instantâneo, obrigado

Juliomar por favor você poderia dar um exemplo de um select que limite a quantidade de registros?

Não é bem uma necessidade, se o cliente quiser ir para o ultimo registro verificar qual foi o ultimo produto cadastrado por exemplo, a query esta carregando todo o cadastro, mesmo configurando a fetchoptions ainda carrega todos os registros, gostaria de limitar para reduzir o fluxo de dados

Conforme o Juliomar citou estou fazendo a abertura da query assim select * from, uso insert nas inserções, quando uso dm.q_prod.last esta demorando..., pesquisei sobre limitar a quantidade de registros e encontrei FIRST, mas teria outra forma, você tem um exemplo por favor?

Élviro, por favor, estou fazendo teste na SaveinCloud e por hora gostei, você teria uma dica para gerar performance, por exemplo se usar Last no cadastro de produtos esta levando cerca de 4 segundos, para filtros com descrição praticamente não tem diferença para local. sobre valores quanto você paga em média?

Perdão, entendi que você disse não ser bom criar um ini com as configuração... Élviro só uma dúvida por favor, você usa uma instancia só e hospeda todos os bancos?

Verdade Juliomar, você tem alguma sugestão por favor?

mas para que a aplicação encontre o respectivo banco, você usa algum arquivo INI para o FDConnection?