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