Marcos Gerene

PS: O layout é o CNAB 240

Boa noite a todos, Tive um retorno do Sicoob na remessa que mandei de testes que acredito que envolva ajustes também no componente. layout sicoob.pdf Atualmente eu emitia boleto apenas pelo Bradesco e este está ok. Meu código: procedure TBoleto.GetBoletos(GerarPDF: boolean); var qryContasReceber : TZQuery; begin try ACBrBoleto.ListadeBoletos.Clear; qryContasReceber := TZQuery.Create(nil); qryContasReceber.Connection := FrmPrincipal.Conexao; qryContasReceber.SQL.Add('SELECT CONTAS_RECEBER.*, CLIENTE.*, CIDADE.* FROM CONTAS_RECEBER'); qryContasReceber.SQL.Add('INNER JOIN CLIENTE ON CLIENTE.CLI_CODIGO = CONTAS_RECEBER.CLI_CODIGO'); qryContasReceber.SQL.Add('INNER JOIN CIDADE ON CIDADE.CID_CODIGO = CLIENTE.CID_CODIGO'); qryContasReceber.SQL.Add('WHERE CONTAS_RECEBER.CR_CODIGO IN ('+FCodigos+')'); qryContasReceber.Open; while not qryContasReceber.EOF do begin if (GerarPDF) then ACBrBoleto.ListadeBoletos.Clear; with ACBrBoleto.CriarTituloNaLista do begin OcorrenciaOriginal.Tipo := toRemessaRegistrar; Sacado.NomeSacado := qryContasReceber.FieldByName('CLI_RAZAO').AsString; Sacado.CNPJCPF := qryContasReceber.FieldByName('CLI_CNPJ').AsString; if (Length(qryContasReceber.FieldByName('CLI_CNPJ').AsString) = 11) then Sacado.Pessoa := pFisica else Sacado.Pessoa := pJuridica; Sacado.Logradouro := qryContasReceber.FieldByName('CLI_LOGRADOURO').AsString; Sacado.Numero := qryContasReceber.FieldByName('CLI_NUMERO').AsString; Sacado.Bairro := qryContasReceber.FieldByName('CLI_BAIRRO').AsString; Sacado.Cidade := qryContasReceber.FieldByName('CID_NOME').AsString; Sacado.UF := qryContasReceber.FieldByName('CID_UF').AsString; Sacado.CEP := qryContasReceber.FieldByName('CLI_CEP').AsString; if Length(qryContasReceber.FieldByName('CLI_EMAIL').AsString) > 5 then Sacado.Email := qryContasReceber.FieldByName('CLI_EMAIL').AsString; if Length(qryContasReceber.FieldByName('CLI_TELEFONE').AsString) > 3 then Sacado.Fone := qryContasReceber.FieldByName('CLI_TELEFONE').AsString; EspecieMod := 'R$'; Vencimento := qryContasReceber.FieldByName('CR_VENCIMENTO').AsDateTime; DataDocumento := qryContasReceber.FieldByName('CR_LANCAMENTO').AsDateTime; NumeroDocumento := qryContasReceber.FieldByName('CR_CODIGO').AsString; SeuNumero := qryContasReceber.FieldByName('CR_CODIGO').AsString; NossoNumero := qryContasReceber.FieldByName('CR_CODIGO').AsString; EspecieDoc := 'DM'; Aceite := atNao; Carteira := FCarteira; DataProcessamento := Now; LocalPagamento := ACBrBoleto.Banco.LocalPagamento; ValorDocumento := qryContasReceber.FieldByName('CR_VALOR').AsFloat; PercentualMulta := FPercentualMulta; if (FPercentualMulta > 0) then begin ValorMoraJuros := (qryContasReceber.FieldByName('CR_VALOR').AsFloat * FPercentualMulta / 100) / 30; DataMoraJuros := IncDay(Vencimento, 1); end; if (FDiasProtesto > 0) then begin TipoDiasProtesto := diUteis; DataProtesto := IncDay(Vencimento, FDiasProtesto); end; TipoImpressao := tipNormal; end; if (GerarPDF) then begin ACBrBoletoRpt := TACBrBoletoFCLazReport.Create(nil); ACBrBoleto.ACBrBoletoFC := ACBrBoletoRpt; ACBrBoletoRpt.DirLogo := diretorio_logotipos; ACBrBoletoRpt.NomeArquivo := ACBrBoleto.DirArqRemessa + '\bol_' + FormatFloat('000000000', qryContasReceber.FieldByName('CR_CODIGO').AsInteger) + '.pdf'; ACBrBoletoRpt.GerarPDF; ACBrBoleto.ACBrBoletoFC := nil; ACBrBoletoRpt.Free; end; qryContasReceber.Next; end; finally qryContasReceber.Free; end; end; Att, Marcos

