?{"Nome do Arquivo INI","MAPAS.INI"} ?{"Descicao Completa do Arquivo Magnetico","Mapas de Controle de Produtos Quimicos"} ?{"A Quem se Destina","As empresas que fabricam, produzem, transformam, utilizam, reaproveitam ou reciclam, comerciam, distribuiem, armazenam, transportam ou outra operacao que envolvam produtos quimicos controlados por forca da lei em vigor."} ?{"Objetivo","Controlar a Fiscalizacao sobre Produtos Quimicos que direta ou indiretamente possam ser destinados a elaboracao ilicita de substancias entorpecentes, psicotropicas ou que determinem dependencia fisica ou psiquica."} ?{"Prazo de Entrega","Mensal."} ?{"Aplicativo Disponibilizado pelo Fisco","MAPAS"} ?{"Versao do Aplicativo Contemplada pela Microsiga","2.06"} ?{"Comentarios",""} [XXX Inicializacao] (PRE) _aTotal[50] := {} (PRE) _aTotal[51] := {} (PRE) _aTotal[53] := .F. (PRE) lAbtMt950 := !Mapas(@_aTotal[50]) [XXX Tabela Empresa] TIPO C 002 0 "EM" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) NOME_RAZAO C 070 0 aFisFill(Upper(SM0->M0_NOMECOM),70) CLF C 010 0 Transform(Alltrim(_aTotal[3]),"@R 99999999-9") CNAE C 010 0 Transform(Alltrim(SM0->M0_CNAE),"@R 9999-9/99") GRUPO_I N 001 0 IIf("1"$_aTotal[5],1,0) GRUPO_II N 001 0 IIf("2"$_aTotal[5],1,0) GRUPO_III N 001 0 IIf("3"$_aTotal[5],1,0) GRUPO_IV N 001 0 IIf("4"$_aTotal[5],1,0) GRUPO_V N 001 0 IIf("5"$_aTotal[5],1,0) GRUPO_VI N 001 0 IIf("6"$_aTotal[5],1,0) GRUPO_VII N 001 0 IIf("7"$_aTotal[5],1,0) GRUPO_VIII N 001 0 IIf("8"$_aTotal[5],1,0) GRUPO_IX N 001 0 IIf("9"$_aTotal[5],1,0) DES_GR_IX C 050 0 _aTotal[6] INFO C 200 0 "" GRUPO_PRIN C 010 0 _aTotal[4] RESP C 040 0 _aTotal[7] CPF_RESP C 011 0 _aTotal[8] RG_RESP C 011 0 _aTotal[9] ORGAO_RG C 035 0 _aTotal[10] UF_RG C 002 0 _aTotal[11] DDD C 003 0 _aTotal[12] TELEFONE C 008 0 _aTotal[13] FAX C 008 0 _aTotal[14] EMAIL C 050 0 _aTotal[15] [XXX Tabela Mes] TIPO C 002 0 "ME" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] [TPR Tabela Produtos] (PRE) dbGoTop() TIPO C 002 0 "PR" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] CONCENT C 006 0 StrTran(StrZero(TPR->CONCENT,6,2),".",",") DENSIDADE C 006 0 StrTran(StrZero(TPR->DENSID,6,2),".",",") QT_EST_ANT C 020 0 StrTran(StrZero(TPR->QT_EST_ANT,20,3),".",",") QT_PRODUZ C 020 0 StrTran(StrZero(TPR->QT_PRODUZ,20,3),".",",") QT_TRANSF C 020 0 StrTran(StrZero(TPR->QT_TRANSF,20,3),".",",") QT_UTILIZ C 020 0 StrTran(StrZero(TPR->QT_UTILIZ,20,3),".",",") QT_COMPRAS C 020 0 StrTran(StrZero(TPR->QT_COMPRAS,20,3),".",",") QT_VENDAS C 020 0 StrTran(StrZero(TPR->QT_VENDAS,20,3),".",",") QT_RECICLA C 020 0 StrTran(StrZero(TPR->QT_RECICLA,20,3),".",",") QT_REAPROV C 020 0 StrTran(StrZero(TPR->QT_REAPROV,20,3),".",",") QT_IMPORT C 020 0 StrTran(StrZero(TPR->QT_IMPORT,20,3),".",",") QT_EXPORT C 020 0 StrTran(StrZero(TPR->QT_EXPORT,20,3),".",",") QT_PERDAS C 020 0 StrTran(StrZero(TPR->QT_PERDAS,20,3),".",",") QT_EVAPORA C 020 0 StrTran(StrZero(TPR->QT_EVAPORA,20,3),".",",") QT_ENT_DIV C 020 0 StrTran(StrZero(TPR->QT_ENT_DIV,20,3),".",",") QT_SAI_DIV C 020 0 StrTran(StrZero(TPR->QT_SAI_DIV,20,3),".",",") QT_EST_ATU C 020 0 StrTran(StrZero(TPR->QT_EST_ATU,20,3),".",",") UN C 006 0 TPR->UN NCM C 010 0 Transform(TPR->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TPR->DESCR_PROD {TPF Tabela de Movimentacao de Produtos} (PRE) TPF->(DBSetOrder(2)) (PRE) TPF->(MsSeek (TPR->COD_PROD)) (CHV) TPF->CODIGO == TPR->CODPESQ (PREREG) TPF->CODIGO == TPR->CODPESQ (PREREG) _aTotal[51] := {} TIPO C 002 0 "PF" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] DENSIDADE C 006 0 StrTran(StrZero(TPF->DENSID,6,2),".",",") QTDE C 020 0 StrTran(StrZero(TPF->QTDE,20,3),".",",") UN C 006 0 TPF->UN NCM C 010 0 Transform(TPF->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TPF->DESCR_PROD {TSP Tabela de Movimentacao de Produtos} (PRE) TSP->(DBSetOrder(1)) (PRE) TSP->(DbSeek (TPF->CODPESQ)) (CHV) TSP->CODPESQ == TPF->CODPESQ .And. TPF->CODIGO == TPR->CODPESQ .And. !(ASCAN(_aTotal[51],TSP->CODIGO)>0) (PREREG) TSP->CODPESQ == TPF->CODPESQ .And. TPF->CODIGO == TPR->CODPESQ .And. !(ASCAN(_aTotal[51],TSP->CODIGO)>0) (PREREG) (_aTotal[53]:= .T.,.T.) TIPO C 002 0 "SP" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] CONCENT C 006 0 StrTran(StrZero(TSP->CONCENT,6,2),".",",") NCM C 010 0 Transform(TSP->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TSP->DESCR_PROD (POSREG) IIF(_aTotal[53],AADD(_aTotal[51],TSP->CODIGO), "" ) (POSREG) _aTotal[53] := .F. [TMV Tabela de Movimentacao de Produtos] (PRE) dbGoTop() TIPO C 002 0 "MV" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] DIA C 002 0 TMV->DIA CFOP C 005 0 Transform(TMV->CFOP,"@R 9.999") CONCENT C 006 0 StrTran(StrZero(TMV->CONCENT,6,2),".",",") QTDE C 020 0 StrTran(StrZero(TMV->QTDE,20,3),".",",") UN C 006 0 TMV->UN NFISCAL C 010 0 TMV->NFISCAL CNPJ_CF C 014 0 TMV->CNPJ_CF CNPJ_T C 014 0 TMV->CNPJ_T NCM C 010 0 Transform(TMV->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TMV->DESCR_PROD [TIE Tabela de Importacao e Exportacao] (PRE) dbGoTop() TIPO C 002 0 "IE" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] CONCENT C 006 0 StrTran(StrZero(TIE->CONCENT,6,2),".",",") QTDE C 020 0 StrTran(StrZero(TIE->QTDE,20,3),".",",") UN C 006 0 TIE->UN LI_RE C 020 0 TIE->LI_RE NFISCAL C 010 0 TIE->NFISCAL CNPJ_T C 014 0 TIE->CNPJ_T NOME_IE C 100 0 TIE->NOME_IE PAIS C 003 0 TIE->PAIS IMP_EXP C 001 0 TIE->IMP_EXP NCM C 010 0 Transform(TIE->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TIE->DESCR_PROD [TAM Tabela de Armazenagem de Produtos] (PRE) dbGoTop() (PREREG) "7"$_aTotal[5] TIPO C 002 0 "AM" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] NCM C 010 0 Transform(TAM->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TAM->DESCR_PROD CONCENT C 006 0 StrTran(StrZero(TAM->CONCENT,6,2),".",",") QT_EST_ANT C 020 0 StrTran(StrZero(TAM->QT_EST_ANT,20,3),".",",") QT_EST_ATU C 020 0 StrTran(StrZero(TAM->QT_EST_ATU,20,3),".",",") UN C 006 0 TAM->UN CNPJ C 014 0 TAM->CNPJ [TTP Tabela de Armazenagem de Produtos] (PRE) dbGoTop() (PREREG) "8"$_aTotal[5] COD_TP C 002 0 "TP" CNPJ C 014 0 TTP->CNPJ ANO C 004 0 TTP->ANO MES C 003 0 TTP->MES DIA C 003 0 TTP->DIA CONCENT C 006 0 StrTran(StrZero(TTP->CONCENT,6,2),".",",") QTD C 020 0 StrTran(StrZero(TTP->QTD,20,3),".",",") UN C 006 0 TTP->UN NFISCAL C 006 0 RetNf(aRetDig(TTP->NFISCAL,.F.),6,"N") COD_EMB C 014 0 TTP->COD_EMB UF_EMB C 002 0 TTP->UF_EMB COD_DEST C 014 0 TTP->COD_DEST UF_DEST C 002 0 TTP->UF_DEST NCM C 010 0 TTP->NCM DESCR_PROD C 070 0 TTP->DESCR_PROD [TMA Tabela de Movimento de Armazenagem de Produtos] (PRE) dbGoTop() (PREREG) "7"$_aTotal[5] TIPO C 002 0 "MA" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] DIA C 002 0 TMA->DIA E_S C 001 0 TMA->E_S QTDE C 020 0 StrTran(StrZero(TMA->QTDE,20,3),".",",") UN C 006 0 TMA->UN NFISCAL C 010 0 TMA->NFISCAL CNPJ C 014 0 TMA->CNPJ CNPJ_T C 014 0 TMA->CNPJ_T CONCENT C 006 0 StrTran(StrZero(TMA->CONCENT,6,2),".",",") NCM C 010 0 Transform(TMA->NCM,"@R 9999.99.99") RAZSOC C 070 0 TMA->RAZSOC [TRE Tabela de Residuo] (PRE) dbGoTop() TIPO C 002 0 "RS" CNPJ C 014 0 aFisFill(Num2Chr(Val(aRetDig(SM0->M0_CGC,.F.)),14,0),14) ANO C 004 0 StrZero(Year(_aTotal[1]),4) MES C 003 0 _aTotal[90] CODPRPRS C 006 0 TRE->CODPRPRS CONCENT C 006 0 StrTran(StrZero(TRE->CONCENT,6,2),".",",") QTDE C 020 0 StrTran(StrZero(TRE->QTDE,20,3),".",",") UN C 006 0 TRE->UN DESTINA C 025 0 TRE->DESTINA NCM C 010 0 Transform(TRE->NCM,"@R 9999.99.99") DESCR_PROD C 070 0 TRE->DESCR_PROD [XXX Exclui temporarios criados] (PRE) MapasDel(_aTotal[50])