Fórum Farmacia popular erro #406386

Olá
Estou com o mesmo problema, apresentando o erro 
Data de emissão invalida ou DNA invalido
alguma dica.
pra resolver esses problemas de uma vez.
Function TForm1.ObterSolicitacao(cCNPJ, cCPF, cCRM, cUFCRM: String;cDataEmissao:TDateTime): String;varpar:String;begin
    par := '--solicitacao '+cCPF+' '+cCNPJ+' '+cCRM+' '+cUFCRM+' '+FormatDateTime('dd/MM/yyyy',cDataEmissao);    result:=(Trim( GetDosOutput( ExtractFilePath(Application.ExeName)+'gbasmsb.exe ' + par ) ));
end;

Function PegaSolicitacao(cCNPJ, cCPJ, cCRM, cUFCRM, cDataEmissao: Pchar): Pchar; stdcall; external 'gbasmsb_library.dll';

Solicitacao := SolicitacaoDTO.Create;Solicitacao.arrMedicamentoDTO := MedicamentoS;Solicitacao.coSolicitacaoFarmacia := '000001';Solicitacao.dtEmissaoReceita := TXSDateTime.Create;
quando coloco assim apresenta DNA invalido
Solicitacao.dtEmissaoReceita.AsDateTime:=Date;

quando coloco assim apresenta da de emissão invalida
Solicitacao.dtEmissaoReceita.AsDateTime:=Now;


Solicitacao.nuCnpj := '------------'; sem mascara
//CPF PacienteSolicitacao.nuCpf := '------------------'; sem mascara//CRM MédicoSolicitacao.nuCrm := '-----------------';sem mascara
//UF MédicoSolicitacao.sgUfCrm := 'PE';
//Solicitacao.dnaEstacao:=Trim(ObterSolicitacao(Solicitacao.nuCnpj,Solicitacao.nuCpf,Solicitacao.nuCrm,Solicitacao.sgUfCrm,Date));
Solicitacao.dnaEstacao:=Trim(PegaSolicitacao( pChar(Solicitacao.nuCnpj),pChar(Solicitacao.nuCpf),pChar(Solicitacao.nuCrm),pChar(Solicitacao.sgUfCrm),pChar(FormatDateTime('dd/MM/yyyy',Date))));


Eu já tentei tanto com a função como com a dll.

Ajuda.