Bom dia Pessoal, no 2240 as tag's em negrito estão duplicadas... podem ajustar pra nós?
pcesS2240
procedure TEvtExpRisco.GerarRespReg(pRespReg: TRespRegCollection);
var
i: integer;
begin
for i := 0 to pRespReg.Count - 1 do
begin
Gerador.wGrupo('respReg');
Gerador.wCampo(tcStr, '', 'cpfResp', 1, 11, 1, pRespReg.cpfResp);
Gerador.wCampo(tcStr, '', 'nisResp', 1, 11, 1, pRespReg.nisResp);
Gerador.wCampo(tcStr, '', 'nmResp', 1, 70, 1, pRespReg.nmResp);
Gerador.wCampo(tcStr, '', 'ideOC', 1, 1, 1, eSIdeOCToStr(pRespReg.ideOC));
Gerador.wCampo(tcStr, '', 'dscOC', 1, 20, 1, pRespReg.dscOC);
Gerador.wCampo(tcStr, '', 'nrOC', 1, 14, 1, pRespReg.nrOc);
Gerador.wCampo(tcStr, '', 'ufOC', 2, 2, 0, eSufToStr(pRespReg.ufOC));
if pRespReg.ideOC = idOutros then
Gerador.wCampo(tcStr, '', 'dscOC', 1, 20, 1, pRespReg.dscOC);
Gerador.wCampo(tcStr, '', 'nrOC', 1, 14, 1, pRespReg.nrOc);
Gerador.wCampo(tcStr, '', 'ufOC', 2, 2, 0, eSufToStr(pRespReg.ufOC));
Gerador.wGrupo('/respReg');
end;
if pRespReg.Count > 9 then
Gerador.wAlerta('', 'respReg', 'Lista de Responsáveis pelo registro', ERR_MSG_MAIOR_MAXIMO + '9');
end;