Painel de líderes

Bom dia a todos Para quem estiver passando por esse problema (tela ficando branca,lentidao),segui as orientacoes desse link e resolveu: http://thundaxsoftware.blogspot.com.br/2011/04/signing-your-delphi-applications-with.html assinar o aplicativo,esses plugins de banco da GAS Tecnologia, mata a maquina em alguns momentos coisa boa e chegar aqui no forum mais show do Brasil e encontrar solucoes,

Pois é, funcionou. Obrigado.

Vc viu no XML como estão os campos q vc citou? Veja tbm http://www.djpdv.com.br/blog/como-emitir-nfe-referente-satnfce/

Eu entrei em contato com a Gás Tecnologia reclamando sobre isso. Eles me solicitaram, nada mais nada menos, do que todos os fontes do meu aplicativo + banco de dados + Gerenciador de banco de dados + configuração + manual para poderem executar e analisar os fontes no laboratório. Então, pedi a eles que me enviassem o mesmo material do aplicativo deles para que eu também pudesse analisar em meu laboratório de testes. Nunca mais me retornaram.

Olá Pessoal, Depois do dia 17/06/2016, sempre que meu cliente entra no internet Banking no Banco do Brasil meu sistema fecha. Tenho meu executável assinado seguindo as instruções do link acima e outras mencionadas nesse tópico e funcionava, mas parece que houve alguma atualização pela GAS Tecnologia e o problema continua persistindo. A unica solução no momento é reiniciar o Computador, estando no aguardo de uma resposta da GAS Tecnologia. Alguém está passando por esse mesmo problema mesmo com seu executável assinado? Conseguiu uma solução? Se meu executável conter uma assinatura da COMODO esse problema será resolvido?

Vinícius, Boa noite. Bem vindo então, rsrs, abandonamos o cobrebemx também. Bom, no retorno eu trato dessa maneira: procedure TfrmXTrataRetornoBancario.LerRetornoAcbr; var bErroACBr : boolean; i : Integer; begin if(cmbLocalCobranca.ItemIndex=-1) then begin MsgInfo('Selecione um local de cobrança primeiro'); Exit; end; bErroACBr := false; try ConfigACBr; // lembrando que quando configuro deixo a tag ACBrBoleto.LeCedenteRetorno := true; except bErroAcbr := true; MsgErro('Dados não foram inseridos corretamente no componente ACBr'); end; if(bErroAcbr) then Exit; // o arquivo pode estar em qualquer lugar. ACBrBoleto.DirArqRetorno := ExtractFilePath(txtArqRetorno.Text); // somente o nome do arquivo ACBrBoleto.NomeArqRetorno := ExtractFileName(txtArqRetorno.Text); // carrega na coleção ocorrencias de cobrança ACBrBoleto.LerRetorno; txtRegistros.Value := 0; for i := 0 to ACBrBoleto.ListadeBoletos.Count - 1 do begin gridPesquisa.RowCount := i + 2; gridPesquisa.Cells[0,i + 1] := IntToStr(i); gridPesquisa.Cells[1,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].NossoNumero; gridPesquisa.Cells[8,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].SeuNumero; gridPesquisa.Cells[9,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].NumeroDocumento; gridPesquisa.Cells[2,i + 1] := FormatDateTime('dd/mm/yyyy',ACBrBoleto.ListadeBoletos.Objects[i].DataCredito); gridPesquisa.Cells[3,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].Carteira; gridPesquisa.Cells[4,i + 1] := FormatDateTime('dd/mm/yyyy',ACBrBoleto.ListadeBoletos.Objects[i].DataOcorrencia); gridPesquisa.Cells[5,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].CodigoLiquidacao; gridPesquisa.Cells[6,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].CodigoLiquidacaoDescricao; gridPesquisa.Cells[7,i + 1] := ACBrBoleto.ListadeBoletos.Objects[i].Sacado.NomeSacado; if(ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido > 0) then gridPesquisa.Cells[10,i + 1] := 'SIM' else begin gridPesquisa.Cells[10,i + 1] := 'NAO'; gridPesquisa.Cells[2,i + 1] := ''; end; if(trim(gridPesquisa.Cells[6,i + 1]) = 'Compensação Eletrônica') then gridPesquisa.Cells[6,i + 1] := 'Comp.Eletrônica'; if(trim(gridPesquisa.Cells[2,i + 1]) = '') then gridPesquisa.Cells[6,i + 1] := ''; gridPesquisa.Cells[11,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorRecebido); gridPesquisa.Cells[12,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorDesconto); gridPesquisa.Cells[13,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorMoraJuros); gridPesquisa.Cells[14,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorOutrasDespesas + ACBrBoleto.ListadeBoletos.Objects[i].ValorIOF ); gridPesquisa.Cells[15,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorOutrasDespesas); gridPesquisa.Cells[16,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorPago); gridPesquisa.Cells[17,i + 1] := FloatToStr(ACBrBoleto.ListadeBoletos.Objects[i].ValorDespesaCobranca); if( DescricaoMotivoRejeicaoComando.Text <> '' ) then // problemas na baixa, registro o motivo grdListado.Cells[18,i + 1] := grdListado.Cells[1,i + 1]+' - '+DescricaoMotivoRejeicaoComando.Text else begin // localizar título no sistema qryPesquisa.Close; qryPesquisa.SQL.Clear; qryPesquisa.SQL.Add('SELECT id, vencto, venda, cliente, situacaotit FROM contasareceber WHERE nossonumero = ''' + Trim(gridPesquisa.Cells[1,i + 1]) + ''''); qryPesquisa.SQL.Add('AND empresa = ' + variables._EMP_CODI); qryPesquisa.Open; if(not qryPesquisa.Eof) then begin gridPesquisa.Cells[0 ,i + 1] := 'SIM'; gridPesquisa.Cells[20,i + 1] := qryPesquisa.FieldByName('id').AsString; gridPesquisa.Cells[22,i + 1] := qryPesquisa.FieldByName('vencto').AsString; gridPesquisa.Cells[23,i + 1] := qryPesquisa.FieldByName('cliente').AsString; if qryPesquisa.FieldByName('venda').AsString = '' then gridPesquisa.Cells[21,i + 1] := '0' // lancto avulso else gridPesquisa.Cells[21,i + 1] := qryPesquisa.FieldByName('venda').AsString; if(qryPesquisa.FieldByName('situacaotit').AsString = 'P') then gridPesquisa.Cells[8,i + 1] := 'SIM' // alguem já baixou else gridPesquisa.Cells[8,i + 1] := 'NAO'; end else begin gridPesquisa.Cells[20,i + 1] := ''; gridPesquisa.Cells[21,i + 1] := '0'; end; qryPesquisa.Close; end; gridPesquisa.Row := i + 1; end; end; Dessa maneira, eu abro o arquivo de retorno, leio e pesquiso no meu bd pelo nosso número que gerei na remessa. Assim eu obtenho a ID do meu contas a receber e fica um botão na tela chamado PROCESSAR BAIXA pro usuário comandar as baixas. Veja aí se ajuda, Até mais,

