Moderador: Moderadores
Código: Selecionar todos
# INCLUDE "FISCAL.CH" <-- erro nessa linha, Can`t open # include file: FISCAL.CH
Porta := 0
Porta := FOpen_Bema("COM1", FO_READWRITE + FO_COMPAT)
Código: Selecionar todos
#INCLUDE "FISCAL.CH"
Código: Selecionar todos
CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS =
LAUTORUN =
LDEBUG = .T.
LGUI = .F.
LIBFOLDERS =
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .T.
LPRG_DEBUG = .T.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS = -Gn -s
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER =
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =
[LOJA.PRG]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =
[FUNCOES.PRG]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =
[FISCAL.PRG]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =
Código: Selecionar todos
#include "dll.ch"
...
If lMonitor
Else
If File("bemafi32.dll")
hDll:=DllLoad("bemafi32.dll")
Else
hwg_Msgstop("Falha carregando bemafi32.dll")
return .f.
EndIf
EndIf
Código: Selecionar todos
If lBematech
If lMonitor
Comando := "003|"+cCPFCNPJ+"|"
GravaArquivo(comando)
Else
BematechAbreCupom(@cCPFCNPJ)
EndIf
ElseIf lDaruma
Comando := "1000;"+cCPFCNPJ+";"
GravaArquivo(comando)
Else
hwg_msgstop('Sem Modelo')
Return .F.
EndIf
Código: Selecionar todos
No manual vc tem:
Vende item após a abertura do cupom fiscal. Essa função permite também a venda de itens com 3 casas decimais no valor unitário.
compatduas
Parâmetros:
Codigo: STRING até 13 caracteres com o código do produto.
Descricao: STRING até 29 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).
TipoQuantidade: 1 (um) caracter indicando o tipo de quantidade. I - Inteira e F - Fracionária.
Quantidade: STRING com até 4 dígitos para quantidade inteira e 7 dígitos para quantidade fracionária. Na quantidade fracionária são 3 casas decimais.
CasasDecimais: INTEIRO indicando o número de casas decimais para o valor unitário (2 ou 3).
ValorUnitario: STRING até 8 dígitos para valor unitário.
TipoDesconto: 1 (um) caracter indicando a forma do desconto. '$' desconto por valor e '%' desconto percentual.
ValorDesconto: String com até 8 dígitos para desconto por valor (2 casas decimais) e 4 dígitos para desconto percentual.
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ções:
- Imagine que há duas alíquotas com o valor 12% cadastradas na impressora. A primeira cadastrada na posição 01 como ICMS e a outra na posição 05 como ISS. Se você informar o valor 1200 ou 12,00 no parâmetro "alíquota" a função irá imprimir o item usando a alíquota 01 de ICMS. A função lê as alíquotas da impressora e usa o índice da primeira ocorrência. Para usar a alíquota de ISS você deverá passar o índice 05 e não o valor 1200 ou 12,00. Se você não tiver duas alíquotas com o mesmo valor cadastradas na impressora use sempre o valor no parâmetro alíquota.
- O cupom fiscal deve estar aberto.
Exemplo:
' Exemplo em Visual Basic
iRetorno = Bematech_FI_VendeItem("123", "Caneta", "1200", "I", "10", 2, "0,25", "%", "0000")
// Exemplo em Delphi
cCodigo := '123';
cDescricao := 'Caneta';
cAliquota := '1200';
cTipoQtde := 'I';
cQtde := '10';
iCasasDecimais := 2;
cValor := '0,25';
cTipoDesconto := '%';
cValorDesc := '0000';
iRetorno := Bematech_FI_VendeItem( pchar( cCodigo ),
pchar( cDescricao ),
pchar( cAliquota ),
pchar( cTipoQtde ),
pchar( cQtde ),
iCasasDecimais,
pchar( cValor ),
pchar( cTipoDesconto ),
pchar( cValorDesc ) );
A chamada no Harbour via DLL é simples veja:
nRetVal := DllCall(hDll,DLL_OSAPI,"Bematech_FI_VendeItem",;
pd->cod_mercad,;
substr(pd->mercadoria,1,29),;
eq->situa_trib,;
"F",;
Zero_Esq(pd->quantidade,7,3),;
2,;
zero_esq(pd->preco_unit,8,2),;
SD,;
Desc)
porter escreveu:no clipper sempre fiz dessa forma e deu certo
Amigos, só relembrando: bibliotecas LIB de terceiros que eram utilizadas no Clipper, devem ser recompiladas para [x]Harbour, então resta saber se a BEMAFI.LIB pode ser usada com o [x]Harbour!porter escreveu:eu copiei a BEMAFI.LIB para c:\xHarbour\lib