FUNCTION PISCOVariavelR0000()
   // *** Estrutura do Registro R0000 ***
   M->REG := '0000' // 01 - Texto fixo contendo ?0000?.
   M->COD_VER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da verso do leiaute conforme a tabela 3.1.1.
   M->TIPO_ESCRIT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Tipo de escriturao:
   M->IND_SIT_ESP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Indicador de situao especial:
   M->NUM_REC_ANTERIOR     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do Recibo da Escriturao anterior a ser retificada, utilizado quando TIPO_ESCRIT for igual a
   M->DT_INI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Data inicial das informaes contidas no arquivo.
   M->DT_FIN               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data final das informaes contidas no arquivo.
   M->NOME                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Nome empresarial da pessoa jurdica
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Nmero de inscrio do estabelecimento matriz da pessoa jurdica no CNPJ.
   M->UF                   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Sigla da Unidade da Federao da pessoa jurdica.
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo do municpio do domiclio fiscal da pessoa jurdica, conforme a tabela IBGE
   M->SUFRAMA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Inscrio da pessoa jurdica na Suframa
   M->IND_NAT_PJ           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador da natureza da pessoa jurdica:
   M->IND_ATIV             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Indicador de tipo de atividade preponderante:
   RETURN nil

FUNCTION PISCOVariavelR0001()
   // *** Estrutura do Registro R0001 ***
   M->REG := '0001' // 01 - Texto fixo contendo ?0001?.
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelR0100()
   // *** Estrutura do Registro R0100 ***
   M->REG := '0100' // 01 - Texto fixo contendo ?0100?.
   M->NOME                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nome do contabilista.
   M->CPF                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nmero de inscrio do contabilista no CPF.
   M->CRC                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nmero de inscrio do contabilista no Conselho Regional de Contabilidade.
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero de inscrio do escritrio de contabilidade no CNPJ, se houver.
   M->CEP                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo de Endereamento Postal.
   M->END                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Logradouro e endereo do imvel.
   M->NUM                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Nmero do imvel.
   M->COMPL                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Dados complementares do endereo.
   M->BAIRRO               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Bairro em que o imvel est situado.
   M->FONE                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Nmero do telefone.
   M->FAX                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Nmero do fax.
   M->EMAIL                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Endereo do correio eletrnico.
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo do municpio, conforme tabela IBGE.
   RETURN nil

FUNCTION PISCOVariavelR0110()
   // *** Estrutura do Registro R0110 ***
   M->REG := '0110' // 01 - Texto fixo contendo ?0110?.
   M->COD_INC_TRIB         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo indicador da incidncia tributria no perodo:
   M->IND_APRO_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo indicador de mtodo de apropriao de crditos comuns, no caso de incidncia no regime no-cu
   M->COD_TIPO_CONT        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo indicador do Tipo de Contribuio Apurada no Perodo
   M->IND_REG_CUM          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo indicador do critrio de escriturao e apurao adotado, no caso de incidncia exclusivament
   RETURN nil

