NFE de gás (classe do Gilmer)

[Luiz Fernando]

Pessoal alguém aqui já fez nota com necessidade do uso destas tags

<cProdANP>210203001</cProdANP>   

<descANP>GLP</descANP>

<pGLP>50.00</pGLP>

<pGNn>30.00</pGNn>

<pGNi>20.00</pGNi>

<vPart>7.31</vPart>

<UFCons>BA</UFCons>

as duas primeira e a ultima tem na classe, mais as outras 4 não consegui achar.

obg

[kapiaba]

Os campos pGLP ou pGNn ou pGNi podem ser informados todos juntos, apenas 2 ou apenas 1 deles. Em todos os casos, a soma de seus valores deve resultar em 100.

Verifique quais os percentuais corretos de GLP, de Gás Natural e de Gás Natural Importado que compõe o seu produto e faça o ajuste.

Trecho de XML que deverá ser alterado:

1 2 3 4 5 6 7 8 9 10 11 12 13

<!-- Grupo de Combustível --> <comb>     <cProdANP>210203001</cProdANP>     <descANP>GLP</descANP>           <!-- Percentual de GLP -->     <pGLP>60.00</pGLP>           <!-- Percentual de Gás Natural -->     <pGNn>40.00</pGNn>     <vPart>10.00</vPart>     <UFCons>RS</UFCons> </comb>

 

Assim:

pGLP + pGNn = 60 + 40 = 100 

[Luiz Fernando]

Kapiaba a dúvida não é sobre como preencher estes dados, e sim na estrutura da classe do Gilmer que não tem estes campos

METHOD StruComb( oItem ) CLASS TVoNFe2G
   local axArray

   axArray := {}
   aadd(axArray, {"cProdANP",    TVoNFeItem():New("N", 1, 9,, ,,oItem:Comb_cProdANP  ) }  )
   AAdd(axArray, {"descANP",     TVoNFeItem():New("N", 2, 95,,,,oItem:Comb_descANP  ) }  )
   aadd(axArray, {"CODIF",       TVoNFeItem():New("N", 0, 21,,,,oItem:Comb_CODIF  ) }  )
   aadd(axArray, {"qTemp" ,      TVoNFeItem():New("N", 0, 16,,4,,oItem:Comb_qTemp   ) }  )
   aadd(axArray, {"UFCons" ,     TVoNFeItem():New("N", 1,  2,, ,,oItem:Comb_UFCons   ) }  )
   aadd(axArray, {"CIDE"     ,   ::StruCombCIDE(oItem), 0 } )

return( axArray )

 

[Luiz Fernando]

Para fazer o ajuste destes novos campos foi bem simples, mexer em apenas dois locais.

METHOD StruComb( oItem ) CLASS TVoNFe2G
   local axArray

   axArray := {}
   aadd(axArray, {"cProdANP",    TVoNFeItem():New("N", 1, 9,, ,,oItem:Comb_cProdANP   ) }  )
   AAdd(axArray, {"descANP",     TVoNFeItem():New("N", 2, 95,,,,oItem:Comb_descANP    ) }  )
   AAdd(axArray, {"pGLP",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGLP  ) }  )
   AAdd(axArray, {"pGNn",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGNn  ) }  )
   AAdd(axArray, {"pGNi",        TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_pGNi  ) }  )
   AAdd(axArray, {"vPart",       TVoNFeItem():New("N", 0, 15,15 , 2,,oItem:Comb_vPart ) }  )
   aadd(axArray, {"CODIF",       TVoNFeItem():New("N", 0, 21,,,,oItem:Comb_CODIF  ) }  )
   aadd(axArray, {"qTemp" ,      TVoNFeItem():New("N", 0, 16,,4,,oItem:Comb_qTemp   ) }  )
   aadd(axArray, {"UFCons" ,     TVoNFeItem():New("N", 1,  2,, ,,oItem:Comb_UFCons   ) }  )
   aadd(axArray, {"CIDE"     ,   ::StruCombCIDE(oItem), 0 } )

return( axArray )

e tb nesta parte do código

   DATA Comb_cProdANP
   DATA Comb_descANP
   DATA Comb_pGLP
   DATA Comb_pGNn
   DATA Comb_pGNi
   DATA Comb_vPart
   DATA Comb_CODIF
   DATA Comb_qTemp
   DATA Comb_UFCons
   DATA Comb_qBCProd
   DATA Comb_vAliqProd
   DATA Comb_vCIDE