marcianobandeira

Segue em anexo o material completo (compactado) que recebi do banco DAYCOVAL.rar

agora está ok, obrigado.

Oi Juliomar, ainda está com um problema... as chaves estão se repetindo na segunda página... No fonte que envei em anexo tem esta linha: PrintIt := RLCTe.PageNumber = 1; No evento BeforePrint da banda que exibe as chaves, que resolveria/mascararia o problema. Como as bandas são do tipo Header, ao gerar a nova página elas são impressas novamente, Porém percebi que esta solução de ver o número da página é usada em outro trecho do código. Segue em anexo pdf gerado com a versão atual no svn CT-e 000000057.pdf

Bom dia Pessoal, Estava com um problema aqui com um cliente que está adicionando em torno de umas 40 chaves no cte, pois bem o sistema estava imprimindo apenas os primeiros oito... vi pelo log do svn que houveram duas tentativas de correção... a mais recente, está imprimindo as chaves em duas páginas, porém imprime as mesmas chaves e não as subsequentes. Enfim, fiz um ajuste no código que funcionou sem necessidade de separar em uma nova página. Desculpem a abertura de um novo tópico, porém pelo log do svn, consta a url de tópicos que estão no SAC aos quais eu não tenho acesso. Segue em anexo. Att, Marciano Bandeira ACBrCTeDACTeRLRetrato.pas

Estou com uma duvida, quando o destinatário for uma empresa por exemplo, contribuinte de ICMS, devo informar as tags da partilha? ou apenas quando for cpf?

Boa tarde pessoal, Favor, poderiam incluir a cidade de Santo Antônio da Platina - PR (IBGE: 4124103) no componente. Verifiquei junto a prefeitura o endereço do web-service é: HTTP://200.150.106.110:90/NFSEWS/Services.svc Segundo o que me passaram, não sei se procede, não existe um web-service de homologação, apenas produção mesmo O provedor é Pronim Grato

Bom dia Segue os Arquivos que Recebi do Banco Att Manual Banco Daycoval.pdf Cobrança Bradesco - SISLSR.pdf layout_cobranca_port_18072008.pdf

Olá Pessoal., Estou desenvolvendo a classe TACBrBancoDaycoval, ao que me parece este banco é uma espécie de correspondente do banco bradesco, a princípio está indo bem, já desenvolvi a geração do arquivo de remessa 400 posições que é bem diferente da classe do bradesco, porém, estou recebendo um retorno da homologação com esta rejeição "Acerto no campo cip, Deve constar o campo CIP 504 ao lado do campo uso do Banco " Aparentemente é um ajuste no layout do boleto, porém não tenho certeza, alguém poderia me dar uma luz? Consegui encontrar um exemplo no manual, segue em anexo, Será que devemos criar esta propriedade "Cip" na classe "TACBrTitulo"? Vou criar no meu fonte local aqui e depois posto, se alguém tiver alguma sugestão eu agradeço Grato Cobrança Bradesco - SISLSR.pdf

Opa, o Juliomar já respondeu, será necessário migrar para trunk 2. Att,

Olá bom dia, Acho que estou com o mesmo problema (ou bem parecido), Segue os dados que estou recebendo no debug da funçao FormataNossoNumero AConvenio = 2654851 ANossoNumero = 00000000000006257 Carteira = 18 wTamNossoNum = 17 Está entrando nesta linha no debug else if (Length(AConvenio) = 7) then ANossoNumero := PadLeft(AConvenio, 7, '0') + PadLeft(ANossoNumero, 10, '0'); Após esta linha ANossoNumero = 26548510000000000 Tentei trocar para PadRight porém percebi que no ACBrUtil ambas as funções PadRight e PadLeft utilizam internamente LeftStr ou seja, ambas tem o mesmo comportamento Fiz os ajustes na unit do banco do brasil e acbrutil, aparentemente está funcionando agora... porém AcbrUtil é usado em varios lugares, não até onde esta alteração poderá impactar.. segue os fontes alterados ACBrBancoBrasil.pas ACBrUtil.pas

