Marcos Ramos

tive um problema com o registro Header do CNAB400, foi solucionado da forma que esta abaixo procedure TACBrBancoSafra.GerarRegistroHeader400(NumeroRemessa: integer; ARemessa: TStringList); var aAgencia, aConta, wLinha: String; begin aTotal := 0; aCount := 0; FNumeroRemessa := NumeroRemessa; with ACBrBanco.ACBrBoleto.Cedente do begin aAgencia := PadLeft(ACBrBoleto.Cedente.Agencia, 4, '0') + PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0'); aConta := PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0'); wLinha := '0' + // ID do Registro Header '1' + // ID do Arquivo de Remessa 'REMESSA' + // Literal de Remessa '01' + // Código do Tipo de Serviço PadRight('COBRANCA', 15) + // Descrição do tipo de serviço + "brancos" aAgencia+aConta + // Codigo da Empresa no Banco // PadRight(CodigoCedente, 14, '0') Space(6) + // "brancos" PadRight(Nome, 30) + // Nome da Empresa IntToStr(Numero) + // Código do Banco - 237 PadRight('BANCO SAFRA', 15) + // Nome do Banco - BANCO SAFRA + "brancos" FormatDateTime('ddmmyy', Now) + // Data de geração do arquivo Space(291) + // "brancos" IntToStrZero(NumeroRemessa, 3) + // Nr. Sequencial de Geração do Arquivo IntToStrZero(1, 6); // Nr. Sequencial do Registro no Arquivo ARemessa.Text := ARemessa.Text + UpperCase(wLinha); end; end; essa informação do código da empresa no banco estava vindo alimentada pelo código do cedente, dai o banco questionou alinhamentos posições e zeros, dai copiei a mesma rotina do registro de transação, onde ele separa ambos e faz o tratamento

sim, no momento que dou enter a primeira coisa que faço é desabilitar o botão, e além disso dou um setfocus pra outro componente, mas mesmo assim ainda da problema

bom dia, estou tendo um problema com RDPrint e gostaria de saber de alguém já passou por isso, tenho rotinas no sistema onde o usuário finaliza uma operação e já sai impresso um comprovante da mesma, porem dependendo da intensidade que o operador aperta a tecla enter do nada o aplicativo tenta mandar varias vezes a mesma impressão, é quase como se por ex. na rotina eu dou 3 enter e ele dispara 3 vezes o evento on-click do botão, já tive casos dele duplicar realmente a rotina e gravar varias vezes a mesma informação, já tentei desativar o botão ao executar a rotina mas da problema do mesmo jeito, pelos testes que fiz se desativar a impressão funciona normalmente, montei uma rotina que grava um txt ao invez que imprimir e rodou beleza, só quando uso o rdprint tenho problemas, alguém já se deparou com isso, e poderia me dar uma luz

Bom dia pessoal, estou montando um projeto utilizando o componente sped fiscal e estou com uma duvida em relação ao preenchimento do mesmo, por ex. ao alimentar os registros com as informações, teria como ja checar o que esta dentro do componente, tipo estou inserindo registros de unidades, dai antes de mandar uma unidade de medida para o componente checar se a mesma ja nao esta la dentro,

bom dia Andre, eu vi um video onde voce faz uma emissao de nfce no modulo ecfteste, fiquei curioso como foi feito, vi que existe a ecf virtual, que da pra configurar ela como modelo no componente acbr ecf porem nao tem como conectar o acbrecf no nfe, uma outra duvida, essa saida da ecf virtual eu consiguiria mandar direto pra impressora ao invez de um txt? no caso com a ecf virtual daria pra usar o componente do tef

Gostaria de saber se é possivel fazer uma carta de correção de uma NFC-e emitida, em relacao a NFe eu ja utilizo e funciona muito bem, fiz alguns testes com XML de NFC-e e nao deu certo

amigos vou deixar a solução aqui caso alguem passe por este problema, em contato com o suporte do banco me foi passado a mesma informacao que esta no manual do layout do boleto, convenios apenas com (4,6,7) posições, na verdade nao existe convenio de 8 posicoes, o pessoal da agencia local esta totalmente desinformado em relacao a passar essas informações para o cliente,

configurei o acbrboleto para um cliente efetuar emissao de boletos com a carteira 18 porem o codigo do cedente que o banco passou é de 8 digitios com isso a geracao da linha digitavel nunca da, olhando o codigo da unit do banco do brasil percebi que ele nao aceita um codigo maior que 7 CodigoBarras := IntToStrZero(Banco.Numero, 3) +'9' + FatorVencimento + IntToStrZero(Round(ACBrTitulo.ValorDocumento * 100), 10) + IfThen((Length(AConvenio) = 7), '000000', '') + ANossoNumero + IfThen((Length(AConvenio) < 7), padR(OnlyNumber(Cedente.Agencia), 4, '0'), '') + IfThen((Length(AConvenio) < 7), IntToStrZero(StrToIntDef(OnlyNumber(Cedente.Conta),0),8), '') + ACBrTitulo.Carteira; como proceder nesse caso?