Access Violation con dato tipo record

[richy08]

buenos dias compañeros tengo una duda que no he podido resolver y no encuentro informacion sobre esto, estoy revisando un codigo donde se crea un tipo record de esta forma

Código Delphi [-]
type
  TRegClienteProveedor = Record
    cCodigoCliente                      : Array[0..kLongCodigo] of Char;
    cRazonSocial                        : Array[0..kLongNombre] of Char;
    cFechaAlta                          : Array[0..kLongFecha] of Char;
    cRFC                                : Array[0..kLongRFC] of Char;
    cCURP                               : Array[0..kLongCURP] of Char;
    cDenComercial                       : Array[0..kLongDenComercial] of Char;
    cRepLegal                           : Array[0..kLongRepLegal] of Char;
    cNombreMoneda                       : Array[0..kLongNombre] of Char;
    cListaPreciosCliente                : LongInt;
    cDescuentoMovto                     : Double;
    cBanVentaCredito                    : LongInt; // 0 = No se permite venta a crédito, 1 = Se permite venta a crédito
    cCodigoValorClasificacionCliente1   : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionCliente2   : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionCliente3   : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionCliente4   : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionCliente5   : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionCliente6   : Array[0..kLongCodValorClasif] of Char;
    cTipoCliente                        : LongInt; // 1 - Cliente, 2 - Cliente/Proveedor, 3 - Proveedor
    cEstatus                            : LongInt; // 0. Inactivo, 1. Activo
    cFechaBaja                          : Array[0..kLongFecha] of Char;
    cFechaUltimaRevision                : Array[0..kLongFecha] of Char;
    cLimiteCreditoCliente               : Double;
    cDiasCreditoCliente                 : LongInt;
    cBanExcederCredito                  : LongInt; // 0 = No se permite exceder crédito, 1 = Se permite exceder el crédito
    cDescuentoProntoPago                : Double;
    cDiasProntoPago                     : LongInt;
    cInteresMoratorio                   : Double;
    cDiaPago                            : LongInt;
    cDiasRevision                       : LongInt;
    cMensajeria                         : Array[0..kLongDesCorta] of Char;
    cCuentaMensajeria                   : Array[0..kLongDescripcion] of Char;
    cDiasEmbarqueCliente                : LongInt;
    cCodigoAlmacen                      : Array[0..kLongCodigo] of Char;
    cCodigoAgenteVenta                  : Array[0..kLongCodigo] of Char;
    cCodigoAgenteCobro                  : Array[0..kLongCodigo] of Char;
    cRestriccionAgente                  : LongInt;
    cImpuesto1                          : Double;
    cImpuesto2                          : Double;
    cImpuesto3                          : Double;
    cRetencionCliente1                  : Double;
    cRetencionCliente2                  : Double;
    cCodigoValorClasificacionProveedor1 : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionProveedor2 : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionProveedor3 : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionProveedor4 : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionProveedor5 : Array[0..kLongCodValorClasif] of Char;
    cCodigoValorClasificacionProveedor6 : Array[0..kLongCodValorClasif] of Char;
    cLimiteCreditoProveedor             : Double;
    cDiasCreditoProveedor               : LongInt;
    cTiempoEntrega                      : LongInt;
    cDiasEmbarqueProveedor              : LongInt;
    cImpuestoProveedor1                 : Double;
    cImpuestoProveedor2                 : Double;
    cImpuestoProveedor3                 : Double;
    cRetencionProveedor1                : Double;
    cRetencionProveedor2                : Double;
    cBanInteresMoratorio                : LongInt; // 0 = No se le calculan intereses moratorios al cliente, 1 = Si se le calculan intereses moratorios al cliente.
    cTextoExtra1                        : Array[0..kLongTextoExtra] of Char;
    cTextoExtra2                        : Array[0..kLongTextoExtra] of Char;
    cTextoExtra3                        : Array[0..kLongTextoExtra] of Char;
    cFechaExtra                         : Array[0..kLongFecha]  of Char;
    cImporteExtra1                      : Double;
    cImporteExtra2                      : Double;
    cImporteExtra3                      : Double;
    cImporteExtra4                      : Double;
  end {RegClienteProveedor};

