[Livro Sobre Programação Em Delphi, Atual E Grátis]

Algúem poderia disponibilizar somente o arquivo do livro para download?

[4 Casas Decimais Para Valores Monetários]

Achei um artigo muito interessante sobre o assunto que fala da diferença entre NUMERIC  e DECIMAL mas ainda não encontrei maneira clara que mostre a relação entre Digito e Precisão. Por exemplo o tipo de dado Numeric(15,4) dá overflow com o valor 999999.0000.

 

Olá companheiro, no postgre e sqlite é possível disparar eventos no banco com scripts sql.... Verifique se o firebird dispõe deste recurso... caso sim, você poderá realizar o feito sem a necessidade de muitas alterações no código do programa...

[Erro Teclado Android]

Olá Arnaldo,

eu utilizo o Lazarus... no entanto, verifique o arquivo "AndroidManifest.xml" e os sources em java... aqui (com o Lazarus) consegui realizar bons feitos...

 

Obs: não sei se o Delphi (que abandonei a muito tempo) deixar-lhe-á editar as bibliotecas em questão, pois ele tem o código fechado. O que irá diminuir sua flexibilidade.

[Duvidas Cf-E Para Ceará - Situação Em Estados Que Já Utilizam.]

 Marcelo, em que orgão você está homologando PAF-ECF aqui no CE?

 

Olá  Emanuel, é no Centro de Tecnologia do PICI na UFC. (Prof. Cortez)! Ele está homologando a pouco tempo, no entanto ficaria grato se você comentasse aqui o processo para com o homologador em quetão. Ou seja a experiência pessoal para com a pessoa.

[Cnpj Da Software House Inválido (1111111111111)]

Aqui vem funcionando.... dê bastante atenção ao log do emulador...

[Sem Acbrtcp]

Normalmente ele ficava aqui C:\...\ACBr\trunk\Pacotes\Lazarus\ACBrTCP.pas!

Realmente agora ele está na pasta C:\...\ACBr\trunk\Pacotes\Lazarus\ACBrSerial\ACBrTCP.pas!

 

Grato!

[Sem Acbrtcp]

Agora a pouco Baixei to da a pasta do ACBR e o Lazarus acusou a falta do Arquivo ACBrTCP.lpk. Naveguei no repositório e não encontrei o mesmo...

[Novo Pacote De Impressão Para Acbrsat, Usando Fortesreport]

Funcionou... a impressão e visualização está OK! Valeu companheiro!

[Novo Pacote De Impressão Para Acbrsat, Usando Fortesreport]

Srs, estou utilizando o Lazarus e o emulador do governo. No entanto a visualização da impressão está em branco...

[Duvidas Cf-E Para Ceará - Situação Em Estados Que Já Utilizam.]

Marcelo, você poderia ser mais claro com relação as exigências do homologador aqui no CE? O objetivo do meu PAF é muito parecido com o seu...

 

você é de que estado amigo? O orgão homologador aqui(CE) está muito engessado, está dificil. Meu PAF não é comercializado, é só um acessório pro meu gerencial. Não tem DAV nem nada, e mesmo assim está ruim, o homologador cismou com os arquivos SPED.

[Migrar Para Lazarus.]

Utilizo muito bem o Lazarus, Zeos, Postgre e Sqlite. Há tempos abandonei o Delphi (UFA!!!) e como o Daniel se posicionou, utilizo de ferramentas Free.

 

Com a configuração citada, venho ultimamente explorando o ACBr onde todos os componentes e recursos que utilizaei até agora vem funcionando perfeitamente. ECF, Sintegra, SPED, PAF, Boleto, TEF e etc...

 

Citando o desenvolvimento para IOS, realmente é como o Daniel comentou!

 

Com a mesma configuração tenho softwares de cálculo de correção de fator de potência industrial e de cálculo de produção de tratores de esteira. Ambos utilizando a OpenGL (API Gráfica Free para 3d que também é ótima para jogos e é uma alternativa ao Code::Block, compilador C/C++, que também utiliza a API). Você também pode complementas o uso desta API com o BOX2D que é uma API de Física para simulação de um mundo virtual onde você pode configurar atrito, gravidade, coeficiente de permeabilidade, massa, forças, elasticidade e etc.