Opa, quando eu disse DANFe eu quis dizer DANFCe... Eu não criei um register nele porque eu não uso via componente eu crio via runtime, mais enfim caso queira posso adicionar um register, no meu caso não preciso dele. Att, Marciano Bandeira

Bom dia Juliomar, estou utilizando a trunk2 mesmo. Não criei o register pois acredito que de pra colocar junto do componente já existente hoje para fortes report.. de qualquer forma estou utilizando assim... self.FAcbrNFe.DANFE := TACBrNFeDANFCeFortesA4.Create(self.FAcbrNFe) Att, Marciano Bandeira

Bom dia, demorou um pouquinho que tava meio corrido aqui, rs... depois de tanto "sugar" o projeto acbr eis uma pequena contribuição em anexo. Att, Marciano Bandeira danfe pdf a4.pdf ACBrDANFCeFortesFrA4.dfm ACBrDANFCeFortesFrA4.pas

Eu faço um processo semelhante, porém ao invés de criar o res eu fiz um programinha que eu serializo o arquivo em um array de bytes e jogo direto dentro do fonte e na initalization da unit crio o arquivo, isso sempre funcionou tranquilamente... porem as dlls da openssl por algum motivo o sistema nem chega a rodar a initialization das units.

Olá Pessoal, Estou realizando a homologação no banco do brasil para carteira 51 variação 019, ao enviar o arquivo recebi algumas validações do banco, segue "Prezado cliente, Segue análise, conforme convênio abaixo informado: ------------------------ Detalhamento do Convenio ---------------------------- Agencia : 0426 X - STO.ANTONIO PLATINA Beneficiario : 3377 4 - MAQUINA DE ARROZ PLATINA LTDA Cart/Variacao : 51/019 DESCONTADA Tipo Convenio : 1 Bco: Numera, emite e expede Situacao : 1 Normal com retorno Nr.Convenio : 0091203 Tipo Ret.Lider: 6 CNAB240 - Ger.Financ./Mainf-Mainf ---------------------------------------------------------------------- Analisamos o Arquivo-remessa e identificamos a(s) seguinte(s)inconsistência(s) : ==================================================================================================== Segmento P > Lote 0001 ---------------------------------------------------------------------------------------------------- Posições 038 a 057: Conforme cadastramento do convênio, quem fará a numeração dos títulos será o Banco do Brasil, nesse caso, preencher com brancos ou zeros Posições 058 a 058: Quando a carteira for 51, preencher com '4' para registro na modalidade descontada Posições 061 a 061: Para carteira 51 com código de movimento 01, preencher com branco, zero ou '1' Posições 062 a 062: Para carteira 51, preencher com branco, zero ou '1' Posições 106 a 106: Preencher com branco ====================================================================================================" A posição 106 no seguimento P está com "0" fixado no código, o nosso numero se eu informar uma string vazia o componente faz a montagem e não deixa nem zerado nem com brancos, fiz alguns ajustes e estou colocando em anexo para analise. Grato Marciano Bandeira ACBrBancoBrasil.pas analise bb.txt cb280805.rem CbrVer04BB.pdf

Opa, eu utilizo o seguinte, eu gero um arquivo compactado com o executável do sistema mais os arquivos que eu preciso mandar para a versão, ai no cliente, um terminal baixa a atualização e disponibiliza para os outros, aí eu embuti as dlls dentro deste arquivo compactado... porem os outros terminais copiam apenas o executável de uma pasta especifica na rede onde o primeiro que atualizou joga o executável mais novo la... então tive que acabar atualizando os terminais manualmente (copiar as dlls), porém agora estou mudando aqui e vou fazer os terminais copiarem o mesmo arquivo compactado ao invés de apenas o executável... isso resolvera o meu problema futuramente se isso acontecer de novo, mais desta vez tivemos que fazer uma força tarefa aqui e atualizar o pessoal na unha mesmo. att, Marciano Bandeira

