PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WD - Trabalhando com as dlls da Bematech
WD - Trabalhando com as dlls da Bematech
Iniciado por BOLLER ADRIANO, ago., 10 2016 4:46 AM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em agosto, 10 2016 - 4:46 AM
Prezados,

Exemplo de como trabalhar com as dlls da Bematech

Abertura do cupom
IF sCpf = "" AND gbAbr_prvenda=False THEN
IF YesNo("DESEJA EMITIR CUPOM COM CPF DO CLIENTE ?") THEN
Open(WIN_cpfcli)
END
sCpf = LimparCarc(gsCpfcnpj)
END

xHret = API("BemaFI32.dll","Bematech_FI_AbreCupomMFD",sCpf,Left(gsNomecli,30),Left(gsEndcli,80))
nHreterro = VerErrosEcf()
IF nHreterro = 1 THEN
Error("Erro ao Abrir Cupom Fiscal")
RESULT False
//result true
ELSE
Get_NumCupom()
RESULT True
END



Item
IF Position(Qtd,",",1,FromBeginning) THEN
sTipqtd is string = "F"
qtdnum is string
qtdnum = QtdN + "" + RepeatString("0", (5 - Length(DecimalPart(QtdN)) ))
ELSE
sTipqtd= "I"
qtdnum = Qtd
END
sDes_pro is string = Left(DesPro,29)
hRet = API("BemaFI32.dll","Bematech_FI_VendeItem",CodPro,sDes_pro,Trb,sTipqtd,qtdnum,2,VlrUni,"$",VlrPda)
IF hRet = -3 THEN
Error("ALÍQUOTA DO PRODUTO NÃO DEFINIDA OU NAO CADASTRADA!")
RESULT False
ELSE IF hRet = -2
Error("PARÂMETRO INVÁLIDO NA FUNÇÃO")
RESULT False
ELSE IF hRet = -4
Error("O arquivo de inicialização BemaFI32.ini não foi encontrado no diretório de sistema do Windows.")
RESULT False
ELSE IF hRet = -5
Error("Erro ao abrir a porta de comunicação.")
RESULT False
END
nHreterro = VerErrosEcf()
IF nHreterro = 1 THEN
Error("Erro ao Enviar Ítem para Venda no ECF!")
RESULT False
ELSE
RESULT True
END


:merci:

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 9949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/