@BigWings Obrigado pela dica!

@BigWings Obrigado pela atenção, meu script é basicamente um arquivo txt separado por # que rodo no banco. ex: ALTER TABLE CLIENTE ADD CLI_ID INTEGER NOT NULL; # ALTER TABLE PRODUTO ADD PROD_ID INTEGER NOT NULL; Eu leio isso, faço um split com # executo ação a ação. Como eu poderia usar o recurso que me falou neste caso, pode me dar um exemplo?

PS: Em ultimo caso pretendo criar um campo auxiliar, armazenar o valor do campo alterado, dropar e recriar o campo... vai dar um trabalho gigantesco, mas funcionaria...

Bom dia a todos, Estou fazendo um refatoring no meu software, entre as modificações alguns campos devem ser not null. Bem, o que acontece é que sou uma software house, ou seja, tenho vários banco de dados. Eu utilizo Firebird, tenho algo em torno de 80% em FB 2.5.x e o restante em 3.0.x. Bem, meus sistemas se atualizam de forma automatica, tenho uma aplicação que baixa a nova versão e roda um script no banco atualizando tudo, entretanto barrei num problema complexo com o Firebird agora. Na versão 3.0 é permitido usar SET NOT NULL, logo posso usar da seguinte forma: ALTER TABLE [tabela] ALTER COLUMN [coluna] SET NOT NULL; Entretanto na versão 2.5 o código acima não funciona, então tenho que usar desta forma: UPDATE RDB$RELATION_FIELDS SET RDB$NULL_FLAG = 1 WHERE (RDB$FIELD_NAME = 'campo') AND (RDB$RELATION_NAME = 'tabela'); Mas o update em tabelas de sistema não é permitido no FB 3.0.x. Existe alguma solução para isto que eu possa usar num script. Em ultimo caso vou usar o script da 2.5.x e deixar que o erro aconteça nos clientes que estejam na versão 3.0.x minimizando o problema, mas isso vai "quebrar" meus scripts posteriormente. Att, Marcos

Conhece o ORMBr? (www.ormbr.com.br) o "pai" da criança se não me engano é o @Isaque Pinheiro e entre os mantenedores está o @Juliomar Marchetti. Como eu disse antes estou completamente fora do Pascal, matei na minha ultima release a unica aplicação que eu ainda tinha em Lazarus, nem conheço a ferramenta, mas acredito que vale a pena dar uma conferida.

Me enquadro perfeitamente neste caso.

@BigWings O problema não estava no meu código mas sim na versão, a NFe era de um cliente novo, nem no meu sistema a NFe tinha sido emitida, eu ia fazer um micro executavel so pra resolver isso pra ele, foi um "serviço à parte" que vendi pro cliente no momento da implantação. De qualquer forma deu certo aqui comigo, muito obrigado pela atenção.

Amigo eu programo em C# e utilizo um componente nativo, atualmente não uso o ACBrNFe, eu apenas utilizo o forum. Sobre a emissão eu fiz usando o emissor gratuito versão 2.00.

@Agnaldo Prates e outros amigos. Em contato com o Sefaz me solicitaram que baixasse a versão 2.0 do emissor gratuito e emitisse a CCe. Para minha surpresa o CCe foi emitido. Obrigado mesmo assim pela ajuda, abraços

Numa leitura de 2 minutos você explicou o que levei anos para entender minimamente. Excelente, eu te daria um abraço se pudesse haha.

Bom dia, Sim Sim, as respostas aqui foram claras. Muito obrigado a todos pela ajuda!

@Sérgio Assunção Então quando eu renovar devo upar o novo certificado e deixar o antigo, tendo 2 certificados em paralelo, seria isso? Uma ultima questão: meu certificado atual é A1, por questões de custos estou cogitando pegar um A3 na renovação, existe algum problema para tal?

@André Ferreira de Moraes Boa tarde, obrigado pela atenção. Lendo o link que postei anteriormente ficou uma dúvida no ar, no caso de clientes que eu vinculei anteriormente (com o certificado que no caso estaria vencido) eu preciso trocar a chave de ativação ou não existe a necessidade?

