Ver Mensaje Individual
  #3  
Antiguo 15-02-2012
Avatar de richy08
richy08 richy08 is offline
Miembro
 
Registrado: may 2007
Ubicación: Bucerias, Nayarit Mexico
Posts: 529
Reputación: 18
richy08 Va por buen camino
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
Responder Con Cita