[60D Sem 60M Correspondente]

Resolvi....

deve-se considerar que no ACBrSintegra os campos (dos registros) referente a data de emissão são do tipo TdateTime.

[60D Sem 60M Correspondente]

Olá Srs,

gere os registros 10,11, 60M, 60A.  Quando gero o 60D recebo a seguinte mensagem: "Registro 60D sem Registro 60M correspondente!". A data de emissão está sendo repassada igualmente a todos assim como o numero da ECF.

[Quantos Registros 60M?]

perai sr(a)s..... lendo mais uma vez o "Manual de Orientação do Convênio" que trata do objeto em evidência.....

Acho que compreendi melhor....  é um subconjunto! O 60M é o registro de cabeçalho mestre DIÁRIO, seguido dos outros "subconjuntos de registros" complementares entre si e que pertencem, também, ao conjunto universo de registros 60.

 

Representando Matematicamente teríamos CJ(60)={60M, 60A, 60I, 60D, 60R} ou 60M CJ(60) também 60M CJ(60) ou ainda CJ(60)60M.

 

Agradeço mais uma vez ao ACBr.

[Quantos Registros 60M?]

Olá Sr(a)s,

estou com a seguinte dúvida quanto ao registro 60M em "Vendas por Período" (item 13 do Req. VII).

i    - Seleciono previamente a Data inicial = 15 de JANEIRO de 2014 e final = 05 de ABRIL 2014;

ii   - É gerado UM registro 10 e UM registro 11. (Correto?)

iii  - Logo em seguida gero 4 registros de 60M. (Correto?)

iv  - No 60M o "Valor da Venda Bruta" de JANEIRO corresponde ao MÊS INTEIRO (do dia 01 ao 31) ou so mente do dia 15 ao 31?

[Requisição De Registros Do Item 13]

Mais uma vez agradeço a atenção Juliomar.

[Requisição De Registros Do Item 13]

Olá Sr(a)s,

minha dúvida é simples.... os dados para geração dos arquivos exigido no item 13 do Requisito VII são provenientes do meu banco de dados (sqlite, postgree..) ou diretamente da ECF? Tenha de registrar todas as emissões de cupom em banco de dados?

[Sócio Programador Em Fortaleza]

Mande - me um email com mais detalhes: [email protected]

 

Você reside em Fortaleza?

[Duvidas Cf-E Para Ceará - Situação Em Estados Que Já Utilizam.]

Caro Flávio,

o nosso estado (Ceará), adota o ato cotepe tal qual dipsponibilizado pela SEFAZ, porém esxiste algumas exigências dispensadas com relação a empresas Optantes do Simples Nacional. Contudo, creio que as tecnologias envolvidas permanecerão em evidência por um bom tempo, levando em conta que estado de transição no qual estamos é tratado pela unidade federativa de modo lento além e que também o mesmo leva em conta o impacto da classe varejista.

(OBS: Esta é somente minha opnião este momento).

[Sócio Programador Em Fortaleza]

Srs, ainda continuo a procura de um SÓCIO programador...
Estou com frente de caixa pronto, operção de ECF, TEF (em andamento) e Menu Fiscal (em estado parcial e bem encaminhado). Forneço o código fonte para que possamos programar em paralelo e com maior produtividade. Pode ser um programador maduro ou não, o que importa é que tenha a capacidade de trabalhar em equipe.

[TEF Discado/Dedicado Multiplos Cartões]

Boa tarde Juliomar,

a solução que demonstras é muito boa funcional e de rápida implementação em eventos (parabens). Me poupou de algumas boas horas.... porém como o post é relativamente um pouco antigo (de 2011) e eu não queria abrir um novo tópico.... resolvi certirficar-me de que eu não estaria trabalhando em algo já ultrapassado.

 

Muitíssimo obrigado pela atenção, desculpe se expressei-me de modo arrogante (não foi minha intenção) e parabens pela sua atuação no projeto.

[TEF Discado/Dedicado Multiplos Cartões]

Saudações Sr(a)s,

implementei a utilização de multiplos cartões conforme o Juliomar descreve acima ... Será que já existe alguma solução mais elegante ou ainda é esta a melhor maneira?

 

Obs: Lazarus, Bematech, Vespague (background).

[Tef Não Finaliza O Pagamento]