FUNCTION PISCOVariavelR0111()
   // *** Estrutura do Registro R0111 ***
   M->REG := '0111' // 01 - Texto fixo contendo ?0111?.
   M->REC_BRU_NCUM_TRIB_MI := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Receita Bruta No-Cumulativa - Tributada no Mercado Interno
   M->REC_BRU_NCUM_NT_MI   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Receita Bruta No-Cumulativa ? No Tributada no Mercado Interno (Vendas com suspenso, alquota zero
   M->REC_BRU_NCUM_EXP     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Receita Bruta No-Cumulativa ? Exportao
   M->REC_BRU_CUM          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Receita Bruta Cumulativa
   M->REC_BRU_TOTAL        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Receita Bruta Total
   RETURN nil

FUNCTION PISCOVariavelR0120()
   // *** Estrutura do Registro R0120 ***
   M->REG := '0120' // 01 - Texto fixo contendo "0120?
   M->MES_DISPENSA         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Ms de referncia do  ano-calendrio da escriturao, dispensada da entrega.
   M->INF_COMP             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Informao complementar do registro.
   RETURN nil

FUNCTION PISCOVariavelR0140()
   // *** Estrutura do Registro R0140 ***
   M->REG := '0140' // 01 - Texto fixo contendo ?0140?.
   M->COD_EST              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de identificao do estabelecimento
   M->NOME                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nome empresarial do estabelecimento
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nmero de inscrio do estabelecimento no CNPJ.
   M->UF                   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Sigla da unidade da federao do estabelecimento.
   M->IE                   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Inscrio Estadual do estabelecimento, se contribuinte de ICMS.
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo do municpio do domiclio fiscal do estabelecimento, conforme a tabela IBGE
   M->IM                   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Inscrio Municipal do estabelecimento, se contribuinte do ISS.
   M->SUFRAMA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Inscrio do estabelecimento na Suframa
   RETURN nil

FUNCTION PISCOVariavelR0150()
   // *** Estrutura do Registro R0150 ***
   M->REG := '0150' // 01 - Texto fixo contendo ?0150?.
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de identificao do participante no arquivo.
   M->NOME                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nome pessoal ou empresarial do participante.
   M->COD_PAIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do pas do participante, conforme a tabela indicada no item 3.2.1.
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - CNPJ do participante.
   M->CPF                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - CPF do participante.
   M->IE                   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Inscrio Estadual do participante.
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo do municpio, conforme a tabela IBGE
   M->SUFRAMA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Nmero de inscrio do participante na Suframa
   M->END                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Logradouro e endereo do imvel
   M->NUM                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Nmero do imvel
   M->COMPL                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Dados complementares do endereo
   M->BAIRRO               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Bairro em que o imvel est situado
   RETURN nil

FUNCTION PISCOVariavelR0190()
   // *** Estrutura do Registro R0190 ***
   M->REG := '0190' // 01 - Texto fixo contendo "0190"
   M->UNID                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da unidade de medida
   M->DESCR                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Descrio da unidade de medida
   RETURN nil

FUNCTION PISCOVariavelR0200()
   // *** Estrutura do Registro R0200 ***
   M->REG := '0200' // 01 - Texto fixo contendo "0200"
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do item
   M->DESCR_ITEM           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Descrio do item
   M->COD_BARRA            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Representao alfanumrico do cdigo de barra do produto, se houver.
   M->COD_ANT_ITEM         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo anterior do item com relao  ltima informao apresentada.
   M->UNID_INV             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Unidade de medida utilizada na quantificao de estoques.
   M->TIPO_ITEM            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Tipo do item ? Atividades Industriais, Comerciais e Servios:
   M->COD_NCM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Nomenclatura Comum do Mercosul
   M->EX_IPI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo EX, conforme a TIPI
   M->COD_GEN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo do gnero do item, conforme a Tabela 4.2.1.
   M->COD_LST              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo do servio conforme lista do Anexo I da Lei Complementar Federal n 116/03.
   M->ALIQ_ICMS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Alquota de ICMS aplicvel ao item nas operaes internas
   RETURN nil

FUNCTION PISCOVariavelR0205()
   // *** Estrutura do Registro R0205 ***
   M->REG := '0205' // 01 - Texto fixo contendo "0205"
   M->DESCR_ANT_ITEM       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Descrio anterior do item
   M->DT_INI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data inicial de utilizao da descrio do item
   M->DT_FIM               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data final de utilizao da descrio do item
   M->COD_ANT_ITEM         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo anterior do item com relao  ltima informao apresentada.
   RETURN nil

FUNCTION PISCOVariavelR0206()
   // *** Estrutura do Registro R0206 ***
   M->REG := '0206' // 01 - Texto fixo contendo "0206"
   M->COD_COMB             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do combustvel, conforme tabela publicada pela ANP
   RETURN nil

FUNCTION PISCOVariavelR0208()
   // *** Estrutura do Registro R0208 ***
   M->REG := '0208' // 01 - Texto fixo contendo "0208"
   M->COD_TAB              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo indicador da Tabela de Incidncia, conforme Anexo III do Decreto n 6.707/08:
   M->COD_GRU              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do grupo, conforme Anexo III do Decreto n 6.707/08.
   M->MARCA_COM            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Marca Comercial
   RETURN nil

FUNCTION PISCOVariavelR0400()
   // *** Estrutura do Registro R0400 ***
   M->REG := '0400' // 01 - Texto fixo contendo "0400"
   M->COD_NAT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da natureza da operao/prestao
   M->DESCR_NAT            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Descrio da natureza da operao/prestao
   RETURN nil

FUNCTION PISCOVariavelR0450()
   // *** Estrutura do Registro R0450 ***
   M->REG := '0450' // 01 - Texto fixo contendo "0450"
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da informao complementar do documento fiscal.
   M->TXT                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Texto livre da informao complementar existente no documento fiscal, inclusive espcie de normas le
   RETURN nil

FUNCTION PISCOVariavelR0500()
   // *** Estrutura do Registro R0500 ***
   M->REG := '0500' // 01 - Texto fixo contendo ?0500?
   M->DT_ALT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Data da incluso/alterao
   M->COD_NAT_CC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da natureza da conta/grupo de contas:
   M->IND_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Indicador do tipo de conta:
   M->NIVEL                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nvel da conta analtica/grupo de contas.
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da conta analtica/grupo de contas.
   M->NOME_CTA             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Nome da conta analtica/grupo de contas.
   M->COD_CTA_REF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da conta correlacionada no Plano de Contas Referenciado, publicado pela RFB.
   M->CNPJ_EST             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - CNPJ do estabelecimento, no caso da conta informada no campo COD_CTA ser especfica de um estabeleci
   RETURN nil

FUNCTION PISCOVariavelR0600()
   // *** Estrutura do Registro R0600 ***
   M->REG := '0600' // 01 - Texto fixo contendo ?0600?.
   M->DT_ALT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Data da incluso/alterao.
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do centro de custos.
   M->CCUS                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nome do centro de custos.
   RETURN nil

FUNCTION PISCOVariavelR0990()
   // *** Estrutura do Registro R0990 ***
   M->REG := '0990' // 01 - Texto fixo contendo "0990"
   M->QTD_LIN_0            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco 0
   RETURN nil

FUNCTION PISCOVariavelR1001()
   // *** Estrutura do Registro R1001 ***
   M->REG := '1001' // 01 - Texto fixo contendo "1001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelR1010()
   // *** Estrutura do Registro R1010 ***
   M->REG := '1010' // 01 - Texto fixo contendo "1010"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do Nmero do Processo Judicial
   M->ID_SEC_JUD           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Identificao da Seo Judiciria
   M->ID_VARA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Identificao da Vara
   M->IND_NAT_ACAO         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Indicador da Natureza da Ao Judicial, impetrada na Justia Federal:
   M->DESC_DEC_JUD         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio Resumida dos Efeitos Tributrios abrangidos pela Deciso Judicial proferida.
   M->DT_SENT_JUD          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data da Sentena/Deciso Judicial
   RETURN nil

FUNCTION PISCOVariavelR1020()
   // *** Estrutura do Registro R1020 ***
   M->REG := '1020' // 01 - *Texto fixo contendo "1020"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do Processo Administrativo ou da Deciso Administrativa
   M->IND_NAT_ACAO         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da Natureza da Ao, decorrente de Processo Administrativo na Secretaria da Receita Federa
   M->DT_DEC_ADM           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data do Despacho/Deciso Administrativa
   RETURN nil

FUNCTION PISCOVariavelR1100()
   // *** Estrutura do Registro R1100 ***
   M->REG := '1100' // 01 - Texto fixo contendo "1100"
   M->PER_APU_CRED         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   M->ORIG_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do crdito:
   M->CNPJ_SUC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - CNPJ da pessoa jurdica cedente do crdito (se ORIG_CRED = 02).
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   M->VL_CRED_APU          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Crdito apurado na Escriturao Fiscal Digital ou em demonstrativo DACON de perodos anteri
   M->VL_CRED_EXT_APU      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor de Crdito Extemporneo Apurado (Registro 1101), referente a Perodo Anterior, Informado no Ca
   M->VL_TOT_CRED_APU      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor Total do Crdito Apurado (06 + 07)
   M->VL_CRED_DESC_PA_ANT  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do Crdito utilizado mediante Desconto, em Perodo(s)  Anterior(es).
   M->VL_CRED_PER_PA_ANT   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor do Crdito utilizado mediante Pedido de Ressarcimento, em Perodo(s) Anterior(es).
   M->VL_CRED_DCOMP_PA_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria (Crdito de Exportao),
   M->SD_CRED_DISP_EFD     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Saldo do Crdito Disponvel para Utilizao neste Perodo de Escriturao (08 ? 09 ? 10 - 11).
   M->VL_CRED_DESC_EFD     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor do Crdito descontado neste perodo de escriturao.
   M->VL_CRED_PER_EFD      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do Crdito objeto de Pedido de Ressarcimento (PER) neste perodo de escriturao.
   M->VL_CRED_DCOMP_EFD    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria neste perodo de escritu
   M->VL_CRED_TRANS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor do crdito transferido em evento de ciso, fuso ou incorporao.
   M->VL_CRED_OUT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor do crdito utilizado por outras formas.
   M->SLD_CRED_FIM         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Saldo de crditos a utilizar em perodo de apurao futuro (12 ? 13 ? 14 ? 15 ? 16 - 17).
   RETURN nil

FUNCTION PISCOVariavelR1101()
   // *** Estrutura do Registro R1101 ***
   M->REG := '1101' // 01 - Texto fixo contendo "1101"
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do participante (Campo 02 do Registro 0150)
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Srie do documento fiscal
   M->SUB_SER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Nmero do documento fiscal
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data da Operao (ddmmaaaa)
   M->CHV_NFE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Chave da Nota Fiscal Eletrnica
   M->VL_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da Operao
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo fiscal de operao e prestao
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador da origem do crdito:
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Base de Clculo do Crdito de PIS/PASEP (em valor ou em quantidade).
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Alquota do PIS/PASEP (em percentual ou em reais).
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor do Crdito de PIS/PASEP.
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Cdigo da conta analtica contbil debitada/creditada.
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Cdigo do Centro de Custos.
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Descrio complementar do Documento/Operao.
   M->PER_ESCRIT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Ms/Ano da Escriturao em que foi registrado o documento/operao (Crdito pelo mtodo da Apropria
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - CNPJ do estabelecimento gerador do crdito extemporneo (Campo 04  do Registro 0140)
   RETURN nil

FUNCTION PISCOVariavelR1102()
   // *** Estrutura do Registro R1102 ***
   M->REG := '1102' // 01 - Texto fixo contendo "1102"
   M->VL_CRED_PIS_TRIB_MI  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Parcela do Crdito de PIS/PASEP, vinculada a Receita Tributada no Mercado Interno
   M->VL_CRED_PIS_NT_MI    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Parcela do Crdito de PIS/PASEP, vinculada a Receita No Tributada no Mercado Interno
   M->VL_CRED_PIS_EXP      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Parcela do Crdito de PIS/PASEP, vinculada a Receita de Exportao
   RETURN nil

FUNCTION PISCOVariavelR1200()
   // *** Estrutura do Registro R1200 ***
   M->REG := '1200' // 01 - Texto fixo contendo "1200"
   M->PER_APUR_ANT         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao da Contribuio Social Extempornea (MMAAAA).
   M->NAT_CONT_REC         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Natureza da Contribuio a Recolher, conforme Tabela 4.3.5.
   M->VL_CONT_APUR         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Contribuio Apurada.
   M->VL_CRED_PIS_DESC     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito de PIS/PASEP a Descontar, da Contribuio Social Extempornea.
   M->VL_CONT_DEV          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Contribuio Social Extempornea Devida.
   M->VL_OUT_DED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor de Outras Dedues.
   M->VL_CONT_EXT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da Contribuio Social Extempornea a pagar.
   M->VL_MUL               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da Multa.
   M->VL_JUR               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor dos Juros.
   M->DT_RECOL             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data do Recolhimento.
   RETURN nil

FUNCTION PISCOVariavelR1210()
   // *** Estrutura do Registro R1210 ***
   M->REG := '1210' // 01 - Texto fixo contendo ?1210?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ (Campo 04 do Registro 0140).
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante (Campo 02 do Registro 0150)
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data da Operao (ddmmaaaa)
   M->VL_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Operao
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Base de clculo do PIS/PASEP (em valor ou em quantidade)
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota da PIS (em percentual ou em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Descrio complementar do Documento/Operao
   RETURN nil

FUNCTION PISCOVariavelR1220()
   // *** Estrutura do Registro R1220 ***
   M->REG := '1220' // 01 - Texto fixo contendo "1220"
   M->PER_APU_CRED         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   M->ORIG_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do crdito:
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   M->VL_CRED              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito a Descontar
   RETURN nil

FUNCTION PISCOVariavelR1300()
   // *** Estrutura do Registro R1300 ***
   M->REG := '1300' // 01 - Texto fixo contendo "1300"
   M->IND_NAT_RET          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de Natureza da Reteno na Fonte:
   M->PR_REC_RET           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Perodo do Recebimento e da Reteno (MM/AAAA)
   M->VL_RET_APU           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total da Reteno
   M->VL_RET_DED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Reteno deduzida da Contribuio devida no perodo da escriturao e em perodos anteriore
   M->VL_RET_PER           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Reteno utilizada mediante Pedido de Restituio.
   M->VL_RET_DCOMP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da Reteno utilizada mediante Declarao de Compensao.
   M->SLD_RET              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Saldo de Reteno a utilizar em perodos de apurao futuros (04 ? 05 - 06 - 07).
   RETURN nil

FUNCTION PISCOVariavelR1500()
   // *** Estrutura do Registro R1500 ***
   M->REG := '1500' // 01 - Texto fixo contendo "1500"
   M->PER_APU_CRED         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   M->ORIG_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do crdito:
   M->CNPJ_SUC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - CNPJ da pessoa jurdica cedente do crdito (se ORIG_CRED = 02).
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   M->VL_CRED_APU          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Crdito apurado na Escriturao Fiscal Digital ou em demonstrativo DACON de perodos anteri
   M->VL_CRED_EXT_APU      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor de Crdito Extemporneo Apurado (Registro 1501), referente a Perodo Anterior, Informado no Ca
   M->VL_TOT_CRED_APU      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor Total do Crdito Apurado (06 + 07)
   M->VL_CRED_DESC_PA_ANT  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do Crdito utilizado mediante Desconto, em Perodo(s)  Anterior(es)
   M->VL_CRED_PER_PA_ANT   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor do Crdito utilizado mediante Pedido de Ressarcimento, em Perodo(s) Anterior(es).
   M->VL_CRED_DCOMP_PA_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria (Crdito de Exportao),
   M->SD_CRED_DISP_EFD     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Saldo do Crdito Disponvel para Utilizao neste Perodo de Escriturao (08-09-10-11)
   M->VL_CRED_DESC_EFD     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor do Crdito descontado neste perodo de escriturao
   M->VL_CRED_PER_EFD      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do Crdito objeto de Pedido de Ressarcimento (PER) neste perodo de escriturao
   M->VL_CRED_DCOMP_EFD    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do Crdito utilizado mediante Declarao de Compensao Intermediria neste perodo de escritu
   M->VL_CRED_TRANS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor do crdito transferido em evento de ciso, fuso ou incorporao
   M->VL_CRED_OUT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor do crdito utilizado por outras formas
   M->SLD_CRED_FIM         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Saldo de crditos a utilizar em perodo de apurao futuro (12-13-14-15-16-17).
   RETURN nil

FUNCTION PISCOVariavelR1501()
   // *** Estrutura do Registro R1501 ***
   M->REG := '1501' // 01 - Texto fixo contendo "1501"
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do participante (Campo 02 do Registro 0150)
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Srie do documento fiscal
   M->SUB_SER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Nmero do documento fiscal
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data da Operao (ddmmaaaa)
   M->CHV_NFE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Chave da Nota Fiscal Eletrnica
   M->VL_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da Operao
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo fiscal de operao e prestao
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador da origem do crdito:
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Base de Clculo do Crdito de COFINS (em valor ou em quantidade)
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Alquota do COFINS (em percentual ou em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor do Crdito de COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Cdigo da conta analtica contbil debitada/creditada
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Cdigo do Centro de Custos
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Descrio complementar do Documento/Operao
   M->PER_ESCRIT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Ms/Ano da Escriturao em que foi registrado o documento/operao (Crdito pelo mtodo da Apropria
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - CNPJ do estabelecimento gerador do crdito extemporneo (Campo 04  do Registro 0140)
   RETURN nil

FUNCTION PISCOVariavelR1502()
   // *** Estrutura do Registro R1502 ***
   M->REG := '1502' // 01 - Texto fixo contendo "1502"
   M->VL_CRED_COFINS_TRIB_MI := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Parcela do Crdito de COFINS, vinculada a Receita Tributada no Mercado Interno
   M->VL_CRED_COFINS_NT_MI := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Parcela do Crdito de COFINS, vinculada a Receita No Tributada no Mercado Interno
   M->VL_CRED_COFINS_EXP   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Parcela do Crdito de COFINS, vinculada a Receita de Exportao
   RETURN nil

FUNCTION PISCOVariavelR1600()
   // *** Estrutura do Registro R1600 ***
   M->REG := '1600' // 01 - Texto fixo contendo "1600"
   M->PER_APUR_ANT         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao da Contribuio Social Extempornea (MMAAAA)
   M->NAT_CONT_REC         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Natureza da Contribuio a Recolher, conforme Tabela 4.3.5.
   M->VL_CONT_APUR         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Contribuio Apurada
   M->VL_CRED_COFINS_DESC  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito de COFINS a Descontar, da Contribuio Social Extempornea.
   M->VL_CONT_DEV          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Contribuio Social Extempornea Devida.
   M->VL_OUT_DED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor de Outras Dedues.
   M->VL_CONT_EXT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da Contribuio Social Extempornea a pagar.
   M->VL_MUL               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da Multa.
   M->VL_JUR               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor dos Juros.
   M->DT_RECOL             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data do Recolhimento.
   RETURN nil

FUNCTION PISCOVariavelR1610()
   // *** Estrutura do Registro R1610 ***
   M->REG := '1610' // 01 - Texto fixo contendo ?1610?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ (Campo 04 do Registro 0140).
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante (Campo 02 do Registro 0150)
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data da Operao (ddmmaaaa)
   M->VL_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Operao
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Base de clculo da COFINS (em valor ou em quantidade)
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota da COFINS (em percentual ou em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Descrio complementar do Documento/Operao
   RETURN nil

FUNCTION PISCOVariavelR1620()
   // *** Estrutura do Registro R1620 ***
   M->REG := '1620' // 01 - Texto fixo contendo "1620"
   M->PER_APU_CRED         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de Apurao do Crdito (MM/AAAA)
   M->ORIG_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do crdito:
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do Tipo do Crdito, conforme Tabela 4.3.6.
   M->VL_CRED              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito a Descontar
   RETURN nil

FUNCTION PISCOVariavelR1700()
   // *** Estrutura do Registro R1700 ***
   M->REG := '1700' // 01 - Texto fixo contendo "1700"
   M->IND_NAT_RET          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de Natureza da Reteno na Fonte:
   M->PR_REC_RET           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Perodo do Recebimento e da Reteno (MM/AAAA)
   M->VL_RET_APU           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total da Reteno
   M->VL_RET_DED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Reteno deduzida da Contribuio devida no perodo da escriturao e em perodos anteriore
   M->VL_RET_PER           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Reteno utilizada mediante Pedido de Restituio.
   M->VL_RET_DCOMP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da Reteno utilizada mediante Declarao de Compensao.
   M->SLD_RET              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Saldo de Reteno a utilizar em perodos de apurao futuros (04 - 05 - 06 - 07).
   RETURN nil

FUNCTION PISCOVariavelR1800()
   // *** Estrutura do Registro R1800 ***
   M->REG := '1800' // 01 - Texto fixo contendo "1800"
   M->INC_IMOB             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Empreendimento objeto de Incorporao Imobiliria, optante pelo RET.
   M->REC_RECEB_RET        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Receitas recebidas pela incorporadora na venda das unidades imobilirias que compem a incorporao.
   M->REC_FIN_RET          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Receitas Financeiras e Variaes Monetrias decorrentes das vendas submetidas ao RET.
   M->BC_RET               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Base de Clculo do Recolhimento Unificado
   M->ALIQ_RET             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do Recolhimento Unificado.
   M->VL_REC_UNI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do Recolhimento Unificado.
   M->DT_REC_UNI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data do recolhimento unificado
   M->COD_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Receita
   RETURN nil

FUNCTION PISCOVariavelR1809()
   // *** Estrutura do Registro R1809 ***
   M->REG := '1809' // 01 - Texto fixo contendo "1809"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelR1900()
   // *** Estrutura do Registro R1900 ***
   M->REG := '1900' // 01 - Texto fixo contendo "1900?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - CNPJ do estabelecimento da pessoa jurdica, emitente dos documentos geradores de receita
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1, ou:
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Srie do documento fiscal
   M->SUB_SER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Subserie do documento fiscal
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da situao do documento fiscal:
   M->VL_TOT_REC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor total da receita, conforme os documentos emitidos no perodo, representativos da venda de bens
   M->QUANT_DOC            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade total de documentos emitidos no perodo
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria do PIS/Pasep
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da Situao Tributria da Cofins
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo fiscal de operao e prestao
   M->INF_COMPL            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Informaes complementares
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da conta analtica contbil representativa da receita
   RETURN nil

FUNCTION PISCOVariavelR1990()
   // *** Estrutura do Registro R1990 ***
   M->REG := '1990' // 01 - Texto fixo contendo "1990"
   M->QTD_LIN_1            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco 1
   RETURN nil

FUNCTION PISCOVariavelR9001()
   // *** Estrutura do Registro R9001 ***
   M->REG := '9001' // 01 - Texto fixo contendo ?9001?.
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelR9900()
   // *** Estrutura do Registro R9900 ***
   M->REG := '9900' // 01 - Texto fixo contendo ?9900?.
   M->REG_BLC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Registro que ser totalizado no prximo campo.
   M->QTD_REG_BLC          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Total de registros do tipo informado no campo anterior.
   RETURN nil

FUNCTION PISCOVariavelR9990()
   // *** Estrutura do Registro R9990 ***
   M->REG := '9990' // 01 - Texto fixo contendo ?9990?.
   M->QTD_LIN_9            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco 9.
   RETURN nil

FUNCTION PISCOVariavelR9999()
   // *** Estrutura do Registro R9999 ***
   M->REG := '9999' // 01 - Texto fixo contendo ?9999?.
   M->QTD_LIN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do arquivo digital.
   RETURN nil

FUNCTION PISCOVariavelRA001()
   // *** Estrutura do Registro RA001 ***
   M->REG := 'A001' // 01 - Texto fixo contendo "A001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRA010()
   // *** Estrutura do Registro RA010 ***
   M->REG := 'A010' // 01 - Texto fixo contendo ?A010?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   RETURN nil

FUNCTION PISCOVariavelRA100()
   // *** Estrutura do Registro RA100 ***
   M->REG := 'A100' // 01 - Texto fixo contendo "A100"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de operao:
   M->IND_EMIT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador do emitente do documento fiscal:
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante (campo 02 do Registro 0150):
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da situao do documento fiscal:
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Nmero do documento fiscal ou documento internacional equivalente
   M->CHV_NFSE             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Chave/Cdigo de Verificao da nota fiscal de servio eletrnica
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Data da emisso do documento fiscal
   M->DT_EXE_SERV          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data de Execuo / Concluso do Servio
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor total do documento
   M->IND_PGTO             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador do tipo de pagamento:
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor total do desconto
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor da base de clculo do PIS/PASEP
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor total do PIS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor da base de clculo da COFINS
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor total da COFINS
   M->VL_PIS_RET           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor total do PIS retido na fonte
   M->VL_COFINS_RET        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Valor total da COFINS retido na fonte.
   M->VL_ISS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Valor do ISS
   RETURN nil

FUNCTION PISCOVariavelRA110()
   // *** Estrutura do Registro RA110 ***
   M->REG := 'A110' // 01 - Texto fixo contendo "A110"
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da informao complementar do documento fiscal (Campo 02 do Registro 0450)
   M->TXT_COMPL            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Informao Complementar do Documento Fiscal
   RETURN nil

FUNCTION PISCOVariavelRA111()
   // *** Estrutura do Registro RA111 ***
   M->REG := 'A111' // 01 - Texto fixo contendo "A111"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRA120()
   // *** Estrutura do Registro RA120 ***
   M->REG := 'A120' // 01 - Texto fixo contendo "A120?
   M->VL_TOT_SERV          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total do servio, prestado por pessoa fsica ou jurdica domiciliada no exterior.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da base de clculo da Operao ? PIS/PASEP ? Importao
   M->VL_PIS_IMP           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor pago/recolhido de PIS/PASEP ? Importao
   M->DT_PAG_PIS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data de pagamento do PIS/PASEP ? Importao
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo da Operao ? COFINS ? Importao
   M->VL_COFINS_IMP        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor pago/recolhido de COFINS ? Importao
   M->DT_PAG_COFINS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data de pagamento do COFINS ? Importao
   M->LOC_EXE_SERV         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Local da execuo do servio:
   RETURN nil

FUNCTION PISCOVariavelRA170()
   // *** Estrutura do Registro RA170 ***
   M->REG := 'A170' // 01 - Texto fixo contendo "A170"
   M->NUM_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero seqencial do item no documento fiscal
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->DESCR_COMPL          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Descrio complementar do item como adotado no documento fiscal
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor total do item (mercadorias ou servios)
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do desconto do item / Excluso
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7, caso seja informado
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Indicador da origem do crdito:
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente ao PIS/PASEP ? Tabela 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da base de clculo do PIS/PASEP.
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da Situao Tributria referente ao COFINS ? Tabela 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Alquota do COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Cdigo da conta analtica contbil debitada/creditada
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Cdigo do centro de custos
   RETURN nil

FUNCTION PISCOVariavelRA990()
   // *** Estrutura do Registro RA990 ***
   M->REG := 'A990' // 01 - Texto fixo contendo "A990"
   M->QTD_LIN_A            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco A
   RETURN nil

FUNCTION PISCOVariavelRC001()
   // *** Estrutura do Registro RC001 ***
   M->REG := 'C001' // 01 - Texto fixo contendo "C001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRC010()
   // *** Estrutura do Registro RC010 ***
   M->REG := 'C010' // 01 - Texto fixo contendo ?C010?.
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   M->IND_ESCRI            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da apurao das contribuies e crditos, na escriturao das operaes por NF-e e ECF, no
   RETURN nil

FUNCTION PISCOVariavelRC100()
   // *** Estrutura do Registro RC100 ***
   M->REG := 'C100' // 01 - Texto fixo contendo "C100"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de operao:
   M->IND_EMIT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador do emitente do documento fiscal:
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante (campo 02 do Registro 0150):
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Srie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Nmero do documento fiscal
   M->CHV_NFE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Chave da Nota Fiscal Eletrnica
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Data da emisso do documento fiscal
   M->DT_E_S               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data da entrada ou da sada
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor total do documento fiscal
   M->IND_PGTO             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador do tipo de pagamento:
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor total do desconto
   M->VL_ABAT_NT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Abatimento no tributado e no comercial Ex. desconto ICMS nas remessas para ZFM.
   M->VL_MERC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor total das mercadorias e servios
   M->IND_FRT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Indicador do tipo do frete:
   M->VL_FRT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor do frete indicado no documento fiscal
   M->VL_SEG               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor do seguro indicado no documento fiscal
   M->VL_OUT_DA            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Valor de outras despesas acessrias
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Valor da base de clculo do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Valor do ICMS
   M->VL_BC_ICMS_ST        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 23 - Valor da base de clculo do ICMS substituio tributria
   M->VL_ICMS_ST           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 24 - Valor do ICMS retido por substituio tributria
   M->VL_IPI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 25 - Valor total do IPI
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 26 - Valor total do PIS
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 27 - Valor total da COFINS
   M->VL_PIS_ST            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 28 - Valor total do PIS retido por substituio tributria
   M->VL_COFINS_ST         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 29 - Valor total da COFINS retido por substituio tributria
   RETURN nil

FUNCTION PISCOVariavelRC110()
   // *** Estrutura do Registro RC110 ***
   M->REG := 'C110' // 01 - Texto fixo contendo "C110"
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   M->TXT_COMPL            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Descrio complementar do cdigo de referncia.
   RETURN nil

FUNCTION PISCOVariavelRC111()
   // *** Estrutura do Registro RC111 ***
   M->REG := 'C111' // 01 - Texto fixo contendo "C111"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC120()
   // *** Estrutura do Registro RC120 ***
   M->REG := 'C120' // 01 - Texto fixo contendo "C120"
   M->COD_DOC_IMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Documento de importao:
   M->NUM_DOC_IMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nmero do documento de Importao.
   M->VL_PIS_IMP           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor pago de PIS na importao
   M->VL_COFINS_IMP        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor pago de COFINS na importao
   M->NUM_ACDRAW           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do Ato Concessrio do regime
   RETURN nil

FUNCTION PISCOVariavelRC170()
   // *** Estrutura do Registro RC170 ***
   M->REG := 'C170' // 01 - Texto fixo contendo "C170"
   M->NUM_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero seqencial do item no documento fiscal
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->DESCR_COMPL          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Descrio complementar do item como adotado no documento fiscal
   M->QTD                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Quantidade do item
   M->UNID                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Unidade do item (Campo 02 do registro 0190)
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor total do item (mercadorias ou servios)
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do desconto comercial
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Movimentao fsica do ITEM/PRODUTO:
   M->CST_ICMS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da Situao Tributria referente ao ICMS, conforme a Tabela indicada no item 4.3.1
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo Fiscal de Operao e Prestao
   M->COD_NAT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da natureza da operao (campo 02 do Registro 0400)
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor da base de clculo do ICMS
   M->ALIQ_ICMS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Alquota do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do ICMS creditado/debitado
   M->VL_BC_ICMS_ST        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor da base de clculo referente  substituio tributria
   M->ALIQ_ST              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Alquota do ICMS da substituio tributria na unidade da federao de destino
   M->VL_ICMS_ST           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor do ICMS referente  substituio tributria
   M->IND_APUR             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Indicador de perodo de apurao do IPI:
   M->CST_IPI              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Cdigo da Situao Tributria referente ao IPI, conforme a Tabela indicada no item 4.3.2.
   M->COD_ENQ              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Cdigo de enquadramento legal do IPI, conforme tabela indicada no item 4.5.3.
   M->VL_BC_IPI            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Valor da base de clculo do IPI
   M->ALIQ_IPI             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 23 - Alquota do IPI
   M->VL_IPI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 24 - Valor do IPI creditado/debitado
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 25 - Cdigo da Situao Tributria referente ao PIS.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 26 - Valor da base de clculo do PIS
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 27 - Alquota do PIS (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 28 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 29 - Alquota do PIS (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 30 - Valor do PIS
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 31 - Cdigo da Situao Tributria referente ao COFINS.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 32 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 33 - Alquota do COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 34 - Quantidade ? Base de clculo COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 35 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 36 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 37 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC180()
   // *** Estrutura do Registro RC180 ***
   M->REG := 'C180' // 01 - Texto fixo contendo "C180?
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Texto fixo contendo "55" (Cdigo da Nota Fiscal Eletrnica, modelo 55, conforme a Tabela 4.1.1)
   M->DT_DOC_INI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data de Emisso Inicial dos Documentos
   M->DT_DOC_FIN           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data de Emisso Final dos Documentos
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do Item (campo 02 do Registro 0200)
   M->COD_NCM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da Nomenclatura Comum do Mercosul
   M->EX_IPI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo EX, conforme a TIPI
   M->VL_TOT_ITEM          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor Total do Item
   RETURN nil

FUNCTION PISCOVariavelRC181()
   // *** Estrutura do Registro RC181 ***
   M->REG := 'C181' // 01 - Texto fixo contendo "C181?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do desconto comercial / Excluso
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC185()
   // *** Estrutura do Registro RC185 ***
   M->REG := 'C185' // 01 - Texto fixo contendo "C185?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do desconto comercial / Excluso
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC188()
   // *** Estrutura do Registro RC188 ***
   M->REG := 'C188' // 01 - Texto fixo contendo "C188"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC190()
   // *** Estrutura do Registro RC190 ***
   M->REG := 'C190' // 01 - Texto fixo contendo "C190?
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Texto fixo contendo "55" (Cdigo da Nota Fiscal Eletrnica, modelo 55, conforme a Tabela 4.1.1)
   M->DT_REF_INI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data Inicial de Referncia da Consolidao
   M->DT_REF_FIN           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data Final de Referncia da Consolidao
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do item (campo 02 do Registro 0200)
   M->COD_NCM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da Nomenclatura Comum do Mercosul
   M->EX_IPI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo EX, conforme a TIPI
   M->VL_TOT_ITEM          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor Total do Item
   RETURN nil

FUNCTION PISCOVariavelRC191()
   // *** Estrutura do Registro RC191 ***
   M->REG := 'C191' // 01 - Texto fixo contendo "C191?
   M->CNPJ_CPF_PART        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - CNPJ/CPF do Participante a que se referem as operaes consolidadas neste registro (pessoa jurdica
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do desconto comercial / Excluso
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC195()
   // *** Estrutura do Registro RC195 ***
   M->REG := 'C195' // 01 - Texto fixo contendo "C195?
   M->CNPJ_CPF_PART        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - CNPJ/CPF do Participante a que se referem as operaes consolidadas neste registro (pessoa jurdica
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente a COFINS.
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do desconto comercial / Excluso
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC198()
   // *** Estrutura do Registro RC198 ***
   M->REG := 'C198' // 01 - Texto fixo contendo "C198"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC199()
   // *** Estrutura do Registro RC199 ***
   M->REG := 'C199' // 01 - Texto fixo contendo "C199"
   M->COD_DOC_IMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Documento de importao:
   M->NUM_DOC__IMP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nmero do documento de Importao.
   M->VL_PIS_IMP           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor pago de PIS na importao
   M->VL_COFINS_IMP        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor pago de COFINS na importao
   M->NUM_ACDRAW           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do Ato Concessrio do regime Drawback
   RETURN nil

FUNCTION PISCOVariavelRC380()
   // *** Estrutura do Registro RC380 ***
   M->REG := 'C380' // 01 - Texto fixo contendo "C380?
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1 (Cdigo 02 ? Nota Fiscal de Venda a Co
   M->DT_DOC_INI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data de Emisso Inicial dos Documentos
   M->DT_DOC_FIN           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data de Emisso Final dos Documentos
   M->NUM_DOC_INI          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do documento fiscal inicial
   M->NUM_DOC_FIN          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do documento fiscal final
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor total dos documentos emitidos
   M->VL_DOC_CANC          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total dos documentos cancelados
   RETURN nil

FUNCTION PISCOVariavelRC381()
   // *** Estrutura do Registro RC381 ***
   M->REG := 'C381' // 01 - Texto fixo contendo "C381?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor total dos itens
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Quantidade ? Base de clculo do PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC385()
   // *** Estrutura do Registro RC385 ***
   M->REG := 'C385' // 01 - Texto fixo contendo "C385?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS.
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do item (campo 02 do Registro 0200)
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor total dos itens
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC395()
   // *** Estrutura do Registro RC395 ***
   M->REG := 'C395' // 01 - Texto fixo contendo "C395"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do participante emitente do documento (campo 02 do Registro 0150).
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Srie do documento fiscal
   M->SUB_SER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do documento fiscal
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data da emisso do documento fiscal
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total do documento fiscal
   RETURN nil

FUNCTION PISCOVariavelRC396()
   // *** Estrutura do Registro RC396 ***
   M->REG := 'C396' // 01 - Texto fixo contendo "C396"
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do item (campo 02 do Registro 0200)
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total do item (mercadorias ou servios)
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do desconto comercial do item
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da base de clculo do crdito de PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do crdito de PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor da base de clculo do crdito de COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor do crdito de COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC400()
   // *** Estrutura do Registro RC400 ***
   M->REG := 'C400' // 01 - Texto fixo contendo "C400"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->ECF_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Modelo do equipamento
   M->ECF_FAB              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nmero de srie de fabricao do ECF
   M->ECF_CX               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do caixa atribudo ao ECF
   RETURN nil

FUNCTION PISCOVariavelRC405()
   // *** Estrutura do Registro RC405 ***
   M->REG := 'C405' // 01 - Texto fixo contendo "C405"
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Data do movimento a que se refere a Reduo Z
   M->CRO                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Posio do Contador de Reincio de Operao
   M->CRZ                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Posio do Contador de Reduo Z
   M->NUM_COO_FIN          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do Contador de Ordem de Operao do ltimo documento emitido no dia (Nmero do COO na Reduo
   M->GT_FIN               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Grande Total final
   M->VL_BRT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da venda bruta
   RETURN nil

FUNCTION PISCOVariavelRC481()
   // *** Estrutura do Registro RC481 ***
   M->REG := 'C481' // 01 - Texto fixo contendo "C481?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo do item (campo 02 do Registro 0200)
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC485()
   // *** Estrutura do Registro RC485 ***
   M->REG := 'C485' // 01 - Texto fixo contendo "C485?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS.
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da COFINS
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo do item (campo 02 do Registro 0200)
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC489()
   // *** Estrutura do Registro RC489 ***
   M->REG := 'C489' // 01 - Texto fixo contendo "C489"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC490()
   // *** Estrutura do Registro RC490 ***
   M->REG := 'C490' // 01 - Texto fixo contendo "C490?
   M->DT_DOC_INI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Data de Emisso Inicial dos Documentos
   M->DT_DOC_FIN           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data de Emisso Final dos Documentos
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   RETURN nil

FUNCTION PISCOVariavelRC491()
   // *** Estrutura do Registro RC491 ***
   M->REG := 'C491' // 01 - Texto fixo contendo "C491?
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do item (campo 02 do Registro 0200)
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor total dos itens
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC495()
   // *** Estrutura do Registro RC495 ***
   M->REG := 'C495' // 01 - Texto fixo contendo "C495?
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do item (campo 02 do Registro 0200)
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente a COFINS.
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor total dos itens
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC499()
   // *** Estrutura do Registro RC499 ***
   M->REG := 'C499' // 01 - Texto fixo contendo "C499"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC500()
   // *** Estrutura do Registro RC500 ***
   M->REG := 'C500' // 01 - Texto fixo contendo "C500"
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do participante do fornecedor (campo 02 do Registro 0150).
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Nmero do documento fiscal
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data da emisso do documento fiscal
   M->DT_ENT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Data da entrada
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total do documento fiscal
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor acumulado do ICMS
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor do PIS/PASEP
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor da COFINS
   RETURN nil

FUNCTION PISCOVariavelRC501()
   // *** Estrutura do Registro RC501 ***
   M->REG := 'C501' // 01 - Texto fixo contendo "C501?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC505()
   // *** Estrutura do Registro RC505 ***
   M->REG := 'C505' // 01 - Texto fixo contendo "C505?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota da COFINS  (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC509()
   // *** Estrutura do Registro RC509 ***
   M->REG := 'C509' // 01 - Texto fixo contendo "C509"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC600()
   // *** Estrutura do Registro RC600 ***
   M->REG := 'C600' // 01 - Texto fixo contendo "C600"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do municpio dos pontos de consumo, conforme a tabela IBGE
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Subsrie do documento fiscal
   M->COD_CONS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo de classe de consumo de energia eltrica, conforme a Tabela 4.4.5, ou Cdigo de Consumo de Fo
   M->QTD_CONS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Quantidade de documentos consolidados neste registro
   M->QTD_CANC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade de documentos cancelados
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Data dos documentos consolidados
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos documentos
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor acumulado dos descontos
   M->CONS                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Consumo total acumulado, em kWh (Cdigo 06)
   M->VL_FORN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor acumulado do fornecimento
   M->VL_SERV_NT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor acumulado dos servios no-tributados pelo ICMS
   M->VL_TERC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valores cobrados em nome de terceiros
   M->VL_DA                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor acumulado das despesas acessrias
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor acumulado da base de clculo do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor acumulado do ICMS
   M->VL_BC_ICMS_ST        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor acumulado da base de clculo do ICMS substituio tributria
   M->VL_ICMS_ST           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Valor acumulado do ICMS retido por substituio tributria
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Valor acumulado do PIS/PASEP
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Valor acumulado da COFINS
   RETURN nil

FUNCTION PISCOVariavelRC601()
   // *** Estrutura do Registro RC601 ***
   M->REG := 'C601' // 01 - Texto fixo contendo "C601?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC605()
   // *** Estrutura do Registro RC605 ***
   M->REG := 'C605' // 01 - Texto fixo contendo "C605?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC609()
   // *** Estrutura do Registro RC609 ***
   M->REG := 'C609' // 01 - Texto fixo contendo "C609"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC800()
   // *** Estrutura do Registro RC800 ***
   M->REG := 'C800' // 01 - Texto fixo contendo "C800"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   M->NUM_CFE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nmero do Cupom Fiscal Eletrnico
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data da emisso do Cupom Fiscal Eletrnico
   M->VL_CFE               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor total do Cupom Fiscal Eletrnico
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor total do PIS
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total da COFINS
   M->CNPJ_CPF             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - CNPJ ou CPF do destinatrio
   M->NR_SAT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Nmero de Srie do equipamento SAT
   M->CHV_CFE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Chave do Cupom Fiscal Eletrnico
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor total do desconto/excluso sobre item
   M->VL_MERC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor total das mercadorias e servios
   M->VL_OUT_DA            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor de outras desp. Acessrias (acrscimo)
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do ICMS
   M->VL_PIS_ST            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor total do PIS retido por subst. trib.
   M->VL_COFINS_ST         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor total da COFINS retido por subst. trib.
   RETURN nil

FUNCTION PISCOVariavelRC810()
   // *** Estrutura do Registro RC810 ***
   M->REG := 'C810' // 01 - Texto fixo contendo "C810"
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do item (campo 02 do Registro 0200)
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC820()
   // *** Estrutura do Registro RC820 ***
   M->REG := 'C820' // 01 - Texto fixo contendo "C820"
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do item (campo 02 do Registro 0200)
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Base de clculo em quantidade - PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente a COFINS
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Base de clculo em quantidade ? COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC830()
   // *** Estrutura do Registro RC830 ***
   M->REG := 'C830' // 01 - Texto fixo contendo "C830?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC860()
   // *** Estrutura do Registro RC860 ***
   M->REG := 'C860' // 01 - Texto fixo contendo "C860"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->NR_SAT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Nmero de Srie do equipamento SAT
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Data de emisso dos documentos fiscais
   M->DOC_INI              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do documento inicial
   M->DOC_FIM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do documento final
   RETURN nil

FUNCTION PISCOVariavelRC870()
   // *** Estrutura do Registro RC870 ***
   M->REG := 'C870' // 01 - Texto fixo contendo "C870"
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do item (campo 02 do Registro 0200)
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC880()
   // *** Estrutura do Registro RC880 ***
   M->REG := 'C880' // 01 - Texto fixo contendo "C880"
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do item (campo 02 do Registro 0200)
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo fiscal de operao e prestao
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor total dos itens
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Base de clculo em quantidade - PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente a COFINS
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Base de clculo em quantidade ? COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRC890()
   // *** Estrutura do Registro RC890 ***
   M->REG := 'C890' // 01 - Texto fixo contendo "C890?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRC990()
   // *** Estrutura do Registro RC990 ***
   M->REG := 'C990' // 01 - Texto fixo contendo "C990"
   M->QTD_LIN_C            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco C
   RETURN nil

FUNCTION PISCOVariavelRD001()
   // *** Estrutura do Registro RD001 ***
   M->REG := 'D001' // 01 - Texto fixo contendo "D001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRD010()
   // *** Estrutura do Registro RD010 ***
   M->REG := 'D010' // 01 - Texto fixo contendo ?D010?.
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   RETURN nil

FUNCTION PISCOVariavelRD100()
   // *** Estrutura do Registro RD100 ***
   M->REG := 'D100' // 01 - Texto fixo contendo "D100"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de operao:
   M->IND_EMIT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador do emitente do documento fiscal:
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante (campo 02 do Registro 0150).
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Nmero do documento fiscal
   M->CHV_CTE              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Chave do Conhecimento de Transporte Eletrnico
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data de referncia/emisso dos documentos fiscais
   M->DT_A_P               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Data da aquisio ou da prestao do servio
   M->TP_CT-e              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Tipo de Conhecimento de Transporte Eletrnico conforme definido no Manual de Integrao do CT-e
   M->CHV_CTE_REF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Chave do CT-e de referncia cujos valores foram complementados (opo ?1? do campo anterior) ou cujo
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor total do documento fiscal
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor total do desconto
   M->IND_FRT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Indicador do tipo do frete:
   M->VL_SERV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor total da prestao de servio
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor da base de clculo do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Valor do ICMS
   M->VL_NT                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Valor no-tributado do ICMS
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Cdigo da informao complementar do documento fiscal (campo 02 do Registro 0450)
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 23 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD101()
   // *** Estrutura do Registro RD101 ***
   M->REG := 'D101' // 01 - Texto fixo contendo "D101?
   M->IND_NAT_FRT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador da Natureza do Frete Contratado, referente a:
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD105()
   // *** Estrutura do Registro RD105 ***
   M->REG := 'D105' // 01 - Texto fixo contendo "D105?
   M->IND_NAT_FRT          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador da Natureza do Frete Contratado, referente a:
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Situao Tributria referente a COFINS
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD111()
   // *** Estrutura do Registro RD111 ***
   M->REG := 'D111' // 01 - Texto fixo contendo "D111"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD200()
   // *** Estrutura do Registro RD200 ***
   M->REG := 'D200' // 01 - Texto fixo contendo "D200"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da situao do documento fiscal, conforme a Tabela 4.1.2
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Subsrie do documento fiscal
   M->NUM_DOC_INI          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do documento fiscal inicial emitido no perodo (mesmo modelo, srie e subsrie).
   M->NUM_DOC_FIN          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Nmero do documento fiscal final emitido no perodo (mesmo modelo, srie e subsrie).
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo Fiscal de Operao e Prestao conforme tabela indicada no item 4.2.2
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Data do dia de referncia do resumo dirio
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos documentos fiscais
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor total dos descontos
   RETURN nil

FUNCTION PISCOVariavelRD201()
   // *** Estrutura do Registro RD201 ***
   M->REG := 'D201' // 01 - Texto fixo contendo "D201"
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD205()
   // *** Estrutura do Registro RD205 ***
   M->REG := 'D205' // 01 - Texto fixo contendo "D205"
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS.
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total dos itens
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD209()
   // *** Estrutura do Registro RD209 ***
   M->REG := 'D209' // 01 - Texto fixo contendo "D209"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD300()
   // *** Estrutura do Registro RD300 ***
   M->REG := 'D300' // 01 - Texto fixo contendo "D300"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Subsrie do documento fiscal
   M->NUM_DOC_INI          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do primeiro documento fiscal emitido no perodo (mesmo modelo, srie e subsrie)
   M->NUM_DOC_FIN          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do ltimo documento fiscal emitido no perodo (mesmo modelo, srie e subsrie)
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo Fiscal de Operao e Prestao conforme tabela indicada no item 4.2.2
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data do dia de referncia do resumo dirio
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total dos documentos fiscais emitidos
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos descontos
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD309()
   // *** Estrutura do Registro RD309 ***
   M->REG := 'D309' // 01 - Texto fixo contendo "D309"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD350()
   // *** Estrutura do Registro RD350 ***
   M->REG := 'D350' // 01 - Texto fixo contendo "D350"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1
   M->ECF_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Modelo do equipamento
   M->ECF_FAB              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Nmero de srie de fabricao do ECF
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data do movimento a que se refere a Reduo Z
   M->CRO                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Posio do Contador de Reincio de Operao
   M->CRZ                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Posio do Contador de Reduo Z
   M->NUM_COO_FIN          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Nmero do Contador de Ordem de Operao do ltimo documento emitido no dia. (Nmero do COO na Redu
   M->GT_FIN               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do Grande Total final
   M->VL_BRT               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da venda bruta
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Quantidade ? Base de clculo PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Quantidade ? Base de clculo da COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 23 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD359()
   // *** Estrutura do Registro RD359 ***
   M->REG := 'D359' // 01 - Texto fixo contendo "D359"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD500()
   // *** Estrutura do Registro RD500 ***
   M->REG := 'D500' // 01 - Texto fixo contendo "D500"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de operao:
   M->IND_EMIT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador do emitente do documento fiscal:
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do participante prestador do servio (campo 02 do Registro 0150).
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   M->COD_SIT              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - digo da situao do documento fiscal, conforme a Tabela 4.1.2.
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Subsrie do documento fiscal
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Nmero do documento fiscal
   M->DT_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Data da emisso do documento fiscal
   M->DT_A_P               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Data da entrada (aquisio)
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor total do documento fiscal
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor total do desconto
   M->VL_SERV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor da prestao de servios
   M->VL_SERV_NT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor total dos servios no-tributados pelo ICMS
   M->VL_TERC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valores cobrados em nome de terceiros
   M->VL_DA                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor de outras despesas indicadas no documento fiscal
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor da base de clculo do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor do ICMS
   M->COD_INF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Cdigo da informao complementar (campo 02 do Registro 0450)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Valor do PIS/PASEP
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Valor da COFINS
   RETURN nil

FUNCTION PISCOVariavelRD501()
   // *** Estrutura do Registro RD501 ***
   M->REG := 'D501' // 01 - Texto fixo contendo "D501?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total dos Itens (Servios)
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD505()
   // *** Estrutura do Registro RD505 ***
   M->REG := 'D505' // 01 - Texto fixo contendo "D505?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Situao Tributria referente a COFINS
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total dos Itens
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da Base de Clculo do Crdito, conforme a Tabela indicada no item 4.3.7.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD509()
   // *** Estrutura do Registro RD509 ***
   M->REG := 'D509' // 01 - Texto fixo contendo "D509"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD600()
   // *** Estrutura do Registro RD600 ***
   M->REG := 'D600' // 01 - Texto fixo contendo "D600"
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo do modelo do documento fiscal, conforme a Tabela 4.1.1.
   M->COD_MUN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do municpio dos terminais faturados, conforme a tabela IBGE
   M->SER                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Srie do documento fiscal
   M->SUB                  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Subsrie do documento fiscal
   M->IND_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Indicador do tipo de receita:
   M->QTD_CONS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Quantidade de documentos consolidados neste registro
   M->DT_DOC_INI           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data Inicial dos documentos consolidados no perodo
   M->DT_DOC_FIN           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Data Final dos documentos consolidados no perodo
   M->VL_DOC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total acumulado dos documentos fiscais
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor acumulado dos descontos
   M->VL_SERV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor acumulado das prestaes de servios tributados pelo ICMS
   M->VL_SERV_NT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor acumulado dos servios no-tributados pelo ICMS
   M->VL_TERC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valores cobrados em nome de terceiros
   M->VL_DA                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor acumulado das despesas acessrias
   M->VL_BC_ICMS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Valor acumulado da base de clculo do ICMS
   M->VL_ICMS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Valor acumulado do ICMS
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor do PIS/PASEP
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor da COFINS
   RETURN nil

FUNCTION PISCOVariavelRD601()
   // *** Estrutura do Registro RD601 ***
   M->REG := 'D601' // 01 - Texto fixo contendo "D601?
   M->COD_CLASS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de classificao do item do servio de comunicao ou de telecomunicao, conforme a Tabela 4
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor acumulado do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor acumulado dos descontos/excluses da base de clculo
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da conta contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD605()
   // *** Estrutura do Registro RD605 ***
   M->REG := 'D605' // 01 - Texto fixo contendo "D605?
   M->COD_CLASS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de classificao do item do servio de comunicao ou de telecomunicao, conforme a Tabela 4
   M->VL_ITEM              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor acumulado do item
   M->VL_DESC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor acumulado dos descontos/excluses da base de clculo
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da Situao Tributria referente a COFINS
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da conta contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRD609()
   // *** Estrutura do Registro RD609 ***
   M->REG := 'D609' // 01 - Texto fixo contendo "D609"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRD990()
   // *** Estrutura do Registro RD990 ***
   M->REG := 'D990' // 01 - Texto fixo contendo "D990"
   M->QTD_LIN_D            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco D
   RETURN nil

FUNCTION PISCOVariavelRF001()
   // *** Estrutura do Registro RF001 ***
   M->REG := 'F001' // 01 - Texto fixo contendo "F001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRF010()
   // *** Estrutura do Registro RF010 ***
   M->REG := 'F010' // 01 - Texto fixo contendo ?F010?.
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   RETURN nil

FUNCTION PISCOVariavelRF100()
   // *** Estrutura do Registro RF100 ***
   M->REG := 'F100' // 01 - Texto fixo contendo "F100"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do Tipo da Operao:
   M->COD_PART             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do participante (Campo 02 do Registro 0150)
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do item (campo 02 do Registro 0200)
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Data da Operao (ddmmaaaa)
   M->VL_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Operao/Item
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota do PIS/PASEP
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Alquota da COFINS
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor da COFINS
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da Base de Clculo dos Crditos, conforme a tabela indicada no item 4.3.7, caso seja informad
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Indicador da origem do crdito:
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Cdigo da conta analtica contbil debitada/creditada
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Cdigo do Centro de Custos
   M->DESC_DOC_OPER        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Descrio do Documento/Operao
   RETURN nil

FUNCTION PISCOVariavelRF111()
   // *** Estrutura do Registro RF111 ***
   M->REG := 'F111' // 01 - Texto fixo contendo "F111"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio.
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF120()
   // *** Estrutura do Registro RF120 ***
   M->REG := 'F120' // 01 - Texto fixo contendo "F120"
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imobilizado, conforme a Tabela
   M->IDENT_BEM_IMOB       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Identificao dos Bens/Grupo de Bens Incorporados ao Ativo Imobilizado:
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Indicador da origem do bem incorporado ao ativo imobilizado, gerador de crdito:
   M->IND_UTIL_BEM_IMOB    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Indicador da Utilizao dos Bens Incorporados ao Ativo Imobilizado:
   M->VL_OPER_DEP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Encargo de Depreciao/Amortizao Incorrido no Perodo
   M->PARC_OPER_NAO_BC_CRED := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Parcela do Valor do Encargo de Depreciao/Amortizao a excluir da base de clculo de Crdito
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Base de clculo do Crdito de PIS/PASEP no perodo (06 ? 07)
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor do Crdito de PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Base de Clculo do Crdito da COFINS no perodo (06 ? 07)
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do crdito da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Cdigo da conta analtica contbil debitada/creditada
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Cdigo do Centro de Custos
   M->DESC_BEM_IMOB        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Descrio complementar do bem ou grupo de bens, com crdito apurado com base nos encargos de depreci
   RETURN nil

FUNCTION PISCOVariavelRF129()
   // *** Estrutura do Registro RF129 ***
   M->REG := 'F129' // 01 - Texto fixo contendo "F129"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio.
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF130()
   // *** Estrutura do Registro RF130 ***
   M->REG := 'F130' // 01 - Texto fixo contendo "F130"
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Texto fixo contendo "10" (Cdigo da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imob
   M->IDENT_BEM_IMOB       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Identificao dos Bens/Grupo de Bens Incorporados ao Ativo Imobilizado:
   M->IND_ORIG_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Indicador da origem do bem incorporado ao ativo imobilizado, gerador de crdito:
   M->IND_UTIL_BEM_IMOB    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Indicador da Utilizao dos Bens Incorporados ao Ativo Imobilizado:
   M->MES_OPER_AQUIS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Ms/Ano de Aquisio dos Bens Incorporados ao Ativo Imobilizado, com apurao de crdito com base no
   M->VL_OPER_AQUIS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor de Aquisio dos Bens Incorporados ao Ativo Imobilizado ? Crdito com base no valor de aquisi
   M->PARC_OPER_NAO_BC_CRED := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Parcela do Valor de Aquisio a excluir da base de clculo de Crdito
   M->VL_BC_CRED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da Base de Clculo do Crdito sobre Bens Incorporados ao Ativo Imobilizado (07 ? 08)
   M->IND_NR_PARC          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Indicador do Nmero de Parcelas a serem apropriadas (Crdito sobre Valor de Aquisio):
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Base de clculo Mensal do Crdito de PIS/PASEP, conforme indicador informado no campo 10.
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Alquota do PIS/PASEP
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do Crdito de PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Base de Clculo Mensal do Crdito da COFINS, conforme indicador informado no campo 10.
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Alquota da COFINS
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Valor do crdito da COFINS
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Cdigo da conta analtica contbil debitada/creditada
   M->COD_CCUS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Cdigo do Centro de Custos
   M->DESC_BEM_IMOB        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Descrio complementar do bem ou grupo de bens, com crdito apurado com base no valor de aquisio.
   RETURN nil

FUNCTION PISCOVariavelRF139()
   // *** Estrutura do Registro RF139 ***
   M->REG := 'F139' // 01 - Texto fixo contendo "F139"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio.
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF150()
   // *** Estrutura do Registro RF150 ***
   M->REG := 'F150' // 01 - Texto fixo contendo "F150"
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Texto fixo contendo "18"
   M->VL_TOT_EST           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total do Estoque de Abertura
   M->EST_IMP              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Parcela do estoque de abertura referente a bens, produtos e mercadorias importados, ou adquiridas no
   M->VL_BC_EST            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Base de Clculo do Crdito sobre o Estoque de Abertura (03 ? 04)
   M->VL_BC_MEN_EST        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Base de Clculo Mensal do Crdito sobre o Estoque de Abertura (1/12 avos do campo 05)
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota do PIS/PASEP (em percentual)
   M->VL_CRED_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor Mensal do Crdito Presumido Apurado para o Perodo -  PIS/PASEP  (06 x 08)
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota do COFINS (em percentual)
   M->VL_CRED_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor Mensal do Crdito Presumido Apurado para o Perodo - COFINS (06 x 11)
   M->DESC_EST             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Descrio do estoque
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo da conta analtica contbil debitada/creditada
   RETURN nil

FUNCTION PISCOVariavelRF200()
   // *** Estrutura do Registro RF200 ***
   M->REG := 'F200' // 01 - Texto fixo contendo "F200"
   M->IND_OPER             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do Tipo da Operao:
   M->UNID_IMOB            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador do tipo de unidade imobiliria Vendida:
   M->IDENT_EMP            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Identificao/Nome do Empreendimento
   M->DESC_UNID_IMOB       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Descrio resumida da unidade imobiliria vendida
   M->NUM_CONT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Nmero do Contrato/Documento que formaliza a Venda da Unidade Imobiliria
   M->CPF_CNPJ_ADQU        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Identificao da pessoa fsica (CPF) ou da pessoa jurdica (CNPJ) adquirente da unidade imobiliria
   M->DT_OPER              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data da operao de venda da unidade imobiliria
   M->VL_TOT_VEND          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total da unidade imobiliria vendida atualizado at o perodo da escriturao
   M->VL_REC_ACUM          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor recebido acumulado at o ms anterior ao da escriturao.
   M->VL_TOT_REC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor total recebido no ms da escriturao
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Base de Clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Base de Clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 19 - Valor da COFINS
   M->PERC_REC_RECEB       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 20 - Percentual da receita total recebida at o ms, da unidade imobiliria vendida ((Campo 10 + Campo 11
   M->IND_NAT_EMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 21 - Indicador da Natureza Especfica do Empreendimento:
   M->INF_COMP             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 22 - Informaes Complementares
   RETURN nil

FUNCTION PISCOVariavelRF205()
   // *** Estrutura do Registro RF205 ***
   M->REG := 'F205' // 01 - Texto fixo contendo "F205"
   M->VL_CUS_INC_ACUM_ANT  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total do Custo Incorrido da unidade imobiliria acumulado at o ms anterior ao da escritura
   M->VL_CUS_INC_PER_ESC   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total do Custo Incorrido da unidade imobiliria no ms da escriturao
   M->VL_CUS_INC_ACUM      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total do Custo Incorrido da unidade imobiliria acumulado at o ms da escriturao (Campo 02
   M->VL_EXC_BC_CUS_INC_ACUM := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Parcela do Custo Incorrido sem direito ao crdito da atividade imobiliria, acumulado at o perodo.
   M->VL_BC_CUS_INC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Base de Clculo do Crdito sobre o Custo Incorrido, acumulado at o perodo da escriturao
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Alquota do PIS/PASEP (em percentual)
   M->VL_CRED_PIS_ACUM     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor Total do Crdito Acumulado sobre o custo incorrido ? PIS/PASEP (Campo 06 x 08)
   M->VL_CRED_PIS_DESC_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Parcela do crdito descontada at o perodo anterior da escriturao ? PIS/PASEP (proporcional  rec
   M->VL_CRED_PIS_DESC     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Parcela a descontar no perodo da escriturao  ? PIS/PASEP (proporcional  receita recebida no ms)
   M->VL_CRED_PIS_DESC_FUT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Parcela a descontar em perodos futuros  ? PIS/PASEP (Campo 09 ? 10 ? 11).
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo da Situao Tributria referente ao COFINS, conforme a Tabela indicada no item 4.3.4.
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Alquota do COFINS (em percentual)
   M->VL_CRED_COFINS_ACUM  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Valor Total do Crdito Acumulado sobre o custo incorrido - COFINS (Campo 06 x 14)
   M->VL_CRED_COFINS_DESC_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Parcela do crdito descontada at o perodo anterior da escriturao ? COFINS (proporcional  receit
   M->VL_CRED_COFINS_DESC  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 17 - Parcela a descontar no perodo da escriturao  ? COFINS (proporcional  receita recebida no ms).
   M->VL_CRED_COFINS_DESC_FUT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 18 - Parcela a descontar em perodos futuros  ? COFINS (Campo 15 ? 16 ? 17).
   RETURN nil

FUNCTION PISCOVariavelRF210()
   // *** Estrutura do Registro RF210 ***
   M->REG := 'F210' // 01 - Texto fixo contendo "F210"
   M->VL_CUS_ORC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total do Custo Orado para Concluso da Unidade Vendida
   M->VL_EXC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valores Referentes a Pagamentos a Pessoas Fsicas, Encargos Trabalhistas, Sociais e Previdencirios
   M->VL_CUS_ORC_AJU       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Base de Calculo do Crdito sobre o Custo Orado Ajustado (Campo 02 ? 03).
   M->VL_BC_CRED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Base de Clculo do Crdito sobre o Custo Orado referente ao ms da escriturao, proporcio
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da Situao Tributria referente ao PIS/PASEP, conforme a Tabela indicada no item 4.3.3.
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_CRED_PIS_UTIL     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do Crdito sobre o custo orado a ser utilizado no perodo da escriturao - PIS/PASEP (Campo
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria referente a COFINS, conforme a Tabela indicada no item 4.3.4.
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Alquota da COFINS (em percentual)
   M->VL_CRED_COFINS_UTIL  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor do Crdito sobre o custo orado a ser utilizado no perodo da escriturao - COFINS (Campo 05
   RETURN nil

FUNCTION PISCOVariavelRF211()
   // *** Estrutura do Registro RF211 ***
   M->REG := 'F211' // 01 - Texto fixo contendo "F211"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio.
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF500()
   // *** Estrutura do Registro RF500 ***
   M->REG := 'F500' // 01 - Texto fixo contendo "F500"
   M->VL_REC_CAIXA         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total da receita recebida, referente  combinao de CST e Alquota.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_DESC_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do desconto / excluso da base de clculo
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria referente a COFINS
   M->VL_DESC_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do desconto / excluso da base de clculo
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo fiscal de operao e prestao
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da conta analtica contbil debitada/creditada
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Informao complementar
   RETURN nil

FUNCTION PISCOVariavelRF509()
   // *** Estrutura do Registro RF509 ***
   M->REG := 'F509' // 01 - Texto fixo contendo "F509?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF510()
   // *** Estrutura do Registro RF510 ***
   M->REG := 'F510' // 01 - Texto fixo contendo "F510"
   M->VL_REC_CAIXA         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total da receita recebida, referente  combinao de CST e Alquota.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_DESC_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do desconto / excluso
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Base de clculo em quantidade - PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria referente a COFINS
   M->VL_DESC_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do desconto / excluso
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Base de clculo em quantidade - COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo fiscal de operao e prestao
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da conta analtica contbil debitada/creditada
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Informao complementar
   RETURN nil

FUNCTION PISCOVariavelRF519()
   // *** Estrutura do Registro RF519 ***
   M->REG := 'F519' // 01 - Texto fixo contendo "F519?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF525()
   // *** Estrutura do Registro RF525 ***
   M->REG := 'F525' // 01 - Texto fixo contendo "F525"
   M->VL_REC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total da receita recebida, correspondente ao indicador informado no campo 03 (IND_REC)
   M->IND_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da composio da receita recebida no perodo (Campo 02), por:
   M->CNPJ_CPF             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - CNPJ/CPF do participante (cliente/pessoa fsica ou jurdica pagadora) ou da administradora de carte
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do ttulo de crdito ou do documento fiscal, no caso de detalhamento da receita recebida conf
   M->COD_ITEM             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo do item (campo 02 do Registro 0200), no caso de detalhamento da receita recebida por item ven
   M->VL_REC_DET           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da receita detalhada, correspondente ao contedo informado no campo 04, 05 ou 06.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria do PIS/Pasep
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Cdigo da Situao Tributria da Cofins
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Informao complementar
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil representativa da receita recebida
   RETURN nil

FUNCTION PISCOVariavelRF550()
   // *** Estrutura do Registro RF550 ***
   M->REG := 'F550' // 01 - Texto fixo contendo "F550"
   M->VL_REC_COMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total da receita auferida, referente  combinao de CST e Alquota.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_DESC_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do desconto / excluso da base de clculo
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria referente a COFINS
   M->VL_DESC_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do desconto / excluso da base de clculo
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da base de clculo da COFINS
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo fiscal de operao e prestao
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da conta analtica contbil debitada/creditada
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Informao complementar
   RETURN nil

FUNCTION PISCOVariavelRF559()
   // *** Estrutura do Registro RF559 ***
   M->REG := 'F559' // 01 - Texto fixo contendo "F559?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF560()
   // *** Estrutura do Registro RF560 ***
   M->REG := 'F560' // 01 - Texto fixo contendo "F560"
   M->VL_REC_COMP          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor total da receita auferida, referente  combinao de CST e Alquota.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao PIS/PASEP
   M->VL_DESC_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do desconto / excluso
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Base de clculo em quantidade - PIS/PASEP
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Alquota do PIS/PASEP (em reais)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do PIS/PASEP
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Cdigo da Situao Tributria referente a COFINS
   M->VL_DESC_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor do desconto / excluso
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Base de clculo em quantidade - COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Alquota da COFINS (em reais)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da COFINS
   M->COD_MOD              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Cdigo do modelo do documento fiscal conforme a Tabela 4.1.1
   M->CFOP                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Cdigo fiscal de operao e prestao
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Cdigo da conta analtica contbil debitada/creditada
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 16 - Informao complementar
   RETURN nil

FUNCTION PISCOVariavelRF569()
   // *** Estrutura do Registro RF569 ***
   M->REG := 'F569' // 01 - Texto fixo contendo "F569?
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRF600()
   // *** Estrutura do Registro RF600 ***
   M->REG := 'F600' // 01 - Texto fixo contendo "F600"
   M->IND_NAT_RET          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de Natureza da Reteno na Fonte:
   M->DT_RET               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data da Reteno
   M->VL_BC_RET            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Base de calculo da reteno ou do recolhimento (sociedade cooperativa)
   M->VL_RET               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor Total Retido na Fonte / Recolhido (sociedade cooperativa)
   M->COD_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo da Receita
   M->IND_NAT_REC          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Indicador da Natureza da Receita:
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - CNPJ referente a:
   M->VL_RET_PIS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor Retido na Fonte ? Parcela Referente ao PIS/Pasep
   M->VL_RET_COFINS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor Retido na Fonte ? Parcela Referente a COFINS
   M->IND_DEC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Indicador da condio da pessoa jurdica declarante:
   RETURN nil

FUNCTION PISCOVariavelRF700()
   // *** Estrutura do Registro RF700 ***
   M->REG := 'F700' // 01 - Texto fixo contendo "F700"
   M->IND_ORI_DED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de Origem de Dedues Diversas:
   M->IND_NAT_DED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da Natureza da Deduo:
   M->VL_DED_PIS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor a Deduzir - PIS/PASEP
   M->VL_DED_COFINS        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor a Deduzir ? Cofins
   M->VL_BC_OPER           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Base de Clculo da Operao que ensejou o Valor a Deduzir informado nos Campos 04 e 05
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - CNPJ da Pessoa Jurdica relacionada  Operao que ensejou o Valor a Deduzir informado nos Campos 04
   M->INF_COMP             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Informaes Complementares do Documento/Operao que ensejou o Valor a Deduzir informado nos Campos
   RETURN nil

FUNCTION PISCOVariavelRF800()
   // *** Estrutura do Registro RF800 ***
   M->REG := 'F800' // 01 - Texto fixo contendo "F800"
   M->IND_NAT_EVEN         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador da Natureza do Evento de Sucesso:
   M->DT_EVEN              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data do Evento
   M->CNPJ_SUCED           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - CNPJ da Pessoa Jurdica Sucedida
   M->PA_CONT_CRED         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Perodo de Apurao do Crdito ? Ms/Ano (MM/AAAA)
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Cdigo do crdito transferido, conforme Tabela 4.3.6
   M->VL_CRED_PIS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor do Crdito Transferido de PIS/Pasep
   M->VL_CRED_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do Crdito Transferido de Cofins
   M->PER_CRED_CIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Percentual do crdito original transferido, no caso de evento de Ciso.
   RETURN nil

FUNCTION PISCOVariavelRF990()
   // *** Estrutura do Registro RF990 ***
   M->REG := 'F990' // 01 - Texto fixo contendo "F990"
   M->QTD_LIN_F            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco F
   RETURN nil

FUNCTION PISCOVariavelRI001()
   // *** Estrutura do Registro RI001 ***
   M->REG := 'I001' // 01 - Texto fixo contendo "I001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRI010()
   // *** Estrutura do Registro RI010 ***
   M->REG := 'I010' // 01 - Texto fixo contendo ?I010?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio da pessoa jurdica no CNPJ.
   M->IND_ATIV             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador de operaes realizadas no perodo:
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Informao Complementar
   RETURN nil

FUNCTION PISCOVariavelRI100()
   // *** Estrutura do Registro RI100 ***
   M->REG := 'I100' // 01 - Texto fixo contendo "I100"
   M->VL_REC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total do Faturamento/Receita Bruta no Perodo
   M->CST_PIS_COFINS       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo de Situao Tributria referente  Receita informada no Campo 02 (Tabelas 4.3.3 e 4.3.4)
   M->VL_TOT_DED_GER       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total das Dedues e Excluses de Carter Geral
   M->VL_TOT_DED_ESP       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor Total das Dedues e Excluses de Carter Especfico
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da base de clculo do PIS/PASEP
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS/PASEP (em percentual)
   M->VL_PIS               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor do PIS/PASEP
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor da base de clculo da Cofins
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Alquota da COFINS (em percentual)
   M->VL_COFINS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor da COFINS
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Informao Complementar dos dados informados no registro
   RETURN nil

FUNCTION PISCOVariavelRI200()
   // *** Estrutura do Registro RI200 ***
   M->REG := 'I200' // 01 - Texto fixo contendo "I200"
   M->NUM_CAMPO            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Informar o nmero do campo do registro ?I100? (Campos 02, 04 ou 05), objeto de informao neste regi
   M->COD_DET              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do tipo de detalhamento, conforme Tabelas 7.1.1 e/ou 7.1.2
   M->DET_VALOR            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor detalhado referente ao campo 03 (COD_DET) deste registro
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo da conta contbil referente ao valor informado no campo 04 (DET_VALOR)
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Informao Complementar dos dados informados no registro
   RETURN nil

FUNCTION PISCOVariavelRI299()
   // *** Estrutura do Registro RI299 ***
   M->REG := 'I299' // 01 - Texto fixo contendo "I299"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRI300()
   // *** Estrutura do Registro RI300 ***
   M->REG := 'I300' // 01 - Texto fixo contendo "I300"
   M->COD_COMP             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo das Tabelas 7.1.3 (Receitas ? Viso Analtica/Referenciada) e/ou 7.1.4 (Dedues e excluses
   M->DET_VALOR            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da receita, deduo ou excluso, objeto de complemento/detalhamento neste registro, conforme c
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da conta contbil referente ao valor informado no campo 03
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Informao Complementar dos dados informados no registro
   RETURN nil

FUNCTION PISCOVariavelRI399()
   // *** Estrutura do Registro RI399 ***
   M->REG := 'I399' // 01 - Texto fixo contendo "I399"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo:
   RETURN nil

FUNCTION PISCOVariavelRI990()
   // *** Estrutura do Registro RI990 ***
   M->REG := 'I990' // 01 - Texto fixo contendo "I990"
   M->QTD_LIN_I            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco I
   RETURN nil

FUNCTION PISCOVariavelRM001()
   // *** Estrutura do Registro RM001 ***
   M->REG := 'M001' // 01 - Texto fixo contendo "M001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRM100()
   // *** Estrutura do Registro RM100 ***
   M->REG := 'M100' // 01 - Texto fixo contendo "M100"
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de Tipo de Crdito apurado no perodo, conforme a Tabela 4.3.6.
   M->IND_CRED_ORI         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador de Crdito Oriundo de:
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Base de Clculo do Crdito
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo PIS
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS (em reais)
   M->VL_CRED              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total do crdito apurado no perodo
   M->VL_AJUS_ACRES        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total dos ajustes de acrscimo
   M->VL_AJUS_REDUC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos ajustes de reduo
   M->VL_CRED_DIF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor total do crdito diferido no perodo
   M->VL_CRED_DISP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor Total do Crdito Disponvel relativo ao Perodo (08 + 09 ? 10 ? 11)
   M->IND_DESC_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador de opo de utilizao do crdito disponvel no perodo:
   M->VL_CRED_DESC         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do Crdito disponvel, descontado  da contribuio apurada no prprio perodo.
   M->SLD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Saldo de crditos a utilizar em perodos futuros (12 ? 14)
   RETURN nil

FUNCTION PISCOVariavelRM105()
   // *** Estrutura do Registro RM105 ***
   M->REG := 'M105' // 01 - Texto fixo contendo "M105"
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Base de Clculo do Crdito apurado no perodo, conforme a Tabela 4.3.7.
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao crdito de PIS/Pasep (Tabela 4.3.3) vinculado ao tipo de
   M->VL_BC_PIS_TOT        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total da Base de Clculo escriturada nos documentos e operaes (Blocos ?A?, ?C?, ?D? e ?F?),
   M->VL_BC_PIS_CUM        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Parcela do Valor Total da Base de Clculo informada no Campo 04, vinculada a receitas com incidncia
   M->VL_BC_PIS_NC         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor Total da Base de Clculo do Crdito, vinculada a receitas com incidncia no-cumulativa (Campo
   M->VL_BC_PIS            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da Base de Clculo do Crdito, vinculada ao tipo de Crdito escriturado em M100.
   M->QUANT_BC_PIS_TOT     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade Total da Base de Clculo do Crdito apurado em Unidade de Medida de Produto, escriturada
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Parcela da base de clculo do crdito em quantidade (campo 08) vinculada ao tipo de crdito escritur
   M->DESC_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Descrio do crdito
   RETURN nil

FUNCTION PISCOVariavelRM110()
   // *** Estrutura do Registro RM110 ***
   M->REG := 'M110' // 01 - Texto fixo contendo "M110"
   M->IND_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de ajuste:
   M->VL_AJ                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do ajuste
   M->COD_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   M->DESCR_AJ             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio resumida do ajuste.
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data de referncia do ajuste (ddmmaaaa)
   RETURN nil

FUNCTION PISCOVariavelRM200()
   // *** Estrutura do Registro RM200 ***
   M->REG := 'M200' // 01 - Texto fixo contendo "M200"
   M->VL_TOT_CONT_NC_PER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total da Contribuio No Cumulativa do Perodo (recuperado do campo 13 do Registro M210, quan
   M->VL_TOT_CRED_DESC     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do Crdito Descontado, Apurado no Prprio Perodo da Escriturao (recuperado do campo 14 do R
   M->VL_TOT_CRED_DESC_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do Crdito Descontado, Apurado em Perodo de Apurao Anterior (recuperado do campo 13 do Regi
   M->VL_TOT_CONT_NC_DEV   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor Total da Contribuio No Cumulativa Devida (02 ? 03 - 04)
   M->VL_RET_NC            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor Retido na Fonte Deduzido no Perodo
   M->VL_OUT_DED_NC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Outras Dedues no Perodo
   M->VL_CONT_NC_REC       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da Contribuio No Cumulativa a Recolher/Pagar (05 ? 06 - 07)
   M->VL_TOT_CONT_CUM_PER  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor Total da Contribuio Cumulativa do Perodo  (recuperado do campo 13 do Registro M210, quando
   M->VL_RET_CUM           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor Retido na Fonte Deduzido no Perodo
   M->VL_OUT_DED_CUM       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Outras Dedues no Perodo
   M->VL_CONT_CUM_REC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da Contribuio Cumulativa a Recolher/Pagar (09 - 10 ? 11)
   M->VL_TOT_CONT_REC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor Total da Contribuio a Recolher/Pagar no Perodo (08 + 12)
   RETURN nil

FUNCTION PISCOVariavelRM210()
   // *** Estrutura do Registro RM210 ***
   M->REG := 'M210' // 01 - Texto fixo contendo "M210"
   M->COD_CONT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da contribuio social apurada no perodo, conforme a Tabela 4.3.5.
   M->VL_REC_BRT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Receita Bruta
   M->VL_BC_CONT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Base de Clculo da Contribuio
   M->ALIQ_PIS             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP (em percentual)
   M->QUANT_BC_PIS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo PIS
   M->ALIQ_PIS_QUANT       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do PIS (em reais)
   M->VL_CONT_APUR         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total da contribuio social apurada
   M->VL_AJUS_ACRES        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total dos ajustes de acrscimo
   M->VL_AJUS_REDUC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos ajustes de reduo
   M->VL_CONT_DIFER        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor da contribuio a diferir no perodo
   M->VL_CONT_DIFER_ANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da contribuio diferida em perodos anteriores
   M->VL_CONT_PER          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor Total da Contribuio do Perodo (08 + 09 ? 10 ? 11+12)
   RETURN nil

FUNCTION PISCOVariavelRM211()
   // *** Estrutura do Registro RM211 ***
   M->REG := 'M211' // 01 - Texto fixo contendo "M211"
   M->IND_TIP_COOP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do Tipo de Sociedade Cooperativa:
   M->VL_BC_CONT_ANT_EXC_COOP := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Base de Clculo da Contribuio, conforme Registros escriturados nos Blocos A, C, D e F, an
   M->VL_EXC_COOP_GER      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor de Excluso Especifica das Cooperativas em Geral, decorrente das Sobras Apuradas na DRE, desti
   M->VL_EXC_ESP_COOP      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor das Excluses da Base de Clculo Especifica do Tipo da Sociedade Cooperativa, conforme Campo 0
   M->VL_BC_CONT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Base de Clculo, Aps as Excluses Especificas da Sociedade Cooperativa (04 ? 05 ? 06) ? Tr
   RETURN nil

FUNCTION PISCOVariavelRM220()
   // *** Estrutura do Registro RM220 ***
   M->REG := 'M220' // 01 - Texto fixo contendo "M220"
   M->IND_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de ajuste:
   M->VL_AJ                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do ajuste
   M->COD_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   M->DESCR_AJ             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio resumida do ajuste.
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data de referncia do ajuste (ddmmaaaa)
   RETURN nil

FUNCTION PISCOVariavelRM230()
   // *** Estrutura do Registro RM230 ***
   M->REG := 'M230' // 01 - Texto fixo contendo "M230"
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - CNPJ da pessoa jurdica de direito pblico, empresa pblica, sociedade de economia mista ou suas sub
   M->VL_VEND              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total das vendas no perodo
   M->VL_NAO_RECEB         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total no recebido no perodo
   M->VL_CONT_DIF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Contribuio diferida no perodo
   M->VL_CRED_DIF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Crdito diferido no perodo
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo de Tipo de Crdito diferido no perodo, conforme a Tabela 4.3.6.
   RETURN nil

FUNCTION PISCOVariavelRM300()
   // *** Estrutura do Registro RM300 ***
   M->REG := 'M300' // 01 - Texto fixo contendo "M300"
   M->COD_CONT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da contribuio social diferida em perodos anteriores, conforme a Tabela 4.3.5.
   M->VL_CONT_APUR_DIFER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Contribuio Apurada, diferida em perodos anteriores.
   M->NAT_CRED_DESC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Natureza do Crdito Diferido, vinculado  receita tributada no mercado interno, a descontar:
   M->VL_CRED_DESC_DIFER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito a Descontar vinculado  contribuio diferida.
   M->VL_CONT_DIFER_ANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Contribuio a Recolher, diferida em perodos anteriores (Campo 03 ? Campo 05)
   M->PER_APUR             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Perodo de apurao da contribuio social e dos crditos diferidos (MMAAAA)
   M->DT_RECEB             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data de recebimento da receita, objeto de diferimento
   RETURN nil

FUNCTION PISCOVariavelRM350()
   // *** Estrutura do Registro RM350 ***
   M->REG := 'M350' // 01 - Texto fixo contendo "M350"
   M->VL_TOT_FOL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total da Folha de Salrios
   M->VL_EXC_BC            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total das Excluses  Base de Clculo
   M->VL_TOT_BC            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total da Base de Clculo
   M->ALIQ_PIS_FOL         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do PIS/PASEP ? Folha de Salrios
   M->VL_TOT_CONT_FOL      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor Total da Contribuio Social sobre a Folha de Salrios
   RETURN nil

FUNCTION PISCOVariavelRM400()
   // *** Estrutura do Registro RM400 ***
   M->REG := 'M400' // 01 - Texto fixo contendo "M400?
   M->CST_PIS              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de Situao Tributria ? CST das demais receitas auferidas no perodo, sem incidncia da cont
   M->VL_TOT_REC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total da receita bruta no perodo.
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Descrio Complementar da Natureza da Receita.
   RETURN nil

FUNCTION PISCOVariavelRM410()
   // *** Estrutura do Registro RM410 ***
   M->REG := 'M410' // 01 - Texto fixo contendo "M410?
   M->NAT_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Natureza da Receita, conforme relao constante nas Tabelas de Detalhamento da Natureza da Receita p
   M->VL_REC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da receita bruta no perodo, relativo a natureza da receita (NAT_REC)
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Descrio Complementar da Natureza da Receita.
   RETURN nil

FUNCTION PISCOVariavelRM500()
   // *** Estrutura do Registro RM500 ***
   M->REG := 'M500' // 01 - Texto fixo contendo "M500"
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de Tipo de Crdito apurado no perodo, conforme a Tabela 4.3.6.
   M->IND_CRED_ORI         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador de Crdito Oriundo de:
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Base de Clculo do Crdito
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota da COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota da COFINS (em reais)
   M->VL_CRED              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total do crdito apurado no perodo
   M->VL_AJUS_ACRES        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total dos ajustes de acrscimo
   M->VL_AJUS_REDUC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos ajustes de reduo
   M->VL_CRED_DIFER        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor total do crdito diferido no perodo
   M->VL_CRED_DISP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor Total do Crdito Disponvel relativo ao Perodo (08 + 09 ? 10 ? 11)
   M->IND_DESC_CRED        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Indicador de utilizao do crdito disponvel no perodo:
   M->VL_CRED_DESC         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 14 - Valor do Crdito disponvel, descontado da contribuio apurada no prprio perodo.
   M->SLD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 15 - Saldo de crditos a utilizar em perodos futuros (12 ? 14)
   RETURN nil

FUNCTION PISCOVariavelRM505()
   // *** Estrutura do Registro RM505 ***
   M->REG := 'M505' // 01 - Texto fixo contendo "M505"
   M->NAT_BC_CRED          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da Base de Clculo do Crdito apurado no perodo, conforme a Tabela 4.3.7.
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo da Situao Tributria referente ao crdito de COFINS (Tabela 4.3.4) vinculado ao tipo de cr
   M->VL_BC_COFINS_TOT     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total da Base de Clculo escriturada nos documentos e operaes (Blocos ?A?, ?C?, ?D? e ?F?),
   M->VL_BC_COFINS_CUM     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Parcela do Valor Total da Base de Clculo informada no Campo 04, vinculada a receitas com incidncia
   M->VL_BC_COFINS_NC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor Total da Base de Clculo do Crdito, vinculada a receitas com incidncia no-cumulativa (Campo
   M->VL_BC_COFINS         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor da Base de Clculo do Crdito, vinculada ao tipo de Crdito escriturado em M500.
   M->QUANT_BC_COFINS_TOT  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Quantidade Total da Base de Clculo do Crdito apurado em Unidade de Medida de Produto, escriturada
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Parcela da base de clculo do crdito em quantidade (campo 08) vinculada ao tipo de crdito escritur
   M->DESC_CRED            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Descrio do crdito
   RETURN nil

FUNCTION PISCOVariavelRM510()
   // *** Estrutura do Registro RM510 ***
   M->REG := 'M510' // 01 - Texto fixo contendo "M510"
   M->IND_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de ajuste:
   M->VL_AJ                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do ajuste
   M->COD_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   M->DESCR_AJ             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio resumida do ajuste.
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data de referncia do ajuste (ddmmaaaa)
   RETURN nil

FUNCTION PISCOVariavelRM600()
   // *** Estrutura do Registro RM600 ***
   M->REG := 'M600' // 01 - Texto fixo contendo "M600"
   M->VL_TOT_CONT_NC_PER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Valor Total da Contribuio No Cumulativa do Perodo (recuperado do campo 13 do Registro M610, quan
   M->VL_TOT_CRED_DESC     := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do Crdito Descontado, Apurado no Prprio Perodo da Escriturao (recuperado do campo 14 do R
   M->VL_TOT_CRED_DESC_ANT := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor do Crdito Descontado, Apurado em Perodo de Apurao Anterior (recuperado do campo 13 do Regi
   M->VL_TOT_CONT_NC_DEV   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor Total da Contribuio No Cumulativa Devida (02 - 03 - 04)
   M->VL_RET_NC            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor Retido na Fonte Deduzido no Perodo
   M->VL_OUT_DED_NC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Outras Dedues no Perodo
   M->VL_CONT_NC_REC       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da Contribuio No Cumulativa a Recolher/Pagar (05 - 06 - 07)
   M->VL_TOT_CONT_CUM_PER  := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor Total da Contribuio Cumulativa do Perodo (recuperado do campo 13 do Registro M610, quando o
   M->VL_RET_CUM           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor Retido na Fonte Deduzido no Perodo
   M->VL_OUT_DED_CUM       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Outras Dedues no Perodo
   M->VL_CONT_CUM_REC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da Contribuio Cumulativa a Recolher/Pagar (09 - 10 - 11)
   M->VL_TOT_CONT_REC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor Total da Contribuio a Recolher/Pagar no Perodo (08 + 12)
   RETURN nil

FUNCTION PISCOVariavelRM610()
   // *** Estrutura do Registro RM610 ***
   M->REG := 'M610' // 01 - Texto fixo contendo "M610"
   M->COD_CONT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da contribuio social apurada no perodo, conforme a Tabela 4.3.5.
   M->VL_REC_BRT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Receita Bruta
   M->VL_BC_CONT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Base de Clculo da Contribuio
   M->ALIQ_COFINS          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Alquota do COFINS (em percentual)
   M->QUANT_BC_COFINS      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Quantidade ? Base de clculo COFINS
   M->ALIQ_COFINS_QUANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Alquota do COFINS (em reais)
   M->VL_CONT_APUR         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor total da contribuio social apurada
   M->VL_AJUS_ACRES        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Valor total dos ajustes de acrscimo
   M->VL_AJUS_REDUC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor total dos ajustes de reduo
   M->VL_CONT_DIFER        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Valor da contribuio a diferir no perodo
   M->VL_CONT_DIFER_ANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Valor da contribuio diferida em perodos anteriores
   M->VL_CONT_PER          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 13 - Valor Total da Contribuio do Perodo (08 + 09 ? 10 ? 11 +12)
   RETURN nil

FUNCTION PISCOVariavelRM611()
   // *** Estrutura do Registro RM611 ***
   M->REG := 'M611' // 01 - Texto fixo contendo "M611"
   M->IND_TIP_COOP         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do Tipo de Sociedade Cooperativa:
   M->VL_BC_CONT_ANT_EXC_COOP := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Base de Clculo da Contribuio, conforme Registros escriturados nos Blocos A, C, D e F, an
   M->VL_EXC_COOP_GER      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor de Excluso Especifica das Cooperativas em Geral, decorrente das Sobras Apuradas na DRE, desti
   M->VL_EXC_ESP_COOP      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor das Excluses da Base de Clculo Especifica do Tipo da Sociedade Cooperativa, conforme Campo 0
   M->VL_BC_CONT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Base de Clculo, Aps as Excluses Especificas da Sociedade Cooperativa (04 ? 05 ? 06) ? Tr
   RETURN nil

FUNCTION PISCOVariavelRM620()
   // *** Estrutura do Registro RM620 ***
   M->REG := 'M620' // 01 - Texto fixo contendo "M620"
   M->IND_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de ajuste:
   M->VL_AJ                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do ajuste
   M->COD_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   M->DESCR_AJ             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio resumida do ajuste.
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data de referncia do ajuste (ddmmaaaa)
   RETURN nil

FUNCTION PISCOVariavelRM630()
   // *** Estrutura do Registro RM630 ***
   M->REG := 'M630' // 01 - Texto fixo contendo "M630"
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - CNPJ da pessoa jurdica de direito pblico, empresa pblica, sociedade de economia mista ou suas sub
   M->VL_VEND              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor Total das vendas no perodo
   M->VL_NAO_RECEB         := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor Total no recebido no perodo
   M->VL_CONT_DIF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor da Contribuio diferida no perodo
   M->VL_CRED_DIF          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor do Crdito diferido no perodo
   M->COD_CRED             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo de Tipo de Crdito diferido no perodo, conforme a Tabela 4.3.6.
   RETURN nil

FUNCTION PISCOVariavelRM700()
   // *** Estrutura do Registro RM700 ***
   M->REG := 'M700' // 01 - Texto fixo contendo "M700"
   M->COD_CONT             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo da contribuio social diferida em perodos anteriores, conforme a Tabela 4.3.5.
   M->VL_CONT_APUR_DIFER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da Contribuio Apurada, diferida em perodos anteriores.
   M->NAT_CRED_DESC        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Natureza do Crdito Diferido, vinculado  receita tributada no mercado interno, a descontar:
   M->VL_CRED_DESC_DIFER   := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor do Crdito a Descontar vinculado  contribuio diferida.
   M->VL_CONT_DIFER_ANT    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Contribuio a Recolher, diferida em perodos anteriores (Campo 03 ? Campo 05)
   M->PER_APUR             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Perodo de apurao da contribuio social e dos crditos diferidos (MMAAAA).
   M->DT_RECEB             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Data de recebimento da receita, objeto de diferimento.
   RETURN nil

FUNCTION PISCOVariavelRM800()
   // *** Estrutura do Registro RM800 ***
   M->REG := 'M800' // 01 - Texto fixo contendo "M800?
   M->CST_COFINS           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Cdigo de Situao Tributria ? CST das demais receitas auferidas no perodo, sem incidncia da cont
   M->VL_TOT_REC           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total da receita bruta no perodo.
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Descrio Complementar da Natureza da Receita.
   RETURN nil

FUNCTION PISCOVariavelRM810()
   // *** Estrutura do Registro RM810 ***
   M->REG := 'M810' // 01 - Texto fixo contendo "M810?
   M->NAT_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Natureza da Receita, conforme relao constante nas Tabelas de Detalhamento da Natureza da Receita p
   M->VL_REC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor da receita bruta no perodo, relativo a natureza da receita (NAT_REC)
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo da conta analtica contbil debitada/creditada.
   M->DESC_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Descrio Complementar da Natureza da Receita.
   RETURN nil

FUNCTION PISCOVariavelRM990()
   // *** Estrutura do Registro RM990 ***
   M->REG := 'M990' // 01 - Texto fixo contendo "M990"
   M->QTD_LIN_M            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco M
   RETURN nil

FUNCTION PISCOVariavelRP001()
   // *** Estrutura do Registro RP001 ***
   M->REG := 'P001' // 01 - Texto fixo contendo "P001"
   M->IND_MOV              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador de movimento:
   RETURN nil

FUNCTION PISCOVariavelRP010()
   // *** Estrutura do Registro RP010 ***
   M->REG := 'P010' // 01 - Texto fixo contendo ?P010?
   M->CNPJ                 := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Nmero de inscrio do estabelecimento no CNPJ.
   RETURN nil

FUNCTION PISCOVariavelRP100()
   // *** Estrutura do Registro RP100 ***
   M->REG := 'P100' // 01 - Texto fixo contendo "P100"
   M->DT_INI               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Data inicial a que a apurao se refere
   M->DT_FIN               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Data final a que a apurao se refere
   M->VL_REC_TOT_EST       := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor da Receita Bruta Total do Estabelecimento no Perodo
   M->COD_ATIV_ECON        := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Cdigo indicador de atividade sujeita a incidncia da Contribuio Previdenciria sobre a Receita Br
   M->VL_REC_ATIV_ESTAB    := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor da Receita Bruta do Estabelecimento, correspondente s atividades referidas no Campo 05 (COD_A
   M->VL_EXC               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Valor das Excluses da Receita Bruta informada no Campo 06
   M->VL_BC_CONT           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 08 - Valor da Base de Clculo da Contribuio Previdenciria sobre a Receita Bruta (Campo 08 = Campo 06 ?
   M->ALIQ_CONT            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 09 - Alquota da Contribuio Previdenciria sobre a Receita Bruta
   M->VL_CONT_APU          := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 10 - Valor da Contribuio Previdenciria Apurada sobre a Receita Bruta
   M->COD_CTA              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 11 - Cdigo da conta analtica contbil referente  Contribuio Previdenciria sobre a Receita Bruta
   M->INFO_COMPL           := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 12 - Informao complementar do registro
   RETURN nil

FUNCTION PISCOVariavelRP110()
   // *** Estrutura do Registro RP110 ***
   M->REG := 'P110' // 01 - Texto fixo contendo "P110"
   M->NUM_CAMPO            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Informar o nmero do campo do registro ?P100?, objeto de detalhamento neste registro.
   M->COD_DET              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Cdigo do tipo de detalhamento, conforme Tabela 5.1.2
   M->DET_VALOR            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor detalhado referente ao campo 02 deste registro
   M->INF_COMPL            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Informao complementar do detalhamento.
   RETURN nil

FUNCTION PISCOVariavelRP199()
   // *** Estrutura do Registro RP199 ***
   M->REG := 'P199' // 01 - Texto fixo contendo "P199"
   M->NUM_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Identificao do processo ou ato concessrio
   M->IND_PROC             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Indicador da origem do processo: 1 - Justia Federal; 3 ? Secretaria da Receita Federal do Brasil 9
   RETURN nil

FUNCTION PISCOVariavelRP200()
   // *** Estrutura do Registro RP200 ***
   M->REG := 'P200' // 01 - Texto fixo contendo "P200"
   M->PER_REF              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Perodo de referencia da escriturao (MMAAAA)
   M->VL_TOT_CONT_APU      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor total apurado Contribuio Previdenciria sobre Receita Bruta (Somatrio Campo 10 ?VL_CONT_APU
   M->VL_TOT_AJ_REDUC      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Valor total de ?Ajustes de reduo? (Registro P210, Campo 03, quando Campo 02 = ?0?)
   M->VL_TOT_AJ_ACRES      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Valor total de ?Ajustes de acrscimo? (Registro P210, Campo 03, quando Campo 02 = ?1?)
   M->VL_TOT_CONT_DEV      := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Valor total da Contribuio Previdenciria sobre a Receita Bruta a recolher (Campo 03 ? Campo 04 + C
   M->COD_REC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Cdigo de Receita referente  Contribuio Previdenciria, conforme informado em DCTF
   RETURN nil

FUNCTION PISCOVariavelRP210()
   // *** Estrutura do Registro RP210 ***
   M->REG := 'P210' // 01 - Texto fixo contendo "P210"
   M->IND_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Indicador do tipo de ajuste:
   M->VL_AJ                := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 03 - Valor do ajuste
   M->COD_AJ               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 04 - Cdigo do ajuste, conforme a Tabela indicada no item 4.3.8.
   M->NUM_DOC              := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 05 - Nmero do processo, documento ou ato concessrio ao qual o ajuste est vinculado, se houver.
   M->DESCR_AJ             := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 06 - Descrio resumida do ajuste.
   M->DT_REF               := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 07 - Data de referncia do ajuste (ddmmaaaa)
   RETURN nil

FUNCTION PISCOVariavelRP990()
   // *** Estrutura do Registro RP990 ***
   M->REG := 'P990' // 01 - Texto fixo contendo "P990"
   M->QTD_LIN_P            := iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC>0,'0,'+repl('0',M->PISCO_DEC),iif(M->PISCO_TIPO='N'.and.M->PISCO_DEC=0,'0','')) // 02 - Quantidade total de linhas do Bloco P
   RETURN nil

