Histórico da Página

CONTEÚDO

1. Visão Geral
2. Exemplo de utilização em Delphi
3. Tela Dados Combustível

01. VISÃO GERAL

Para o ramo de Combustíveis, houve a criação de alguns novos campos para os percentuais de mistura do Gás Liquefeito de Petróleo -GLP(cProdANP=210203001). Os valores decimais podem variar de 0 a 1.

São eles:

• Percentual do GLP derivado do petróleo no produto GLP (campo pGLP);

• Percentual de Gás Natural Nacional –GLGNnpara o produto GLP (campo pGNn);

• Percentual de Gás Natural Importado –GLGNipara o produto GLP (campo pGNi);

Com isso o Percentual de Gás Natural para o produto GLP (campo pMixGN) presente na versão 3.10 foi excluído. Além dos percentuais, foram adicionados os seguintes campos:

• Descrição do produto conforme ANP (campo descANP);

• Valor de partida(campo vPart) apenas para produto GLP (cProdANP=210203001).

Este campo deve ser informado por quilograma sem o ICMS.

Os demais campos do Grupo de Combustíveis líquidos foram mantidos.

02. EXEMPLO DE UTILIZAÇÃO EM DELPHI

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

03. TELA DADOS COMBUSTÍVEL

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>