Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3894 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Olá Pessoal, estou apanhando na Geração do sintegra nos registros 74 e 75, alguém tem um exemplo que possa postar aqui pra mim ajudar??????

Sei que tem o Demo do Acbr, mas mesmo assim estou com dificuldades!!!!!!!!

:(

Postado

ESTOU APANHANDO NO CODIGO

VEJA O QUE EU FIZ:

procedure TACBrSintegra.GerarRegistros74;

var

i: Integer;

wregistro74: TRegistro74;

begin

DM.ZroProdutos.open;

DM.ZroProdutos.First;

while not DM.ZroProdutos.eof do

begin

begin

wregistro74:=TRegistro74.Create;

wregistro74.FData:=2011-12-31;

wregistro74.Fcodigo:=Dm.ZroProdutosId.AsString;

wregistro74.Quantidade:=(Dm.ZroProdutosSaldoReal.Ascurrency);

wregistro74.ValorProduto:=(Dm.ZroProdutosPrVenda.Ascurrency);

wregistro74.CodigoPosse:='1';

wregistro74.CnpjPossuidor:='07306894000191';

wregistro74.InscricaoPossuidor:='000000000';

wregistro74.UfPossuidor:='GO';

//WriteRecord(wregistro74);

//ACBrSintegra.Registros60R.Add(wregistro60R);

// ASSIM POR DIANTE

DM.ZroProdutos.next;

end;

end;

Nao esta dando certo!

  • Moderadores
Postado

Bom pelo que percebi de cara é que está criando o wregistro74 mas não está dando o add dele certo?

acho que esse pode ser um dos problemas

tipo algo assim ACBrSintegra.Registros74.add(wregistro74)

e talvez seja o mesmo para o 75

confere e dá um retorno

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Postado

bom fiz assim agora:

procedure TACBrSintegra.GerarRegistros74;

var

i: Integer;

wregistro74: TRegistro74;

begin

for i:=0 to Registros74.Count - 1 do

begin

DM.ZroProdutos.open;

DM.ZroProdutos.First;

while not DM.ZroProdutos.eof do

begin

wregistro74:=TRegistro74.Create;

wregistro74.FData:=2011-12-31;

wregistro74.Fcodigo:=Dm.ZroProdutosId.AsString;

wregistro74.Quantidade:=(Dm.ZroProdutosSaldoReal.Ascurrency);

wregistro74.ValorProduto:=(Dm.ZroProdutosPrVenda.Ascurrency);

wregistro74.CodigoPosse:='1';

wregistro74.CnpjPossuidor:='07306894000191';

wregistro74.InscricaoPossuidor:='000000000';

wregistro74.UfPossuidor:='GO';

form1.ACBrSintegra.Registros74.Add(wregistro74);

DM.ZroProdutos.next;

end;

end;

mas so apareceu o cabecalho:

1011111111111111ISENTO EMPRESA DE TESTE CIDADE DE TESTE MG35111111112008070120080731331

11ENDERECO DA EMPRESA 00001 BAIRRO DA EMPRE11111111RESPONSAVEL 001111111111

9011111111111111ISENTO 9900000003 1

  • 1 ano depois...
Postado (editado)

Boa tarde pessoal, estou com a mesma dúvida como fazer o código para montar o registro 74 ? 

 

fiz assim :

 

 

 while not qrREG74.Eof do
        begin
            if qrREG74.fieldbyname('Quantidade').asfloat>0 then
            begin
                FreeAndNil(wregistro74);
                wregistro74:=TRegistro74.Create;
                wregistro74.Data:=dtInventario.Date;
                wregistro74.Codigo:=Copy (qrREG74.FieldByName('Codigo').AsString + StringOfChar(' ',14 ), 1, 14);
                wregistro74.Quantidade:= qrREG74.fieldbyname('Quantidade').asfloat;
                wregistro74.ValorProduto:=qrREG74.fieldbyname('valor_produto_total').asfloat;
                wregistro74.CodigoPosse:='1';
                {
                wregistro74.CNPJPossuidor
                wregistro74.InscricaoPossuidor
                wregistro74.UFPossuidor
                }
                //wregistro74.UFPossuidor:=Copy (qrAux.FieldByName('UF_EMPRESA').AsString + StringOfChar(' ',2 ), 1, 2);
 
                Registros74.Add(wregistro74);
 
            end;
 
          // reg 75 PRODUTO  =======================================================
 
      qrREG74.Next;
      end;
      end;
 
      ACBrSintegra1.GeraArquivo;
 
Ele gira a query de estoque, porém gera o arquivo com a repetição do último registro de estoque.
 
Alguém teria um exemplo claro de como fazer o loop para montar o registro 74 e o 75 ?
Editado por Reinaldo Holanda
  • Consultores
Postado

Até onde me lembro você não precisa daquele FreeAndNil ali no código. De resto não parece haver nada de errado... Talvez um erro no seu SQL?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • 11 meses depois ...
  • 2 semanas depois ...
  • Consultores
Postado

Da sua base de dados.

 

Além disso, favor criar um tópico novo para uma dúvida nova conforme as regras. Veja neste em especial a "2.2 - Permaneça no assunto". 

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
  • Este tópico foi criado há 3894 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.