[Firebird - Como saber Status de ShutDown de um arquivo]

Obrigado

[Firebird - Como saber Status de ShutDown de um arquivo]

Estou desenvolvendo um atualizador do Banco de dados e um dos passos é por o "fdb" wm shutdown e no final por "online" novamente, consegui fazer isso via gfix, porém gostaria de saber se tem algum comando ou componente que possa me retornar se o  "fdb" já está em shutdown ou não.

Uso Firebird 2.5 e Delphi Xe3.

[Saber Nfes emitidas conta minha empresa (igual ao arquivei)]

Obrigado 

[Saber Nfes emitidas conta minha empresa (igual ao arquivei)]

Galera, alguém sabe de algum webservice que disponibilize as Nfes emitidas contra a minha empresa? Para depois so baixar os XMLS?

Semelhante ao que o site "arquivei" faz? Ou alguem sabe como eles fazem isso?

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

16 horas atrás, Dercide Alvarez disse:

Ronnei,

Mas isso é uma particularidade, e não tem o porque ter a data credito, visto que você já recebeu o dinheiro (descontou o titulo), e não haverá movimentação para a integração bancaria.

Esse tratamento, acredito eu que deve ser feito no próprio sistema. Eu controlo os titulos descontados e são lidos normalmente no retorno, apenas não geram a movimentação bancária.

 

Dercide.

Concordo que sim, porém se eu não baixar o titulo que foi descontado ele ficará em aberto, visto que não pode ser baixado no momento do desconto pois se o cliente não pagar o banco descontará de mim, de qualquer forma não teria como tratar pelo software visto que o processamento do arquivo é feito pelo componente, somente alterando a função direto nas units do componente, foi o que eu fiz, de qualquer forma é apenas uma sugestão de melhoria ao componente.

Atenciosamente

Ronnei Peterson

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

Saiu abaixo a resposta do SICOOB, significa que os títulos que foram descontados, ao serem pagos pelo cliente a data que vem preenchida é da de liquidação e não a de crédito, deixo como sugestão a alteração da unit conforme eu postei anteriormente.

procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList);

...

if StrToIntDef(Copy(Linha,176,6),0) <> 0 then
            DataCredito:= StringToDateTimeDef( Copy(Linha,176,2)+'/'+
                                               Copy(Linha,178,2)+'/'+
                                               Copy(Linha,180,2),0, 'DD/MM/YY' )
         Else DataCredito:= StringToDateTimeDef( Copy(Linha,111,2)+'/'+
                                               Copy(Linha,113,2)+'/'+
                                               Copy(Linha,115,2),0, 'DD/MM/YY' );

 

Resposta do SICOOB

-------- Mensagem encaminhada --------

Assunto:	Re: Fwd: Fwd: Re: Fwd: HOMOLOGAÇÃO - VIDRAÇARIA PARIS
Data:	Tue, 21 Feb 2017 09:08:32 -0300
De:	Seguros <[email protected]>
Para:	Ronnei Peterson <[email protected]>

 

Bom dia

Segue o que a central me mandou.

"Para títulos que estejam na Cobrança (que não tenham sido transferidos para o TD), observei que a data de crédito vem preenchida.

Este arquivo que enviaram, todos os boletos já tiveram a transferência para TD. Se eles não tiveram o retorno para cobrança simples, ao serem liquidados não terão o crédito lançado em conta corrente e com isso não haverá preenchimento desta informação."

Pelo que verificamos esses títulos foram baixados não retornando para simples. Assim, a data não será preenchida.

 

Att,

 

Caio

[Envio de E-mail pela Locaweb]

Em 08/12/2016 at 21:01, Renan Silva disse:

Realizei a remoção e a reinstalação, percebi que houve atualização no Exemplo de Envio de e-mail, realizei alguns testes e funcionou tudo perfeitamente.

Obrigado a todos pela ajuda!

Olá Renan Silva, tudo bem?

