?{"Nome do arquivo INI","DCRE.INI"}
?{"Descricao Completa do Arquivo Magnetico","Demonstrativo do Coeficiente de Reducao do Imposto de Importacao - Eletronico."}
?{"A Quem se Destina","O DCR-E deve ser apresentado por todas as empresas credenciadas na Receita Federal e que busquem a reducao do imposto de importacao nos produtos industrializados fabricados na Zona Franca de Manaus."}
?{"Objetivo","Automatizar a elaboracao e apresentacao do DCR, na internacao do produto industrializado na Zona Franca de Manaus (ZFM)."}
?{"Prazo de Entrega","Nao ha prazo de entrega, o DCR-E deve ser enviado somente quando se faz um novo produto ou quando houver alteracao no custo do produto."}
?{"Aplicativo Disponibilizado pelo Fisco","DCR-E"}
?{"Versao do Aplicativo Contemplada pela Microsiga","3.00"}
?{"Comentarios",""}
[XXX Inicializacao]
(PRE) _aTotal[01] := 0
(PRE) _aTotal[99] := .F.
(PRE) lExitPFil	:= IIf(lAglFil, .T., .F.)
(PRE) DCRE(.F.,aFilsCalc)

[R00 Registro Tipo 0 - Informacoes Gerais do DCRE]
(IMP) {.T.,1,1,"ID_REG"} 
(CMP) {{"CNPJ","CNPJ"},{"CPF","CPF"},{"PPB","PPB-Processo Produtivo Basico", 40},{"DESCPROD","Descricao do Produto", 45},{"NCM","NCM"},{"UNIDADE","UN", 4},{"PESO_BRUTO","Peso Bruto"},{"SALARIO","Salario"},{"ENCARGO","Encargo"},{"TP_COEFIC","Tipo Coef.",10},{"TP_DCRE","Tipo",4},{"DCRE_ANT","DCR-E Ant."},{"PROCESSO","Processo"}}
(PRE) dbGoTop()
(PREREG) _aTotal[99]
ID_REG     C 001 0 "0"
CNPJ       C 014 0 R00->CNPJ
CPF        C 011 0 R00->CPF
PPB        C 080 0 R00->PPB
DESCPROD   C 080 0 R00->DESCPROD
NCM        C 008 0 R00->NCM
UNIDADE    C 080 0 R00->UNIDADE
PESO_BRUTO N 014 5 R00->PESO_BRUTO
SALARIO    N 015 2 R00->SALARIO
ENCARGO    N 015 2 R00->ENCARGO
TP_DCRE    C 001 0 R00->TP_DCRE
DCRE_ANT   C 010 0 R00->DCRE_ANT
PROCESSO   C 017 0 R00->PROCESSO
VERSAO     C 004 0 "    " 
ORIDCRE    C 001 0 "1"
TP_COEFIC  C 001 0 R00->TP_COEFIC
(CONT) _aTotal[1]+=1

[R01 Registro Tipo 1 - Informacoes sobre Outros Modelos]
(IMP) {.T.,1,1,"ID_REG"}
(CMP) {{"MODELO","Mod."},{"DESCRICAO","Descricao do Produto",50},{"PRC_VENDA","Preço Venda"},{"CODPROD","Código Interno"}}
(PRE) dbGoTop()
(PREREG) _aTotal[99]
ID_REG     C 001 0 "1"
MODELO     C 004 0 R01->MODELO
DESCRICAO  C 080 0 R01->DESCRICAO
PRC_VENDA  N 015 2 R01->PRC_VENDA
CODPROD    C 015 0 R01->CODPROD
(CONT) _aTotal[1]+=1

[R02 Registro Tipo 2 - Informacoes sobre Componentes Nacionais]
(IMP) {.T.,1,1,"ID_REG"} 
(CMP) {{"NUMERO","Num."},{"NF","N.Fiscal"},{"SERIE","Serie"},{"CNPJ","CNPJ"},{"IE","Inscr. Estadual"},{"DATAEMIS","Emissao"},{"DESCPROD","Descricao do Produto", 50},{"UNIDADE", "UN", 4},{"NCM","NCM"},{"QTDE","Quantidade"},{"CUSTO_UNIT","Custo Unitario"}}
(PRE) dbGoTop()
(PREREG) _aTotal[99]
ID_REG     C 001 0 "2"
NUMERO     C 004 0 R02->NUMERO
NF         C 010 0 R02->NF
SERIE      C 005 0 R02->SERIE
CNPJ       C 014 0 R02->CNPJ
IE         C 015 0 R02->IE
DATAEMIS   C 008 0 StrZero(Year(R02->DATAEMIS),4)+StrZero(Month(R02->DATAEMIS),2)+StrZero(Day(R02->DATAEMIS),2)
DESCPROD   C 080 0 alltrim(R02->CODPROD)+ "-" +alltrim(R02->DESCPROD)
UNIDADE    C 080 0 R02->UNIDADE
NCM        C 008 0 R02->NCM
QTDE       N 015 7 R02->QTDE
CUSTO_UNIT N 015 6 R02->CUSTO_UNIT
(CONT) _aTotal[1]+=1

