Antonio Gomes

@Juliana Tamizou segue unit com correcao de acordo com manual mais recente, do registro segmento S. onde pede para colocar as mensagens a partir da coluna 19. Layouts_para_troca_de_informações 31 Out 2017.xls ACBrBancoBancoob.pas

Foi detectado uma soma de string incorreta na impressão do DACTE-e. Segue fonte.ACBrCTeDACTEFR.pas

Não achei um fórum especifico para isso, se tiver, me informe ou mova a mensagem. é valido eu corrigir umas coisas assim e enviar os fontes para vocês mantenedores? Tem coisas, que ao desenvolver, se a pessoa der um simples build all já cata os piolhos... a ordem está do que penso ser pior, para o menos pior... [dcc32 Warning] synautil.pas(2024): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2029): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2062): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2066): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2069): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2072): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2087): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] synautil.pas(2090): W1000 Symbol 'StrLComp' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] ssl_openssl.pas(179): W1000 Symbol 'StrLCopy' is deprecated: 'Moved to the AnsiStrings unit' [dcc32 Warning] pnfsNFSeR.pas(1009): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] pnfsNFSeR.pas(2482): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit. [dcc32 Warning] pnfsNFSeW_Infisc.pas(782): W1037 FOR-Loop variable 'lIndex' may be undefined after loop [dcc32 Warning] pnfsNFSeW_Infisc.pas(785): W1036 Variable 'lIndex' might not have been initialized [dcc32 Warning] pcteCTeR.pas(772): W1036 Variable 'qtdRat_UnidTransp' might not have been initialized [dcc32 Warning] ACBrCTeWebServices.pas(2732): W1036 Variable 'SchemaEventoCTe' might not have been initialized [dcc32 Warning] pmdfeMDFeR.pas(451): W1036 Variable 'qtdRat_UnidTransp' might not have been initialized [dcc32 Warning] ACBrMDFeWebServices.pas(1910): W1036 Variable 'SchemaEventoMDFe' might not have been initialized [dcc32 Hint] synautil.pas(1846): H2077 Value assigned to 'x' never used [dcc32 Hint] ACBrGNRE2.pas(250): H2164 Variable 'lTipoEvento' is declared but never used in 'TACBrGNRE.IdentificaSchema' [dcc32 Hint] ACBrGNREWebServices.pas(443): H2164 Variable 'xUF' is declared but never used in 'TGNRERecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(444): H2164 Variable 'ok' is declared but never used in 'TGNRERecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(545): H2164 Variable 'i' is declared but never used in 'TGNRERetRecepcao.Clear' [dcc32 Hint] ACBrGNREWebServices.pas(545): H2164 Variable 'j' is declared but never used in 'TGNRERetRecepcao.Clear' [dcc32 Hint] ACBrGNREWebServices.pas(618): H2164 Variable 'ok' is declared but never used in 'TGNRERetRecepcao.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(721): H2164 Variable 'J' is declared but never used in 'TGNRERetRecepcao.TratarRespostaFinal' [dcc32 Hint] ACBrGNREWebServices.pas(724): H2164 Variable 'SalvarXML' is declared but never used in 'TGNRERetRecepcao.TratarRespostaFinal' [dcc32 Hint] ACBrGNREWebServices.pas(937): H2164 Variable 'ok' is declared but never used in 'TGNRERecibo.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(1086): H2164 Variable 'ok' is declared but never used in 'TGNREConsultaUF.DefinirURL' [dcc32 Hint] ACBrGNREWebServices.pas(100): H2219 Private symbol 'GetLote' declared but never used [dcc32 Hint] ACBrGNREWebServices.pas(101): H2219 Private symbol 'GetRecibo' declared but never used [dcc32 Hint] ACBrGNREWebServices.pas(140): H2219 Private symbol 'GetRecibo' declared but never used [dcc32 Hint] ACBrGNREGuias.pas(314): H2077 Value assigned to 'Guia.LerXML' never used [dcc32 Hint] ACBrGNREGuias.pas(311): H2077 Value assigned to 'Guia.LerXML' never used [dcc32 Hint] ACBrGNREGuias.pas(333): H2077 Value assigned to 'Guia.GravarStream' never used [dcc32 Hint] ACBrGNREGuias.pas(640): H2077 Value assigned to 'TGuias.LoadFromFile' never used [dcc32 Hint] ACBrGNREGuias.pas(669): H2077 Value assigned to 'TGuias.LoadFromStream' never used [dcc32 Hint] ACBrGNREGuias.pas(84): H2219 Private symbol 'ValidarConcatChave' declared but never used [dcc32 Hint] pnfsNFSeW.pas(252): H2077 Value assigned to 'TNFSeWClass.GerarXml' never used [dcc32 Hint] ACBrNFeDANFEFRDM.pas(170): H2219 Private symbol 'Explode' declared but never used [dcc32 Hint] pcteCTeW.pas(108): H2219 Private symbol 'GerarLocColeta' declared but never used [dcc32 Hint] pcteCTeW.pas(118): H2219 Private symbol 'GerarLocEnt' declared but never used [dcc32 Hint] ACBrCTeWebServices.pas(2732): H2077 Value assigned to 'EventoEhValido' never used [dcc32 Hint] ACBrCTeDACTEFR.pas(2671): H2077 Value assigned to 'Child' never used [dcc32 Hint] ACBrMDFeWebServices.pas(1910): H2077 Value assigned to 'EventoEhValido' never used

