Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

clube mobile


Cursos grátis para toda base ACBr
+ Promoção Clube Mobile para o ACBr Pro

Saiba mais

adriano santos

click.png

click.png

click.png

click.png

click.png

click.png

Carlos Renato Grandizoli Barbosa

Membros
  • Content Count

    17
  • Joined

  • Last visited

Community Reputation

0 Neutral

About Carlos Renato Grandizoli Barbosa

  • Rank
    Novato

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. 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;
  2. 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;
  3. 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?
  4. 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;
  5. 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;
  6. 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 := FRegistro0035Coun
  7. 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_
  8. 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.
  9. 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.
  10. 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.p
  11. 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\
×
×
  • Create New...