Estou passando pelo mesmo problema com a LocalWeb, qual endereço de smtp voce usou? E qual porta? Precisou configurar algo na LocalWeb, no painel deles?

Por outros emails eu consigo enviar, mas nesse cliente que usa localweb não.

 

[Envio de email: Unable to send MailTo (provedor localweb)]

Vamos lá, fiz pesquisas nos tópicos sobre o assunto e encontrei diversos, mas nenhum deles resolveu na questão que estou aqui, acredito que meu problema esteja relacionado a LocalWeb, visto que envia corretamente pelo gmail e em outros clientes também, porém email em específico nada que foi colocado como solução resolveu, desde troca de porta, autenticações...

Já conectei na conta do cliente com o Thunderbird e está ok, por isso acredito que possa ser algo relacionado a alguma configuração direto na LocalWeb, tipo o "aplicativo menos seguros" do Gmail, por isso estou postando aqui para saber se alguém passou por esse problema de envio de email pelo ACBR usando um email corporativo hospedado na localweb e conseguiu?

 

 

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

23 horas atrás, Dercide Alvarez disse:

Ronnei,

Pelo que vi, o banco não esta gerando a Data Crédito, 176 a 181.

Esta vindo apenas a data liquidação, na posição 111-116 (240117)

Fora isso tem apenas a data da gravação do arquivo no header  95-110 (250117) e a data movimento no trailler 156-164 (25012017).

Acho que o melhor é verificar com o banco essa questão da não geração da data crédito, pois ela é diferente da data liquidação e essencial para a conciliação bancária.

Dercide.

 

Vou tentar contato com o banco, mas já viu né, é um parto kkk, de qualquer forma vou manter meu fonte do ACBR nessa unit alterado localmente e vou cuidar sempre que tiver uma atualização para não dar conflito nisso, até que o SICOOB me dê alguma posição, de qualquer forma acredito que nesse caso o correto é trabalhar com a data de liquidação quando a data de crédito vir em branco, foi isso que eu fiz.

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

Arquivo de retorno em anexo, por enquanto vou alterar o fonte do meu ACBR até chegarem no consenso de qual a data correta.

4340_01325850_20170125_C400_00.ret

17 horas atrás, Dercide Alvarez disse:

Boa noite Ronnei,

O ideal é você postar o arquivo retorno para analisarmos.

Pois a data crédito (176 a 181) somente virá preenchida se a posição 109-110 tiver um código de liquidação (05, 06, 15).

Dercide.

Veio como 06 e mesmo assim a datacredito veio zerada, conforme arquivo enviado em anexo no post anterior

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

Juliana ele não retorna as duas, a data do credito vem zerada, acredito que o ideal serial seria personalizar para se a opção vir zerada pegar a data de liquidação, como eu postei no fonte acima, não encontrei a propriedade databaixa, somente a DataOcorrencia, se for essa que você se referiu dá diferença de dias em relaçaã ao crédito do banco, isso gera inconsistência na conciliação bancária.

[Lendo A Data Baixa Do Aquivo De Retorno Errado]

Estou com o mesmo problema e debugando vi que na unit ACBrBancoBancoob ainda se encontra copiando a partir da posição 176, porem ela esta zerada no arquivo de retorno e realmente pelo manual que tenho aqui a posição é a 111

111

116

06

Data Entrada ou Liquidação

9(06)

(ddmmaa)

Conferindo o arquivo na posição 111-> 240117 já na posição 176  000000

Vou alterar o arquivo para pegar a informação correta porém na próxima atualização do ACBR irei perder essas alterações?

Alguém que passou por isso tratou como?
 

Como resolvi:

procedure TACBrBancoob.LerRetorno400(ARetorno: TStringList);

...

