ActiveDelphi

[fabio.avila]

precisei utilizar a função Bematech_FI_ImpressaoCarne, coloquei no programa mas não funcionou. verifiquei que não havia declaração na unit 'UnitDeclaracoes', que é a unit das função declaradas na bematech.

Abri o demo da bematech e verifiquei que no exemplo a declaração estava na propria unit do form para emissão. Testei o demo e o carne foi impresso normalmente.

Já no meu sistema fiz a declaração da função Bematech_FI_ImpressaoCarne, (em UnitDeclaracoes) compilou normalmente. mas dá erro de parametro. mas já verifiquei os parametros estão sendo passados corretamente.

iRetorno := Bematech_FI_ImpressaoCarne(pchar('Impressão de parcelas'),pchar(cVlrParc),pchar(cVencto),iQtdParc,pchar(cTexto),pchar(cCliente),pchar(cCPF),cCOO,iVia,iAssina);
Analisa_iRetorno();
Retorno_Impressora();


aí está o problema...

[anfm]

Conforme o Manual da DLL, está faltando vc passar como pchar o cCOOCupom

iRetorno := Bematech_FI_ImpressaoCarne(pchar('Impressão de parcelas'),pchar(cVlrParc),pchar(cVencto),iQtdParc,pchar(cTexto),pchar(cCliente),pchar(cCPF),cCOO,iVia,iAssina);

// Exemplo em Delphi

[fabio.avila]

fiz a modificação para pchar(cCoo) mas continua dando erro de parametros.

no meu teste estou tentando emitir uma parcela então estou passando os valores assim:

valor= '20,00'
vencto='03/03/03'
quantidade=1

não tem porque dar erro

[fabio.avila]

para ser mais detalhado meu código está assim:

if tipopromi = 'fixo'then
begin
cVlrParc:=pagostr;cVencto:=Fpromissoria2.EditVencto.text;
iQTdParc:=1;cTexto:='Texto a ser impresso';
cCliente:=DMConsulta.QLocalizaCliNOMECLI.Value;
cCPF:=DMconsulta.QLocalizaCliCNPJCPF.AsString;
cCOO:=numcupom;
iVia:=2;iAssina:=1;
end;
iRetorno := Bematech_FI_ImpressaoCarne(pchar('Impressão de parcelas'),pchar(cVlrParc),pchar(cVencto),iQtdParc,pchar(cTexto),pchar(cCliente),pchar(cCPF),pChar(cCOO),iVia,iAssina);

[anfm]

está variável cCOO é string :

[fabio.avila]

cCOO é string. todas as variáveis passadas como PChar são do String.
já executei o sistema passo a passo os valores estão corretos.

[anfm]

A única coisa que está descrita no manual que pode estar causando problema. é que o nome do cliente pode ter no máximo 30 caracteres.

Tente por um copy(cCliente,1,30) e ver se funcionar, se não funcionar, poste a mensagem completa do erro que está ocorrendo.

[fabio.avila]

valeu pela ajuda, agora foi...

funcionou da seguinte forma:

cTitulo:='Título parcela';
cTitulo:=copy(cTitulo,1,20);
//
cTexto:='Texto a ser impresso';
cTexto:=copy(cTexto,1,200);
//
cVlrParc:=pagostr;cVencto:=Fpromissoria2.EditVencto.text;
iQTdParc:=1;
//
cCliente:=DMConsulta.QLocalizaCliNOMECLI.Value;
cCliente:=copy(cCliente,1,30);
//
cCPF:=DMconsulta.QLocalizaCliCNPJCPF.AsString;cCOO:=numcupom;
iVia:=2;iAssina:=1;