Histórico da Página

//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;