if StrToIntDef(Copy(Linha,176,6),0) <> 0 then
            DataCredito:= StringToDateTimeDef( Copy(Linha,176,2)+'/'+
                                               Copy(Linha,178,2)+'/'+
                                               Copy(Linha,180,2),0, 'DD/MM/YY' )
         Else DataCredito:= StringToDateTimeDef( Copy(Linha,111,2)+'/'+
                                               Copy(Linha,113,2)+'/'+
                                               Copy(Linha,115,2),0, 'DD/MM/YY' );

 

[Emitir Nota Windows Server 2012 acesso com TS]

22 horas atrás, paulorsa disse:

Eu tenho clientes que emitem notas com acesso TS normalmente, mas não sou eu quem faz a configuração do certificado, quem faz e a empresa que da suporte no server, mas o que sei é que você deve além de instalar o certificado no usuário, registrar a capcom também nesse usuário, pois em algumas situações ocorrem problemas ao emitir a nota.

Também não deu certo, mas é bom saber que você tem clientes rodando, significa que tem uma solução, agora vou em busca dela.

[Emitir Nota Windows Server 2012 acesso com TS]

Não deu certo amigo, inclusive já copiei as mesmas configurações da parte de segurança do IE do Administrador para o outro Usuário e não funciona

[Emitir Nota Windows Server 2012 acesso com TS]

Olá amigos!

Fiz a instalação do certificado no Windows Server 2012, consigo emitir a Nfe quando conecto via TS com administrador, porém com outro usuário via TS ele dá erro no suporte de canais seguros, o certificado foi instalado neste usuário bem como as cadeias, conforme imagem em anexo.

Já segui passo a passo essa explicação: http://forum.imasters.com.br/topic/430454-nfe-instalando-certificado-digital-no-windows-server/

Alguém conseguiu por a Nfe para rodar via TS em usuários não administradores com Windows Server 2012? Se sim qual o procedimento adotado?

 

[Erro Impressão de CCE - RlEvento Not Found]

RESOLVIDO

Problemas no componente relacionado ao Delphi Xe3, apaguei tudo, baixei do SVN, corrigi units que mudaram no Xe3 como a jpeg e troquei  o arquivo (RLIB) do Fortes para Xe3 e resolveu.

[Erro Impressão de CCE - RlEvento Not Found]

Erro ao tentar imprimir uma Carta de Correção (cce), uso Delphi Xe3, Fortes Report, o erro é

Ancestor for 'RlEvento' not found

 with FComponentesNfe.ACBrNFe do
 Begin

   NotasFiscais.LoadFromFile(RetornaPastaSistema+'ARQUIVOB.XML');
    EventoNFe.Evento.Clear;
    EventoNFe.LerXML(RetornaPastaSistema+'ARQUIVOEVENTO.XML');

    IF (FComponentesNfe.ConfiguraComponente('', '')= False)
    then exit;

    ImprimirEvento;

End;

Obs: Pesquisei por RlEvento e não veio nada no fórum, então não sei se já tem outro post no fórum com esse problema, não sei se é impressão minha mas parece que o motor de busca não está funcionando muito legal de uns tempos para cá.

[Procuro Parceiro Paf/ecf Em Mg Somente Para Frente De Caixa]

Tenho um cliente que precisa do PAF/ECF em MG, porém meu atual parceiro não está homologado para MG, alguém trabalha em parceria para me atender em MG?  Preciso integrar com meu software, enviando clientes, produtos e DAV para emissão automático do cupom facilitando ao meu cliente. Precisa emitir Sintegra e SPED

[Erro Compilação Acbrnfse Delphi Xe3]

Deu certo Juliomar. 

[Erro Compilação Acbrnfse Delphi Xe3]

Boa tarde Juliomar, atualizei o SVN antes de fazer isso que postei acima, e também utilizei o ACbrInstall, tive que corrigir o erro e depois usei o AcbrInstall e deu certo, atualizei de novo agora e não tem nada de novo, estou usando o SVN no repositório

 

svn://svn.code.sf.net/p/acbr/code

 

Portanto acredito que não seja isso a não ser que eu esteja em um repositório errado.

[Erro Compilação Acbrnfse Delphi Xe3]

