Cita:
Empezado por edorantes
Hola amigos, al tratar de consumir un web service de generación de CFDI al madarle muchos productos me genera una excepción diciendo
¿Saben como serializar objetos? uso delphi 7
|
mi funcion para enviarlos es asi
Código:
var
datosConceptos : ConceptoR;
conceptosFel : ArrayOfConceptoR;
cantU,preU: TXSDecimal;
begin
datosConceptos := ConceptoR.Create();
cantU:= TXSDecimal.Create;
preU:= TXSDecimal.Create;
SetLength(conceptosFel,desc.Count);
for i := 0 to desc.Count-1 do begin
cantU.DecimalString := cantidad.Strings[i];
preU.DecimalString := precio.Strings[i];
datosConceptos.cantidad := cantU; //el web service me los pide como TXSDecimal
datosConceptos.descripcion := desc.Strings[i];
datosConceptos.valorUnitario := preU; //el web service me los pide como TXSDecimal
conceptosFel[i] := datosConceptos;//Aqui agregamos al arreglo de objetos de tipo conceptoR
end;
end;