FUNCTION PISCOTabelaR0000()
   // *** Estrutura do Registro R0000 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0000?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Cdigo da verso do leiaute conforme a tabela 3.1.1.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Tipo de escriturao:
   AADD( Estru, { 'CAMPO04'     , 'C', 0001, 00 } ) // 04 - Indicador de situao especial:
   AADD( Estru, { 'CAMPO05'     , 'C', 0041, 00 } ) // 05 - Nmero do Recibo da Escriturao anterior a ser retificada, utilizado quando TIPO_ESCRIT for igual a
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 00 } ) // 06 - Data inicial das informaes contidas no arquivo.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data final das informaes contidas no arquivo.
   AADD( Estru, { 'CAMPO08'     , 'C', 0100, 00 } ) // 08 - Nome empresarial da pessoa jurdica
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 00 } ) // 09 - Nmero de inscrio do estabelecimento matriz da pessoa jurdica no CNPJ.
   AADD( Estru, { 'CAMPO10'     , 'C', 0002, 00 } ) // 10 - Sigla da Unidade da Federao da pessoa jurdica.
   AADD( Estru, { 'CAMPO11'     , 'C', 0007, 00 } ) // 11 - Cdigo do municpio do domiclio fiscal da pessoa jurdica, conforme a tabela IBGE
   AADD( Estru, { 'CAMPO12'     , 'C', 0009, 00 } ) // 12 - Inscrio da pessoa jurdica na Suframa
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Indicador da natureza da pessoa jurdica:
   AADD( Estru, { 'CAMPO14'     , 'C', 0001, 00 } ) // 14 - Indicador de tipo de atividade preponderante:
   dbCreate( 'R0000.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0001()
   // *** Estrutura do Registro R0001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0001?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'R0001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0100()
   // *** Estrutura do Registro R0100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0100?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0100, 00 } ) // 02 - Nome do contabilista.
   AADD( Estru, { 'CAMPO03'     , 'C', 0011, 00 } ) // 03 - Nmero de inscrio do contabilista no CPF.
   AADD( Estru, { 'CAMPO04'     , 'C', 0015, 00 } ) // 04 - Nmero de inscrio do contabilista no Conselho Regional de Contabilidade.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 00 } ) // 05 - Nmero de inscrio do escritrio de contabilidade no CNPJ, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 00 } ) // 06 - Cdigo de Endereamento Postal.
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Logradouro e endereo do imvel.
   AADD( Estru, { 'CAMPO08'     , 'C', 0005, 00 } ) // 08 - Nmero do imvel.
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Dados complementares do endereo.
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Bairro em que o imvel est situado.
   AADD( Estru, { 'CAMPO11'     , 'C', 0010, 00 } ) // 11 - Nmero do telefone.
   AADD( Estru, { 'CAMPO12'     , 'C', 0010, 00 } ) // 12 - Nmero do fax.
   AADD( Estru, { 'CAMPO13'     , 'C', 0100, 00 } ) // 13 - Endereo do correio eletrnico.
   AADD( Estru, { 'CAMPO14'     , 'C', 0007, 00 } ) // 14 - Cdigo do municpio, conforme tabela IBGE.
   dbCreate( 'R0100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0110()
   // *** Estrutura do Registro R0110 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0110?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Cdigo indicador da incidncia tributria no perodo:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Cdigo indicador de mtodo de apropriao de crditos comuns, no caso de incidncia no regime no-cu
   AADD( Estru, { 'CAMPO04'     , 'C', 0001, 00 } ) // 04 - Cdigo indicador do Tipo de Contribuio Apurada no Perodo
   AADD( Estru, { 'CAMPO05'     , 'C', 0001, 00 } ) // 05 - Cdigo indicador do critrio de escriturao e apurao adotado, no caso de incidncia exclusivament
   dbCreate( 'R0110.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0111()
   // *** Estrutura do Registro R0111 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0111?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Receita Bruta No-Cumulativa - Tributada no Mercado Interno
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Receita Bruta No-Cumulativa ? No Tributada no Mercado Interno (Vendas com suspenso, alquota zero
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Receita Bruta No-Cumulativa ? Exportao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Receita Bruta Cumulativa
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Receita Bruta Total
   dbCreate( 'R0111.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0120()
   // *** Estrutura do Registro R0120 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0120?
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Ms de referncia do  ano-calendrio da escriturao, dispensada da entrega.
   AADD( Estru, { 'CAMPO03'     , 'C', 0090, 00 } ) // 03 - Informao complementar do registro.
   dbCreate( 'R0120.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0140()
   // *** Estrutura do Registro R0140 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0140?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo de identificao do estabelecimento
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Nome empresarial do estabelecimento
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 00 } ) // 04 - Nmero de inscrio do estabelecimento no CNPJ.
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Sigla da unidade da federao do estabelecimento.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 00 } ) // 06 - Inscrio Estadual do estabelecimento, se contribuinte de ICMS.
   AADD( Estru, { 'CAMPO07'     , 'C', 0007, 00 } ) // 07 - Cdigo do municpio do domiclio fiscal do estabelecimento, conforme a tabela IBGE
   AADD( Estru, { 'CAMPO08'     , 'C', 0010, 00 } ) // 08 - Inscrio Municipal do estabelecimento, se contribuinte do ISS.
   AADD( Estru, { 'CAMPO09'     , 'C', 0009, 00 } ) // 09 - Inscrio do estabelecimento na Suframa
   dbCreate( 'R0140.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0150()
   // *** Estrutura do Registro R0150 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0150?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo de identificao do participante no arquivo.
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Nome pessoal ou empresarial do participante.
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Cdigo do pas do participante, conforme a tabela indicada no item 3.2.1.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 00 } ) // 05 - CNPJ do participante.
   AADD( Estru, { 'CAMPO06'     , 'C', 0011, 00 } ) // 06 - CPF do participante.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 00 } ) // 07 - Inscrio Estadual do participante.
   AADD( Estru, { 'CAMPO08'     , 'C', 0007, 00 } ) // 08 - Cdigo do municpio, conforme a tabela IBGE
   AADD( Estru, { 'CAMPO09'     , 'C', 0009, 00 } ) // 09 - Nmero de inscrio do participante na Suframa
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Logradouro e endereo do imvel
   AADD( Estru, { 'CAMPO11'     , 'C', 0005, 00 } ) // 11 - Nmero do imvel
   AADD( Estru, { 'CAMPO12'     , 'C', 0060, 00 } ) // 12 - Dados complementares do endereo
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Bairro em que o imvel est situado
   dbCreate( 'R0150.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0190()
   // *** Estrutura do Registro R0190 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0190"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Cdigo da unidade de medida
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Descrio da unidade de medida
   dbCreate( 'R0190.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0200()
   // *** Estrutura do Registro R0200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do item
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Descrio do item
   AADD( Estru, { 'CAMPO04'     , 'C', 0016, 00 } ) // 04 - Representao alfanumrico do cdigo de barra do produto, se houver.
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Cdigo anterior do item com relao  ltima informao apresentada.
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Unidade de medida utilizada na quantificao de estoques.
   AADD( Estru, { 'CAMPO07'     , 'C', 0002, 00 } ) // 07 - Tipo do item ? Atividades Industriais, Comerciais e Servios:
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Cdigo da Nomenclatura Comum do Mercosul
   AADD( Estru, { 'CAMPO09'     , 'C', 0003, 00 } ) // 09 - Cdigo EX, conforme a TIPI
   AADD( Estru, { 'CAMPO10'     , 'C', 0002, 00 } ) // 10 - Cdigo do gnero do item, conforme a Tabela 4.2.1.
   AADD( Estru, { 'CAMPO11'     , 'C', 0004, 00 } ) // 11 - Cdigo do servio conforme lista do Anexo I da Lei Complementar Federal n 116/03.
   AADD( Estru, { 'CAMPO12'     , 'C', 0006, 02 } ) // 12 - Alquota de ICMS aplicvel ao item nas operaes internas
   dbCreate( 'R0200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0205()
   // *** Estrutura do Registro R0205 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0205"
   AADD( Estru, { 'CAMPO02'     , 'C', 0100, 00 } ) // 02 - Descrio anterior do item
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data inicial de utilizao da descrio do item
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data final de utilizao da descrio do item
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Cdigo anterior do item com relao  ltima informao apresentada.
   dbCreate( 'R0205.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0206()
   // *** Estrutura do Registro R0206 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0206"
   AADD( Estru, { 'CAMPO02'     , 'C', 0010, 00 } ) // 02 - Cdigo do combustvel, conforme tabela publicada pela ANP
   dbCreate( 'R0206.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0208()
   // *** Estrutura do Registro R0208 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0208"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo indicador da Tabela de Incidncia, conforme Anexo III do Decreto n 6.707/08:
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo do grupo, conforme Anexo III do Decreto n 6.707/08.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Marca Comercial
   dbCreate( 'R0208.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0400()
   // *** Estrutura do Registro R0400 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0400"
   AADD( Estru, { 'CAMPO02'     , 'C', 0010, 00 } ) // 02 - Cdigo da natureza da operao/prestao
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Descrio da natureza da operao/prestao
   dbCreate( 'R0400.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0450()
   // *** Estrutura do Registro R0450 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0450"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Cdigo da informao complementar do documento fiscal.
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Texto livre da informao complementar existente no documento fiscal, inclusive espcie de normas le
   dbCreate( 'R0450.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0500()
   // *** Estrutura do Registro R0500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0500?
   AADD( Estru, { 'CAMPO02'     , 'C', 0008, 00 } ) // 02 - Data da incluso/alterao
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da natureza da conta/grupo de contas:
   AADD( Estru, { 'CAMPO04'     , 'C', 0001, 00 } ) // 04 - Indicador do tipo de conta:
   AADD( Estru, { 'CAMPO05'     , 'C', 0005, 00 } ) // 05 - Nvel da conta analtica/grupo de contas.
   AADD( Estru, { 'CAMPO06'     , 'C', 0060, 00 } ) // 06 - Cdigo da conta analtica/grupo de contas.
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Nome da conta analtica/grupo de contas.
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Cdigo da conta correlacionada no Plano de Contas Referenciado, publicado pela RFB.
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 00 } ) // 09 - CNPJ do estabelecimento, no caso da conta informada no campo COD_CTA ser especfica de um estabeleci
   dbCreate( 'R0500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0600()
   // *** Estrutura do Registro R0600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?0600?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0008, 00 } ) // 02 - Data da incluso/alterao.
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do centro de custos.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Nome do centro de custos.
   dbCreate( 'R0600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR0990()
   // *** Estrutura do Registro R0990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "0990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco 0
   dbCreate( 'R0990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1001()
   // *** Estrutura do Registro R1001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'R1001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1010()
   // *** Estrutura do Registro R1010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1010"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do Nmero do Processo Judicial
   AADD( Estru, { 'CAMPO03'     , 'C', 0020, 00 } ) // 03 - Identificao da Seo Judiciria
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Identificao da Vara
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Indicador da Natureza da Ao Judicial, impetrada na Justia Federal:
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio Resumida dos Efeitos Tributrios abrangidos pela Deciso Judicial proferida.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data da Sentena/Deciso Judicial
   dbCreate( 'R1010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1020()
   // *** Estrutura do Registro R1020 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - *Texto fixo contendo "1020"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do Processo Administrativo ou da Deciso Administrativa
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da Natureza da Ao, decorrente de Processo Administrativo na Secretaria da Receita Federa
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data do Despacho/Deciso Administrativa
   dbCreate( 'R1020.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1100()
   // *** Estrutura do Registro R1100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 00 } ) // 04 - CNPJ da pessoa jurdica cedente do crdito (se ORIG_CRED = 02).
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Crdito apurado na Escriturao Fiscal Digital ou em demonstrativo DACON de perodos anteri
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor de Crdito Extemporneo Apurado (Registro 1101), referente a Perodo Anterior, Informado no Ca
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor Total do Crdito Apurado (06 + 07)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do Crdito utilizado mediante Desconto, em Perodo(s)  Anterior(es).
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor do Crdito utilizado mediante Pedido de Ressarcimento, em Perodo(s) Anterior(es).
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria (Crdito de Exportao),
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Saldo do Crdito Disponvel para Utilizao neste Perodo de Escriturao (08 ? 09 ? 10 - 11).
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor do Crdito descontado neste perodo de escriturao.
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do Crdito objeto de Pedido de Ressarcimento (PER) neste perodo de escriturao.
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria neste perodo de escritu
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor do crdito transferido em evento de ciso, fuso ou incorporao.
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor do crdito utilizado por outras formas.
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Saldo de crditos a utilizar em perodo de apurao futuro (12 ? 13 ? 14 ? 15 ? 16 - 17).
   dbCreate( 'R1100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1101()
   // *** Estrutura do Registro R1101 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1101"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do participante (Campo 02 do Registro 0150)
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   AADD( Estru, { 'CAMPO05'     , 'C', 0004, 00 } ) // 05 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0003, 00 } ) // 06 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO07'     , 'C', 0009, 00 } ) // 07 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data da Operao (ddmmaaaa)
   AADD( Estru, { 'CAMPO09'     , 'C', 0044, 00 } ) // 09 - Chave da Nota Fiscal Eletrnica
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da Operao
   AADD( Estru, { 'CAMPO11'     , 'C', 0004, 00 } ) // 11 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO12'     , 'C', 0002, 00 } ) // 12 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO14'     , 'C', 0002, 00 } ) // 14 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 03 } ) // 15 - Base de Clculo do Crdito de PIS/PASEP (em valor ou em quantidade).
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 04 } ) // 16 - Alquota do PIS/PASEP (em percentual ou em reais).
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor do Crdito de PIS/PASEP.
   AADD( Estru, { 'CAMPO18'     , 'C', 0060, 00 } ) // 18 - Cdigo da conta analtica contbil debitada/creditada.
   AADD( Estru, { 'CAMPO19'     , 'C', 0060, 00 } ) // 19 - Cdigo do Centro de Custos.
   AADD( Estru, { 'CAMPO20'     , 'C', 0100, 00 } ) // 20 - Descrio complementar do Documento/Operao.
   AADD( Estru, { 'CAMPO21'     , 'C', 0006, 00 } ) // 21 - Ms/Ano da Escriturao em que foi registrado o documento/operao (Crdito pelo mtodo da Apropria
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 00 } ) // 22 - CNPJ do estabelecimento gerador do crdito extemporneo (Campo 04  do Registro 0140)
   dbCreate( 'R1101.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1102()
   // *** Estrutura do Registro R1102 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1102"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Parcela do Crdito de PIS/PASEP, vinculada a Receita Tributada no Mercado Interno
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Parcela do Crdito de PIS/PASEP, vinculada a Receita No Tributada no Mercado Interno
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Parcela do Crdito de PIS/PASEP, vinculada a Receita de Exportao
   dbCreate( 'R1102.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1200()
   // *** Estrutura do Registro R1200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao da Contribuio Social Extempornea (MMAAAA).
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Natureza da Contribuio a Recolher, conforme Tabela 4.3.5.
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Contribuio Apurada.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito de PIS/PASEP a Descontar, da Contribuio Social Extempornea.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Contribuio Social Extempornea Devida.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor de Outras Dedues.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da Contribuio Social Extempornea a pagar.
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da Multa.
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor dos Juros.
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data do Recolhimento.
   dbCreate( 'R1200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1210()
   // *** Estrutura do Registro R1210 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?1210?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ (Campo 04 do Registro 0140).
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante (Campo 02 do Registro 0150)
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data da Operao (ddmmaaaa)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Operao
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 03 } ) // 07 - Base de clculo do PIS/PASEP (em valor ou em quantidade)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 04 } ) // 08 - Alquota da PIS (em percentual ou em reais)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO11'     , 'C', 0100, 00 } ) // 11 - Descrio complementar do Documento/Operao
   dbCreate( 'R1210.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1220()
   // *** Estrutura do Registro R1220 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1220"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO04'     , 'C', 0003, 00 } ) // 04 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito a Descontar
   dbCreate( 'R1220.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1300()
   // *** Estrutura do Registro R1300 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1300"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador de Natureza da Reteno na Fonte:
   AADD( Estru, { 'CAMPO03'     , 'C', 0006, 00 } ) // 03 - Perodo do Recebimento e da Reteno (MM/AAAA)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total da Reteno
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Reteno deduzida da Contribuio devida no perodo da escriturao e em perodos anteriore
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Reteno utilizada mediante Pedido de Restituio.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da Reteno utilizada mediante Declarao de Compensao.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Saldo de Reteno a utilizar em perodos de apurao futuros (04 ? 05 - 06 - 07).
   dbCreate( 'R1300.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1500()
   // *** Estrutura do Registro R1500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1500"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 00 } ) // 04 - CNPJ da pessoa jurdica cedente do crdito (se ORIG_CRED = 02).
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Crdito apurado na Escriturao Fiscal Digital ou em demonstrativo DACON de perodos anteri
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor de Crdito Extemporneo Apurado (Registro 1501), referente a Perodo Anterior, Informado no Ca
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor Total do Crdito Apurado (06 + 07)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do Crdito utilizado mediante Desconto, em Perodo(s)  Anterior(es)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor do Crdito utilizado mediante Pedido de Ressarcimento, em Perodo(s) Anterior(es).
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria (Crdito de Exportao),
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Saldo do Crdito Disponvel para Utilizao neste Perodo de Escriturao (08-09-10-11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor do Crdito descontado neste perodo de escriturao
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do Crdito objeto de Pedido de Ressarcimento (PER) neste perodo de escriturao
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria neste perodo de escritu
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor do crdito transferido em evento de ciso, fuso ou incorporao
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor do crdito utilizado por outras formas
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Saldo de crditos a utilizar em perodo de apurao futuro (12-13-14-15-16-17).
   dbCreate( 'R1500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1501()
   // *** Estrutura do Registro R1501 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1501"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do participante (Campo 02 do Registro 0150)
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   AADD( Estru, { 'CAMPO05'     , 'C', 0004, 00 } ) // 05 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0003, 00 } ) // 06 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO07'     , 'C', 0009, 00 } ) // 07 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data da Operao (ddmmaaaa)
   AADD( Estru, { 'CAMPO09'     , 'C', 0044, 00 } ) // 09 - Chave da Nota Fiscal Eletrnica
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da Operao
   AADD( Estru, { 'CAMPO11'     , 'C', 0004, 00 } ) // 11 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO12'     , 'C', 0002, 00 } ) // 12 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO14'     , 'C', 0002, 00 } ) // 14 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 03 } ) // 15 - Base de Clculo do Crdito de COFINS (em valor ou em quantidade)
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 04 } ) // 16 - Alquota do COFINS (em percentual ou em reais)
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor do Crdito de COFINS
   AADD( Estru, { 'CAMPO18'     , 'C', 0060, 00 } ) // 18 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO19'     , 'C', 0060, 00 } ) // 19 - Cdigo do Centro de Custos
   AADD( Estru, { 'CAMPO20'     , 'C', 0100, 00 } ) // 20 - Descrio complementar do Documento/Operao
   AADD( Estru, { 'CAMPO21'     , 'C', 0006, 00 } ) // 21 - Ms/Ano da Escriturao em que foi registrado o documento/operao (Crdito pelo mtodo da Apropria
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 00 } ) // 22 - CNPJ do estabelecimento gerador do crdito extemporneo (Campo 04  do Registro 0140)
   dbCreate( 'R1501.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1502()
   // *** Estrutura do Registro R1502 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1502"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Parcela do Crdito de COFINS, vinculada a Receita Tributada no Mercado Interno
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Parcela do Crdito de COFINS, vinculada a Receita No Tributada no Mercado Interno
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Parcela do Crdito de COFINS, vinculada a Receita de Exportao
   dbCreate( 'R1502.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1600()
   // *** Estrutura do Registro R1600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1600"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao da Contribuio Social Extempornea (MMAAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Natureza da Contribuio a Recolher, conforme Tabela 4.3.5.
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Contribuio Apurada
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito de COFINS a Descontar, da Contribuio Social Extempornea.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Contribuio Social Extempornea Devida.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor de Outras Dedues.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da Contribuio Social Extempornea a pagar.
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da Multa.
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor dos Juros.
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data do Recolhimento.
   dbCreate( 'R1600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1610()
   // *** Estrutura do Registro R1610 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?1610?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ (Campo 04 do Registro 0140).
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante (Campo 02 do Registro 0150)
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data da Operao (ddmmaaaa)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Operao
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 03 } ) // 07 - Base de clculo da COFINS (em valor ou em quantidade)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 04 } ) // 08 - Alquota da COFINS (em percentual ou em reais)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO11'     , 'C', 0100, 00 } ) // 11 - Descrio complementar do Documento/Operao
   dbCreate( 'R1610.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1620()
   // *** Estrutura do Registro R1620 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1620"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO04'     , 'C', 0003, 00 } ) // 04 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito a Descontar
   dbCreate( 'R1620.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1700()
   // *** Estrutura do Registro R1700 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1700"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador de Natureza da Reteno na Fonte:
   AADD( Estru, { 'CAMPO03'     , 'C', 0006, 00 } ) // 03 - Perodo do Recebimento e da Reteno (MM/AAAA)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total da Reteno
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Reteno deduzida da Contribuio devida no perodo da escriturao e em perodos anteriore
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Reteno utilizada mediante Pedido de Restituio.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da Reteno utilizada mediante Declarao de Compensao.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Saldo de Reteno a utilizar em perodos de apurao futuros (04 - 05 - 06 - 07).
   dbCreate( 'R1700.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1800()
   // *** Estrutura do Registro R1800 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1800"
   AADD( Estru, { 'CAMPO02'     , 'C', 0090, 00 } ) // 02 - Empreendimento objeto de Incorporao Imobiliria, optante pelo RET.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Receitas recebidas pela incorporadora na venda das unidades imobilirias que compem a incorporao.
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Receitas Financeiras e Variaes Monetrias decorrentes das vendas submetidas ao RET.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Base de Clculo do Recolhimento Unificado
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 02 } ) // 06 - Alquota do Recolhimento Unificado.
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do Recolhimento Unificado.
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data do recolhimento unificado
   AADD( Estru, { 'CAMPO09'     , 'C', 0004, 00 } ) // 09 - Cdigo da Receita
   dbCreate( 'R1800.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1809()
   // *** Estrutura do Registro R1809 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1809"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'R1809.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1900()
   // *** Estrutura do Registro R1900 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1900?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - CNPJ do estabelecimento da pessoa jurdica, emitente dos documentos geradores de receita
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1, ou:
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0020, 00 } ) // 05 - Subserie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo da situao do documento fiscal:
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor total da receita, conforme os documentos emitidos no perodo, representativos da venda de bens
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Quantidade total de documentos emitidos no perodo
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria do PIS/Pasep
   AADD( Estru, { 'CAMPO10'     , 'C', 0002, 00 } ) // 10 - Cdigo da Situao Tributria da Cofins
   AADD( Estru, { 'CAMPO11'     , 'C', 0004, 00 } ) // 11 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO12'     , 'C', 0100, 00 } ) // 12 - Informaes complementares
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Cdigo da conta analtica contbil representativa da receita
   dbCreate( 'R1900.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR1990()
   // *** Estrutura do Registro R1990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "1990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco 1
   dbCreate( 'R1990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR9001()
   // *** Estrutura do Registro R9001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?9001?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'R9001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR9900()
   // *** Estrutura do Registro R9900 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?9900?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Registro que ser totalizado no prximo campo.
   AADD( Estru, { 'CAMPO03'     , 'C', 0004, 00 } ) // 03 - Total de registros do tipo informado no campo anterior.
   dbCreate( 'R9900.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR9990()
   // *** Estrutura do Registro R9990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?9990?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco 9.
   dbCreate( 'R9990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaR9999()
   // *** Estrutura do Registro R9999 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?9999?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do arquivo digital.
   dbCreate( 'R9999.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA001()
   // *** Estrutura do Registro RA001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RA001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA010()
   // *** Estrutura do Registro RA010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?A010?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   dbCreate( 'RA010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA100()
   // *** Estrutura do Registro RA100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador do emitente do documento fiscal:
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante (campo 02 do Registro 0150):
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da situao do documento fiscal:
   AADD( Estru, { 'CAMPO06'     , 'C', 0020, 00 } ) // 06 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO07'     , 'C', 0020, 00 } ) // 07 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Nmero do documento fiscal ou documento internacional equivalente
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Chave/Cdigo de Verificao da nota fiscal de servio eletrnica
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 00 } ) // 10 - Data da emisso do documento fiscal
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data de Execuo / Concluso do Servio
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor total do documento
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador do tipo de pagamento:
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor total do desconto
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor total do PIS
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor total da COFINS
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor total do PIS retido na fonte
   AADD( Estru, { 'CAMPO20'     , 'C', 0014, 02 } ) // 20 - Valor total da COFINS retido na fonte.
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 02 } ) // 21 - Valor do ISS
   dbCreate( 'RA100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA110()
   // *** Estrutura do Registro RA110 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A110"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Cdigo da informao complementar do documento fiscal (Campo 02 do Registro 0450)
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Informao Complementar do Documento Fiscal
   dbCreate( 'RA110.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA111()
   // *** Estrutura do Registro RA111 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A111"
   AADD( Estru, { 'CAMPO02'     , 'C', 0015, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RA111.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA120()
   // *** Estrutura do Registro RA120 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A120?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total do servio, prestado por pessoa fsica ou jurdica domiciliada no exterior.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da base de clculo da Operao ? PIS/PASEP ? Importao
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor pago/recolhido de PIS/PASEP ? Importao
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data de pagamento do PIS/PASEP ? Importao
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo da Operao ? COFINS ? Importao
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor pago/recolhido de COFINS ? Importao
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data de pagamento do COFINS ? Importao
   AADD( Estru, { 'CAMPO09'     , 'C', 0001, 00 } ) // 09 - Local da execuo do servio:
   dbCreate( 'RA120.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA170()
   // *** Estrutura do Registro RA170 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A170"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Nmero seqencial do item no documento fiscal
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0100, 00 } ) // 04 - Descrio complementar do item como adotado no documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor total do item (mercadorias ou servios)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do desconto do item / Excluso
   AADD( Estru, { 'CAMPO07'     , 'C', 0002, 00 } ) // 07 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7, caso seja informado
   AADD( Estru, { 'CAMPO08'     , 'C', 0001, 00 } ) // 08 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente ao PIS/PASEP ? Tabela 4.3.3.
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da base de clculo do PIS/PASEP.
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo da Situao Tributria referente ao COFINS ? Tabela 4.3.4.
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO15'     , 'C', 0006, 02 } ) // 15 - Alquota do COFINS (em percentual)
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor da COFINS
   AADD( Estru, { 'CAMPO17'     , 'C', 0060, 00 } ) // 17 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO18'     , 'C', 0060, 00 } ) // 18 - Cdigo do centro de custos
   dbCreate( 'RA170.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRA990()
   // *** Estrutura do Registro RA990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "A990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco A
   dbCreate( 'RA990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC001()
   // *** Estrutura do Registro RC001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RC001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC010()
   // *** Estrutura do Registro RC010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?C010?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da apurao das contribuies e crditos, na escriturao das operaes por NF-e e ECF, no
   dbCreate( 'RC010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC100()
   // *** Estrutura do Registro RC100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador do emitente do documento fiscal:
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante (campo 02 do Registro 0150):
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   AADD( Estru, { 'CAMPO07'     , 'C', 0003, 00 } ) // 07 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0009, 00 } ) // 08 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO09'     , 'C', 0044, 00 } ) // 09 - Chave da Nota Fiscal Eletrnica
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 00 } ) // 10 - Data da emisso do documento fiscal
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data da entrada ou da sada
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor total do documento fiscal
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador do tipo de pagamento:
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor total do desconto
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Abatimento no tributado e no comercial Ex. desconto ICMS nas remessas para ZFM.
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor total das mercadorias e servios
   AADD( Estru, { 'CAMPO17'     , 'C', 0001, 00 } ) // 17 - Indicador do tipo do frete:
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor do frete indicado no documento fiscal
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor do seguro indicado no documento fiscal
   AADD( Estru, { 'CAMPO20'     , 'C', 0014, 02 } ) // 20 - Valor de outras despesas acessrias
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 02 } ) // 21 - Valor da base de clculo do ICMS
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 02 } ) // 22 - Valor do ICMS
   AADD( Estru, { 'CAMPO23'     , 'C', 0014, 02 } ) // 23 - Valor da base de clculo do ICMS substituio tributria
   AADD( Estru, { 'CAMPO24'     , 'C', 0014, 02 } ) // 24 - Valor do ICMS retido por substituio tributria
   AADD( Estru, { 'CAMPO25'     , 'C', 0014, 02 } ) // 25 - Valor total do IPI
   AADD( Estru, { 'CAMPO26'     , 'C', 0014, 02 } ) // 26 - Valor total do PIS
   AADD( Estru, { 'CAMPO27'     , 'C', 0014, 02 } ) // 27 - Valor total da COFINS
   AADD( Estru, { 'CAMPO28'     , 'C', 0014, 02 } ) // 28 - Valor total do PIS retido por substituio tributria
   AADD( Estru, { 'CAMPO29'     , 'C', 0014, 02 } ) // 29 - Valor total da COFINS retido por substituio tributria
   dbCreate( 'RC100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC110()
   // *** Estrutura do Registro RC110 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C110"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   AADD( Estru, { 'CAMPO03'     , 'C', 0100, 00 } ) // 03 - Descrio complementar do cdigo de referncia.
   dbCreate( 'RC110.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC111()
   // *** Estrutura do Registro RC111 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C111"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC111.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC120()
   // *** Estrutura do Registro RC120 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C120"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Documento de importao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0010, 00 } ) // 03 - Nmero do documento de Importao.
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor pago de PIS na importao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor pago de COFINS na importao
   AADD( Estru, { 'CAMPO06'     , 'C', 0020, 00 } ) // 06 - Nmero do Ato Concessrio do regime
   dbCreate( 'RC120.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC170()
   // *** Estrutura do Registro RC170 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C170"
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Nmero seqencial do item no documento fiscal
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0100, 00 } ) // 04 - Descrio complementar do item como adotado no documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 05 } ) // 05 - Quantidade do item
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Unidade do item (Campo 02 do registro 0190)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor total do item (mercadorias ou servios)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do desconto comercial
   AADD( Estru, { 'CAMPO09'     , 'C', 0001, 00 } ) // 09 - Movimentao fsica do ITEM/PRODUTO:
   AADD( Estru, { 'CAMPO10'     , 'C', 0003, 00 } ) // 10 - Cdigo da Situao Tributria referente ao ICMS, conforme a Tabela indicada no item 4.3.1
   AADD( Estru, { 'CAMPO11'     , 'C', 0004, 00 } ) // 11 - Cdigo Fiscal de Operao e Prestao
   AADD( Estru, { 'CAMPO12'     , 'C', 0010, 00 } ) // 12 - Cdigo da natureza da operao (campo 02 do Registro 0400)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor da base de clculo do ICMS
   AADD( Estru, { 'CAMPO14'     , 'C', 0006, 02 } ) // 14 - Alquota do ICMS
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do ICMS creditado/debitado
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor da base de clculo referente  substituio tributria
   AADD( Estru, { 'CAMPO17'     , 'C', 0006, 02 } ) // 17 - Alquota do ICMS da substituio tributria na unidade da federao de destino
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor do ICMS referente  substituio tributria
   AADD( Estru, { 'CAMPO19'     , 'C', 0001, 00 } ) // 19 - Indicador de perodo de apurao do IPI:
   AADD( Estru, { 'CAMPO20'     , 'C', 0002, 00 } ) // 20 - Cdigo da Situao Tributria referente ao IPI, conforme a Tabela indicada no item 4.3.2.
   AADD( Estru, { 'CAMPO21'     , 'C', 0003, 00 } ) // 21 - Cdigo de enquadramento legal do IPI, conforme tabela indicada no item 4.5.3.
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 02 } ) // 22 - Valor da base de clculo do IPI
   AADD( Estru, { 'CAMPO23'     , 'C', 0006, 02 } ) // 23 - Alquota do IPI
   AADD( Estru, { 'CAMPO24'     , 'C', 0014, 02 } ) // 24 - Valor do IPI creditado/debitado
   AADD( Estru, { 'CAMPO25'     , 'C', 0002, 00 } ) // 25 - Cdigo da Situao Tributria referente ao PIS.
   AADD( Estru, { 'CAMPO26'     , 'C', 0014, 02 } ) // 26 - Valor da base de clculo do PIS
   AADD( Estru, { 'CAMPO27'     , 'C', 0008, 04 } ) // 27 - Alquota do PIS (em percentual)
   AADD( Estru, { 'CAMPO28'     , 'C', 0014, 03 } ) // 28 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO29'     , 'C', 0014, 04 } ) // 29 - Alquota do PIS (em reais)
   AADD( Estru, { 'CAMPO30'     , 'C', 0014, 02 } ) // 30 - Valor do PIS
   AADD( Estru, { 'CAMPO31'     , 'C', 0002, 00 } ) // 31 - Cdigo da Situao Tributria referente ao COFINS.
   AADD( Estru, { 'CAMPO32'     , 'C', 0014, 02 } ) // 32 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO33'     , 'C', 0008, 04 } ) // 33 - Alquota do COFINS (em percentual)
   AADD( Estru, { 'CAMPO34'     , 'C', 0014, 03 } ) // 34 - Quantidade ? Base de clculo COFINS
   AADD( Estru, { 'CAMPO35'     , 'C', 0014, 04 } ) // 35 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO36'     , 'C', 0014, 02 } ) // 36 - Valor da COFINS
   AADD( Estru, { 'CAMPO37'     , 'C', 0060, 00 } ) // 37 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC170.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC180()
   // *** Estrutura do Registro RC180 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C180?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Texto fixo contendo "55" (Cdigo da Nota Fiscal Eletrnica, modelo 55, conforme a Tabela 4.1.1)
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data de Emisso Inicial dos Documentos
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data de Emisso Final dos Documentos
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Cdigo do Item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 00 } ) // 06 - Cdigo da Nomenclatura Comum do Mercosul
   AADD( Estru, { 'CAMPO07'     , 'C', 0003, 00 } ) // 07 - Cdigo EX, conforme a TIPI
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor Total do Item
   dbCreate( 'RC180.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC181()
   // *** Estrutura do Registro RC181 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C181?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO03'     , 'C', 0004, 00 } ) // 03 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do item
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do desconto comercial / Excluso
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 04 } ) // 09 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC181.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC185()
   // *** Estrutura do Registro RC185 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C185?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO03'     , 'C', 0004, 00 } ) // 03 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do item
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do desconto comercial / Excluso
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 04 } ) // 09 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC185.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC188()
   // *** Estrutura do Registro RC188 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C188"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC188.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC190()
   // *** Estrutura do Registro RC190 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C190?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Texto fixo contendo "55" (Cdigo da Nota Fiscal Eletrnica, modelo 55, conforme a Tabela 4.1.1)
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data Inicial de Referncia da Consolidao
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data Final de Referncia da Consolidao
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 00 } ) // 06 - Cdigo da Nomenclatura Comum do Mercosul
   AADD( Estru, { 'CAMPO07'     , 'C', 0003, 00 } ) // 07 - Cdigo EX, conforme a TIPI
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor Total do Item
   dbCreate( 'RC190.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC191()
   // *** Estrutura do Registro RC191 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C191?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - CNPJ/CPF do Participante a que se referem as operaes consolidadas neste registro (pessoa jurdica
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do item
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do desconto comercial / Excluso
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 04 } ) // 08 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 03 } ) // 09 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 04 } ) // 10 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO12'     , 'C', 0060, 00 } ) // 12 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC191.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC195()
   // *** Estrutura do Registro RC195 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C195?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - CNPJ/CPF do Participante a que se referem as operaes consolidadas neste registro (pessoa jurdica
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente a COFINS.
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do item
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do desconto comercial / Excluso
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 04 } ) // 08 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 03 } ) // 09 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 04 } ) // 10 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor da COFINS
   AADD( Estru, { 'CAMPO12'     , 'C', 0060, 00 } ) // 12 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC195.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC198()
   // *** Estrutura do Registro RC198 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C198"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC198.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC199()
   // *** Estrutura do Registro RC199 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C199"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Documento de importao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0010, 00 } ) // 03 - Nmero do documento de Importao.
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor pago de PIS na importao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor pago de COFINS na importao
   AADD( Estru, { 'CAMPO06'     , 'C', 0020, 00 } ) // 06 - Nmero do Ato Concessrio do regime Drawback
   dbCreate( 'RC199.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC380()
   // *** Estrutura do Registro RC380 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C380?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1 (Cdigo 02 ? Nota Fiscal de Venda a Co
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data de Emisso Inicial dos Documentos
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data de Emisso Final dos Documentos
   AADD( Estru, { 'CAMPO05'     , 'C', 0006, 00 } ) // 05 - Nmero do documento fiscal inicial
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Nmero do documento fiscal final
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor total dos documentos emitidos
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total dos documentos cancelados
   dbCreate( 'RC380.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC381()
   // *** Estrutura do Registro RC381 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C381?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor total dos itens
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 03 } ) // 07 - Quantidade ? Base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 04 } ) // 08 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC381.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC385()
   // *** Estrutura do Registro RC385 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C385?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS.
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor total dos itens
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 03 } ) // 07 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 04 } ) // 08 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC385.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC395()
   // *** Estrutura do Registro RC395 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C395"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do participante emitente do documento (campo 02 do Registro 0150).
   AADD( Estru, { 'CAMPO04'     , 'C', 0003, 00 } ) // 04 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data da emisso do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total do documento fiscal
   dbCreate( 'RC395.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC396()
   // *** Estrutura do Registro RC396 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C396"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total do item (mercadorias ou servios)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do desconto comercial do item
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da base de clculo do crdito de PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 04 } ) // 08 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do crdito de PIS/PASEP
   AADD( Estru, { 'CAMPO10'     , 'C', 0002, 00 } ) // 10 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor da base de clculo do crdito de COFINS
   AADD( Estru, { 'CAMPO12'     , 'C', 0008, 04 } ) // 12 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor do crdito de COFINS
   AADD( Estru, { 'CAMPO14'     , 'C', 0060, 00 } ) // 14 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC396.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC400()
   // *** Estrutura do Registro RC400 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C400"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0020, 00 } ) // 03 - Modelo do equipamento
   AADD( Estru, { 'CAMPO04'     , 'C', 0020, 00 } ) // 04 - Nmero de srie de fabricao do ECF
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Nmero do caixa atribudo ao ECF
   dbCreate( 'RC400.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC405()
   // *** Estrutura do Registro RC405 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C405"
   AADD( Estru, { 'CAMPO02'     , 'C', 0008, 00 } ) // 02 - Data do movimento a que se refere a Reduo Z
   AADD( Estru, { 'CAMPO03'     , 'C', 0003, 00 } ) // 03 - Posio do Contador de Reincio de Operao
   AADD( Estru, { 'CAMPO04'     , 'C', 0006, 00 } ) // 04 - Posio do Contador de Reduo Z
   AADD( Estru, { 'CAMPO05'     , 'C', 0006, 00 } ) // 05 - Nmero do Contador de Ordem de Operao do ltimo documento emitido no dia (Nmero do COO na Reduo
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Grande Total final
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da venda bruta
   dbCreate( 'RC405.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC481()
   // *** Estrutura do Registro RC481 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C481?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC481.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC485()
   // *** Estrutura do Registro RC485 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C485?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC485.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC489()
   // *** Estrutura do Registro RC489 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C489"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC489.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC490()
   // *** Estrutura do Registro RC490 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C490?
   AADD( Estru, { 'CAMPO02'     , 'C', 0008, 00 } ) // 02 - Data de Emisso Inicial dos Documentos
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data de Emisso Final dos Documentos
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   dbCreate( 'RC490.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC491()
   // *** Estrutura do Registro RC491 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C491?
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor total dos itens
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 04 } ) // 09 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC491.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC495()
   // *** Estrutura do Registro RC495 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C495?
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente a COFINS.
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor total dos itens
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 04 } ) // 09 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC495.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC499()
   // *** Estrutura do Registro RC499 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C499"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC499.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC500()
   // *** Estrutura do Registro RC500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C500"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do participante do fornecedor (campo 02 do Registro 0150).
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   AADD( Estru, { 'CAMPO05'     , 'C', 0004, 00 } ) // 05 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0003, 00 } ) // 06 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO07'     , 'C', 0009, 00 } ) // 07 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data da emisso do documento fiscal
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 00 } ) // 09 - Data da entrada
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total do documento fiscal
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor acumulado do ICMS
   AADD( Estru, { 'CAMPO12'     , 'C', 0006, 00 } ) // 12 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor da COFINS
   dbCreate( 'RC500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC501()
   // *** Estrutura do Registro RC501 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C501?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC501.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC505()
   // *** Estrutura do Registro RC505 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C505?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota da COFINS  (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da COFINS
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC505.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC509()
   // *** Estrutura do Registro RC509 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C509"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC509.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC600()
   // *** Estrutura do Registro RC600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C600"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0007, 00 } ) // 03 - Cdigo do municpio dos pontos de consumo, conforme a tabela IBGE
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo de classe de consumo de energia eltrica, conforme a Tabela 4.4.5, ou Cdigo de Consumo de Fo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 00 } ) // 07 - Quantidade de documentos consolidados neste registro
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 00 } ) // 08 - Quantidade de documentos cancelados
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 00 } ) // 09 - Data dos documentos consolidados
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos documentos
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor acumulado dos descontos
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 00 } ) // 12 - Consumo total acumulado, em kWh (Cdigo 06)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor acumulado do fornecimento
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor acumulado dos servios no-tributados pelo ICMS
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valores cobrados em nome de terceiros
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor acumulado das despesas acessrias
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor acumulado da base de clculo do ICMS
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor acumulado do ICMS
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor acumulado da base de clculo do ICMS substituio tributria
   AADD( Estru, { 'CAMPO20'     , 'C', 0014, 02 } ) // 20 - Valor acumulado do ICMS retido por substituio tributria
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 02 } ) // 21 - Valor acumulado do PIS/PASEP
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 02 } ) // 22 - Valor acumulado da COFINS
   dbCreate( 'RC600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC601()
   // *** Estrutura do Registro RC601 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C601?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC601.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC605()
   // *** Estrutura do Registro RC605 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C605?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC605.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC609()
   // *** Estrutura do Registro RC609 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C609"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC609.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC800()
   // *** Estrutura do Registro RC800 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C800"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   AADD( Estru, { 'CAMPO04'     , 'C', 0009, 00 } ) // 04 - Nmero do Cupom Fiscal Eletrnico
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data da emisso do Cupom Fiscal Eletrnico
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor total do Cupom Fiscal Eletrnico
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor total do PIS
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 00 } ) // 09 - CNPJ ou CPF do destinatrio
   AADD( Estru, { 'CAMPO10'     , 'C', 0009, 00 } ) // 10 - Nmero de Srie do equipamento SAT
   AADD( Estru, { 'CAMPO11'     , 'C', 0044, 00 } ) // 11 - Chave do Cupom Fiscal Eletrnico
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor total do desconto/excluso sobre item
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor total das mercadorias e servios
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor de outras desp. Acessrias (acrscimo)
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do ICMS
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor total do PIS retido por subst. trib.
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor total da COFINS retido por subst. trib.
   dbCreate( 'RC800.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC810()
   // *** Estrutura do Registro RC810 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C810"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC810.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC820()
   // *** Estrutura do Registro RC820 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C820"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Base de clculo em quantidade - PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 03 } ) // 10 - Base de clculo em quantidade ? COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 04 } ) // 11 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC820.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC830()
   // *** Estrutura do Registro RC830 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C830?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC830.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC860()
   // *** Estrutura do Registro RC860 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C860"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0009, 00 } ) // 03 - Nmero de Srie do equipamento SAT
   AADD( Estru, { 'CAMPO04'     , 'C', 0008, 00 } ) // 04 - Data de emisso dos documentos fiscais
   AADD( Estru, { 'CAMPO05'     , 'C', 0009, 00 } ) // 05 - Nmero do documento inicial
   AADD( Estru, { 'CAMPO06'     , 'C', 0009, 00 } ) // 06 - Nmero do documento final
   dbCreate( 'RC860.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC870()
   // *** Estrutura do Registro RC870 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C870"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC870.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC880()
   // *** Estrutura do Registro RC880 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C880"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO03'     , 'C', 0004, 00 } ) // 03 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor total dos itens
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Base de clculo em quantidade - PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 03 } ) // 10 - Base de clculo em quantidade ? COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 04 } ) // 11 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0060, 00 } ) // 13 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RC880.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC890()
   // *** Estrutura do Registro RC890 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C890?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RC890.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRC990()
   // *** Estrutura do Registro RC990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "C990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco C
   dbCreate( 'RC990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD001()
   // *** Estrutura do Registro RD001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RD001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD010()
   // *** Estrutura do Registro RD010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?D010?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   dbCreate( 'RD010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD100()
   // *** Estrutura do Registro RD100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador do emitente do documento fiscal:
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante (campo 02 do Registro 0150).
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   AADD( Estru, { 'CAMPO07'     , 'C', 0004, 00 } ) // 07 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0003, 00 } ) // 08 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO09'     , 'C', 0009, 00 } ) // 09 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO10'     , 'C', 0044, 00 } ) // 10 - Chave do Conhecimento de Transporte Eletrnico
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data de referncia/emisso dos documentos fiscais
   AADD( Estru, { 'CAMPO12'     , 'C', 0008, 00 } ) // 12 - Data da aquisio ou da prestao do servio
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Tipo de Conhecimento de Transporte Eletrnico conforme definido no Manual de Integrao do CT-e
   AADD( Estru, { 'CAMPO14'     , 'C', 0044, 00 } ) // 14 - Chave do CT-e de referncia cujos valores foram complementados (opo ?1? do campo anterior) ou cujo
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor total do documento fiscal
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor total do desconto
   AADD( Estru, { 'CAMPO17'     , 'C', 0001, 00 } ) // 17 - Indicador do tipo do frete:
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor total da prestao de servio
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor da base de clculo do ICMS
   AADD( Estru, { 'CAMPO20'     , 'C', 0014, 02 } ) // 20 - Valor do ICMS
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 02 } ) // 21 - Valor no-tributado do ICMS
   AADD( Estru, { 'CAMPO22'     , 'C', 0006, 00 } ) // 22 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   AADD( Estru, { 'CAMPO23'     , 'C', 0060, 00 } ) // 23 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD101()
   // *** Estrutura do Registro RD101 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D101?
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador da Natureza do Frete Contratado, referente a:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD101.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD105()
   // *** Estrutura do Registro RD105 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D105?
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador da Natureza do Frete Contratado, referente a:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD105.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD111()
   // *** Estrutura do Registro RD111 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D111"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD111.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD200()
   // *** Estrutura do Registro RD200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0009, 00 } ) // 06 - Nmero do documento fiscal inicial emitido no perodo (mesmo modelo, srie e subsrie).
   AADD( Estru, { 'CAMPO07'     , 'C', 0009, 00 } ) // 07 - Nmero do documento fiscal final emitido no perodo (mesmo modelo, srie e subsrie).
   AADD( Estru, { 'CAMPO08'     , 'C', 0004, 00 } ) // 08 - Cdigo Fiscal de Operao e Prestao conforme tabela indicada no item 4.2.2
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 00 } ) // 09 - Data do dia de referncia do resumo dirio
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos documentos fiscais
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor total dos descontos
   dbCreate( 'RD200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD201()
   // *** Estrutura do Registro RD201 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D201"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD201.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD205()
   // *** Estrutura do Registro RD205 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D205"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total dos itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0060, 00 } ) // 07 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD205.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD209()
   // *** Estrutura do Registro RD209 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D209"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD209.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD300()
   // *** Estrutura do Registro RD300 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D300"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   AADD( Estru, { 'CAMPO03'     , 'C', 0004, 00 } ) // 03 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO04'     , 'C', 0003, 00 } ) // 04 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0006, 00 } ) // 05 - Nmero do primeiro documento fiscal emitido no perodo (mesmo modelo, srie e subsrie)
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Nmero do ltimo documento fiscal emitido no perodo (mesmo modelo, srie e subsrie)
   AADD( Estru, { 'CAMPO07'     , 'C', 0004, 00 } ) // 07 - Cdigo Fiscal de Operao e Prestao conforme tabela indicada no item 4.2.2
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data do dia de referncia do resumo dirio
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total dos documentos fiscais emitidos
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos descontos
   AADD( Estru, { 'CAMPO11'     , 'C', 0002, 00 } ) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO13'     , 'C', 0008, 04 } ) // 13 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO15'     , 'C', 0002, 00 } ) // 15 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO17'     , 'C', 0008, 04 } ) // 17 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor da COFINS
   AADD( Estru, { 'CAMPO19'     , 'C', 0060, 00 } ) // 19 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD300.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD309()
   // *** Estrutura do Registro RD309 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D309"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD309.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD350()
   // *** Estrutura do Registro RD350 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D350"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO03'     , 'C', 0020, 00 } ) // 03 - Modelo do equipamento
   AADD( Estru, { 'CAMPO04'     , 'C', 0020, 00 } ) // 04 - Nmero de srie de fabricao do ECF
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data do movimento a que se refere a Reduo Z
   AADD( Estru, { 'CAMPO06'     , 'C', 0003, 00 } ) // 06 - Posio do Contador de Reincio de Operao
   AADD( Estru, { 'CAMPO07'     , 'C', 0006, 00 } ) // 07 - Posio do Contador de Reduo Z
   AADD( Estru, { 'CAMPO08'     , 'C', 0006, 00 } ) // 08 - Nmero do Contador de Ordem de Operao do ltimo documento emitido no dia. (Nmero do COO na Redu
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do Grande Total final
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da venda bruta
   AADD( Estru, { 'CAMPO11'     , 'C', 0002, 00 } ) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO13'     , 'C', 0008, 04 } ) // 13 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 03 } ) // 14 - Quantidade ? Base de clculo PIS/PASEP
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 04 } ) // 15 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO17'     , 'C', 0002, 00 } ) // 17 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO19'     , 'C', 0008, 04 } ) // 19 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO20'     , 'C', 0014, 03 } ) // 20 - Quantidade ? Base de clculo da COFINS
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 04 } ) // 21 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 02 } ) // 22 - Valor da COFINS
   AADD( Estru, { 'CAMPO23'     , 'C', 0060, 00 } ) // 23 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD350.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD359()
   // *** Estrutura do Registro RD359 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D359"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD359.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD500()
   // *** Estrutura do Registro RD500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D500"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador do emitente do documento fiscal:
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do participante prestador do servio (campo 02 do Registro 0150).
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - digo da situao do documento fiscal, conforme a Tabela 4.1.2.
   AADD( Estru, { 'CAMPO07'     , 'C', 0004, 00 } ) // 07 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO08'     , 'C', 0003, 00 } ) // 08 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO09'     , 'C', 0009, 00 } ) // 09 - Nmero do documento fiscal
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 00 } ) // 10 - Data da emisso do documento fiscal
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 00 } ) // 11 - Data da entrada (aquisio)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor total do documento fiscal
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor total do desconto
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor da prestao de servios
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor total dos servios no-tributados pelo ICMS
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valores cobrados em nome de terceiros
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor de outras despesas indicadas no documento fiscal
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor da base de clculo do ICMS
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor do ICMS
   AADD( Estru, { 'CAMPO20'     , 'C', 0006, 00 } ) // 20 - Cdigo da informao complementar (campo 02 do Registro 0450)
   AADD( Estru, { 'CAMPO21'     , 'C', 0014, 02 } ) // 21 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO22'     , 'C', 0014, 02 } ) // 22 - Valor da COFINS
   dbCreate( 'RD500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD501()
   // *** Estrutura do Registro RD501 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D501?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total dos Itens (Servios)
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD501.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD505()
   // *** Estrutura do Registro RD505 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D505?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total dos Itens
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da COFINS
   AADD( Estru, { 'CAMPO08'     , 'C', 0060, 00 } ) // 08 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RD505.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD509()
   // *** Estrutura do Registro RD509 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D509"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD509.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD600()
   // *** Estrutura do Registro RD600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D600"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   AADD( Estru, { 'CAMPO03'     , 'C', 0007, 00 } ) // 03 - Cdigo do municpio dos terminais faturados, conforme a tabela IBGE
   AADD( Estru, { 'CAMPO04'     , 'C', 0004, 00 } ) // 04 - Srie do documento fiscal
   AADD( Estru, { 'CAMPO05'     , 'C', 0003, 00 } ) // 05 - Subsrie do documento fiscal
   AADD( Estru, { 'CAMPO06'     , 'C', 0001, 00 } ) // 06 - Indicador do tipo de receita:
   AADD( Estru, { 'CAMPO07'     , 'C', 0004, 00 } ) // 07 - Quantidade de documentos consolidados neste registro
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data Inicial dos documentos consolidados no perodo
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 00 } ) // 09 - Data Final dos documentos consolidados no perodo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total acumulado dos documentos fiscais
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor acumulado dos descontos
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor acumulado das prestaes de servios tributados pelo ICMS
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor acumulado dos servios no-tributados pelo ICMS
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valores cobrados em nome de terceiros
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor acumulado das despesas acessrias
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Valor acumulado da base de clculo do ICMS
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Valor acumulado do ICMS
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor da COFINS
   dbCreate( 'RD600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD601()
   // *** Estrutura do Registro RD601 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D601?
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Cdigo de classificao do item do servio de comunicao ou de telecomunicao, conforme a Tabela 4
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor acumulado do item
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor acumulado dos descontos/excluses da base de clculo
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo da conta contbil debitada/creditada
   dbCreate( 'RD601.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD605()
   // *** Estrutura do Registro RD605 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D605?
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Cdigo de classificao do item do servio de comunicao ou de telecomunicao, conforme a Tabela 4
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor acumulado do item
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor acumulado dos descontos/excluses da base de clculo
   AADD( Estru, { 'CAMPO05'     , 'C', 0002, 00 } ) // 05 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0060, 00 } ) // 09 - Cdigo da conta contbil debitada/creditada
   dbCreate( 'RD605.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD609()
   // *** Estrutura do Registro RD609 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D609"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RD609.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRD990()
   // *** Estrutura do Registro RD990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "D990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco D
   dbCreate( 'RD990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF001()
   // *** Estrutura do Registro RF001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RF001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF010()
   // *** Estrutura do Registro RF010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?F010?.
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   dbCreate( 'RF010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF100()
   // *** Estrutura do Registro RF100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do Tipo da Operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0060, 00 } ) // 03 - Cdigo do participante (Campo 02 do Registro 0150)
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo do item (campo 02 do Registro 0200)
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Data da Operao (ddmmaaaa)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Operao/Item
   AADD( Estru, { 'CAMPO07'     , 'C', 0002, 00 } ) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 04 } ) // 08 - Base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 04 } ) // 09 - Alquota do PIS/PASEP
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO11'     , 'C', 0002, 00 } ) // 11 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 04 } ) // 12 - Base de clculo da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0008, 04 } ) // 13 - Alquota da COFINS
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor da COFINS
   AADD( Estru, { 'CAMPO15'     , 'C', 0002, 00 } ) // 15 - Cdigo da Base de Clculo dos Crditos, conforme a tabela indicada no item 4.3.7, caso seja informad
   AADD( Estru, { 'CAMPO16'     , 'C', 0001, 00 } ) // 16 - Indicador da origem do crdito:
   AADD( Estru, { 'CAMPO17'     , 'C', 0060, 00 } ) // 17 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO18'     , 'C', 0060, 00 } ) // 18 - Cdigo do Centro de Custos
   AADD( Estru, { 'CAMPO19'     , 'C', 0100, 00 } ) // 19 - Descrio do Documento/Operao
   dbCreate( 'RF100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF111()
   // *** Estrutura do Registro RF111 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F111"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF111.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF120()
   // *** Estrutura do Registro RF120 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F120"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imobilizado, conforme a Tabela
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Identificao dos Bens/Grupo de Bens Incorporados ao Ativo Imobilizado:
   AADD( Estru, { 'CAMPO04'     , 'C', 0001, 00 } ) // 04 - Indicador da origem do bem incorporado ao ativo imobilizado, gerador de crdito:
   AADD( Estru, { 'CAMPO05'     , 'C', 0001, 00 } ) // 05 - Indicador da Utilizao dos Bens Incorporados ao Ativo Imobilizado:
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Encargo de Depreciao/Amortizao Incorrido no Perodo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Parcela do Valor do Encargo de Depreciao/Amortizao a excluir da base de clculo de Crdito
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Base de clculo do Crdito de PIS/PASEP no perodo (06 ? 07)
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 04 } ) // 10 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor do Crdito de PIS/PASEP
   AADD( Estru, { 'CAMPO12'     , 'C', 0002, 00 } ) // 12 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Base de Clculo do Crdito da COFINS no perodo (06 ? 07)
   AADD( Estru, { 'CAMPO14'     , 'C', 0008, 04 } ) // 14 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do crdito da COFINS
   AADD( Estru, { 'CAMPO16'     , 'C', 0060, 00 } ) // 16 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO17'     , 'C', 0060, 00 } ) // 17 - Cdigo do Centro de Custos
   AADD( Estru, { 'CAMPO18'     , 'C', 0100, 00 } ) // 18 - Descrio complementar do bem ou grupo de bens, com crdito apurado com base nos encargos de depreci
   dbCreate( 'RF120.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF129()
   // *** Estrutura do Registro RF129 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F129"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF129.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF130()
   // *** Estrutura do Registro RF130 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F130"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Texto fixo contendo "10" (Cdigo da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imob
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Identificao dos Bens/Grupo de Bens Incorporados ao Ativo Imobilizado:
   AADD( Estru, { 'CAMPO04'     , 'C', 0001, 00 } ) // 04 - Indicador da origem do bem incorporado ao ativo imobilizado, gerador de crdito:
   AADD( Estru, { 'CAMPO05'     , 'C', 0001, 00 } ) // 05 - Indicador da Utilizao dos Bens Incorporados ao Ativo Imobilizado:
   AADD( Estru, { 'CAMPO06'     , 'C', 0006, 00 } ) // 06 - Ms/Ano de Aquisio dos Bens Incorporados ao Ativo Imobilizado, com apurao de crdito com base no
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor de Aquisio dos Bens Incorporados ao Ativo Imobilizado ? Crdito com base no valor de aquisi
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Parcela do Valor de Aquisio a excluir da base de clculo de Crdito
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imobilizado (07 ? 08)
   AADD( Estru, { 'CAMPO10'     , 'C', 0001, 00 } ) // 10 - Indicador do Nmero de Parcelas a serem apropriadas (Crdito sobre Valor de Aquisio):
   AADD( Estru, { 'CAMPO11'     , 'C', 0002, 00 } ) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Base de clculo Mensal do Crdito de PIS/PASEP, conforme indicador informado no campo 10.
   AADD( Estru, { 'CAMPO13'     , 'C', 0008, 04 } ) // 13 - Alquota do PIS/PASEP
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do Crdito de PIS/PASEP
   AADD( Estru, { 'CAMPO15'     , 'C', 0002, 00 } ) // 15 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Base de Clculo Mensal do Crdito da COFINS, conforme indicador informado no campo 10.
   AADD( Estru, { 'CAMPO17'     , 'C', 0008, 04 } ) // 17 - Alquota da COFINS
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Valor do crdito da COFINS
   AADD( Estru, { 'CAMPO19'     , 'C', 0060, 00 } ) // 19 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO20'     , 'C', 0060, 00 } ) // 20 - Cdigo do Centro de Custos
   AADD( Estru, { 'CAMPO21'     , 'C', 0100, 00 } ) // 21 - Descrio complementar do bem ou grupo de bens, com crdito apurado com base no valor de aquisio.
   dbCreate( 'RF130.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF139()
   // *** Estrutura do Registro RF139 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F139"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF139.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF150()
   // *** Estrutura do Registro RF150 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F150"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Texto fixo contendo "18"
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total do Estoque de Abertura
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Parcela do estoque de abertura referente a bens, produtos e mercadorias importados, ou adquiridas no
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Base de Clculo do Crdito sobre o Estoque de Abertura (03 ? 04)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Base de Clculo Mensal do Crdito sobre o Estoque de Abertura (1/12 avos do campo 05)
   AADD( Estru, { 'CAMPO07'     , 'C', 0002, 00 } ) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 04 } ) // 08 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor Mensal do Crdito Presumido Apurado para o Perodo -  PIS/PASEP  (06 x 08)
   AADD( Estru, { 'CAMPO10'     , 'C', 0002, 00 } ) // 10 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota do COFINS (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor Mensal do Crdito Presumido Apurado para o Perodo - COFINS (06 x 11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0100, 00 } ) // 13 - Descrio do estoque
   AADD( Estru, { 'CAMPO14'     , 'C', 0060, 00 } ) // 14 - Cdigo da conta analtica contbil debitada/creditada
   dbCreate( 'RF150.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF200()
   // *** Estrutura do Registro RF200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador do Tipo da Operao:
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador do tipo de unidade imobiliria Vendida:
   AADD( Estru, { 'CAMPO04'     , 'C', 0100, 00 } ) // 04 - Identificao/Nome do Empreendimento
   AADD( Estru, { 'CAMPO05'     , 'C', 0090, 00 } ) // 05 - Descrio resumida da unidade imobiliria vendida
   AADD( Estru, { 'CAMPO06'     , 'C', 0090, 00 } ) // 06 - Nmero do Contrato/Documento que formaliza a Venda da Unidade Imobiliria
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 00 } ) // 07 - Identificao da pessoa fsica (CPF) ou da pessoa jurdica (CNPJ) adquirente da unidade imobiliria
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data da operao de venda da unidade imobiliria
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total da unidade imobiliria vendida atualizado at o perodo da escriturao
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor recebido acumulado at o ms anterior ao da escriturao.
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor total recebido no ms da escriturao
   AADD( Estru, { 'CAMPO12'     , 'C', 0002, 00 } ) // 12 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Base de Clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO14'     , 'C', 0008, 04 } ) // 14 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO16'     , 'C', 0002, 00 } ) // 16 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Base de Clculo da COFINS
   AADD( Estru, { 'CAMPO18'     , 'C', 0008, 04 } ) // 18 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO19'     , 'C', 0014, 02 } ) // 19 - Valor da COFINS
   AADD( Estru, { 'CAMPO20'     , 'C', 0006, 02 } ) // 20 - Percentual da receita total recebida at o ms, da unidade imobiliria vendida ((Campo 10 + Campo 11
   AADD( Estru, { 'CAMPO21'     , 'C', 0001, 00 } ) // 21 - Indicador da Natureza Especfica do Empreendimento:
   AADD( Estru, { 'CAMPO22'     , 'C', 0090, 00 } ) // 22 - Informaes Complementares
   dbCreate( 'RF200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF205()
   // *** Estrutura do Registro RF205 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F205"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total do Custo Incorrido da unidade imobiliria acumulado at o ms anterior ao da escritura
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total do Custo Incorrido da unidade imobiliria no ms da escriturao
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total do Custo Incorrido da unidade imobiliria acumulado at o ms da escriturao (Campo 02
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Parcela do Custo Incorrido sem direito ao crdito da atividade imobiliria, acumulado at o perodo.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Base de Clculo do Crdito sobre o Custo Incorrido, acumulado at o perodo da escriturao
   AADD( Estru, { 'CAMPO07'     , 'C', 0002, 00 } ) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 04 } ) // 08 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor Total do Crdito Acumulado sobre o custo incorrido ? PIS/PASEP (Campo 06 x 08)
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Parcela do crdito descontada at o perodo anterior da escriturao ? PIS/PASEP (proporcional  rec
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Parcela a descontar no perodo da escriturao  ? PIS/PASEP (proporcional  receita recebida no ms)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Parcela a descontar em perodos futuros  ? PIS/PASEP (Campo 09 ? 10 ? 11).
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO14'     , 'C', 0008, 04 } ) // 14 - Alquota do COFINS (em percentual)
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Valor Total do Crdito Acumulado sobre o custo incorrido - COFINS (Campo 06 x 14)
   AADD( Estru, { 'CAMPO16'     , 'C', 0014, 02 } ) // 16 - Parcela do crdito descontada at o perodo anterior da escriturao ? COFINS (proporcional  receit
   AADD( Estru, { 'CAMPO17'     , 'C', 0014, 02 } ) // 17 - Parcela a descontar no perodo da escriturao  ? COFINS (proporcional  receita recebida no ms).
   AADD( Estru, { 'CAMPO18'     , 'C', 0014, 02 } ) // 18 - Parcela a descontar em perodos futuros  ? COFINS (Campo 15 ? 16 ? 17).
   dbCreate( 'RF205.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF210()
   // *** Estrutura do Registro RF210 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F210"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total do Custo Orado para Concluso da Unidade Vendida
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valores Referentes a Pagamentos a Pessoas Fsicas, Encargos Trabalhistas, Sociais e Previdencirios
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Base de Calculo do Crdito sobre o Custo Orado Ajustado (Campo 02 ? 03).
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Base de Clculo do Crdito sobre o Custo Orado referente ao ms da escriturao, proporcio
   AADD( Estru, { 'CAMPO06'     , 'C', 0002, 00 } ) // 06 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 04 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do Crdito sobre o custo orado a ser utilizado no perodo da escriturao - PIS/PASEP (Campo
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 04 } ) // 10 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor do Crdito sobre o custo orado a ser utilizado no perodo da escriturao - COFINS (Campo 05
   dbCreate( 'RF210.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF211()
   // *** Estrutura do Registro RF211 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F211"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF211.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF500()
   // *** Estrutura do Registro RF500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F500"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total da receita recebida, referente  combinao de CST e Alquota.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do desconto / excluso da base de clculo
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 04 } ) // 05 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do desconto / excluso da base de clculo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 04 } ) // 10 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO14'     , 'C', 0004, 00 } ) // 14 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO15'     , 'C', 0060, 00 } ) // 15 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO16'     , 'C', 0100, 00 } ) // 16 - Informao complementar
   dbCreate( 'RF500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF509()
   // *** Estrutura do Registro RF509 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F509?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF509.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF510()
   // *** Estrutura do Registro RF510 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F510"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total da receita recebida, referente  combinao de CST e Alquota.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do desconto / excluso
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 03 } ) // 05 - Base de clculo em quantidade - PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do desconto / excluso
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 03 } ) // 10 - Base de clculo em quantidade - COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO14'     , 'C', 0004, 00 } ) // 14 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO15'     , 'C', 0060, 00 } ) // 15 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO16'     , 'C', 0100, 00 } ) // 16 - Informao complementar
   dbCreate( 'RF510.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF519()
   // *** Estrutura do Registro RF519 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F519?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF519.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF525()
   // *** Estrutura do Registro RF525 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F525"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total da receita recebida, correspondente ao indicador informado no campo 03 (IND_REC)
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador da composio da receita recebida no perodo (Campo 02), por:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 00 } ) // 04 - CNPJ/CPF do participante (cliente/pessoa fsica ou jurdica pagadora) ou da administradora de carte
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Nmero do ttulo de crdito ou do documento fiscal, no caso de detalhamento da receita recebida conf
   AADD( Estru, { 'CAMPO06'     , 'C', 0060, 00 } ) // 06 - Cdigo do item (campo 02 do Registro 0200), no caso de detalhamento da receita recebida por item ven
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da receita detalhada, correspondente ao contedo informado no campo 04, 05 ou 06.
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria do PIS/Pasep
   AADD( Estru, { 'CAMPO09'     , 'C', 0002, 00 } ) // 09 - Cdigo da Situao Tributria da Cofins
   AADD( Estru, { 'CAMPO10'     , 'C', 0100, 00 } ) // 10 - Informao complementar
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil representativa da receita recebida
   dbCreate( 'RF525.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF550()
   // *** Estrutura do Registro RF550 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F550"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total da receita auferida, referente  combinao de CST e Alquota.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do desconto / excluso da base de clculo
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 04 } ) // 05 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do desconto / excluso da base de clculo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 04 } ) // 10 - Valor da base de clculo da COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO14'     , 'C', 0004, 00 } ) // 14 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO15'     , 'C', 0060, 00 } ) // 15 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO16'     , 'C', 0100, 00 } ) // 16 - Informao complementar
   dbCreate( 'RF550.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF559()
   // *** Estrutura do Registro RF559 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F559?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF559.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF560()
   // *** Estrutura do Registro RF560 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F560"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor total da receita auferida, referente  combinao de CST e Alquota.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do desconto / excluso
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 03 } ) // 05 - Base de clculo em quantidade - PIS/PASEP
   AADD( Estru, { 'CAMPO06'     , 'C', 0008, 04 } ) // 06 - Alquota do PIS/PASEP (em reais)
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO08'     , 'C', 0002, 00 } ) // 08 - Cdigo da Situao Tributria referente a COFINS
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor do desconto / excluso
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 03 } ) // 10 - Base de clculo em quantidade - COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0008, 04 } ) // 11 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da COFINS
   AADD( Estru, { 'CAMPO13'     , 'C', 0002, 00 } ) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   AADD( Estru, { 'CAMPO14'     , 'C', 0004, 00 } ) // 14 - Cdigo fiscal de operao e prestao
   AADD( Estru, { 'CAMPO15'     , 'C', 0060, 00 } ) // 15 - Cdigo da conta analtica contbil debitada/creditada
   AADD( Estru, { 'CAMPO16'     , 'C', 0100, 00 } ) // 16 - Informao complementar
   dbCreate( 'RF560.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF569()
   // *** Estrutura do Registro RF569 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F569?
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RF569.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF600()
   // *** Estrutura do Registro RF600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F600"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador de Natureza da Reteno na Fonte:
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data da Reteno
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 04 } ) // 04 - Base de calculo da reteno ou do recolhimento (sociedade cooperativa)
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor Total Retido na Fonte / Recolhido (sociedade cooperativa)
   AADD( Estru, { 'CAMPO06'     , 'C', 0004, 00 } ) // 06 - Cdigo da Receita
   AADD( Estru, { 'CAMPO07'     , 'C', 0001, 00 } ) // 07 - Indicador da Natureza da Receita:
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 00 } ) // 08 - CNPJ referente a:
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor Retido na Fonte ? Parcela Referente ao PIS/Pasep
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor Retido na Fonte ? Parcela Referente a COFINS
   AADD( Estru, { 'CAMPO11'     , 'C', 0001, 00 } ) // 11 - Indicador da condio da pessoa jurdica declarante:
   dbCreate( 'RF600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF700()
   // *** Estrutura do Registro RF700 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F700"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador de Origem de Dedues Diversas:
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da Natureza da Deduo:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor a Deduzir - PIS/PASEP
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor a Deduzir ? Cofins
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Base de Clculo da Operao que ensejou o Valor a Deduzir informado nos Campos 04 e 05
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 00 } ) // 07 - CNPJ da Pessoa Jurdica relacionada  Operao que ensejou o Valor a Deduzir informado nos Campos 04
   AADD( Estru, { 'CAMPO08'     , 'C', 0090, 00 } ) // 08 - Informaes Complementares do Documento/Operao que ensejou o Valor a Deduzir informado nos Campos
   dbCreate( 'RF700.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF800()
   // *** Estrutura do Registro RF800 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F800"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador da Natureza do Evento de Sucesso:
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data do Evento
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 00 } ) // 04 - CNPJ da Pessoa Jurdica Sucedida
   AADD( Estru, { 'CAMPO05'     , 'C', 0006, 00 } ) // 05 - Perodo de Apurao do Crdito ? Ms/Ano (MM/AAAA)
   AADD( Estru, { 'CAMPO06'     , 'C', 0003, 00 } ) // 06 - Cdigo do crdito transferido, conforme Tabela 4.3.6
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor do Crdito Transferido de PIS/Pasep
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do Crdito Transferido de Cofins
   AADD( Estru, { 'CAMPO09'     , 'C', 0006, 02 } ) // 09 - Percentual do crdito original transferido, no caso de evento de Ciso.
   dbCreate( 'RF800.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRF990()
   // *** Estrutura do Registro RF990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "F990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco F
   dbCreate( 'RF990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI001()
   // *** Estrutura do Registro RI001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RI001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI010()
   // *** Estrutura do Registro RI010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo ?I010?
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Nmero de inscrio da pessoa jurdica no CNPJ.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Indicador de operaes realizadas no perodo:
   AADD( Estru, { 'CAMPO04'     , 'C', 0100, 00 } ) // 04 - Informao Complementar
   dbCreate( 'RI010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI100()
   // *** Estrutura do Registro RI100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total do Faturamento/Receita Bruta no Perodo
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo de Situao Tributria referente  Receita informada no Campo 02 (Tabelas 4.3.3 e 4.3.4)
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total das Dedues e Excluses de Carter Geral
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor Total das Dedues e Excluses de Carter Especfico
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da base de clculo do PIS/PASEP
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 02 } ) // 07 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor do PIS/PASEP
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor da base de clculo da Cofins
   AADD( Estru, { 'CAMPO10'     , 'C', 0008, 02 } ) // 10 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor da COFINS
   AADD( Estru, { 'CAMPO12'     , 'C', 0100, 00 } ) // 12 - Informao Complementar dos dados informados no registro
   dbCreate( 'RI100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI200()
   // *** Estrutura do Registro RI200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Informar o nmero do campo do registro ?I100? (Campos 02, 04 ou 05), objeto de informao neste regi
   AADD( Estru, { 'CAMPO03'     , 'C', 0005, 00 } ) // 03 - Cdigo do tipo de detalhamento, conforme Tabelas 7.1.1 e/ou 7.1.2
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor detalhado referente ao campo 03 (COD_DET) deste registro
   AADD( Estru, { 'CAMPO05'     , 'C', 0060, 00 } ) // 05 - Cdigo da conta contbil referente ao valor informado no campo 04 (DET_VALOR)
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Informao Complementar dos dados informados no registro
   dbCreate( 'RI200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI299()
   // *** Estrutura do Registro RI299 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I299"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RI299.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI300()
   // *** Estrutura do Registro RI300 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I300"
   AADD( Estru, { 'CAMPO02'     , 'C', 0060, 00 } ) // 02 - Cdigo das Tabelas 7.1.3 (Receitas ? Viso Analtica/Referenciada) e/ou 7.1.4 (Dedues e excluses
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da receita, deduo ou excluso, objeto de complemento/detalhamento neste registro, conforme c
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo da conta contbil referente ao valor informado no campo 03
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Informao Complementar dos dados informados no registro
   dbCreate( 'RI300.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI399()
   // *** Estrutura do Registro RI399 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I399"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo:
   dbCreate( 'RI399.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRI990()
   // *** Estrutura do Registro RI990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "I990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0009, 00 } ) // 02 - Quantidade total de linhas do Bloco I
   dbCreate( 'RI990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM001()
   // *** Estrutura do Registro RM001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RM001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM100()
   // *** Estrutura do Registro RM100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Cdigo de Tipo de Crdito apurado no perodo, conforme a Tabela 4.3.6.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador de Crdito Oriundo de:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Base de Clculo do Crdito
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo PIS
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do PIS (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total do crdito apurado no perodo
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total dos ajustes de acrscimo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos ajustes de reduo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor total do crdito diferido no perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor Total do Crdito Disponvel relativo ao Perodo (08 + 09 ? 10 ? 11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador de opo de utilizao do crdito disponvel no perodo:
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do Crdito disponvel, descontado  da contribuio apurada no prprio perodo.
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Saldo de crditos a utilizar em perodos futuros (12 ? 14)
   dbCreate( 'RM100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM105()
   // *** Estrutura do Registro RM105 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M105"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Base de Clculo do Crdito apurado no perodo, conforme a Tabela 4.3.7.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao crdito de PIS/Pasep (Tabela 4.3.3) vinculado ao tipo de
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total da Base de Clculo escriturada nos documentos e operaes (Blocos ?A?, ?C?, ?D? e ?F?),
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Parcela do Valor Total da Base de Clculo informada no Campo 04, vinculada a receitas com incidncia
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor Total da Base de Clculo do Crdito, vinculada a receitas com incidncia no-cumulativa (Campo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da Base de Clculo do Crdito, vinculada ao tipo de Crdito escriturado em M100.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade Total da Base de Clculo do Crdito apurado em Unidade de Medida de Produto, escriturada
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 03 } ) // 09 - Parcela da base de clculo do crdito em quantidade (campo 08) vinculada ao tipo de crdito escritur
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Descrio do crdito
   dbCreate( 'RM105.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM110()
   // *** Estrutura do Registro RM110 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M110"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de ajuste:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do ajuste
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   AADD( Estru, { 'CAMPO05'     , 'C', 0010, 00 } ) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio resumida do ajuste.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data de referncia do ajuste (ddmmaaaa)
   dbCreate( 'RM110.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM200()
   // *** Estrutura do Registro RM200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total da Contribuio No Cumulativa do Perodo (recuperado do campo 13 do Registro M210, quan
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do Crdito Descontado, Apurado no Prprio Perodo da Escriturao (recuperado do campo 14 do R
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do Crdito Descontado, Apurado em Perodo de Apurao Anterior (recuperado do campo 13 do Regi
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor Total da Contribuio No Cumulativa Devida (02 ? 03 - 04)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor Retido na Fonte Deduzido no Perodo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Outras Dedues no Perodo
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da Contribuio No Cumulativa a Recolher/Pagar (05 ? 06 - 07)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor Total da Contribuio Cumulativa do Perodo  (recuperado do campo 13 do Registro M210, quando
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor Retido na Fonte Deduzido no Perodo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Outras Dedues no Perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da Contribuio Cumulativa a Recolher/Pagar (09 - 10 ? 11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor Total da Contribuio a Recolher/Pagar no Perodo (08 + 12)
   dbCreate( 'RM200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM210()
   // *** Estrutura do Registro RM210 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M210"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da contribuio social apurada no perodo, conforme a Tabela 4.3.5.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Receita Bruta
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Base de Clculo da Contribuio
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do PIS/PASEP (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo PIS
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do PIS (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total da contribuio social apurada
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total dos ajustes de acrscimo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos ajustes de reduo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor da contribuio a diferir no perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da contribuio diferida em perodos anteriores
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor Total da Contribuio do Perodo (08 + 09 ? 10 ? 11+12)
   dbCreate( 'RM210.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM211()
   // *** Estrutura do Registro RM211 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M211"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador do Tipo de Sociedade Cooperativa:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Base de Clculo da Contribuio, conforme Registros escriturados nos Blocos A, C, D e F, an
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor de Excluso Especifica das Cooperativas em Geral, decorrente das Sobras Apuradas na DRE, desti
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor das Excluses da Base de Clculo Especifica do Tipo da Sociedade Cooperativa, conforme Campo 0
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Base de Clculo, Aps as Excluses Especificas da Sociedade Cooperativa (04 ? 05 ? 06) ? Tr
   dbCreate( 'RM211.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM220()
   // *** Estrutura do Registro RM220 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M220"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de ajuste:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do ajuste
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   AADD( Estru, { 'CAMPO05'     , 'C', 0010, 00 } ) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio resumida do ajuste.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data de referncia do ajuste (ddmmaaaa)
   dbCreate( 'RM220.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM230()
   // *** Estrutura do Registro RM230 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M230"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - CNPJ da pessoa jurdica de direito pblico, empresa pblica, sociedade de economia mista ou suas sub
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total das vendas no perodo
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total no recebido no perodo
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Contribuio diferida no perodo
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Crdito diferido no perodo
   AADD( Estru, { 'CAMPO07'     , 'C', 0003, 00 } ) // 07 - Cdigo de Tipo de Crdito diferido no perodo, conforme a Tabela 4.3.6.
   dbCreate( 'RM230.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM300()
   // *** Estrutura do Registro RM300 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M300"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da contribuio social diferida em perodos anteriores, conforme a Tabela 4.3.5.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Contribuio Apurada, diferida em perodos anteriores.
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Natureza do Crdito Diferido, vinculado  receita tributada no mercado interno, a descontar:
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito a Descontar vinculado  contribuio diferida.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Contribuio a Recolher, diferida em perodos anteriores (Campo 03 ? Campo 05)
   AADD( Estru, { 'CAMPO07'     , 'C', 0006, 00 } ) // 07 - Perodo de apurao da contribuio social e dos crditos diferidos (MMAAAA)
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data de recebimento da receita, objeto de diferimento
   dbCreate( 'RM300.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM350()
   // *** Estrutura do Registro RM350 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M350"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total da Folha de Salrios
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total das Excluses  Base de Clculo
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total da Base de Clculo
   AADD( Estru, { 'CAMPO05'     , 'C', 0006, 02 } ) // 05 - Alquota do PIS/PASEP ? Folha de Salrios
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor Total da Contribuio Social sobre a Folha de Salrios
   dbCreate( 'RM350.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM400()
   // *** Estrutura do Registro RM400 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M400?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo de Situao Tributria ? CST das demais receitas auferidas no perodo, sem incidncia da cont
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total da receita bruta no perodo.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Descrio Complementar da Natureza da Receita.
   dbCreate( 'RM400.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM410()
   // *** Estrutura do Registro RM410 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M410?
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Natureza da Receita, conforme relao constante nas Tabelas de Detalhamento da Natureza da Receita p
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da receita bruta no perodo, relativo a natureza da receita (NAT_REC)
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Descrio Complementar da Natureza da Receita.
   dbCreate( 'RM410.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM500()
   // *** Estrutura do Registro RM500 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M500"
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Cdigo de Tipo de Crdito apurado no perodo, conforme a Tabela 4.3.6.
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador de Crdito Oriundo de:
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Base de Clculo do Crdito
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota da COFINS (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota da COFINS (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total do crdito apurado no perodo
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total dos ajustes de acrscimo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos ajustes de reduo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor total do crdito diferido no perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor Total do Crdito Disponvel relativo ao Perodo (08 + 09 ? 10 ? 11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0001, 00 } ) // 13 - Indicador de utilizao do crdito disponvel no perodo:
   AADD( Estru, { 'CAMPO14'     , 'C', 0014, 02 } ) // 14 - Valor do Crdito disponvel, descontado da contribuio apurada no prprio perodo.
   AADD( Estru, { 'CAMPO15'     , 'C', 0014, 02 } ) // 15 - Saldo de crditos a utilizar em perodos futuros (12 ? 14)
   dbCreate( 'RM500.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM505()
   // *** Estrutura do Registro RM505 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M505"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da Base de Clculo do Crdito apurado no perodo, conforme a Tabela 4.3.7.
   AADD( Estru, { 'CAMPO03'     , 'C', 0002, 00 } ) // 03 - Cdigo da Situao Tributria referente ao crdito de COFINS (Tabela 4.3.4) vinculado ao tipo de cr
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total da Base de Clculo escriturada nos documentos e operaes (Blocos ?A?, ?C?, ?D? e ?F?),
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Parcela do Valor Total da Base de Clculo informada no Campo 04, vinculada a receitas com incidncia
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor Total da Base de Clculo do Crdito, vinculada a receitas com incidncia no-cumulativa (Campo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor da Base de Clculo do Crdito, vinculada ao tipo de Crdito escriturado em M500.
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 03 } ) // 08 - Quantidade Total da Base de Clculo do Crdito apurado em Unidade de Medida de Produto, escriturada
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 03 } ) // 09 - Parcela da base de clculo do crdito em quantidade (campo 08) vinculada ao tipo de crdito escritur
   AADD( Estru, { 'CAMPO10'     , 'C', 0060, 00 } ) // 10 - Descrio do crdito
   dbCreate( 'RM505.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM510()
   // *** Estrutura do Registro RM510 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M510"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de ajuste:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do ajuste
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   AADD( Estru, { 'CAMPO05'     , 'C', 0010, 00 } ) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio resumida do ajuste.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data de referncia do ajuste (ddmmaaaa)
   dbCreate( 'RM510.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM600()
   // *** Estrutura do Registro RM600 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M600"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 02 } ) // 02 - Valor Total da Contribuio No Cumulativa do Perodo (recuperado do campo 13 do Registro M610, quan
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do Crdito Descontado, Apurado no Prprio Perodo da Escriturao (recuperado do campo 14 do R
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor do Crdito Descontado, Apurado em Perodo de Apurao Anterior (recuperado do campo 13 do Regi
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor Total da Contribuio No Cumulativa Devida (02 - 03 - 04)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor Retido na Fonte Deduzido no Perodo
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Outras Dedues no Perodo
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da Contribuio No Cumulativa a Recolher/Pagar (05 - 06 - 07)
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor Total da Contribuio Cumulativa do Perodo (recuperado do campo 13 do Registro M610, quando o
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor Retido na Fonte Deduzido no Perodo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Outras Dedues no Perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da Contribuio Cumulativa a Recolher/Pagar (09 - 10 - 11)
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor Total da Contribuio a Recolher/Pagar no Perodo (08 + 12)
   dbCreate( 'RM600.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM610()
   // *** Estrutura do Registro RM610 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M610"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da contribuio social apurada no perodo, conforme a Tabela 4.3.5.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Receita Bruta
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Base de Clculo da Contribuio
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 04 } ) // 05 - Alquota do COFINS (em percentual)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 03 } ) // 06 - Quantidade ? Base de clculo COFINS
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 04 } ) // 07 - Alquota do COFINS (em reais)
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor total da contribuio social apurada
   AADD( Estru, { 'CAMPO09'     , 'C', 0014, 02 } ) // 09 - Valor total dos ajustes de acrscimo
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor total dos ajustes de reduo
   AADD( Estru, { 'CAMPO11'     , 'C', 0014, 02 } ) // 11 - Valor da contribuio a diferir no perodo
   AADD( Estru, { 'CAMPO12'     , 'C', 0014, 02 } ) // 12 - Valor da contribuio diferida em perodos anteriores
   AADD( Estru, { 'CAMPO13'     , 'C', 0014, 02 } ) // 13 - Valor Total da Contribuio do Perodo (08 + 09 ? 10 ? 11 +12)
   dbCreate( 'RM610.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM611()
   // *** Estrutura do Registro RM611 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M611"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Indicador do Tipo de Sociedade Cooperativa:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Base de Clculo da Contribuio, conforme Registros escriturados nos Blocos A, C, D e F, an
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor de Excluso Especifica das Cooperativas em Geral, decorrente das Sobras Apuradas na DRE, desti
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor das Excluses da Base de Clculo Especifica do Tipo da Sociedade Cooperativa, conforme Campo 0
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Base de Clculo, Aps as Excluses Especificas da Sociedade Cooperativa (04 ? 05 ? 06) ? Tr
   dbCreate( 'RM611.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM620()
   // *** Estrutura do Registro RM620 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M620"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de ajuste:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do ajuste
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   AADD( Estru, { 'CAMPO05'     , 'C', 0010, 00 } ) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio resumida do ajuste.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data de referncia do ajuste (ddmmaaaa)
   dbCreate( 'RM620.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM630()
   // *** Estrutura do Registro RM630 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M630"
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - CNPJ da pessoa jurdica de direito pblico, empresa pblica, sociedade de economia mista ou suas sub
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor Total das vendas no perodo
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor Total no recebido no perodo
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor da Contribuio diferida no perodo
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor do Crdito diferido no perodo
   AADD( Estru, { 'CAMPO07'     , 'C', 0003, 00 } ) // 07 - Cdigo de Tipo de Crdito diferido no perodo, conforme a Tabela 4.3.6.
   dbCreate( 'RM630.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM700()
   // *** Estrutura do Registro RM700 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M700"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo da contribuio social diferida em perodos anteriores, conforme a Tabela 4.3.5.
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da Contribuio Apurada, diferida em perodos anteriores.
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Natureza do Crdito Diferido, vinculado  receita tributada no mercado interno, a descontar:
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor do Crdito a Descontar vinculado  contribuio diferida.
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Contribuio a Recolher, diferida em perodos anteriores (Campo 03 ? Campo 05)
   AADD( Estru, { 'CAMPO07'     , 'C', 0006, 00 } ) // 07 - Perodo de apurao da contribuio social e dos crditos diferidos (MMAAAA).
   AADD( Estru, { 'CAMPO08'     , 'C', 0008, 00 } ) // 08 - Data de recebimento da receita, objeto de diferimento.
   dbCreate( 'RM700.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM800()
   // *** Estrutura do Registro RM800 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M800?
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Cdigo de Situao Tributria ? CST das demais receitas auferidas no perodo, sem incidncia da cont
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total da receita bruta no perodo.
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Descrio Complementar da Natureza da Receita.
   dbCreate( 'RM800.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM810()
   // *** Estrutura do Registro RM810 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M810?
   AADD( Estru, { 'CAMPO02'     , 'C', 0003, 00 } ) // 02 - Natureza da Receita, conforme relao constante nas Tabelas de Detalhamento da Natureza da Receita p
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor da receita bruta no perodo, relativo a natureza da receita (NAT_REC)
   AADD( Estru, { 'CAMPO04'     , 'C', 0060, 00 } ) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Descrio Complementar da Natureza da Receita.
   dbCreate( 'RM810.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRM990()
   // *** Estrutura do Registro RM990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "M990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0004, 00 } ) // 02 - Quantidade total de linhas do Bloco M
   dbCreate( 'RM990.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP001()
   // *** Estrutura do Registro RP001 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P001"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador de movimento:
   dbCreate( 'RP001.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP010()
   // *** Estrutura do Registro RP010 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0014, 00 } ) // 01 - Texto fixo contendo ?P010?
   AADD( Estru, { 'CAMPO02'     , 'C', 0014, 00 } ) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   dbCreate( 'RP010.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP100()
   // *** Estrutura do Registro RP100 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P100"
   AADD( Estru, { 'CAMPO02'     , 'C', 0008, 00 } ) // 02 - Data inicial a que a apurao se refere
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Data final a que a apurao se refere
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor da Receita Bruta Total do Estabelecimento no Perodo
   AADD( Estru, { 'CAMPO05'     , 'C', 0008, 00 } ) // 05 - Cdigo indicador de atividade sujeita a incidncia da Contribuio Previdenciria sobre a Receita Br
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor da Receita Bruta do Estabelecimento, correspondente s atividades referidas no Campo 05 (COD_A
   AADD( Estru, { 'CAMPO07'     , 'C', 0014, 02 } ) // 07 - Valor das Excluses da Receita Bruta informada no Campo 06
   AADD( Estru, { 'CAMPO08'     , 'C', 0014, 02 } ) // 08 - Valor da Base de Clculo da Contribuio Previdenciria sobre a Receita Bruta (Campo 08 = Campo 06 ?
   AADD( Estru, { 'CAMPO09'     , 'C', 0008, 04 } ) // 09 - Alquota da Contribuio Previdenciria sobre a Receita Bruta
   AADD( Estru, { 'CAMPO10'     , 'C', 0014, 02 } ) // 10 - Valor da Contribuio Previdenciria Apurada sobre a Receita Bruta
   AADD( Estru, { 'CAMPO11'     , 'C', 0060, 00 } ) // 11 - Cdigo da conta analtica contbil referente  Contribuio Previdenciria sobre a Receita Bruta
   AADD( Estru, { 'CAMPO12'     , 'C', 0100, 00 } ) // 12 - Informao complementar do registro
   dbCreate( 'RP100.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP110()
   // *** Estrutura do Registro RP110 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P110"
   AADD( Estru, { 'CAMPO02'     , 'C', 0002, 00 } ) // 02 - Informar o nmero do campo do registro ?P100?, objeto de detalhamento neste registro.
   AADD( Estru, { 'CAMPO03'     , 'C', 0008, 00 } ) // 03 - Cdigo do tipo de detalhamento, conforme Tabela 5.1.2
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor detalhado referente ao campo 02 deste registro
   AADD( Estru, { 'CAMPO05'     , 'C', 0100, 00 } ) // 05 - Informao complementar do detalhamento.
   dbCreate( 'RP110.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP199()
   // *** Estrutura do Registro RP199 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P199"
   AADD( Estru, { 'CAMPO02'     , 'C', 0020, 00 } ) // 02 - Identificao do processo ou ato concessrio
   AADD( Estru, { 'CAMPO03'     , 'C', 0001, 00 } ) // 03 - Indicador da origem do processo: 1 - Justia Federal; 3 ? Secretaria da Receita Federal do Brasil 9
   dbCreate( 'RP199.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP200()
   // *** Estrutura do Registro RP200 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P200"
   AADD( Estru, { 'CAMPO02'     , 'C', 0006, 00 } ) // 02 - Perodo de referencia da escriturao (MMAAAA)
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor total apurado Contribuio Previdenciria sobre Receita Bruta (Somatrio Campo 10 ?VL_CONT_APU
   AADD( Estru, { 'CAMPO04'     , 'C', 0014, 02 } ) // 04 - Valor total de ?Ajustes de reduo? (Registro P210, Campo 03, quando Campo 02 = ?0?)
   AADD( Estru, { 'CAMPO05'     , 'C', 0014, 02 } ) // 05 - Valor total de ?Ajustes de acrscimo? (Registro P210, Campo 03, quando Campo 02 = ?1?)
   AADD( Estru, { 'CAMPO06'     , 'C', 0014, 02 } ) // 06 - Valor total da Contribuio Previdenciria sobre a Receita Bruta a recolher (Campo 03 ? Campo 04 + C
   AADD( Estru, { 'CAMPO07'     , 'C', 0006, 00 } ) // 07 - Cdigo de Receita referente  Contribuio Previdenciria, conforme informado em DCTF
   dbCreate( 'RP200.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP210()
   // *** Estrutura do Registro RP210 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P210"
   AADD( Estru, { 'CAMPO02'     , 'C', 0001, 00 } ) // 02 - Indicador do tipo de ajuste:
   AADD( Estru, { 'CAMPO03'     , 'C', 0014, 02 } ) // 03 - Valor do ajuste
   AADD( Estru, { 'CAMPO04'     , 'C', 0002, 00 } ) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   AADD( Estru, { 'CAMPO05'     , 'C', 0010, 00 } ) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   AADD( Estru, { 'CAMPO06'     , 'C', 0100, 00 } ) // 06 - Descrio resumida do ajuste.
   AADD( Estru, { 'CAMPO07'     , 'C', 0008, 00 } ) // 07 - Data de referncia do ajuste (ddmmaaaa)
   dbCreate( 'RP210.DBF', Estru )
   RETURN NIL

FUNCTION PISCOTabelaRP990()
   // *** Estrutura do Registro RP990 ***
   LOCAL Estru := {}
   AADD( Estru, { 'CAMPO01'     , 'C', 0004, 00 } ) // 01 - Texto fixo contendo "P990"
   AADD( Estru, { 'CAMPO02'     , 'C', 0005, 00 } ) // 02 - Quantidade total de linhas do Bloco P
   dbCreate( 'RP990.DBF', Estru )
   RETURN NIL