e inmediatamente crean una variable de ese tipo record asi

Código Delphi [-]
LPFREGCTEPROV =  ^TRegClienteProveedor;

mi pregunta es que significa este simbolo ^, por que al tratar de mandar este record a una funcion que se encuantra en el sdk de contpaq i para el cfdi me marca violacion de memoria

Código Delphi [-]
var
lError, entero : Integer;
.
.
.

datos1.cCodigoCliente[0]:='3';
datos1.cRazonSocial[0]:='3';
datos1.cFechaAlta:='3';
.
.
.
.
.
.
 entero:=3;
    

    lError :=fAltaCteProv(entero, datos1);


    if lError <> kSIN_ERRORES  then
    begin
      rMensajeError( lError );
      Exit;
    end;

gracias por cualquier comentario

[roman]

Empezado por richy08

e inmediatamente crean una variable de ese tipo record asi

Código Delphi [-]
LPFREGCTEPROV =  ^TRegClienteProveedor;

Aquí no estás creando ninguna variable, sino declarando un tipo de datos. Las variables de tipo LPFREGCTEPROV serían apuntadores a variables del tipo record. El caret, ^, significa apunta a.

Tendrías que declarar una variabe de ese tipo:

Código Delphi [-]
var
  P: LPFREGCTEPROV;

Y, una de dos, asignar a dicha variable la direccción de un registro ya existente o bien asignarle memoria con New o GetMem.

// Saludos

[richy08]

Gracias roman por la aclaracion creo que andaba muy perdido, hice el codigo asi y ya inserta el sdk pero a parte del valor que le doy para el campo me pone otros caracteres que me hacen pensar que pasa algo con la memoria el codigo que uso es este

Código Delphi [-]
var
lError, entero : Integer;
datos1 :LPFREGCTEPROV;
.
.
.
.

     GetMem(datos1, SizeOf(TRegProducto));
     datos1.cCodigoCliente[0]:='3';
     datos1.cRazonSocial[0]:='3';
     datos1.cFechaAlta:='02132012';


    datos1.cRFC:='3';
    datos1.cCURP:='3' ;
    datos1.cDenComercial :='3' ;
    datos1.cRepLegal:='3' ;
    datos1.cNombreMoneda:='3' ;

lError :=fAltaCteProv(entero, datos1);


    if lError <> kSIN_ERRORES  then
    begin
      rMensajeError( lError );
      Exit;
    end;

    showmessage(inttostr(entero));
    FreeMem(datos1);

existe algo en este codigo que pueda ocasionarme este comportamiento

mil gracias

[roman]

¿Cuál campo? ¿En dónde es que te muestra caracteres extraños?

// Saludos

[richy08]

Empezado por roman

¿Cuál campo? ¿En dónde es que te muestra caracteres extraños?

// Saludos

perdon se me olvido especificar el campo, con esta instruccion mando los datos a una funcion del sdk del contpaq

Código Delphi [-]
lError :=fAltaCteProv(entero, datos1);

donde datos1.cCodigoCliente[0]:='3'; escribe sobre el campo llamado CIDCLIEN01 de la tabla MGW10002.dbf que es un campo caracter de longitud 30
y si abro el contpaqi factura electronica si esta el registro guardaro pero en el campo su valor me muestra esto 3$otrocarcterextraño

[roman]

Empezado por richy08

donde datos1.cCodigoCliente[0]:='3';

¿Por qué haces así la asignación? Aunque sea sólo un caracter, debería ser

Código Delphi [-]
datos1.cCodigoCliente:='3';

y lo mismo en todos los demás campos similares.

// Saludos