rodrigofernandes

Bom dia tudo bem ? Preciso iniciar o processo de emissão da NFC-e e gostaria de uma dica por onde iniciar o processo, já utilizo o NFe. Desde já agradeço !!!

Não estou salvando nenhum tipo de arquivo no computador para ocorrer o erro, estou adicionado uma StringList acbrEnviarEmail.AltBody.Text := sStringList.Text;

Boa Tarde tudo bem ? Estou testando o envio do e-mail com o ACBRMAIL e está ocorrendo o seguinte erro: erro io 105 O erro ocorre quando executo o método Send. O erro ocorre no servidor, sendo que na estação de testes o envio é realizado com sucesso. O servidor tem Sistema Operacional Windons Server 2012. Desde já agradeço.

Bom dia amigos .. Na criação dos segmentos referente aos pagamentos tenho dúvidas dos tipos de lançamentos exmeplo: Registro1.Servico.TipoServico := tsPagamentoFornecedor; está opção estou utilizando para pagamentos de alguns tipos de boletos este é validado pelo banco. Na no pagamento DOC/TED estou tendo o seguinte retorno na validação do banco Registro1.Servico.TipoServico := tsPagamentoFornecedor; Registro1.Servico.FormaLancamento := flDocTed; ============================================================================================================================ Linha 3, Segmento A, colunas 021 a 023, Código do banco inválido ou não informado. Linha 3, Segmento A, colunas 218 a 219, Código finalidade de DOC inválido. ==================================================================================================================== Não localizei a tag para inserir o Código do banco.

Bom dia, pessoal, tudo bem? Estou iniciando um projeto que será necessário a importação do arquivo de Extrato Bancário (OFX), verifiquei no fórum alguns tópicos a respeito e localizei um arquivo de exemplo que estou colocando em anexo. O exemplo falta algumas classes. Como é uma postagem um pouco antiga gostaria de saber se utilizam o processo e caso tenham algum exemplo da utilização eu agradeço, Desde já muito obrigado. Financeiro.YMOFXReader.pas

Fiz a atualização e testes no exemplo e ficou correto !!!! Muito legal !!! muito obrigado pela atenção de todos.

Bom dia, tudo bem ? Ao utilizar o exemplo do PagFor para ler o arquivo de retorno não dá erro na leitura, mas não apresenta os dados de retorno abaixo está a leitura pelo próprio banco: Pelo validador do banco tenho o seguinte retorno 0001 Contas/Trib. com barras Inclusão Liberado 82660000000 62300071202 21120202201 40888361000 SAAE-INDAIATUBA/SP 20/11/2022 03/11/2022 0000000000062,30 BO_1006 BD - Agendado. Aqui está a leitura feito pelo exemplo do componente: Arquivo de Retorno: C:\Users\Downloads\PI031104.ret Lido com sucesso. Lista de Ocorrências: Não mostra as ocorrências do arquivo. Estou colocando em anexo o arquivo de retorno, desde já agradeço a atenção de todos. PI031104.ret

Bom Dia Criei uma rotina para separar os dígitos da linha digitável quando tem 48 dígitos e utilizei a do exemplo para separar quando tem 47 digitos, na segunda feira irei fazer o envio ao banco para ter o retorno, caso de certo posto aqui.

Bom dia tudo bem ? Estou criando o arquivo de remessa pelo AcbrPagFor para o MultiPag Bradesco o arquivo solicita 44 dígitos para o código de barras tenho dois tipos de código de barras com 48 e 47 dígitos, existe uma forma de gerar sobre esses 47 ou 48 dígitos, os 44 necessários para o arquivo de remessa. Segue os código de barras que estou utilizando no momento: 34191090089848450854815760650000791650000009950 826600000002623000712025211202022011408883610003 Desde já agradeço. Valeu galera !!!

Pelo validador do banco tenho o seguinte retorno 0001 Contas/Trib. com barras Inclusão Liberado 82660000000 62300071202 21120202201 40888361000 SAAE-INDAIATUBA/SP 20/11/2022 03/11/2022 0000000000062,30 BO_1006 BD - Agendado.

