Carlos Renato Grandizoli Barbosa
-
Total de ítens
17 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Carlos Renato Grandizoli Barbosa
-
-
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; -
-
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.
Sped ECF Disponibilizado do Trunk2
em ACBrSPEDECF
Postado
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;