Na agencia da minha cidade, 0159, tentei homologar, a caixa não entendeu o procedimento dela, achei mera incompetência... Quem sabe você dá mais sorte na empreitada.

Problema: MG gerando erro não catalogado. Devem estar aplicando correcao em alguma coisa. Post fechado

Fechando topico, já estava desse jeito na versao anterior, 3.10. Problema desse pacote é outro. Analisando ainda,

O grupo de Csosn, no pacote 13362, como segue o codigo: crtSimplesNacional : begin //Grupo do Simples Nacional sTagTemp := CSOSNTOStrTagPos(nfe.Det.Imposto.ICMS.CSOSN); Gerador.wGrupo('ICMSSN' + sTagTemp, 'N' + CSOSNToStrID(nfe.Det.Imposto.ICMS.CSOSN)); Gerador.wCampo(tcStr, 'N11' , 'orig ', 01, 01, 1, OrigTOStr(nfe.Det.Imposto.ICMS.orig), DSC_ORIG); Gerador.wCampo(tcStr, 'N12a', 'CSOSN', 03, 03, 1, CSOSNIcmsToStr(nfe.Det.Imposto.ICMS.CSOSN), DSC_CSOSN); Esse trecho, onde tem sTagTemp, não deveria estar dentro de proteção da versao >= 4 ?

o que divergiu? cole a linha digitavel e o codigo de barras... assim pode obter ajuda.

não. é o banco 756-0 ? ja tem pronto. é cooperativa?

Centralize isso em uma unit, e instancie-os ao usar, tive que fazer isso no meu sistema também. Parece que um atrapalhava o outro.

@Juliomar Marchetti falta subir algo do DACTE em fastReport? Um post meu reportando um erro.

Ao executar o instalador dos pacotes, ao marcar o DACTE FastReport, ocorre o problema na linha: FieldByName('cInfManu').AsInteger := aereo.natCarga.cinfManu; Isso porque cinfmanu agora virou collection. Unit: ACBrCTeDACTEFR Linha: 2423 Alguém deve estar modificando, se não estiver, mantenedor: Informe se posso mexer.

