Alguem tem Um exemplo de Registro 74 e 75? Pelo Amor de Deus

[laurovinicius]

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!!!!!!!!

[Juliomar Marchetti]

Bom dia

Qual sua dificuldade em gerar ele?

74 é o registro de inventário

e 75 é o código de produto ou serviço

[laurovinicius]

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!

[Juliomar Marchetti]

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

[laurovinicius]

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

[Juliomar Marchetti]

anexa a unit pra ver como está

[Reinaldo Holanda]

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 25 Março, 2013 por Reinaldo Holanda

[EMBarbosa]

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?

[Reinaldo Holanda]

Resolvido,  apenas removi o freeandnil(). Obrigado EMBarbosa!

[Douglas Pacheco]

bom dia....apenas inclusão de registro 74 para inventario , eu teria que incluir o 75 ? pelo que intendi ..aguardo

[Cleber Ferreira]

bom dia....apenas inclusão de registro 74 para inventario , eu teria que incluir o 75 ? pelo que intendi ..aguardo

 

Sim.

[Douglas Pacheco]

de onde pego as informações do registro 74 e 75 , se é que preciso do 75 pois preciso de fazer o inventario ,agradeço muito 

[EMBarbosa]

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".