Leao

já comparei tá igual, o banco bradesco funciona a vários anos, conforme PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA esse zero não é inserido PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente : veja no meu fonte: Titulow := ACBrBoleto1.CriarTituloNaLista; if XNumEdit3_cx_ba.Value=1 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoBrasil; if XNumEdit3_cx_ba.Value=4 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoNordeste; if XNumEdit3_cx_ba.Value=104 then ACBrBoleto1.Banco.TipoCobranca:=cobCaixaEconomica; if XNumEdit3_cx_ba.Value=341 then ACBrBoleto1.Banco.TipoCobranca:=cobItau; if XNumEdit3_cx_ba.Value=008 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=033 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=353 then ACBrBoleto1.Banco.TipoCobranca:=cobSantander; if XNumEdit3_cx_ba.Value=389 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoMercantil; if XNumEdit3_cx_ba.Value=399 then ACBrBoleto1.Banco.TipoCobranca:=cobHSBC; if XNumEdit3_cx_ba.Value=237 then ACBrBoleto1.Banco.TipoCobranca:=cobBradesco; ACBrBoleto1.Banco.Numero:=StrToInt(XNumEdit3_cx_ba.Text); //237; ACBrBoleto1.Banco.Nome:=CamposResultado_banco1[0]; //'Bradesco'; if not VarIsNull(CamposResultado_banco1[3]) then ACBrBoleto1.Banco.Digito:=StrToInt(CamposResultado_banco1[3]); if CamposResultado_banco1[20]=0 then ACBrBoleto.LayoutRemessa:=c240 else ACBrBoleto.LayoutRemessa:=c400; if CamposResultado_banco1[20]=0 then ACBrBoleto1.LayoutRemessa:=c240 else ACBrBoleto1.LayoutRemessa:=c400; if CamposResultado_banco1[32]='P' then ACBrBoletoFCFortes1.LayOut:=lPadraoEntrega; if CamposResultado_banco1[32]='F' then ACBrBoletoFCFortes1.LayOut:=lFatura; if CamposResultado_banco1[32]='C' then ACBrBoletoFCFortes1.LayOut:=lCarne; ACBrBoleto1.Cedente.Agencia:=iif(not VarIsNull(CamposResultado_banco1[2]),CamposResultado_banco1[2],''); ACBrBoleto1.Cedente.AgenciaDigito:=iif(not VarIsNull(CamposResultado_banco1[3]),CamposResultado_banco1[3],0); ACBrBoleto1.Cedente.Bairro:=Sistema.BairroUsr; //ACBrBoleto1.Cedente.CaracTitulo:=tcSimples; //ACBrBoleto1.Cedente.CaracTitulo:=ComboBox2_carac.ItemIndex; if ComboBox2_carac.ItemIndex=0 then ACBrBoleto1.Cedente.CaracTitulo:=tcCaucionada; if ComboBox2_carac.ItemIndex=1 then ACBrBoleto1.Cedente.CaracTitulo:=tcDescontada; if ComboBox2_carac.ItemIndex=2 then ACBrBoleto1.Cedente.CaracTitulo:=tcSimples; if ComboBox2_carac.ItemIndex=3 then ACBrBoleto1.Cedente.CaracTitulo:=tcVendor; if ComboBox2_carac.ItemIndex=4 then ACBrBoleto1.Cedente.CaracTitulo:=tcVinculada; ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite; ACBrBoleto1.Cedente.CEP:=Sistema.CEPUsr; ACBrBoleto1.Cedente.Cidade:=Sistema.CidadeUsr; ACBrBoleto1.Cedente.CNPJCPF:=Sistema.CNPJUsr; ACBrBoleto1.Cedente.CodigoCedente:=iif(not VarIsNull(CamposResultado_banco1[7]),CamposResultado_banco1[7],''); //conveio ACBrBoleto1.Cedente.Conta:=iif(not VarIsNull(CamposResultado_banco1[4]),CamposResultado_banco1[4],''); ACBrBoleto1.Cedente.ContaDigito:=iif(not VarIsNull(CamposResultado_banco1[5]),CamposResultado_banco1[5],''); if CamposResultado_banco1[7]<>'' then ACBrBoleto1.Cedente.Convenio:=iif(not VarIsNull(CamposResultado_banco1[7]),Trim(CamposResultado_banco1[7]),''); ACBrBoleto1.Cedente.Logradouro:=Sistema.EnderecoUsr; // 26/03/2013 ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[23]),CamposResultado_banco1[23],'1'); ACBrBoleto1.Cedente.Modalidade:=iif(not VarIsNull(CamposResultado_banco1[34]),CamposResultado_banco1[34],''); ACBrBoleto1.Cedente.Nome:=iif(not VarIsNull(CamposResultado_banco1[15]),CamposResultado_banco1[15],'FALTA INFORMAR O NOME DA EMPRESA'); ACBrBoleto1.Cedente.TipoInscricao:=iif(not VarIsNull(CamposResultado_banco1[21]),CamposResultado_banco1[21],'1'); ACBrBoleto1.Cedente.UF:=Sistema.UfUsr; ACBrBoleto1.ACBrBoletoFC.DirLogo:=sistema.Pasta+'\'+'Bancos\'; // 'D:\Acbr\Fontes\ACBrBoleto\Logos\Colorido\'; if CamposResultado_banco1[6]='11' then ACBrBoleto1.Cedente.ResponEmissao:=tbBancoEmite else ACBrBoleto1.Cedente.ResponEmissao:=tbCliEmite; wletra:=DReceber.STATUS.Conteudo; SpeedButton1_pdf.Enabled:=true; BtnVisualizar.Enabled:=false; BtnCancelar.Enabled:=false; DReceber.First; while not DReceber.eof do begin wnome_cliente:=RemoveAcentos(DReceber.NOME_CLIENTE.Conteudo); PTabela(TabGlobal.DClientes,['CODIGO'],[DReceber.COD_CLIENTE.Conteudo], ['FANTASIA','COB_ENDERECO','COB_BAIRRO','COB_CIDADE','COB_ESTADO', 'COB_CEP','PESSOA','CNPJ','CPF','NOME','FONE','INSC_EST','COB_NR_END'], CamposResultado); with Titulow do begin Vencimento := StrToDate(DReceber.VENCTO.ValorString); //StrToDate(edtVencimento.Text); DataDocumento := StrToDate(DReceber.EMISSAO.ValorString); Carteira := iif(not VarIsNull(CamposResultado_banco1[6]),CamposResultado_banco1[6],''); // edtCarteira.Text; if ComboBox1.ItemIndex = 0 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'A' else if ComboBox1.ItemIndex = 1 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'M' else if ComboBox1.ItemIndex = 2 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'O' else if ComboBox1.ItemIndex = 3 then NumeroDocumento := XNumEdit1.Text+'/'+XNumEdit2.Text+'G'; EspecieDoc := iif(not VarIsNull(CamposResultado_banco1[14]),CamposResultado_banco1[14],''); //edtEspecieDoc.Text; Aceite := iif(CamposResultado_banco1[13]='S',atSim,atNao); //atSim ou atNao; DataProcessamento := Now; NossoNumero := Edit1.Text; //edtNossoNro.Text; ValorDocumento := StrToCurr(DReceber.VALOR_RESTANTE.ValorString)+iif(CamposResultado_banco1[30]>0,CamposResultado_banco1[30],0); if RadioGroup2_fantasia.ItemIndex=0 then Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[0]),RemoveAcentos(CamposResultado[0]),'SEM NOME FANTASIA') //edtNome.Text; else Sacado.NomeSacado := iif(not VarIsNull(Camposresultado[9]),RemoveAcentos(CamposResultado[9]),'SEM NOME'); Sacado.CNPJCPF := iif(CamposResultado[6]='J',CamposResultado[7],CamposResultado[8]); //RemoveStrings(edtCPFCNPJ.Text,AString); Sacado.Pessoa := iif(CamposResultado[6]='J',pJuridica,pFisica); Sacado.Logradouro := iif(not VarIsNull(CamposResultado[1]),RemoveAcentos(CamposResultado[1]),'S/END.'); //edtEndereco.Text; Sacado.Numero := iif(not VarIsNull(CamposResultado[12]),CamposResultado[12],''); //'1'; //edtNumero.Text; Sacado.Bairro := iif(not VarIsNull(CamposResultado[2]),RemoveAcentos(CamposResultado[2]),''); //edtBairro.Text; Sacado.Cidade := iif(not VarIsNull(CamposResultado[3]),RemoveAcentos(CamposResultado[3]),''); //edtCidade.Text; Sacado.UF := iif(not VarIsNull(CamposResultado[4]),CamposResultado[4],''); //edtUF.Text; Sacado.CEP := iif(not VarIsNull(CamposResultado[5]),CamposResultado[5],''); ValorAbatimento := 0; //StrToCurrDef(edtValorAbatimento.Text,0); if (RadioGroup1.ItemIndex=0) and (not VarIsNull(CamposResultado_banco1[16])) then LocalPagamento :=CamposResultado_banco1[16] //edtLocalPag.Text; else LocalPagamento :=''; if CamposResultado_banco1[8]>0 then ValorMoraJuros :=DReceber.VALOR_RESTANTE.Conteudo*(CamposResultado_banco1[8]/100/30) //StrToCurrDef(edtMoraJuros.Text,0); else ValorMoraJuros := 0; if CamposResultado_banco1[26]>0 then ValorDesconto := CamposResultado_banco1[26] //StrToCurrDef(edtValorDesconto.Text,0); else ValorDesconto :=0; ValorAbatimento := 0; //StrToCurrDef(edtValorAbatimento.Text,0); DataMoraJuros := 0; //StrToDateDef(edtDataMora.Text, 0); if CamposResultado_banco1[31]>0 then DataDesconto :=(DReceber.VENCTO.Conteudo-CamposResultado_banco1[31]) //StrToDateDef(edtDataDesconto.Text, 0); else DataDesconto := 0; DataAbatimento := 0; //StrToDateDef(edtDataAbatimento.Text, 0); if CamposResultado_banco1[27]>0 then DataProtesto := (DReceber.VENCTO.Conteudo+CamposResultado_banco1[27]); //StrToDateDef(edtDataProtesto.Text, 0); if CamposResultado_banco1[30]>0 then PercentualMulta := CamposResultado_banco1[30] //StrToCurrDef(edtMulta.Text,0); else PercentualMulta := 0; Mensagem.Add(iif(XNumEdit3_nf.Value>0,('NF-e '+XNumEdit3_nf.Text),'')); //memMensagem.Text; if XEdit2.Text<>EmptyStr then Mensagem.Add(XEdit2.Text); if not VarIsNull(CamposResultado_banco1[10]) then Mensagem.Add(CamposResultado_banco1[10]); if not VarIsNull(CamposResultado_banco1[11]) then Mensagem.Add(CamposResultado_banco1[11]); if not VarIsNull(CamposResultado_banco1[12]) then Mensagem.Add(CamposResultado_banco1[12]); OcorrenciaOriginal.Tipo :=iif(not VarIsNull(CamposResultado_banco1[22]),CamposResultado_banco1[22],''); //toRemessaBaixar; Instrucao1 :=''; Instrucao2 :=''; end; DReceber.Next; end; Alguém pode ajudar.... Obrigado

