anabon
Novato
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 52
|
 Enviada: Qui Set 26, 2013 2:16 pm Assunto: Erro ao incluir itens na ECF |
 |
|
Boa tarde caros,
De começo peço desculpas se estou postando minha dúvida na seção errada, pois é a primeira vez que chego tão longe na programação.
Mais uma vez peço a ajuda de vocês estou montando um PDV-ECF com os códigos fornecidos pela BEMATECH, para impressão do cupom fiscal utilizo o emulador também da Bematech, o cupom esta abrindo normalmente, porém ao inserir os itens ele me retorna a mensagem “PARÂMETRO INVÁLIDO”, esta mensagem aparece apenas e execução, não aparece nenhum outro erro e os itens não são impresso nos cupom.
Estou utilizando os seguintes códigos:
//***************************** ABRE CUPOM FISCAL | Código: | ***************************************************************
iRetorno := Bematech_FI_AbreCupom(TXTCPF_CLIENTE.Text);
FRMPDV_FISCAL.Analisa_iRetorno();
FRMCONFIG_ECF.Retorno_Impressora (); |
| Código: | //************** incluir item ********************************
// Verifica o Tipo da Quantidade:
// 'I' para Inteira ou 'F' para Fracionária
If FRMCONFIG_ECF.RadioButton1.Checked = True Then Begin sTipoQtde := 'I' End;
If FRMCONFIG_ECF.RadioButton2.Checked = True Then Begin sTipoQtde := 'F' End;
// Verifica o Tipo de Decimal:
// 2 para duas casas ou 3 para três casas
If FRMCONFIG_ECF.RadioButton3.Checked = True Then Begin iDecimal := 2 End;
If FRMCONFIG_ECF.RadioButton4.Checked = True Then Begin iDecimal := 3 End;
// Verifica o Tipo de Desconto:
// '%' para percentual ou '$' para valor
If FRMCONFIG_ECF.RadioButton5.Checked = True Then Begin sTipoDesconto := '%' End;
If FRMCONFIG_ECF.RadioButton6.Checked = True Then Begin sTipoDesconto := '$' End;
{
iRetorno := Bematech_FI_VendeItem( Pchar('123ABC'), Pchar('Impressora Fiscal'),
Pchar('1700'), Pchar('I'), Pchar('0001'), 2, Pchar('85000'),
Pchar('%'), Pchar('1000') );
}
iRetorno := Bematech_FI_VendeItem( TXTCOD_BARRA.Text, txtdescricao.Text, TXTALICOTA.Text,
sTipoQtde, TXTQUANTIDADE.Text, iDecimal, TXTVALOR_UNITARIO.Text,
sTipoDesconto, TXTDESCONTO.Text );
Analisa_iRetorno();
FRMCONFIG_ECF.Retorno_Impressora(); |
a função é:
| Código: | | function Bematech_FI_VendeItem( Codigo: String; Descricao: String; Aliquota: String; TipoQuantidade: String; Quantidade: String; CasasDecimais: Integer; ValorUnitario: String; TipoDesconto: String; Desconto: String): Integer; StdCall; External 'BEMAFI32.DLL'; |
já tentei debugar porém sem sucesso, estou presa a este problema a quase dois dias 
Utilizo delphi 7...
Desde já agradeço que puder me audar |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
