PC Toledo

Baixa no site RS em formato JSON.

REQUEST HB_CODEPAGE_PTISO

#include "inkey.ch"

PROCEDURE Main

   LOCAL aList, aItem

   Set( _SET_CODEPAGE, "PTISO" )

   aList := MemoRead( "d:\fontes\integra\sql\json\classtrib.json" )
   aList := hb_JsonDecode( aList )
   FOR EACH aItem IN aList
      ? aItem[ "Código da Situação Tributária" ]
      ? aItem[ "Descrição do Código da Situação Tributária" ]
      ? aItem[ "Exige Tributação" ]
      ? aItem[ "Redução BC CST" ]
      ? aItem[ "Redução Alíquota" ]
      ? aItem[ "Transferência Crédito" ]
      ? aItem[ "Diferimento" ]
      ? aItem[ "Monofásica" ]
      ? aItem[ "Código da Classificação Tributária" ]
      ? aItem[ "Descrição do Código da Classificação Tributária" ]
      ? aItem[ "Percentual Redução IBS" ]
      ? aItem[ "Percentual Redução CBS" ]
      ? aItem[ "Redução BC" ]
      ? aItem[ "Tributação Regular" ]
      ? aItem[ "Crédito Presumido" ]
   NEXT

//   ShowJson( aList )

   RETURN

Também dá pra pegar o CST a partir dessa tabela, mas pra mim, o CST nem interessa porque faz parte do código.

Não estou nem tentando entender.

Tem a redução de base de cálculo e também a redução da base de cálculo.

A explicação, no estilo do Chaves....

Uma reduz....

A outra também.... kkkkk