Bom dia Juliomar, obrigado por retornar... verificando as units ACBrNFe.EventoClass e ACBrNFe.EnvEvento, não tem o campo cCredPres.
Estou fazendo as modificações para incluir, e fiquei com uma duvida refrente ao codigo do campo... poderia me explicar como funciona?
na eventoclass eu alterei...
TgCredPresCollectionItem = class
private
FnItem: Integer;
FcCredPres: String; --aqui
FvBCCredPres : Double;
FgIBSCredPres: TgIBSgCBS_CredPres;
FgCBSCredPres: TgIBSgCBS_CredPres;
public
constructor Create;
destructor Destroy; override;
property nItem : Integer read FnItem write FnItem;
property cCredPres : string read FcCredPres write FcCredPres; --aqui
property vBCCredPres : Double read FvBCCredPres write FvBCCredPres;
property gIBSCredPres: TgIBSgCBS_CredPres read FgIBSCredPres write FgIBSCredPres;
property gCBSCredPres: TgIBSgCBS_CredPres read FgCBSCredPres write FgCBSCredPres;
end;
na EnvEvento eu adicionei...
function TEventoNFe.Gerar_gCredPres(Idx: Integer): TACBrXmlNodeArray;
var
i: integer;
begin
Result := nil;
SetLength(Result, Evento[Idx].FInfEvento.detEvento.gCredPres.Count);
for i := 0 to Evento[Idx].FInfEvento.detEvento.gCredPres.Count - 1 do
begin
Result[i] := CreateElement('gCredPresOper');
Result[i].SetAttribute('nItem',
intToStr(Evento[Idx].InfEvento.detEvento.gCredPres[i].nItem));
Result[i].AppendChild(AddNode(tcDe2, 'HP22', 'vBCCredPres', 1, 15, 1,
Evento[Idx].InfEvento.detEvento.gCredPres[i].vBCCredPres));
Result[i].AppendChild(AddNode(tcStr, 'P25a', 'cCredPres', 2, 2, 1,
Evento[Idx].InfEvento.detEvento.gCredPres[i].cCredPres)); --aqui
Result[i].AppendChild(Gerar_gIBSCredPres(Evento[Idx].InfEvento.detEvento.gCredPres[i].gIBSCredPres));
Result[i].AppendChild(Gerar_gCBSCredPres(Evento[Idx].InfEvento.detEvento.gCredPres[i].gCBSCredPres));
end;
if Evento[Idx].FInfEvento.detEvento.gCredPres.Count > 990 then
wAlerta('#1', 'gCredPres', '', ERR_MSG_MAIOR_MAXIMO + '990');
end;
A duvida sobre o codigo seria por exemplo o campo 'HP22', porque tem o H? Não seria 'P25' aqui...
Sobre as mudanças poderia validar se estão corretas por favor.