Fiz a atualização conforme solicitado, não da erro mas ele não lê as ocorrências. Estou colocando em anexo o arquivo de retorno, somente os dados de agencia, conta e titular foram alterados.PI031104.ret

Estou com um erro no retorno do MultiPag, no exemplo do Acbr. Alguém poderia informar o erro ocorre na seguinte linha with ACBrPagFor1.Arquivos.Items[0].PagFor.Registro0.Aviso.Items[i] do

Os boletos referente a CPFL, consumo de água está sendo validado, estou criando da seguinte forma Registro1.Servico.Operacao := toCredito; Registro1.Servico.TipoServico := tsPagamentoContas; Registro1.Servico.FormaLancamento := flPagamentoContas; Estou com problemas na geração dos boletos com código de barras com menos números, quais opções devo selecionar ??

Notei que a classe não está gerando o registro referente ao tipo de conta Conta.TipoConta Alguém saberia me informar se estou fazendo algo errado .. ou a classe realmente não está gerando essa informação que teria que ser CC ou PP ?

O boleto de consumo consegui a validação utilizando o Segmento O. Agora vou ver do DOC/TED.

O arquivo está sendo gerado, mas tenho algumas dúvidas na questão dos tipos de serviços Registro1.Servico.Operacao := toCredito; Registro1.Servico.TipoServico := tsCobranca; Registro1.Servico.TipoServico := tsPagamentoFornecedor; Registro1.Servico.FormaLancamento := Meu cliente vai utilizar as seguintes formas de pagamentos e não localizei ao certo no manual quais informações devo passar para da forma de pagamento. Boleto de Consumo e de Cobrança Pix Doc e Ted Desde já agradeço.

a linha do arquivo de remessa 2370001300001J000 CPFL 0611202200000000010000000000000000000000000000000000006112022000000000100000000000000000000 09 23700015 000003000000000000100000000000000000000000000000 23799999 000001000005000000 Alguém teria um forma de como são criados os segmentos ?

Boa noite o áudio é muito esclarecedor, utilizando o exemplo do AcbrPagFor o arquivo foi gerado, mas ainda tenho dúvidas, estou com o primeiro tipo de pagamento que é boleto, ao tentar validar na ferramenta de validação do banco recebo o seguinte retorno: Linha 3, Segmento J, colunas 021 a 021, Código de barras moeda inválida. Linha 3, Segmento J, colunas 022 a 022, Dígito do código de barras inválido. Linha 3, Segmento J, colunas 092 a 099, Data de vencimento divergente do fator de vencimento do código de barras. Linha 3, Segmento J, colunas 100 a 114, Valor nominal do título divergente do valor no código de barras. Linha 3, Segmento J, não informado próxima linha Segmento J-52 Dados do beneficiário. Obrigatório a partir de 30/08/2019. Estou inserindo os dados da seguinte maneira: with SegmentoJ.New do begin TipoMovimento := tmInclusao; CodMovimento := imInclusaoRegistroDetalheLiberado; CodigoBarras := QryPesquisaMovtoCOD_BARRAS.Value; NomeCedente := QryPesquisaMovtoRAZAOSOCIAL.Value; DataVencimento := QryPesquisaMovtoDATA_VENCIMENTO.Value; ValorTitulo := QryPesquisaMovtoVALOR_MOVTO.AsFloat; Desconto := 0.0; Acrescimo := 0.0; DataPagamento := QryPesquisaMovtoDATA_PREV_RECEBIMENTO.Value; ValorPagamento := QryPesquisaMovtoVALOR_MOVTO.AsFloat; QtdeMoeda := 0.0; ReferenciaSacado := ''; CodigoMoeda := 09; TotalLote := TotalLote + ValorPagamento; end; Desde já agradeço a linha do arquivo de remessa 2370001300001J000 CPFL 0611202200000000010000000000000000000000000000000000006112022000000000100000000000000000000 09 23700015 000003000000000000100000000000000000000000000000 23799999 000001000005000000

Bom dia, tudo bem? É possível utilizar o AcbrPagFor para enviar de arquivos para a ferramenta MultiPag do banco Bradesco? Desde já agradeço a atenção e de todos.