[R03 Registro Tipo 3 - Informacoes sobre SubComponentes Importados]
(IMP) {.T.,1,1,"ID_REG"}
(CMP) {{"NUMERO","Num."},{"DI","DI"},{"NUM_ADICAO","Ad."},{"NUM_ITEM","It"},{"CNPJ","CNPJ"},{"IE","Inscr. Estadual"},{"DATAEMIS","Emissao"},{"DESCPROD","Descricao do Produto", 45},{"UNIDADE","UN",4},{"NCM","NCM"},{"QTDE","Quantidade"},{"CUSTO_UNIT","Custo Unitario"},{"NF","N.Fiscal"},{"SERIE","Serie"}}
(PRE) dbGoTop()
(PREREG) _aTotal[99]
ID_REG     C 001 0 "3"
NROSUB     C 004 0 R03->NROSUB 
NUMERO     C 004 0 R03->NUMERO
INCLUI_BC  C 001 0 R03->INCLUI_BC
IMP_DIR    C 001 0 R03->IMP_DIR
INDIC_SUSP C 001 0 R03->INDIC_SUSP
DI         C 010 0 R03->DI
NUM_ADICAO C 003 0 R03->NUM_ADICAO
NUM_ITEM   C 002 0 R03->NUM_ITEM
NF         C 010 0 R03->NF
SERIE      C 005 0 R03->SERIE
CNPJ       C 014 0 R03->CNPJ
IE         C 015 0 R03->IE
DATAEMIS   C 008 0 StrZero(Year(R03->DATAEMIS),4)+StrZero(Month(R03->DATAEMIS),2)+StrZero(Day(R03->DATAEMIS),2)
DESCPROD   C 080 0 R03->DESCPROD
UNIDADE    C 080 0 R03->UNIDADE
NCM        C 008 0 R03->NCM
QTDE       N 015 7 R03->QTDE
IND_RED_II C 001 0 R03->IND_RED_II
CUSTO_UNIT N 015 6 R03->CUSTO_UNIT
(CONT) _aTotal[1]+=1

[R04 Registro Tipo 4 - Informacoes sobre Componentes Importados]
(IMP) {.T.,1,1,"ID_REG"} 
(CMP) {{"NUMERO","Num."},{"DI","DI"},{"NUM_ADICAO","Ad."},{"NUM_ITEM","It"},{"CNPJ","CNPJ"},{"IE","Inscr. Estadual"},{"DATAEMIS","Emissao"},{"DESCPROD","Descricao do Produto", 45},{"UNIDADE","UN",4},{"NCM","NCM"},{"QTDE","Quantidade"},{"CUSTO_UNIT","Custo Unitario"},{"NF","N.Fiscal"},{"SERIE","Serie"}}
(LEG) "Coluna(s): Ad. = Adicao / It = Item da Adicao"
(PRE) dbGoTop()
(PREREG) _aTotal[99]
ID_REG     C 001 0 "4"
NUMERO     C 004 0 R04->NUMERO
IMP_DIR    C 001 0 R04->IMP_DIR
INDIC_SUSP C 001 0 R04->INDIC_SUSP
DI         C 010 0 R04->DI
NUM_ADICAO C 003 0 R04->NUM_ADICAO
NUM_ITEM   C 002 0 R04->NUM_ITEM
NF         C 010 0 R04->NF
SERIE      C 005 0 R04->SERIE
CNPJ       C 014 0 R04->CNPJ
IE         C 015 0 R04->IE
DATAEMIS   C 008 0 StrZero(Year(R04->DATAEMIS),4)+StrZero(Month(R04->DATAEMIS),2)+StrZero(Day(R04->DATAEMIS),2)
DESCPROD   C 080 0 R04->DESCPROD
UNIDADE    C 080 0 R04->UNIDADE
NCM        C 008 0 R04->NCM
QTDE       N 015 7 R04->QTDE
IND_RED_II C 001 0 R04->IND_RED_II
CUSTO_UNIT N 015 6 R04->CUSTO_UNIT
(CONT) _aTotal[1]+=1

[XXX Registro Tipo 9 - Totalizador do Arquivo]
(IMP) {.T.,1,1,"ID_REG"} 
(CMP) {{"QTD_REG","Qtde Registros"}}
(PREREG) _aTotal[99]
ID_REG     C 001 0 "9"
QTD_REG    N 008 0 _aTotal[1]+=1