Pessoal, Estou reproduzindo abaixo informações que o Italo postou em forma de anúncios que são muito importantes:

Também é uma questão do negócio. Você e seu cliente devem decidir. No entanto, você deve ficar atenta para o controle de estoque que deve ser feito por loja ou por depósito. Sobre isso, talvez seja melhor consultar o contador do cliente. Seria melhor definir como vai tratar as duas primeiras perguntas antes de definir o sincronismo e a arquitetura do BD. Talvez você chegue a conclusão que vá usar um BD por loja, mas com uma aplicação que pode fazer a pesquisa em mais de uma loja se for necessário. Talvez apenas algumas das tabelas estejam em BD separados. Ou talvez tudo em um BD só. Em minha experiência, fazer replicação de BD Firebird sincronizados via FTP pode não ser muito fácil quando se tem acessos simultâneos. A grande dificuldade não é nem processar os scripts, mas sim garantir a replicação correta. Mas fazer uma sincronia, no sentido de processar os scripts e garantir que o BD receba os dados é, de certa forma, até fácil via uma conexão normal ao BD. Já que você definiu que vai trabalhar com o Firebird, entenda que a conexão direta ao banco via internet não é criptografada, nem compactada no momento (está previsto para implementação na versão 3). Por isso muitos usam o Zebedee. Em se tratando de múltiplas lojas, talvez você queira trabalhar com n-tier (multi-camadas). Não é um requisito, mas talvez seja melhor dependendo do número de lojas. Seja lá qual for a decisão, eu sugiro que você experimente um pouco a arquitetura antes de colocar em prática o trabalho de fazer o programa inteiro. Por exemplo: Se decidiu conexão via internet, monte uma base de dados simples, só com produtos e movimentos. Faça lançamentos acessando via internet e não via rede local para que você sinta o peso do trabalho que vai ter, do tráfego e assim por diante.