Bematech_FI_VendeItemDepartamento

BemaFI32

Bematech_FI_VendeItemDepartamento

Bematech_FI_VendeItemDepartamento

 

Essa função permite a venda de itens com entrada de departamento, desconto e unidade de medida.

 

Parâmetros:

 

Codigo: STRING até 49 caracteres com o código do produto.

 

Descricao: STRING até 201 caracteres com a descrição do produto.

 

Aliquota: STRING com o valor ou o índice da alíquota tributária. Se for o valor deve ser informado com o tamanho de 4 caracteres ou 5 com a vírgula. Se for o índice da alíquota deve ser 2 caracteres. Ex. (18,00 para o valor ou 05 para o índice)

 

ValorUnitario: STRING com até 9 dígitos para o valor (tres casas decimais).

 

Quantidade: STRING com até 7 dígitos para a quantidade. Na venda com departamento a quantidade é fracionária e são 3 casas decimais.

 

Acrescimo: STRING com o acréscimo por valor com até 10 dígitos (2 casas decimais).

 

Desconto: STRING com o desconto por valor com até 10 dígitos (2 casas decimais).

 

IndiceDepartamento: STRING com o índice do departamento com 2 dígitos.

 

UnidadeMedida: STRING com 2 caracteres para a unidade de medida. Caso não seja passado nenhum caracter a unidade não é impressa.

 

Possíveis retornos da Função (INTEIRO):

 

0: Erro de comunicação.

1: OK.

-2: Parâmetro inválido na função.

-3: Alíquota não programada.

-4: O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.

-5: Erro ao abrir a porta de comunicação.

-27: Status da impressora diferente de 6,0,0 (ACK, ST1 e ST2).

 

Observação:

·Obedece as mesmas situações descrita na função Bematech_FI_VendeItem.
·Deve ser informado "01" no parâmetro "IndiceDepartamento", obrigatoriamente, para os modelos de ECF térmicos, MP-25 FI e MP-50 FI.

Exemplo:

 

' Exemplo em Visual Basic

iRetorno = Bematech_FI_VendeItemDepartamento("123", "Caneta", "1200", "0,25", "10", "0", "0", "01", "UN")

 

// Exemplo em Delphi

cCodigo := '123';

cDescricao := 'Caneta';

cAliquota := '1200';

cValor := '0,250';

cQtde := '10,000';

cAcresc := '0';

cDesc := '0';

cIndice := '01';

cUnidade := 'UN';

 

iRetorno := Bematech_FI_VendeItemDepartamento( pchar( cCodigo ), pchar( cDescricao ), pchar( cAliquota ), pchar( cValor ), pchar( cQtde ), pchar( cAcresc ), pchar( cDesc ), pchar( cIndice ), pchar( cUnidade ) );