gracias roman y eficsa por su tiempo, ahi va de donde me surge la duda estoy tratando de usar el sdk de contpaqi, tengo un record declarado asi:
Código Delphi
[-]
type
TRegDocumento = Record
aFolio : Double;
aNumMoneda : LongInt;
aTipoCambio : Double;
aImporte : Double;
aDescuentoDoc1 : Double;
aDescuentoDoc2 : Double;
aSistemaOrigen : LongInt;
aCodConcepto : Array[0..kLongCodigo] of Char;
aSerie : Array[0..kLongSerie] of Char;
aFecha : Array[0..kLongFecha] of Char;
aCodigoCteProv : Array[0..kLongCodigo] of Char;
aCodigoAgente : Array[0..kLongCodigo] of Char;
aReferencia : Array[0..kLongReferencia] of Char;
aAfecta : LongInt;
end ;
type
LPFREGDOCUMENTO = ^TRegDocumento;
despues en el evento de un boton tengo esto
Código Delphi
[-]
var
documento: LPFREGDOCUMENTO;
lSerie : Array[0..kLongSerie] of Char;
aFolio :double;
se supone que con esta funcion el sdk de contpaq me devuelve la serie y el folio del cfdi en uso.
Código Delphi
[-]
lError:=fSiguienteFolio('5', lSerie, aFolio);
if lError <> kSIN_ERRORES then
begin
rMensajeError( lError );
FreeMem(documento);
Exit;
end;
pero al querer mandarle de nuevo esos datos al sdk de esta manera me dice que los tipos de datos son incompatibles
Código Delphi
[-]
documento.aFolio:=aFolio;
documento.aNumMoneda:=1;
documento.aTipoCambio:=1;
documento.aImporte:=5000.50;
documento.aDescuentoDoc1:=0;
documento.aDescuentoDoc2:=0;
documento.aSistemaOrigen:=5;
documento.aCodConcepto:='5';
documento.aSerie:=lserie; <------------------aqui esta el error
documento.aFecha:='01/01/2012';
documento.aCodigoCteProv :='1';
documento.aAfecta:=0;
saludos