Jump to content

dev botao

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

Recommended Posts

Posted

Pessoal a rotina abaixo está gravando C001 e C010 para cada C100, fiz este ajuste apenas para

testar, porém, a contagem dos registro C0999 ficou errado.

procedure TBloco_C.WriteRegistroC001 ;

begin

if Assigned(FRegistroC001) then

begin

if (RegistroC990.QTD_LIN_C = 0) then // Já gravou o C001 ?

begin

with FRegistroC001 do

begin

Add( LFill( 'C001' ) +

LFill( Integer(IND_MOV), 0 ) ) ;

end;

end

else

if FRegistroC001.IND_MOV = imComDados then

begin

WriteRegistroC010(FRegistroC001) ;

end;

RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

end;

end;

procedure TBloco_C.WriteRegistroC010(RegC001: TRegistroC001) ;

var

strIND_ESCRI: string;

intFor: Integer;

begin

if Assigned(RegC001.RegistroC010) then

begin

for intFor := 0 to RegC001.RegistroC010.Count - 1 do

begin

with RegC001.RegistroC010.Items[intFor] do

begin

if (RegistroC990.QTD_LIN_C = 1) then // Já gravou o C010 ?

begin

Check(funChecaCNPJ(CNPJ), '(0-010) ESTABELECIMENTO: O CNPJ "%s" digitado é inválido!', [CNPJ]);

Add( LFill('C010') +

LFill(CNPJ, 14)+

LFill(Integer(IND_ESCRI), 1) ) ;

end;

end;

// Registros FILHOS

if (RegistroC990.QTD_LIN_C > 1) then // Já gravou o C010 ?

begin

WriteRegistroC100( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC180( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC190( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC380( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC395( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC490( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC500( RegC001.RegistroC010.Items[intFor] );

WriteRegistroC600( RegC001.RegistroC010.Items[intFor] );

end;

//

RegistroC990.QTD_LIN_C := RegistroC990.QTD_LIN_C + 1;

end;

// Variavél para armazenar a quantidade de registro do tipo.

FRegistroC010Count := FRegistroC010Count + RegC001.RegistroC010.Count;

end;

end;

  • 3 weeks later...
  • Consultores
Posted

Esse tópico não é o mesmo que esse abaixo?

viewtopic.php?f=12&t=2133

[]'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á 4941 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.