Olá Juliana, informei os dados no demo e saiu correto, não entendo porque no meu fonte não dar certo, veja os detalhes, conseguir identificar alguma coisa veja: function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; var ATipoInscricao: string; AMensagemReservada: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; end; if ACBrBanco.ACBrBoleto.Homologacao then AMensagemReservada := 'REMESSA-TESTE' else AMensagemReservada := 'REMESSA-PRODUCAO'; { GERAR REGISTRO-HEADER DO ARQUIVO } Result:= IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0000' + //4 a 7 - Lote de serviço '0' + //8 - Tipo de registro - Registro header de arquivo PadRight('', 9, ' ') + //9 a 17 Uso exclusivo FEBRABAN/CNAB ATipoInscricao + //18 - Tipo de inscrição do cedente PadLeft(OnlyNumber(CNPJCPF), 14, '0') + //19 a 32 -Número de inscrição do cedente PadRight('',20, '0') + //33 a 52 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 PadLeft(OnlyNumber(Agencia), 5, '0') + //53 a 57 - Código da agência do cedente PadRight(AgenciaDigito, 1 , '0') + //58 - Dígito da agência do cedente PadLeft(CodigoCedente, 6, '0') + //59 a 64 - Código Cedente (Código do Convênio no Banco) PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA esse zero não é inserido PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco O zero em negrito não é inserido, era para ser na coluna 72, e na mesma é inserido o primeiro nome do cliente. Veja abaixo: Veja que na primeira linha o nome da empresa(cliente) é Mercearia, a letra M, fica na coluna 72, e informa valor M, e Nome da Empresa fica ERCEARIA FREITAS C, faltando justamente a letra "M". Alguém pode ajudar agradeço. Obrigado Leão

