  TITULO EXP.PARA ACERTAR TRIBUTACOES
REM    ********** PARA EXPORTAR SOMENTE PRODUTOS MOVIMENTADOS DESCOMENTAR AS LINHAS ABAIXO **********
REM    ********** EXCETO AS QUE ESTIVEREM ENTRE "*"  **********
REM    ********** AQUI ESTOU ABRINDO AS VENDAS DO PERIODO **********

rem    ARQUIVO VEND.ABD, 1, NCD, DATA_VENDA
rem    DEF QUANTID = 0
rem    SE NUM_VENDA > 99999999 PULA
rem    COMPACTA CODIGO
rem    COMPZERA QUANTID
rem    COMPCALC QUANTID = QUANTID + QUANT_VENDIDO
rem    COMPCALC QUANT_VENDIDO = QUANTID
rem    NOMEARQ VENDAS.ABD
rem    GERAARQ CODIGO, DESCRICAO, QUANT_VENDIDO
rem    FIMRELAT

REM    ********** AQUI ESTOU ABRINDO AS ENTRADAS DO PERIODO **********

rem    ARQUIVO CRED.ABD, 1, NCD, DATA
rem    SE NUM_ENTRADA > 100000000 PULA
rem    DEF QUANTIDADE = 0
rem    CALC QUANTIDADE = QUANTID * QUANT_EMBAL
rem    GERAARQ CODIGO, DESCRICAO, QUANTIDADE
rem    DEF QUANTCOMP = 0
rem    COMPACTA CODIGO
rem    COMPZERA QUANTCOMP
rem    COMPCALC QUANTCOMP = QUANTCOMP + QUANTIDADE
rem    COMPCALC QUANTIDADE = QUANTCOMP
rem    NOMEARQ ENTRADAS.ABD
rem    GERAARQ CODIGO, DESCRICAO, QUANTIDADE
rem    FIMRELAT

REM    ********** AQUI ESTOU SOMANDO VENDAS E ENTRADAS PARA VERIFICAR MOVIMENTACAO **********

rem    ARQUIVO VENDAS.ABD, 1
rem    SOMAARQ VENDAS.ABD, 1, ENTRADAS.ABD, 1
rem    SCAMPO CODIGO, CODIGO
rem    SCAMPO DESCRICAO, DESCRICAO
rem    SCAMPO QUANT_VENDIDO, QUANTIDADE
rem    SOMAEXEC
rem    FIMRELAT

rem    ARQUIVO VENDAS.ABD, 1
rem    DEF QTD = 0
rem    COMPACTA CODIGO
rem    COMPZERA QTD
rem    COMPCALC QTD = QUANT_VENDIDO
rem    COMPCALC QUANT_VENDIDO = QTD
rem    NOMEARQ MOVIMENT.ABD
rem    GERAARQ CODIGO, DESCRICAO
rem    FIMRELAT

    ARQUIVO ARQ01.ABD, 1
    INDEX PISCOF.ABD, 1, PISCOF, PIS
rem    INDEX MOVIMENT.ABD, 1, CODIGO, CODIGO
rem    SE CODIGO # B.CODIGO PULA
    SE STATUS = 1 PULA
    DEF ALIQPIS = 0
    DEF ALIQCOF = 0
    DEF CSTSAIDPISCOF[INT] = 0
    DEF CSTENTRPISCOF[INT] = 0
    DEF NATRECEITA[INT] = 0
    DEF DESC_PIS[41] = ""
    DEF DESC_STATUS[8] = ""
    CALC ALIQPIS = (A.ALIQ_PIS * A.CRED_E_PIS / 100 )
    CALC ALIQCOF = (A.ALIQ_COFINS * A.CRED_E_COFINS / 100 )
    CALC CSTENTRPISCOF = A.CST_E_PIS
    CALC CSTSAIDPISCOF = A.CST_S_PIS
    CALC NATRECEITA = A.NAT_REC
    STR COD_BARRAS = STRTED(COD_BARRAS)
    STR COD_BARRAS = STRTEE(COD_BARRAS)
    STR DESC_PIS = A.DESCRICAO
    STR DESC_STATUS = ""
    SE STATUS = 0 EXEC 1
    STR DESC_STATUS = "ATIVO"
    SE STATUS = 1 EXEC 1
    STR DESC_STATUS = "INATIVO"
    GERAARQ CODIGO, DESCRICAO, COD_BARRAS, UNIDADE, ICMS, QESTOQUE, PCUSTO, PCUSTOM, LUCRO, ATUALIZACAO, CST, ALIQ_ICMS, REDUC_ICMS, NBM, STATUS, DESC_STATUS, PIS, CEST, ALIQPIS, ALIQCOF, CSTENTRPISCOF, CSTSAIDPISCOF, NATRECEITA, DESC_PIS
    DEF VICMS[10] = ""
    DEF PVEZ[SHORT] = 0
    NCLINHA = 200
    VIRGULADEC
    SALVATXT PRODUTOS.CSV
    SE PVEZ = 0 EXEC 1
    LISTA CODIGO;CODIGO_BARRAS;DESCRICAO;ESTOQUE;ICMS;CST;ALIQUOTA;REDUCAO;NCM;CEST;PIS;COFINS;CSTPISCOF(ENTRADA);CSTPISCOF(SAIDA);NATUREZA;DESCRICAO PIS_COF;STATUS
    CALC PVEZ = 1
    STR VICMS = CICMS(ICMS)
    LISTA  [ 1.0 CODIGO ];="[ 0 COD_BARRAS ]";[ 0 DESCRICAO ];[ 3.2 QESTOQUE ];[ 0 VICMS ];="[ 0 CST ]";[ 3.2 ALIQ_ICMS ];[ 3.2 REDUC_ICMS ];="[ 0 NBM ]";="[ 0 CEST ]";[ 3.2 ALIQPIS ];[ 3.2 ALIQCOF ];[ 1.0 CSTENTRPISCOF ];[ 1.0 CSTSAIDPISCOF ];[ 1.0 NATRECEITA ];[ 0 DESC_PIS ];[ 0 DESC_STATUS ]
    FECHARELAT