...
...
//Declare
...
as
...
Funções
...
da
...
DLL
...
na
...
Aplicação.
function
...
Bematech_NFCe_AdicionaInformacoesCombustivel(itemIndex:
...
AnsiString;
...
ANPProductCode:
...
AnsiString;
...
percentMixGN:
...
AnsiString;
...
CODIF:
...
AnsiString;
...
quantity:
...
AnsiString;
consumeUF:
...
AnsiString;
...
BCProductCIDE:
...
AnsiString;
...
taxProductCIDE:
...
AnsiString;
...
valueCIDE:
...
AnsiString;
...
fuelNozzleNumber:
...
AnsiString;
...
fuelPumpNumber:
...
AnsiString;
...
fuelTankNumber:
...
AnsiString;
fuelGaugeInitial:
...
AnsiString;
...
fuelGaugeFinal:
...
AnsiString):
...
integer;
...
StdCall;
...
External
...
'BemaNFCe32.DLL';
function
...
Bematech_NFCe_AdicionaInfoCombustivel_LA03x(itemIndex:AnsiString;
...
descANP:AnsiString;
...
pGLP:AnsiString;pGNn:AnsiString;pGNi:AnsiString;vPart:AnsiString):
...
integer;
...
StdCall;
...
External
...
'BemaNFCe32.DLL';
...
//Realize
...
a
...
codificação.
...
Neste
...
exemplo
...
usamos
...
um
...
botão
...
para
...
abrir
...
a
...
tela
...
com
...
os
...
parâmetros
...
exigidos
...
pela
...
função
...
e
...
na
...
sequencia
...
executamos
...
as
...
duas
...
funções
...
seguidamente,
...
para
...
que
...
todos
...
os
...
campos
...
sejam
...
informados.
procedure
...
TForm_BemaNFCe.btnInsereCombustivelClick(Sender:
...
TObject);
...
begin
...
FormAdicInfoCombustivel
...
:=
...
TFormAdicInfoCombustivel.Create(Application);
...
FormAdicInfoCombustivel.ShowModal;
...
if
...
itemIndex
...
<>
...
''
...
then
...
...
begin
...
//
...
iRetorno
...
:=
...
Bematech_NFCe_AdicionaInformacoesCombustivel(itemIndex,
...
ANPProductCode,
...
percentMixGN,
...
CODIF,
...
quantitycomb,
...
consumeUF,
...
BCProductCIDE,
...
taxProductCIDE,
...
valueCIDE,
...
fuelNozzleNumber,
...
fuelPumpNumber,
...
fuelTankNumber,
...
fuelGaugeInitial,
...
fuelGaugeFinal);
...
iRetorno
...
:=
...
Bematech_NFCe_AdicionaInfoCombustivel_LA03x(itemIndex,
...
descANP,
...
pGLP,
...
pGNn,
...
pGNi,
...
vPart);
...
StatusBar1.Panels[2].Text
...
:=
...
'AdicionaInformacoesCombustivel
...
E
...
AdicionaInfoCombustivel_LA03x
...
';
...
if
...
iRetorno
...
=
...
1
...
then
...
StatusBar1.Panels[3].Text
...
:=
...
'Execução
...
OK!';
...
if
...
iRetorno
...
=
...
-1
...
then
...
StatusBar1.Panels[3].Text
...
:=
...
'Erro
...
durante
...
execução';
...
if
...
iRetorno
...
=
...
-2
...
then
...
StatusBar1.Panels[3].Text
...
:=
...
'Parâmetro
...
inválido';
...
if
...
iRetorno
...
=
...
-4
...
then
...
StatusBar1.Panels[3].Text
...
:=
...
'Erro
...
no
...
arquivo
...
de
...
configuração';
...
if
...
flag
...
<>
...
1
...
then
...
begin
...
MemoTela.Lines.Add('ìndice
...
do
...
item:
...
'
...
+
...
itemIndex);
...
MemoTela.Lines.Add('Código
...
produto
...
ANP:
...
'
...
+
...
ANPProductCode);
...
MemoTela.Lines.Add('UF
...
de
...
consumo:
...
'
...
+
...
consumeUF);
...
end
...
else
...
begin
...
MemoTela.Lines.Add('ìndice
...
do
...
item:
...
'
...
+
...
itemIndex);
...
MemoTela.Lines.Add('Código
...
produto
...
ANP:
...
'
...
+
...
ANPProductCode);
...
MemoTela.Lines.Add('UF
...
de
...
consumo:
...
'
...
+
...
consumeUF);
...
MemoTela.Lines.Add('%
...
de
...
mistura
...
de
...
GN:
...
'
...
+
...
percentMixGN);
...
MemoTela.Lines.Add('Código
...
CODIF:
...
'
...
+
...
CODIF);
...
MemoTela.Lines.Add('Qtde
...
do
...
produto
...
vendido
...
à
...
temperatura
...
ambiente:
...
'
...
+
...
quantity);
...
MemoTela.Lines.Add('Base
...
de
...
Cálculo
...
CIDE:
...
'
...
+
...
BCProductCIDE);
...
MemoTela.Lines.Add('Alíquota
...
CIDE:
...
'
...
+
...
taxProductCIDE);
...
MemoTela.Lines.Add('Valor
...
CIDE:
...
'
...
+
...
valueCIDE);
...
MemoTela.Lines.Add('Número
...
do
...
Bico:
...
'
...
+
...
fuelNozzleNumber);
...
MemoTela.Lines.Add('Número
...
da
...
bomba:
...
'
...
+
...
fuelPumpNumber);
...
MemoTela.Lines.Add('Número
...
do
...
tanque:
...
'
...
+
...
fuelTankNumber);
...
MemoTela.Lines.Add('Valor
...
Inicial
...
do
...
Encerrante:
...
'
...
+
...
fuelGaugeInitial);
...
MemoTela.Lines.Add('Valor
...
Final
...
do
...
Encerrante:
...
'
...
+
...
fuelGaugeFinal);
...
end;
...
end
...
else
...
begin
...
MemoTela.Lines.Add('AdicionaInformacoesCombustivel
...
cancelado...')
...
end;
...
end;
...
...