Boa noite a todos, Recebi um e-mail da empresa que gerou meu certificado (tipo A1) que meu certificado vence em 60 dias. A única função do meu certificado é gerar a chave de associação do SAT, logo a renovação só seria feita para esta finalidade. Sendo assim fiz um teste com o ACBrSign e um certificado também A1 só que vencido de um cliente e o código de associação foi gerado normalmente. A questão é, existe a necessidade da renovação do meu certificado para estes fins? Att, Marcos Acredito que achei minhas respostas aqui: http://www.afrac.com.br/wp-content/uploads/2016/06/Perguntas-frequentes-de-desenvolvedores-do-SAT.pdf

Bom dia @Agnaldo Prates Obrigado pelas informações, entrei em contato com o contador e ele disse que ja fez este processo algumas vezes, vou imprimir a NT aqui pois essa novela vai gerar novos capítulos... rs Abraços

Bom dia a todos, Um cliente meu precisa emitir uma CCe para uma NFe de 2015 para conseguir uma certidão negativa. Em contato com o contador ele me informou que esse processo era possível, mas meu retorno quando tentei emitir foi que a data da chave era inferior em mais de 6 meses da data atual. Alguém já fez este processo e pode me orientar como fazer? Ou pode pelo menos me dizer se é ou não possível isso, nunca tive esse tipo de solicitação. Obrigado a todos

Problema resolvido, basta executar o Integrador como administrador para ter a resposta como citou o Sr. @André Ferreira de Moraes

Bom dia @André Ferreira de Moraes Quando aciono o comando EnviarPagamento sem internet recebo isto do integrador: <?xml version="1.0" encoding="UTF-8"?> <Integrador> <Identificador> <Valor>331417</Valor> </Identificador> <IntegradorResposta> <Codigo>EE</Codigo> <Valor>Erro inesperado</Valor> </IntegradorResposta> <Resposta> <retorno>Uma exceção foi acionada pelo destino de uma chamada.</retorno> </Resposta> </Integrador> Se tenho internet o id local vem em perfeito estado... alguma ideia de como resolver? PS: Estou usando o Demo para testar

A minha expressão "NCM do IBPT" foi em relação à tabela disponibilizada de forma simples, sem a necessidade de consulta, online... Obrigado pela informação, abraços

Bom dia @Juliomar Marchetti, Obrigado pela atenção... acredito que antes de iniciar eu tenho que entender o projeto... ontem pesquisando achei isso: http://www.theclub.com.br/restrito/revistas/201209/post0912.aspx Vi também que existe uma empresa que todo mundo vem indicando chamada CompanyTec, mas eu ainda quero ter certeza do processo... Pelo que entendi: As bombas são ligadas via cabo em um aparelho chamado CONCENTRADOR e este concentrador tem uma entrada que vai para um PC aonde devo executar o meu programinha "LeitorDeBombasDoMarcos" para ler os dados desse aparelho e enviar para meu sistema... confere esse "roteiro"? Existe outra forma de comunicação? Obrigado, Marcos

Boa noite a todos, Recentemente me apareceu uma demanda para comunicação com bombas de combustível. Uma empresa que trabalhei a vários anos atrás, na época com Delphi 7 tinha um programinha que ficava lendo essas bombas e jogando essa informação numa tabelinha paradox, lembro que era um programinha bem pequeninho e "rudimentar", mas funcionava incrivelmente bem! eu queria fazer algo semelhante... Existe algo do ACBr para isto? O meu problema é que nem sei por onde começar, as informações que acho na internet são muito vagas e as vezes contraditórias... não sei qual a forma de comunicação com essas bombas se é serial, usb, wifi.. alguém pode me mostrar o caminho das pedras? Obrigado, Marcos Gerene

@Jéter Rabelo Ferreira Boa noite, Me desculpe incomodar, mas você teria a relação dos CESTs exitentes num formato CSV igual o NCM do IBPT ou algo parecido que possamos importar no banco de dados? Obrigado pela contribuição, abraços

Boa noite, Para C# eu utilizo esta ferramenta hoje: https://github.com/samuelroliveira/SPEDBr Quando eu comecei a utilizar faltava bastante coisa, mas agora acho que temos algo bem interessante. Já tenho em torno de 25 clientes em produção com o SPED Fiscal (a grande maioria é simples nacional, mas tenho alguns real e presumido) e esta ok, quanto ao sped contribuições eu implementei mas ainda não tenho ninguém em produção. Se precisar de alguma ajuda abra um insue. Abraços