Olá Juliana, conseguir gerar o arquivo no demo, ao gerar o arquivo remessa.txt, sai correto veja: 10400000 2054813360001370000000000000000000000284542664400000000TodaObra Materias p/ ConstrucaCAIXA ECONOMICA FEDERAL 11007201814500000000105000000 REMESSA-PRODUCAO como faço para corrigir isso no meu fonte?

Olá Juliana, no demo não consigo gerar o arquivo remessa, ou não descobrir em que pasta gera o mesmo. conseguir gerar a pasta e nome do arquivo remessa, mas tá banco Itaú 341

Olá Amarildo, conforme acima, a coluna 72, é Uso Exclusivo da CAiXA, essa coluna tá sendo preenchida com a primeiro caractere do nome da empresa(cliente), tá bem claro. Alguém que tá usando gerando o arquivo remessa por favor verifique e poste aqui. Obrigado,

Olá Amarildo, pois o componente deveria iniciar na coluna 73 nome da empresa, estranho que o fonte tá lá "0", mas não processa corretamente '0' + //72 - Uso Exclusivo CAIXA mas não gera com "0" no arquivo remessa function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; Alguém se habilita? Obrigado, Leão

Em anexo 170907_001A.txt Olá Amarildo, uso delphi

Conforme: function TACBrCaixaEconomica.GerarRegistroHeader240(NumeroRemessa : Integer): String; var ATipoInscricao: string; AMensagemReservada: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin case TipoInscricao of pFisica : ATipoInscricao := '1'; pJuridica: ATipoInscricao := '2'; end; if ACBrBanco.ACBrBoleto.Homologacao then AMensagemReservada := 'REMESSA-TESTE' else AMensagemReservada := 'REMESSA-PRODUCAO'; { GERAR REGISTRO-HEADER DO ARQUIVO } Result:= IntToStrZero(ACBrBanco.Numero, 3) + //1 a 3 - Código do banco '0000' + //4 a 7 - Lote de serviço '0' + //8 - Tipo de registro - Registro header de arquivo PadRight('', 9, ' ') + //9 a 17 Uso exclusivo FEBRABAN/CNAB ATipoInscricao + //18 - Tipo de inscrição do cedente PadLeft(OnlyNumber(CNPJCPF), 14, '0') + //19 a 32 -Número de inscrição do cedente PadRight('',20, '0') + //33 a 52 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09 PadLeft(OnlyNumber(Agencia), 5, '0') + //53 a 57 - Código da agência do cedente PadRight(AgenciaDigito, 1 , '0') + //58 - Dígito da agência do cedente PadLeft(CodigoCedente, 6, '0') + //59 a 64 - Código Cedente (Código do Convênio no Banco) PadRight('', 7, '0') + //65 a 71 - Uso Exclusivo CAIXA '0' + //72 - Uso Exclusivo CAIXA mas não gera com "0" no arquivo remessa PadRight(Nome, 30, ' ') + //73 a 102 - Nome do cedente PadRight('CAIXA ECONOMICA FEDERAL', 30, ' ') + //103 a 132 - Nome do banco PadRight('', 10, ' ') + //133 a 142 - Uso exclusivo FEBRABAN/CNAB '1' + //143 - Código de Remessa (1) / Retorno (2) FormatDateTime('ddmmyyyy', Now) + //144 a 151 - Data do de geração do arquivo FormatDateTime('hhmmss', Now) + //152 a 157 - Hora de geração do arquivo PadLeft(IntToStr(NumeroRemessa), 6, '0') + //158 a 163 - Número seqüencial do arquivo '050' + //164 a 166 - Número da versão do layout do arquivo PadRight('', 5, '0') + //167 a 171 - Densidade de gravação do arquivo (BPI) Space(20) + // 172 a 191 - Uso reservado do banco PadRight(AMensagemReservada, 20, ' ') + // 192 a 211 - Uso reservado da empresa PadRight('', 4, ' ') + // 212 a 215 - Versao Aplicativo Caixa PadRight('', 25, ' '); // 216 a 240 - Uso Exclusivo FEBRABAN / CNAB { GERAR REGISTRO HEADER DO LOTE }

