Falta vICMSSubstituto,pST,vICMSSTRet

[mkyx]

Bom dia

para o caso acima, que começou a vigorar agora, qual o procedimento correto, pois ao solicitar ajuda pra flexdoc, eles disseram que os valores devem ter duas casas decimais, e a classe do Gilmer não colocar casas decimais para valor zerados.

como preencho os valor:

                           :CSOSN:="500"
                           :vBCSTRet :=0.00
                           :vICMSSTRet :=0.00
                           :pST :=0.00
                           :vBCFCPSTRet :=0.00
                           :pFCPSTRet :=0.00
                           :vFCPSTRet :=0.00
                           :vICMSSubstituto:=0.00
 

como está na classe:

            aadd( axArray, {"ICMSSN500" , {}, 1  } ); nPos := len(axArray)
            aadd( axArray[nPos][2], {"orig"           , TVoNFeItem():New("N", 1, 1, 1  ,,,oItem:orig )  }  )
            aadd( axArray[nPos][2], {"CSOSN"          , TVoNFeItem():New("N", 1, 1, 3  ,,,oItem:CSOSN )  }  )
*            if nfc_e="#"
            aadd( axArray[nPos][2], {"vBCSTRet"       , TVoNFeItem():New("N", 1, 1, 15,2 ,,oItem:vBCSTRet   )  }  )
            aadd( axArray[nPos][2], {"pST"            , TVoNFeItem():New("N", 1, 1, 15,2 ,,oItem:pST         )  }  )
            aadd( axArray[nPos][2], {"vICMSSTRet"     , TVoNFeItem():New("N", 1, 1, 15,2,,oItem:vICMSSTRet   )  }  )
            aadd( axArray[nPos][2], {"vICMSSubstituto", TVoNFeItem():New("N", 1, 1, 15,2 ,,oItem:vICMSSubstituto         )  }  )
            aadd( axArray[nPos][2], {"vBCFCPSTRet"    , TVoNFeItem():New("N", 1, 1, 15,2 ,,oItem:vBCFCPSTRET )  }  )
            aadd( axArray[nPos][2], {"pFCPSTRet"      , TVoNFeItem():New("N", 1, 1, 6 ,2 ,,oItem:pFCPSTRET   )  }  )
            aadd( axArray[nPos][2], {"vFCPSTRet"      , TVoNFeItem():New("N", 1, 1, 15,2 ,,oItem:vFCPSTRET   )  }  )
 

e como a classe gera o xml:

<imposto>
<vTotTrib>13.71</vTotTrib>
<ICMS>
<ICMSSN500>
<orig>0</orig>
<CSOSN>500</CSOSN>
<vBCSTRet>0</vBCSTRet>
<pST>0</pST>
<vICMSSTRet>0</vICMSSTRet>
<vICMSSubstituto>0</vICMSSubstituto>
<vBCFCPSTRet>0</vBCFCPSTRet>
<pFCPSTRet>0</pFCPSTRet>
<vFCPSTRet>0</vFCPSTRet>
</ICMSSN500>
</ICMS>
 

Alguém poderia dar alguma dica?

 

Obrigado.

 

 

 

 

 

 

 

 

[gilmer]

Bom Dia,

   Existe ma falha na classe, mas se você passar em string irá ficar as casas decimais 

   vICMSSubstituto := Str(0,15,2)

 

 

[mkyx]

boa noite pessoal,

mudei a forma de atribuição e agora está aparecendo as duas casas decimais.

mas, mesmo assim, continua com o erro:

<ICMS>
  <ICMSSN500>
    <orig>0</orig>
    <CSOSN>500</CSOSN>
    <vBCSTRet>0.00</vBCSTRet>
    <pST>0.00</pST>
    <vICMSSTRet>0.00</vICMSSTRet>
    <vICMSSubstituto>0.00</vICMSSubstituto>
    <vBCFCPSTRet>0.00</vBCFCPSTRet>
    <pFCPSTRet>0.00</pFCPSTRet>
    <vFCPSTRet>0.00</vFCPSTRet>
  </ICMSSN500>
</ICMS>

agora está indicando que a tag <vICMSSubstituto> não deveria existir,

 

mas, se eu não coloco aparece a mensagem de erro que diz que falta essa tag e as demais relacionadas.

 

Alguém tem algum idéia?

 

Obrigado.

 

[mkyx]

Olá usuário SISTEM

 

funcionou.

 

Muito Grato.

 

José/Pompeo/Mkyx

Guaratinguetá, SP