edudsg

Atualizei o código do projeto para ler alguns links novos do sintegra. Para quem tem mais experiencia com leitura de pagina web poderá implementar o resto dos links. BuscaCnpjSintegra.rar Bin.rar

Alguns links não estão mais funcionando, será necessário implementar. O objetivo é ver se pode ser aproveitado este projeto.

Estou reenviando a consulta desta vez fiz um projeto. veja anexo. Selecione a UF preencha o cnpj realize a consulta, ai então clique no botão capturar dados. Vejam se é possível melhora-lo. Os dados de retorno são: Razão social Inscr. Estadual Endereço completo se Ativo

é existe alguns endereços q mudaram, mas espero apenas contribuir com a ideia.

o retorno da consulta no site do sintegra informa se a empresa está ativa os dados , data de quando iniciou ,se é obrigado enviar nfe. ai fiz essa tela para poder capturar os dados da consulta feita no site.

Gostaria de compartilhar minha consulta do sintegra, e ver se podem melhorar e ser incorporado no projeto. exemplo de uso: fmConsultaSintegra := TfmConsultaSintegra.create(self); fmConsultaSintegra.uf:= 'SP'; // passe a UF onde deseja consultar fmConsultaSintegra.showmodal; freeandnil(fmConsultaSintegra); consSintegra.zip

estou tendo mesmo problema, não uso monitor , é pelo evento e o componente está nfe.

Apos atualizar, ao gerar a remessa o arquivo na linha gerada pelo GerarRegistroTransacao400 quando possui apenas um titulo esta montando a linha duplucada uma ao lado da outra, exemplo: linhas : Header DADOS_Transacao1 + DADOS_Transacao1 Trailler Acredito que acorreção seja: wLinha := wLinha + DoMontaInstrucoes1(wLinha); aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); mudar para : wLinha := DoMontaInstrucoes1(wLinha); aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); Obrigado pela atenção. ps: desculpe mas nao foi possivel enviar o arquivo, esva dando "Error This upload failed"

sempre verifico o svn, já percebi que de pendendo da região o o banco "x" não aceita, mesmo que no layout oficial esteja mostrado o contrario, é difícil mater. Acredito que no final a solução mesmo é manter um fonte paralelo apenas para essas "besteiras". Bom bola pra frente, e obrigado pela atenção.

Ao enviar para teste os boleto impressos da caixa cuja carteira sem registro, foi rejeitado pois a impressao continham erro de nomeclatura dos campos, eu conferi com o layout fornecido pela caixa e realmente está diferente, são eles: errado correto Espécie Doc. Espécie Docto. Desconto / Abatimento Desconto Outras Deduções Outras Deduções / Abatimento Mora / Multa Mora / Multa / Juros CODIGO_BARRAS_SIGCB.PDF

foi isso mesmo.

a unit acbrproprio.pas é uma copia do acbrbancobrasil.pas

criei uma class nova acbrProrprio no acbrBoleto no lugar de cobNenhum coloquei cobproprio adicionei o layout lcarneproprio na impressao fortes no case do layout ficou lcarne, lcarneproprio: comandos...

estou disponibilizado as modificaçoes que fiz para usar um carnê personalizado. veja anexo. FonteCarneProprio.zip

Quanto ao digito concegui um cristao que pudesse me dizer qual é , liguei p/ suporte me informaram, quanto a carteira nao tinha percebido isso, vou averiguar com meu cliente. Espero q as demais alteraçoes que fiz no codigo possar ser util. Obrigado pela atenção.

em anexo as modificaçoes que fiz olhei atentamente o layout SIGCB SETEMBRO/2007 ACBrCaixaEconomica.pas CNAB__240__SIGCB.pdf

Correção arq. remessa Caixa SIGCB

eu ainda nem passar na validação da remessa concegui veja meu topico acima . preciso de ajuda tb.

outra diferença que existe na geração do arquivo e o layout no registro header de lote referente a lote as posiçoes 4 a 7 está fixo 0001 e no trailer de lote posiçoes 4 a 7 esta fixo 9999 e no trailier de arquivo o mesmo 9999 recebi do validador a regeição do trailer nessa posição. e nas posiçoes 24 a 29 do trailer de lote referente a Qtd de titulos em cobrança está fixo zeros ; Por favor Vejam

aseguinte função sobre a carteira da empresa, se for sem registro porque a linha " Num := ACarteira + '4' + PadR(ANossoNumero, 15, '0'); " está fixo o '4' pois no layout seguimento P diz o seguinte : Quando informado pelo Cliente/Cedente, o Nosso Número deverá obedecer o seguinte formato: CCNNNNNNNNNNNNNNN, onde: CC = 11 (título Registrado emissão CAIXA) CC = 14 (título Registrado emissão Cedente) CC = 21 (título Sem Registro emissão CAIXA) NNNNNNNNNNNNNNN = Número livre do Cliente/Cedente nesse caso se vou trab. sem registro a carteira é 21 . function TACBrCaixaEconomica.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String; var Num, ACarteira, ANossoNumero, Res :String; begin Result := '0'; if (ACBrTitulo.Carteira = 'RG') then ACarteira := '1' else if (ACBrTitulo.Carteira = 'SR')then ACarteira := '2' else raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ; ANossoNumero := OnlyNumber(ACBrTitulo.NossoNumero); Num := ACarteira + '4' + PadR(ANossoNumero, 15, '0'); Modulo.CalculoPadrao; Modulo.MultiplicadorFinal := 2; Modulo.MultiplicadorInicial := 9; Modulo.Documento := Num; Modulo.Calcular; Res:= IntToStr(Modulo.ModuloFinal); if Length(Res) > 1 then Result := '0' else Result := Res[1]; end;

Conforme o layout no header posiçoes 172 a 191 é preenchido com espaços e não zeros.

Na linha header o cnpj do cedente está saindo formatado, deve-se retirar a formatação, usando a função OnlyNumber() Gotaria de saber se poderiam implementar uma propriedade teste quando verdadeiro altere a posição 192 a 211 que está preenchido com 'REMESSA-PRODUCAO' seja 'REMESSA-TESTE'. facilitando a geração de arquivo para homologação.

Obrigado por lembrar de mim. Aos demais, se quiserem mostro a solução adotada.

Realmente é chato mesmo, boa parte das ligações de meus clientes é pq a mensagem não é clara. Mas não se engane nem toda mensagem de erro que é retornado é o problema.

Gostaria de compartilhar com todo minha experiência, fiz um complemento no codigo do projeto recupera xml, para que possa assinar o arquivo e tornar QUASE igual ao original. Vejas os passos //1- após recuperar o xml, apliquei o codigo no método GeraXML // retira as seguintes tags xml2:= TStringList.create; xml2.LoadFromFile(FPath); xml2.text:= StringReplace( xml2.text ,'','',[] ); xml2.text:= StringReplace( xml2.text ,'','',[]); xml2.text:= UTF8Encode( copy( xml2.text ,1, pos('',xml2.text)+5 ) ); xml2.savetofile(FPath); freeandnil(xml2); //2- assinar o xml ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(FPath); ACBrNFe1.NotasFiscais.Assinar; //3- consultar pelo xml ACBrNFe1.Consultar; Pronto o XML está QUASE igual ao gerado. Por falta de algumas tags como , (esta tag fica sem o Id ) e outras a assinatura não esta igual bom no caso pra ficar perfeito seria necessário trazer exatamente as tags geradas no original. Espero que alguem tenha mais neurônios pra queimar.