Ir para conteúdo
  • Cadastre-se

Marcos Ramos

Membros
  • Total de ítens

    15
  • Registro em

  • Última visita

Posts postados por Marcos Ramos

  1. 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

  2. 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

  3. 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,

  4. Pessoal eu sei que esse assunto já foi discutido aqui varias vezes mas eu estou com um problema a dias e não consigo achar uma solução, estou fazendo a seguinte simulação

    qtd               preco unit     total

    1,100              33,33        36,66

    1,200              33,33        40,00

    1,300              33,33        43,33

    1,400              33,33        46,66

    1,500              33,33        50,00

    0,333              33,33        11,10

    ---------------------------------------

    subtotal                      227,75

    desconto                      0,50

    total                           227,25

    joia dai eu fecho a venda e faço o rateio do desconto pra emissão da nfce

    qtd               preco unit    desconto   total

    1,100              33,33            0,08       36,58

    1,200              33,33            0,09      39,91

    1,300              33,33            0,01     43,23

    1,400              33,33            0,01     46,56

    1,500              33,33           0,11      49,88

    0,333              33,33           0,02     11,08

    -----------------------------------------------------

    total                                   0,50     227,24

    observem que no final ele da 0,01 centavos de diferença em relação a primeira lista sem o rateio, em todas as operações eu estou usando o RoundAbnt quando lanço o produto na venda eu faço RoundAbnt(qtd x preco_unit) , sera que alguém tem alguma ideia em relação a esta rotina onde estes valores possam bater, para que não de diferença

     

  5. 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

  6. 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,

  7. 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?

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.