jrpiresfs

Bom dia, pessoal! Estou enfrentando uma dificuldade com o banco Safra, no campo de % de multa, no arquivo de remessa. Todo o resto do arquivo está ok, só este campo em específico não está indo e eles retornam a crítica. Segue abaixo meu código: Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := sqlContasDATA_VENCIMENTO.AsDateTime; DataDocumento := sqlContasDATA_EMISSAO.AsDateTime; NumeroDocumento := sqlContasDOCUMENTO.AsString; EspecieDoc := sqlContaCorrenteCTA_ESPECIE.AsString; if sqlContaCorrenteCTA_ACEITE.AsString = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; Carteira := sqlContaCorrenteCTA_CARTEIRA.AsString; if SqlContasNOSSONUMERO.AsString = '' then NossoNumero := IntToStrZero(xNossoNumerox,sqlContaCorrenteBAN_TAMANHO_NOSSO_NUMERO.AsInteger) else NossoNumero := SqlContasNOSSONUMERO.AsString; SqlContasNOSSONUMERO.AsString := NossoNumero; ValorDocumento := sqlContasVALOR_ORIGINAL.AsFloat; SQLAux.Close; SQLAux.SQL.Clear; SQLAux.SQL.Add('select * from c000007'); SQLAux.SQL.Add('where CODIGO ='+sqlContasCODCLIENTE.AsString); SQLAux.Open; Sacado.NomeSacado := SQLAux.FieldByName('nome').AsString; Sacado.CNPJCPF := SQLAux.FieldByName('cpf').AsString; if SQLAux.FieldByName('tipo').AsInteger = 2 then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; Sacado.Logradouro := SQLAux.FieldByName('endereco').AsString; Sacado.Numero := SQLAux.FieldByName('numero').AsString; Sacado.Bairro := SQLAux.FieldByName('bairro').AsString; Sacado.Cidade := SQLAux.FieldByName('cidade').AsString; Sacado.UF := SQLAux.FieldByName('uf').AsString; Sacado.CEP := StringReplace(SQLAux.FieldByName('cep').AsString,'-','',[rfReplaceAll]); LocalPagamento := sqlContaCorrenteCTA_LOCAL_PAGTO.AsString; CodigoDesconto := cdSemDesconto; CodigoNegativacao := cnNenhum; CodigoMoraJuros := cjTaxaDiaria; ValorAbatimento := 0; ValorMoraJuros := ((sqlContasVALOR_ORIGINAL.AsFloat * qrconfigCONTASRECEBER_TAXAJUROS.AsFloat) /100);// /30; ValorDesconto := 0; DataMoraJuros := sqlContasDATA_VENCIMENTO.AsDateTime; DataDesconto := 0; DataAbatimento := 0; EspecieMod := 'R$'; if sqlContaCorrenteCTA_DIAS_PROTESTO.AsInteger > 0 then DataProtesto := sqlContasDATA_VENCIMENTO.AsDateTime + sqlContaCorrenteCTA_DIAS_PROTESTO.AsInteger; MultaValorFixo := False; CodigoMulta := cmPercentual; DataMulta := IncDay(sqlContasDATA_VENCIMENTO.AsDateTime, 1); PercentualMulta := qrconfigCONTASRECEBER_MULTA.AsFloat; OcorrenciaOriginal.Tipo := toRemessaRegistrar; if (Trim(SQLAux.FieldByName('Mensagem').AsString) <> '') then begin Mensagem.Text := Trim(SQLAux.FieldByName('Mensagem').AsString); end else begin Mensagem.Text := sqlContaCorrenteCTA_MENSAGEM.AsString; end; Parcela := 1; SqlContasREMESSA.AsString := 'S'; SqlContas.Post; end; O que pode estar faltando ?

Boa tarde. O ACBr Boleto já integra com webservice Bradesco ? Grato.

Realmente era apenas isso ! Atualizei o ACBr e foi. Obrigado !

Boa tarde, pessoal! Tudo bem ? Onde será que tô errando ai ? Ele gera tudo certinho, só não tá gerando o k235. Se eu debugo, vejo percorrendo os dados certinho da tabela, mas a bagaça não grava no arquivo. with SPEDFiscal.Bloco_K do begin with RegistroK001New do begin IND_MOV := imComDados; with RegistroK100New do begin DT_INI := edtDataInicial.Date; DT_FIN := edtDataFinal.Date; Q0200.First; while not Q0200.Eof do begin QK200.Close; QK200.SQL.Clear; QK200.SQL.Add('SELECT * FROM C000100 WHERE CODPRODUTO = :CODPRODUTO'); QK200.ParamByName('CODPRODUTO').AsString := Q0200.FieldByName('COD_ITEM').AsString; QK200.Open; // QK200.First; with RegistroK200New do begin COD_ITEM := QK200.FieldByName('CODPRODUTO').AsString; QTD := QK200.FieldByName('ESTOQUE_ATUAL').AsFloat; IND_EST := estPropInformantePoder; COD_PART := ''; DT_EST := edtDataFinal.Date; end; Q0200.Next; end; QK230.Close; QK230.SQL.Clear; QK230.SQL.Add('SELECT * FROM PRODUTO_PRODUCAO '); QK230.SQL.Add('WHERE DATA BETWEEN :DATAI AND :DATAF '); QK230.ParamByName('DATAI').AsDate := edtDataInicial.Date; QK230.ParamByName('DATAF').AsDate := edtDataFinal.Date; QK230.Open; QK230.First; while not QK230.Eof do begin with RegistroK230New do begin DT_INI_OP := QK230.FieldByName('DATA').AsDateTime; DT_FIN_OP := QK230.FieldByName('DATA').AsDateTime; COD_DOC_OP := IntToStr(QK230.FieldByName('IDPK').AsInteger); COD_ITEM := QK230.FieldByName('PRODUTO_FINAL').AsString; QTD_ENC := QK230.FieldByName('QTDE_PRODUZIDA').AsFloat; end; QK235.Close; QK235.SQL.Clear; QK235.SQL.Add('SELECT * FROM PRODUTO_PRODUCAO_INSUMO WHERE IDPRODUCAO = :IDPROD'); QK235.ParamByName('IDPROD').AsInteger := QK230.FieldByName('IDPK').AsInteger; QK235.Open; QK235.First; while not QK235.Eof do begin with RegistroK235New do begin DT_SAIDA := QK230.FieldByName('DATA').AsDateTime; COD_ITEM := QK235.FieldByName('IDINSUMO').AsString; QTD := QK235.FieldByName('QUANTIDADE').AsFloat; QK235.Next end; end; QK230.Next; end; end; end; end;