56719_001j.txt

Conforme manual folha 42, 9(001) Na posição é código 0(zero), como preencher-lo, na CAIXA e outros bancos?

Conforme analisador: Na posição 72 é uso exclusivo CAIXA, e preencheu o "R" que o nome inicial do meu cliente Rolante, na posição 73 começa o nome da Empresa Começa o nome da empresa mas pegou "O". to com os fontes atualizados. Alguém já passou por isso?

Ocorrendo o mesmo erro inclusive com internet via celular...

Boa tarde Felipe, tudo aqui já fiz, inclusive funciona em outros computador em outra empresa. Tô achando que é o roteador....

Falha no WebServices NF-e....:WebService Consulta Status serviços - Inativo Inoperante tente novamente Erro Interno: 12007 erro: HTTP:0 URL:https://www.sefazvirtual.fazenda.gov.br/NFeStatusServico4/NFeStatusServico4.asmx Falha no Envio da Requisição. Erro: 12007 - O nome do servidor não pode ser resolvido ---------------------------| dados |----------------------------------------------- Atualizei hoje (04/07/2018) pela manhã; windows 10, 64 certificado certisig A1 todas dlls nas pastas libWinCryp, cryWinCrypt, httpWintHttp, xsLibXml2 LT_TLSv1_1 Em dois computadores na mesma rede, já testei mudar dns 8.8.8.8 e 8.8.4.4 e nada, alguém poderia me dar uma luz? Obrigado, Leão

