...
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
... |
...
//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; |
...