tem uma gambia a fazer antes.. ACBrBoleto1.LeCedenteRetorno := false; Para processar meu retorno vindo do Itau, em que tenho a conta fisica e vem errado no retorno como se fosse pessoa juridica, faço a treta abaixo: E antes de passar para o componente o arquivo de retorno, voce abre ele em um tstringlist (exemplo: LS.LoadfromFile() ) e faça: se (Copy(LS[0], 1, 19) = '02RETORNO01COBRANCA') or (Copy(LS[0], 1, 19) = '02RETORNO01COBRANÇA'); // SICOOB VEM COM CEDILHA e se a posicao 1 do arquivo for igual a '1' e a posicao 2 até 3 for = 02, mude a posicao 3 por 1 O que vai ser feito é mudar a posicao 2 e 3 de '02' para '01'

Antes de gerar o arquivo, algumas variaveis devem ser preenchidas. Segue exemplo: class procedure TFuncBoleto.ConfigurarTipoCobranca( ADataSetConfigServicoBanco: TDataSet; ACedenteEndereco, ACedenteNumeroEnd, ACedenteBairro, ACedenteCidade, ACedenteUF, ACedenteCEP, ACedenteTelefone: string; var AACBrBoleto: TACBrBoleto); var AResponsavelPelaEmissao: TACBrResponEmissao; ATipoCarteira : TACBrTipoCarteira; ATipoDocumento : TACBrTipoDocumento; ATipoInscricaoPessoa : TACBrPessoaCedente; begin Case ADataSetConfigServicoBanco.FieldByName('TIPOEMISSAOBOLETO_SER').AsInteger of 2: AResponsavelPelaEmissao := tbCliEmite; 1: AResponsavelPelaEmissao := tbBancoEmite; 3: AResponsavelPelaEmissao := tbBancoReemite; 4: AResponsavelPelaEmissao := tbBancoNaoReemite; else AResponsavelPelaEmissao := tbCliEmite; end; case ADataSetConfigServicoBanco.FieldByName('TIPO_CARTEIRA_SER').AsInteger of 1: ATipoCarteira := tctSimples; 2: ATipoCarteira := tctRegistrada; 3: ATipoCarteira := tctEletronica; else ATipoCarteira := tctSimples; end; if ADataSetConfigServicoBanco.FieldByName('ESCRITURAL_TRADICIONAL_SER').AsString = 'E' then ATipoDocumento := Escritural else ATipoDocumento := Tradicional; if Length(ADataSetConfigServicoBanco.FieldByName('CNPJ_CPF_CCR').AsString) > 11 then ATipoInscricaoPessoa := pJuridica // pFisica..pJuridica else ATipoInscricaoPessoa := pFisica; with AACBrBoleto do begin Banco.TipoCobranca := cobNenhum; case ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsInteger of 1: Banco.TipoCobranca := cobBancoDoBrasil; { 001 } 4: Banco.TipoCobranca := cobBancoDoNordeste; { 004 } 21: Banco.TipoCobranca := cobBanestes; { 021 } 33, 353, 8: Banco.TipoCobranca := cobSantander; { 033,353,008 } 41: Banco.TipoCobranca := cobBanrisul; { 041 } 70: Banco.TipoCobranca := cobBRB; { 070 } 85: Banco.TipoCobranca := cobBancoCECRED; { 085 } 104: begin if ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger = 1 then Banco.TipoCobranca := cobCaixaSicob { 104 } else Banco.TipoCobranca := cobCaixaEconomica; { 104 } end; 237: begin case ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger of 2: Banco.TipoCobranca := cobBradescoSICOOB; { 237 } 3: Banco.TipoCobranca := cobBicBanco; { 237 } 4: Banco.TipoCobranca := cobSafraBradesco; { 422 + 237 } else Banco.TipoCobranca := cobBradesco; { 237 } end; end; 341: Banco.TipoCobranca := cobItau; { 341 } 389: Banco.TipoCobranca := cobBancoMercantil; { 389 } 748: Banco.TipoCobranca := cobSicred; { 748 } 756: Banco.TipoCobranca := cobBancoob; { 756 } 399: Banco.TipoCobranca := cobHSBC; { 399 } 422: begin if ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_SER').AsInteger = 4 then Banco.TipoCobranca := cobSafraBradesco { 422 + 237 } else Banco.TipoCobranca := cobBancoSafra; { 422 } end; else raise Exception.Create('Código de banco não suportado: ' + ADataSetConfigServicoBanco.FieldByName('CAMARA_COMPENSACAO_BAN').AsString); end; Cedente.ResponEmissao := AResponsavelPelaEmissao; // tbCliEmite; // tbCliEmite,tbBancoEmite,tbBancoReemite,tbBancoNaoReemite Cedente.TipoCarteira := ATipoCarteira; // tctRegistrada; // , tctEletronica //tctSimples, tctRegistrada, tctEletronica Cedente.TipoDocumento := ATipoDocumento; // Tradicional; // Cedente.TipoInscricao := ATipoInscricaoPessoa; // pJuridica; // pFisica ou pJuridica Cedente.Nome := ADataSetConfigServicoBanco.FieldByName('CEDENTE_NOME_CCR').AsString; Cedente.Logradouro := ACedenteEndereco; Cedente.NumeroRes := ACedenteNumeroEnd; Cedente.CNPJCPF := ADataSetConfigServicoBanco.FieldByName('CNPJ_CPF_CCR').AsString; Cedente.Cidade := ACedenteCidade; Cedente.Bairro := ACedenteBairro; Cedente.CEP := ACedenteCEP; Cedente.UF := ACedenteUF; Cedente.Telefone := ACedenteTelefone; Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); if ADataSetConfigServicoBanco.FieldByName('LEIAUTE_SER').AsInteger = 1 then LayoutRemessa := c240 else LayoutRemessa := c400; Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); Cedente.Convenio := ADataSetConfigServicoBanco.FieldByName('NUM_CONTRATO_SER').AsString; end; end;

