Problemas Com Acbrctedactefrdm

[dennis willian rondolfo]

{ trexo com bug }
procedure TdmACBrCTeFR.CarregaSeguro;
var
  i: Integer;
begin
  with cdsSeguro do
  begin
    Close;
    FieldDefs.Clear;
    FieldDefs.Add('RESPONSAVEL', ftString, 60);
    FieldDefs.Add('NOMESEGURADORA', ftString, 60);
    FieldDefs.Add('NUMEROAPOLICE', ftString, 60);
    FieldDefs.Add('NUMEROAVERBACAO', ftString, 60);
    CreateDataSet;
    Append;
    //
    if CTe.InfSeg.Count > 0 then
    begin
      for I := 0 to CTe.InfSeg.Count - 1 do
// falta um edit neste ponto;
      begin
        case CTe.InfSeg.Items.respSeg of
          rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente';
          rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor';
          rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor';
          rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário';
          rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente';
          rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador';
        end;
        FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg;
        FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol;
        FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver;
        Post;
      end;
    end
    else
    begin
      FieldByName('RESPONSAVEL').AsString := '';
      FieldByName('NOMESEGURADORA').AsString := '';
      FieldByName('NUMEROAPOLICE').AsString := '';
      FieldByName('NUMEROAVERBACAO').AsString := '';
      Post;
    end;

  end;

end;

{ trecho corrigido }
procedure TdmACBrCTeFR.CarregaSeguro;
var
  i: Integer;
begin
  with cdsSeguro do
  begin
    Close;
    FieldDefs.Clear;
    FieldDefs.Add('RESPONSAVEL', ftString, 60);
    FieldDefs.Add('NOMESEGURADORA', ftString, 60);
    FieldDefs.Add('NUMEROAPOLICE', ftString, 60);
    FieldDefs.Add('NUMEROAVERBACAO', ftString, 60);
    CreateDataSet;
    Append;
    //
    if CTe.InfSeg.Count > 0 then
    begin
      for I := 0 to CTe.InfSeg.Count - 1 do
      begin
        if not (State in [dsInsert,dsEdit]) then
  Edit;
        case CTe.InfSeg.Items.respSeg of
          rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente';
          rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor';
          rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor';
          rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário';
          rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente';
          rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador';
        end;
        FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg;
        FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol;
        FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver;
        Post;
      end;
    end
    else
    begin
      FieldByName('RESPONSAVEL').AsString := '';
      FieldByName('NOMESEGURADORA').AsString := '';
      FieldByName('NUMEROAPOLICE').AsString := '';
      FieldByName('NUMEROAVERBACAO').AsString := '';
      Post;
    end;

  end;

end;

 

[dennis willian rondolfo]

favor atualizar código e disponibilizar no svn

[Italo Giurizzato Junior]

Bom dia Dennis,

 

Por favor, post como anexo a unit corrigida.

[dennis willian rondolfo]

segue código fonte corrigido, um abraço

 

ACBrCTeDACTEFRDM.pas