[Produto001] CFOP=5405 Codigo=A59 NCM=85444900 Descricao=CABO FLEXIVEL 2,50 x 100 - COBRECOM Unidade=UN \\agora com tamanho 6, e unidade agora UNID Quantidade=200.0000 ValorUnitario=1.0800 ValorTotal=216.0000 Tem uma tabela de medidas sefaz Leão

Olá, também, mas no windows set, e certificado A3,

Precisa ver se também a regra aplica dentro do mesmo estado. Página 51, se sim, gerar a nfe sem placa dados do tranportador.., deve ir no mfde. Grupo X. Transporte da NF-e CampoSeq Modelo Regra de Validação Aplic. Msg Efeito Descrição Erro X02-20 55 Se operação interestadual(idDest=2), não informar os Grupos Veiculo Transporte (id:X18; veicTransp) e Grupo Reboque (id: X22) Obs1: a critério de cada UF, a regra de validação acima também pode ser aplicada nas operações internas (idDest=1) Obrig 868 Rej. Rejeição: Grupos Veiculo Transporte e Reboque não devem ser informados

Olá Juliomar, resolvido, apenas renomeie o ACBr.ini, e baixei novamente SVN, tinha uma copia do form, e voltei delphi abriu normalmente compilou, depois abrir o ACBr.ini e habilitei os: {$DEFINE DFE_SEM_OPENSSL} {$DEFINE USE_MINGW} Quanto as dlls, já tinha copiado Muito obrigado e agradeço. como colocar "Resolvido" ? Leão