Boa Tarde, estou gerando a remessa do banco inter, mas ao tentar realizar um pagamento mostra que o boleto não está registrado, verificando no banco notei a diferença do código de barras, 07790001161206771690708686755805191090000003700 do banco 07790001161200001120000001917582691090000003700 do sistema Estou gerando as configurações da seguinte forma: LayoutRemessa := c400; Cedente.Nome := QryBancoTITULARCONTA.AsString + ' ' + QryBancoCNPJ.Value; Cedente.CNPJCPF := QryEmpresaCNPJ.Value; Cedente.Agencia := '0001'; Cedente.AgenciaDigito := '9'; Cedente.Logradouro := QryEmpresaENDERECO.Value; Cedente.NumeroRes := QryEmpresaNUMERO.AsString; Cedente.Bairro := QryEmpresaBAIRRO.Value; Cedente.Cidade := QryEmpresaCIDADE.Value; Cedente.CEP QryEmpresaCEP.Value; Cedente.Conta := QryBancoNUMEROCONTA.Value; Cedente.ContaDigito := QryBancoDIGITOCONTA.AsString; Cedente.UF := QryBancoUFBANCO.AsString; Cedente.CodigoCedente := 112 PASSADO PELO BANCO Cedente.CodigoTransmissao := ''; Cedente.Operacao := 0677169 PASSADO PELO BANCO Desde já agradeço a atenção.

Sim estou passando o valor conforme a linha abaixo: 1 11200010228549620 20000000000000030009092200000000000 01PD 317440 080922000000002910300 99N 10000000000029000009092200000000000000000000000000000000000000100028267865802FERNANDA MORAIS RIBEIRO ANTONIO PEDROSO DE OLIVEIRA 160 AMERICAN04428000 000002 O código estou gerando da seguinte forma: iNumeroTitulo := iNumeroTitulo + 1; Titulo := ACBrBoleto1.CriarTituloNaLista; Vencimento := DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value; DataDocumento := DmBoleto.QryPesquisaNfeCabDATAEMISSAO.Value; Carteira := DmBoleto.QryBancoCARTEIRA.Value; NossoNumero := DmBoleto.QryPesquisaNfeCabNOSSONUMERO.Value; EspecieDoc := DmBoleto.QryBancoESPECIEDOCUMENTO.Value; EspecieMod := 'R$'; if DmBoleto.QryBancoACEITE.Value = 'SIM' then Aceite := atSim else Aceite := atNao; DataProcessamento := Now; NumeroDocumento := DmBoleto.QryPesquisaNfeCabDOCNUMERO.AsString; ValorDocumento := DmBoleto.QryPesquisaNfeCabVALORVENCIMENTO.Value; Sacado.NomeSacado := DmBoleto.QryPesquisaNfeCabRAZAOSOCIAL.Value; Sacado.CNPJCPF := DmBoleto.QryPesquisaNfeCabCNPJ.Value; Sacado.Logradouro := DmBoleto.QryPesquisaNfeCabENDERECO.Value; Sacado.Numero := DmBoleto.QryPesquisaNfeCabNUMERO.AsString; Sacado.Bairro := DmBoleto.QryPesquisaNfeCabBAIRRO.Value; Sacado.Cidade := DmBoleto.QryPesquisaNfeCabCIDADE.Value; Sacado.UF := DmBoleto.QryPesquisaNfeCabUF.Value; Sacado.Complemento := DmBoleto.QryPesquisaNfeCabComplemento.Value; if length(DmBoleto.QryPesquisaNfeCabCNPJ.Value) = 18 then Sacado.Pessoa := pJuridica else Sacado.Pessoa := pFisica; Sacado.CEP := TiraAcentos(TiraPontos(DmBoleto.QryPesquisaNfeCabCEP.Value)); ValorAbatimento := 0; LocalPagamento := DmBoleto.QryBancoLOCALPAGAMENTO.Value; ValorMoraJuros := ((DmBoleto.QryPesquisaNfeCabVALORVENCIMENTO.Value * DmBoleto.QryBancoJUROSMORA.Value) / 100) / 30; ValorDesconto := DmBoleto.QryPesquisaNfeCabVALORDESCONTO.Value; ValorAbatimento := 0; DataMoraJuros := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value, DmBoleto.QryBancoDIASJUROS.Value); DataDesconto := 0; DataAbatimento := 0; DataProtesto := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value, DmBoleto.QryBancoDIASPROTESTO.Value); PercentualMulta := DmBoleto.QryBancoMULTA.Value; if ((DmBoleto.QryBancoNUMEROBANCO.Value = 1) or (DmBoleto.QryBancoNUMEROBANCO.Value = 77)) then begin DataMulta := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value, 1); end; if (DmBoleto.QryBancoNUMEROBANCO.Value = 77) then begin DiasDeProtesto := DmBoleto.QryBancoDIASPROTESTO.Value; DataMoraJuros := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value, DmBoleto.QryBancoDIASJUROS.Value); end; Mensagem.Text := DmBoleto.QryBancoMENSAGEM.Value; // OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := PadRight(Trim(DmBoleto.QryBancoINSTRUCAO1.Value), 2, '0'); Instrucao2 := PadRight(Trim(DmBoleto.QryBancoINSTRUCAO2.Value), 2, '0'); Parcela := DmBoleto.QryPesquisaNfeCabNUMEROPARCELA.AsInteger; TotalParcelas := DmBoleto.QryPesquisaNfeCab.RecordCount; Coloquei também o arquivo de remessa.