Blz Daniel testei aqui com certificado A3 e o problema está resolvido.

Não é a melhor das soluções pois apenas mascarei o problema, mais vou usar desta forma até uma solução melhor aparecer segue em anexo o arquivo caso queiram deixar assim por enquanto ACBrDFeCapicom.pas

acho que seu caso deve ser as configuracoes do internet explorer vou dar um print nas minhas pra vc ver

isso, nao vai entrar se deixar em branco

na trunk 2 nao ocorre se deixar em branco o campo senha... quando informa o campo senha, da certo o primeiro envio, no segundo da pau

achei o trecho de codigo na trunk 1 em ACBrNFeConfiguracoes... mais mesmo trocando por ele ocorre o erro a partir da segunda vez if (FSenhaCert <> '') and PrivateKey.IsHardwareDevice then begin XML := XML + '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />'; XML := XML + '<Reference URI="#">'; XML := XML + '<Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />'; XML := XML + '<DigestValue></DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo></KeyInfo></Signature>'; xmldoc := CoDOMDocument50.Create; xmldoc.async := False; xmldoc.validateOnParse := False; xmldoc.preserveWhiteSpace := True; xmldoc.loadXML(XML); xmldoc.setProperty('SelectionNamespaces', DSIGNS); xmldsig := CoMXDigitalSignature50.Create; xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); xmldsig.store := CertStoreMem; dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); if (dsigKey = nil) then raise EACBrNFeException.Create('Erro ao criar a chave do CSP.'); SigKey := dsigKey as IXMLDSigKeyEx; SigKey.getCSPHandle( hCryptProvider ); try CryptSetProvParam( hCryptProvider , PP_SIGNATURE_PIN, windows.PBYTE(FSenhaCert), 0 ); finally CryptReleaseContext(hCryptProvider, 0); end; SigKey := nil; dsigKey := nil; xmldsig := nil; xmldoc := nil; end;

Daniel, não usei o winmerge aqui mais fiz o seguinte teste deixei a senha do certificado informada no primeiro envio foi de boa no segundo envio eu forcei (via debug do xe8) pular este if que mencionei acima foi de boa no terceiro envio eu forcei novamente e foi de boa.. no quarto envio deixei o codigo entrar no if e deu o problema... uma soluçao, nao muito bonita, seria criar um dictionary estatico guardando o numero de serie do certificado digital, entao so entraria no if caso o numero de serie nao estivesse no dictionary... isso iria mascarar o problema att

Em cima! deixando o campo senha em branco foi sem problemas... provavel que o problema esteja neste trecho de codigo do ACBrDFeCapicom.pas ne... // Atribuindo Senha para memória, se o Certificado for A3 // if (Senha <> '') and PrivateKey.IsHardwareDevice then begin XML := SignatureElement('', False); xmldoc := CoDOMDocument50.Create; xmldoc.async := False; xmldoc.validateOnParse := False; xmldoc.preserveWhiteSpace := True; xmldoc.loadXML(XML); xmldoc.setProperty('SelectionNamespaces', DSIGNS); xmldsig := CoMXDigitalSignature50.Create; xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); xmldsig.store := FCertStoreMem; dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); if (dsigKey = nil) then raise EACBrDFeException.Create('Erro ao criar a chave do CSP.'); SigKey := dsigKey as IXMLDSigKeyEx; SigKey.getCSPHandle(hCryptProvider); try CryptSetProvParam(hCryptProvider, PP_SIGNATURE_PIN, Windows.PBYTE(Senha), 0); finally CryptReleaseContext(hCryptProvider, 0); end; SigKey := nil; dsigKey := nil; xmldsig := nil; xmldoc := nil; end;

geralmente na trunk 1 eu so conferia as configuracoes do internet explorer e funcionava tranquilo, agora na trunk 2 estou quebrando a cabeca aqui tentando debugar, mais ainda nao consegui chegar em lugar algum