-- 10:53:43:125 VendeItem( 000105 , ABRAC NYLON BRASF. 3,6MM X 200 , F , 1 , 0,2 , 0 , $ , % , D , -1 )
você está passando o simbolo do desconto na unidade, basta passa-lo no local correto, simples assim.
Usando seu próprio exemplo:
procedure TForm29.Button6Click(Sender: TObject);
Var Desc : Char ;
begin
Desc := '$'; // <-------------- $ valor, % percentual
form1.ACBrECF1.VendeItem(datamodule1.QVendacodigo_barras.Text, datamodule1.QVendadescricao.Text,
datamodule1.QVendaaliq.Text, StrToFloatDef( datamodule1.QVendaquant.AsString,0),
StrToFloatDef( datamodule1.QVendavalorUnit.AsString,0),
StrToFloatDef( pesprod.Eddescva.Text,0 ), // <---- valor do desconto ou acrescimo concedidos
'UN', // <----------- troque aqui pela unidade correta, conforme seu cadastro ou informado em tela
Desc, // <----------- aqui o tipo do desconto $ valor, % percentual
'D'); // <----------- arqui informe se é desconto (D) ou acrescimo (A)
end;
Sintaxe do comando:
procedure TACBrECF.VendeItem(
Codigo, Descricao: String;
AliquotaICMS : String;
Qtd: Double;
ValorUnitario: Double;
ValorDescontoAcrescimo: Double;
Unidade: String;
TipoDescontoAcrescimo : String;
DescontoAcrescimo : String ;
CodDepartamento: Integer);
Não esqueça de também passar o tipo do desconto/acrescimo