Resolvi a Instabilidade da operação no evento "OnInfoECF"...

em :     

 

ineTotalAPagar :
          RetornoECF := FloatToStr(frm_configecf.ACBrECF1.TotalPago);

 

....ele somente aceitou o retorno proveniente do ECF...

[Tef Não Finaliza O Pagamento]

Bom dia Juliomar,

sim, todos os eventos estão programados como no demoTEF, assim como o próprio Ve$pague;

Ele estava funcionando normalmente, depois apresentou mensagens de pendências de impressão. As menssagens cessarão e o log que recebo agora é este.

Fiz minha frente de caixa e estou começando agora com o TEF.

 

Segue trecho do código:

 

    if ((Trim(FPG)='01')) then
     begin
      try
       frm_configecf.ACBrECF1.EfetuaPagamento(FPG,StrToFloat(ed_restante.Text),
                                              '',
                                              False );
      except
       lb_fpgdacompra.Items.Delete(lb_fpg.ItemIndex);
       lb_valorfpgdacompra.Items.Delete(lb_valorfpgdacompra.ItemIndex);
      end;
     end else
     begin
       if (FPG='02') then
        begin
         try
//          frm_configecf.ACBrTEFD1.ATV(gpVeSPague);
          ShowMessage('Valor: '+ed_restante.Text+
                      'FPG: '+ FPG+
                      'Num do COO: '+frm_configecf.ACBrECF1.NumCOO);
          if frm_configecf.ACBrTEFD1.CRT(StrToFloatDef(ed_restante.Text,0),
                                         FPG,
                                         frm_configecf.ACBrECF1.NumCOO) then
            begin
             //frm_configecf.ACBrTEFD1.ATV(gpVeSPague);
             frm_configecf.ACBrECF1.EfetuaPagamento(FPG,StrToFloat(ed_restante.Text),
                                                           '',
                                                           True);
             ShowMessage('foi pago com cartao');
            end;
         except
          lb_fpgdacompra.Items.Delete(lb_fpgdacompra.Items.Count-1);
          lb_valorfpgdacompra.Items.Delete(lb_valorfpgdacompra.Items.Count-1);
          frm_configecf.ACBrTEFD1.CancelarTransacoesPendentes;
         end;
        end;
     end;

[Tef Não Finaliza O Pagamento]

Sehores, segue meu log do TEF... estou usando no modo BackGround.

 

-- 28/08 11:05:42:746 - VeSPague Inicializado VeSPague
-- 28/08 11:05:42:762 - TRANSMITINDO ->
sequencial="1"
retorno="1"
servico="iniciar"
aplicacao="cretaPAFECF"
versao="1.0"

-- 28/08 11:05:42:777 -   TRANSMITIDO, (0)

-- 28/08 11:05:42:793 - Aguardando Resposta do V&SPague
-- 28/08 11:05:43:308 - <- RECEBIDO
sequencial="366"
mensagem="Sequencial invalido"
retorno="2"

-- 28/08 11:05:43:323 - TRANSMITINDO ->
sequencial="366"
retorno="1"
servico="iniciar"
aplicacao="cretaPAFECF"
versao="1.0"

-- 28/08 11:05:43:339 -   TRANSMITIDO, (0)

-- 28/08 11:05:43:354 - Aguardando Resposta do V&SPague
-- 28/08 11:05:43:869 - <- RECEBIDO
estado="1"
versao="2.15.8"
aplicacao="V$PagueClientSimulator"
servico="iniciar"
sequencial="366"
retorno="1"

-- 28/08 11:05:43:900 - InfoECF: ineEstadoECF
-- 28/08 11:05:46:490 -     Ret: L
-- 28/08 11:06:17:456 - InfoECF: ineEstadoECF
-- 28/08 11:06:19:749 -     Ret: P
-- 28/08 11:06:19:765 - InfoECF: ineSubTotal
-- 28/08 11:06:22:121 -     Ret: 696
-- 28/08 11:06:22:152 - InfoECF: ineTotalAPagar
-- 28/08 11:06:23:088 -     Ret: 696,00
-- 28/08 11:06:23:103 - VeSPague CancelarTransacoesPendentesClass
-- 28/08 11:06:55:162 - VeSPague DesInicializado