Bom dia tudo bem ? Após importar o arquivo de remessa do Banco Inter tenho o seguinte retorno: foi informado multa e/ou juros para um boleto com dias de agenda igual a 0 valor 0 Alguém poderia informar qual informação estou deixando de passar, pois pela manual não consegui identificar. Estou colocando em anexo o arquivo de remessa e também um print do boleto, desde já agradeço a cooperação de todos. Coloquei também o arquivo de remessa. CI400_001_0000008.rem

Rio 10.3

Bom dia tudo bem ? Estou fazendo a requisição do webservice do google maps. O retorno do serviço é um arquivo Json que faço o seguinte processo: RESTClient1.BaseURL := urlOrigem; RESTRequest1.Execute; Memo1.Clear; Memo1.Lines.Add(RESTRequest1.Response.JSONText); Preciso de ajuda para percorrer o arquivo de retorno e pegar as informações necessárias, abaixo estou copiando os dados do memo { "results": [ { "address_components": [ { "long_name": "Rua Augusto Wolf", "short_name": "Rua Augusto Wolf", "types": [ "route" ] }, { "long_name": "Jardim do Sol", "short_name": "Jardim do Sol", "types": [ "political", "sublocality", "sublocality_level_1" ] }, { "long_name": "Indaiatuba", "short_name": "Indaiatuba", "types": [ "administrative_area_level_2", "political" ] }, { "long_name": "São Paulo", "short_name": "SP", "types": [ "administrative_area_level_1", "political" ] }, { "long_name": "Brazil", "short_name": "BR", "types": [ "country", "political" ] }, { "long_name": "13343-630", "short_name": "13343-630", "types": [ "postal_code" ] } ], "formatted_address": "Rua Augusto Wolf - Jardim do Sol, Indaiatuba - SP, 13343-630, Brazil", "geometry": { "bounds": { "northeast": { "lat": -23.0982405, "lng": -47.20356659999999 }, "southwest": { "lat": -23.1016691, "lng": -47.2087514 } }, "location": { "lat": -23.0998709, "lng": -47.2058849 }, "location_type": "GEOMETRIC_CENTER", "viewport": { "northeast": { "lat": -23.0982405, "lng": -47.20356659999999 }, "southwest": { "lat": -23.1016691, "lng": -47.2087514 } } }, "place_id": "ChIJ-VKzTlBLz5QRG-jBHklwwPI", "types": [ "route" ] } ], "status": "OK" }

Bom dia tudo bem ? Estou tentando fazer o envio de uma imagem salva no celular para meu servidor, estou fazendo o envio dos dados via Post. A imagem estou salvando o caminho no banco SQLite, gostaria de ajuda para o envio da imagem salva no celular. Desde já agradeço