Fui instalar a versão atualizada hoje no meu Delphi Xe3 e ocorreu o erro:

 

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\pnfsNFSeW.pas(1575) Error: E2003 Undeclared identifier: 'DateSeparator'

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\pnfsNFSeW.pas(1576) Error: E2003 Undeclared identifier: 'ShortDateFormat'

D:\Dev\componentes\acbr\Fontes\ACBrNFSe\ACBrNFSeNotasFiscais.pas(1909) Fatal: F2063 Could not compile used unit 'pnfsNFSeW.pas'

Compilation failure

 

Fui até a Unit pnfsNFSeW.pas e vi que eram usadas variáveis Globais que foram depreciadas no XE3, para resolver o meu caso alterei o procedimento abaixo trocando as variáveis globais pelas chamadas a FormatSettings

 

procedure TNFSeW.GerarXML_Provedor_NFSEBrasil;
begin



 Gerador.wGrupoNFSe('Rps ' + FIdentificador + '="' + NFSe.InfID.ID + '"');

 GerarIdentificacaoRPS;

// Gerador.wCampoNFSe(tcDat, '#3','DataEmissao', 19, 19, 1, NFSe.DataEmissao + 'T10:00:00', DSC_DEMI);
 System.SysUtils.FormatSettings.DateSeparator:='-';
// DateSeparator := '-';
System.SysUtils.FormatSettings.ShortDateFormat:='yyyy-mm-dd';
// ShortDateFormat := 'yyyy-mm-dd';

 Gerador.wCampoNFSe(tcStr, '#3','DataEmissao', 19, 19, 1, DateTimeToStr(NFSe.DataEmissao)+ 'T10:00:00', DSC_DEMI);


System.SysUtils.FormatSettings.DateSeparator:='/';
//DateSeparator := '/';
System.SysUtils.FormatSettings.ShortDateFormat := 'dd/mm/yyyy';
// ShortDateFormat := 'dd/mm/yyyy';

 Gerador.wCampoNFSe(tcStr, '#4','NaturezaOperacao     ', 01, 01, 1, NaturezaOperacaoToStr(NFSe.NaturezaOperacao), '');
 Gerador.wCampoNFSe(tcStr, '#5','Status     ', 01, 01, 1, StatusRPSToStr(NFSe.Status), '');

// GerarServico;
GerarServicoValores_V2;

 GerarPrestador;
 GerarTomador;
 GerarIntermediarioServico;
 GerarConstrucaoCivil;

 Gerador.wGrupoNFSe('/Rps');
end;

Não estou usando a Nfse ainda, então não tenho como testar, então segue a dica para a equipe dar uma analisada no caso.

 

Links sobre o assunto: 

 

http://www.andreanolanusse.com/pt/delphi-xe3-e-suas-novidades-parte-2/

http://marciorossato.meucanal.com.br/decimalseparator-delphi-xe3/

 

 

 

Obrigado

 

 

 

 

 

[Problemas No Envio Do E-Mail]

Depois da atualização o problema foi corrigido.

[Acbrnfe Emitindo 55 E 65 Causando Erro Na Impressão!]

Depois da atualização de hoje o erro foi corrigido.

[Problemas No Envio Do E-Mail]

Estou com o mesmo problema, eu emito Nfe e Nfce no mesmo sistema, quando eu manipulo uma Nfce ele não envia mais o PDF, parece ter a ver com a questão dos danfes diferentes para o mesmo componente, já tentei até separar os componentes mas o erro permanece. Só estou conseguindo enviar email da NFE com pdf quando não manipulo a Nfce.

[Acbrnfe Emitindo 55 E 65 Causando Erro Na Impressão!]

Fizemos isso Juliomar, mas aí que o erro persiste, por isso separamos em dois componentes. O Simples fato de imprimir uma Nfce e depois voltar o danfe

 

AcbrNfe.Danfe:=DanfeNFe;

 

Já causa o erro no envio do Email com PDF.