Olá, atualizado SVN Completed: At revision: 15278 (07/06/2018), windows 7, 32 ForteReport instalado, vejo no delphi7, instalação ACBr com o ACBrInstall_Trunk2.exe; Apesar de não ocorrer nenhum erro, não instala os componentes da NFe. {$DEFINE DFE_SEM_OPENSSL} {$DEFINE USE_MINGW} Copie as dlls D:\Acbr\DLLs\XMLSec\MinGW e D:\Acbr\DLLs\XMLSec para c:\windows\system32 Fiz pesquisa nos forum e nada, ao abrir o delphi mensagem: "Não foi possível localizar o ponto de entrada do procedimento gzdirect na biblioteca de vínculo dinâmico zlib1.dll" tecle enter e Can't load package D:\Acbr\Lib\Delphi\LibD7\ACBr_NFe.bpl Não foi possível encontrar o procedimento especifico e assim repetindo outros .bpl, Alguém já passou por isso, solicito ajuda. Obrigado, Leão

Agradeço Juliomar, realmente em um formulário que não tem nada haver, devo te arrastado depois excluído o componente mas ficou na USES tire e estar funcionando. ACBrNFeDANFEFR Obrigado,

Sim, procurei não tem nada, estranho. Alguém tiver alguma idéia, poste aqui Obrigado, Leão

Olá Juliomar, você estar certo, mas usando recurso do xe6, find in files, varreu todo meu projeto e não achou. Veja mensagem ao compilar: [dcc32 Fatal Error] ACBrNFeDANFEFRDM.pas(76): F2063 Could not compile used unit 'frxClass.pas' A mesma não consta no projeto. (Fiz também a busca com o fonte no delphi7, e lá não existe), Seria possível inibir a compilação da mesma? ou alguém tem outra solução. Agradeço e Obrigado, Leão

Olá, não essas uses é da unit ACBrNFeDANFEFRDM, como informei fiz busca por todo meu projeto, e não encontra nenhum arquivo meu com essas use frxClass, frxExportPDF, frxDBSet, frxBarcode, find in files todo quatros não achei nada, inclusive subpastas. Alguém tem alguma luz.... Obrigado, Leão

Olá Juliomar, no instalador a opção Fast Report, todas desmarcadas, já re-instalei sempre com o instalador, uso sempre o Apagarcbr.bat; - Aparentemente existe algum formulário invocando a unit ACBrNFeDANFEFRDM; - Já usei o find in files, em todo meu projeto e não encontra essa unit,; - No path do delphi o caminho estar lá, corretamente; - Detalhe: Tô migrando do delphi7 para xe6; - Ao compilar o mostra : unit ACBrNFeDANFEFRDM; interface uses pcnEnvEventoNFe, pcnRetInutNFe, SysUtils, Classes, ACBrNFeDANFEClass, pcnNFe, frxClass, frxExportPDF, DB, DBClient, frxDBSet, pcnConversao, ACBrUtil, frxBarcode, ACBrDelphiZXingQrCode, Graphics; type Erro justamente nas classe do fastreport, que não uso, trabalho sempre a vários anos FortesReport, no xe6 não estar instalado o fastreport. Alguém poderia ajuda-me, agradeço Obrigado, Leão