Sim, é isso que voce entendeu mesmo, vou mexer e enviar.

procedimentos desse jeito, com 2 results, ocorrem demais de dar hint no delphi ao dar build all... function Guia.LerXML(AXML: AnsiString): Boolean; begin Result := False; FGNRER.Leitor.Arquivo := AXML; Result := FGNRER.LerXML; XMLOriginal := string(AXML); Result := True; end; Pode-se corrigir isso e mandar? é chato ficar olhando um hint desse nivel.

sugestao de gravar sem formatar, pois na 2a via vai precisar atribuir para o componente o mesmo nosso numero.. e for formatado, tem que ficar separando.

Engraçado, essa posicao que mexeu, nao seria para arquivo de remessa? é sigcb que voce seguiu?

Crie o seu arquivo fr3 para homologar, depois vc pode voltar para o modelo que tem no pacote. eu mesmo uso meu fr3 criado por mim bem antes de o componente ter suporte ao fastreport.

Isso é um boleto? Pois o acbr é programado apenas para trabalhar com arquivos cnab400 e cnab240. O manual desse arquivo é de que tipo?

Alguém que esteja desenvolvendo a guia para o estado de SP ? Pergunto isso para trocar ideias, estou na luta tentando interpretar o link https://www.fazenda.sp.gov.br/guiasinternet/gare/paginas/lote.aspx por meio do arquivo xml de lote. Embora a sef sp tenha me falado que esse link não funciona. Estou carregando no webbrowser, e preenchendo os campos e forçando o submit. O problema está em atribuir o campo inputArquivo, que é um type = file, que só anexa o arquivo por meio de clique do botão "Selecionar Arquivo".

percentual ou valor ? dependendo do caso, tem que multiplicar para chegar no numero de decimais que eles pedem.

isso nao é erro da ocorrencia de entrada? A de registrar o titulo? Confere na posicao se está gerando o codigo da ocorrencia correta. pega o manual do cnab240 e veja se esta certo as posicoes dentro do txt.

bancoob, do bradesco é outra coisa - dentro do arquivo bancoob vai ver o numero do banco = 756 - que é esse.