Carlos Renato Grandizoli Barbosa

Bom dia Carlos, Esta função que você citou, ela cria um registro do tipo 0035 e não precisa as variáveis, você esta usando a função Registro0035new? bom dia Ariel sim estou, estou usando assim: while not Qry_SCP.Eof do begin with Registro0035New do begin COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14); NOME_SCP := Qry_SCPNOM_PESSOA_2.Value; end; Application.ProcessMessages; Qry_SCP.Next; end;

sim estou, estou usando assim: while not Qry_SCP.Eof do begin with Registro0035New do begin COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14); NOME_SCP := Qry_SCPNOM_PESSOA_2.Value; end; Application.ProcessMessages; Qry_SCP.Next; end;

bom dia, alguém tem alguma solução por favor ?!!!

boa tarde pessoal, ainda não consegui fazer o gravar o Registro0035 alguém tem alguma ideia de o pq ele não traz nada nas variáveis fcod_scp e fnome_scp nesta function function TRegistro0035List.New: TRegistro0035; begin Result := TRegistro0035.Create; Add(Result); end; sendo que está sendo informado valores pra elas?

as variáveis fcod_scp e fnome_scp estão vazias no Result desta function function TRegistro0035List.New: TRegistro0035; begin Result := TRegistro0035.Create; Add(Result); end;

bom dia pessoal o Registro 0035 não está inserindo os dados, ele gera o registro somente com a Reg 0035 e os outros dois campo vazios. minha implementação está assim. while not Qry_SCP.Eof do begin with Registro0035New do begin COD_SCP := DM_Funcoes.StrZero(Qry_SCPCOD_PESSOA.Value,14); NOME_SCP := Qry_SCPNOM_PESSOA_2.Value; end; Application.ProcessMessages; Qry_SCP.Next; end;

segue ACBrECFBloco_0_Class.pas

sobre o registro0035, fiz um ajuste no meu aqui e agora funcionou. ficou assim :procedure TBloco_0.WriteRegistro0035; var intfor : Integer; begin if Assigned(Registro0001.Registro0035) then begin for intfor := 0 to Registro0001.Registro0035.Count - 1 do begin with Registro0001.Registro0035.Items[intfor] do begin Add( LFill('0035') + LFill(COD_SCP) + LFill(NOME_SCP) ); FRegistro0990.QTD_LIN_0 := FRegistro0990.QTD_LIN_0 + 1; end; end; FRegistro0035Count := FRegistro0035Count + Registro0001.Registro0035.Count; Registro0001.Registro0035.Clear; end; end; onde está Registro0001.Registro0035 estava FRegistro0035

bom dia o IND_QTE_SCP deu certo, agora só não estou entendendo o pq não esta gravando o Registro0035, sendo que está sendo alimentado. e vi o trecho que escreve, aparentemente esta feito tb. procedure TBloco_0.WriteRegistro0035; var intfor : Integer; begin if Assigned(FRegistro0035) then begin for intfor := 0 to fRegistro0035.Count - 1 do begin with FRegistro0035.Items[intfor] do begin Add( LFill('0035') + LFill(COD_SCP) + LFill(NOME_SCP) ); FRegistro0990.QTD_LIN_0 := FRegistro0990.QTD_LIN_0 + 1; end; end; FRegistro0035Count := FRegistro0035Count + Registro0035.Count; end; end;

boa tarde Pessoal fui gerar um arquivo para teste e validação, encontrei dois problemas, um no campo Registro0020New.IND_QTE_SCP que não sei o pq mesmo informando a quantidade de 4 ele grava uma qtd absurda de 03011900 outro é o registro Registro0035, que mesmo sendo informado não é gerado no arquivo. infelizmente não manjo muito para ajudar a arrumar isto.

bom dia, removido todas as instalações do acbr da minha maquina. utilizando o instalador do trunk2, instalei novamente o acbr. no instalador diz que foi instalado tudo com sucesso, porem quando abro o delphi 7 está dizendo que não "Can't load package c:\program files(x86)\Borland\delphi7\Projects\Bpl\ACBr_NFe.bpl." Não foi possível encontrar o módulo especificado. porem esta blp esta la, como também está no lib da diretório ondem se encontra a instalação do componente. este erro está dando para várias bpls do acbr.

com o instalador vou te passar o log. log_Delphi_XE8.txt

abri um novo post, mas não obtive resposta, como estou desesperado, vou mandar aqui tb. já peço desculpas antecipadas. bom dia pessoal. estou tendo dois erros ao compilar o sped ecf do trunk2 [Error] ACBrSpedContabil.pas(937): Cannot assign to a read-only property [Fatal Error] ACBr_SPED.dpk(101): Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDContabil\ACBrSpedContabil.pas' o erro aponta este código if not Assigned(Bloco.Conteudo) then Bloco.Conteudo := TStringList.Create; se eu comentar este trecho ele passa. ai da este outro erro. [Error] ACBrEFDBloco_0_Class.pas(693): Undeclared identifier: 'VLFill' [Fatal Error] ACBr_SPED.dpk(101): Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_0_Class.pas' VLFill( ALIQ_ICMS, 0, 2 ); socorro como devo proceder para instalar o acbr_sped_ecf ?rs

bom dia pessoal. estou tendo dois erros ao compilar o sped ecf do trunk2 [Error] ACBrSpedContabil.pas(937): Cannot assign to a read-only property [Fatal Error] ACBr_SPED.dpk(101): Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDContabil\ACBrSpedContabil.pas' o erro aponta este código if not Assigned(Bloco.Conteudo) then Bloco.Conteudo := TStringList.Create; se eu comentar este trecho ele passa. ai da este outro erro. [Error] ACBrEFDBloco_0_Class.pas(693): Undeclared identifier: 'VLFill' [Fatal Error] ACBr_SPED.dpk(101): Could not compile used unit '..\..\..\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBrEFDBloco_0_Class.pas' VLFill( ALIQ_ICMS, 0, 2 ); socorro como devo proceder para instalar o acbr_sped_ecf ?rs

desculpe, obrigado.

boa tarde pessoal, qual o caminho do trunk2 ? estou olhando neste caminho : svn://svn.code.sf.net/p/acbr/code/trunk2/Fontes e não estou achando o spedecf.

boa tarde pessoal, baixei os fontes do branches, mas deram muitos erros no tipos tdate diz que não existe. mudei pra tdatetime pra conseguir compilar, compilou mas no final deu o seguinte erro. [Error] WARNING. Duplicate resource(s): [Error] Type 2 (BITMAP), ID TACBRSPEDFISCAL: [Error] File ..\..\..\componentes\ACBr\Fontes\ACBrSPED\ACBrSPEDECF\ACBr_SPEDECF.dcr resource kept; file C:\Projeto\componentes\ACBr\Fontes\ACBrSPED\ACBrSPEDFiscal\ACBr_SPEDFiscal.dcr resource discarded.