Windev21 Aulas,Estudos e Desenvolvimento: WinDev - Curso - 165 - WinDev - Importar Ncm Site Olho Imposto

Video

Nessa aula vou Mostrar como eu Fiz para Importar Ncm do Site de Olho no Imposto.
Vou disponibilizar como eu fiz

https://deolhonoimposto.ibpt.org.br/

sFile is string
sFile = fSelect("", "", "Selecione o arquivo", "Comma Separeted Values" + TAB + "*.csv" + CR + "Microsoft Excel" + TAB + "*.xlsx" + CR + "All the files (*.*)" + TAB + "*.*", "*.csv")
EDT_Tabela_de_referência=sFile
sEparador is string = ";"
linha is string
numeroArquivo is int
contador is int
contadorColuna is int
numeroArquivo = fOpen(EDT_Tabela_de_referência,foRead)
Trace("Realizando Leitura do Arquivo.. Aguarde....")
IF numeroArquivo = -1 THEN
    Info("Arquivo não encontrado!")
ELSE
    LOOP
        linha=fReadLine(numeroArquivo)
        IF linha <> EOT THEN
            IF linha[[1 TO 6]] <> "codigo" THEN
                TableAddLine(TABLE_NCM_Importar)
                nTamanhoLinha is int = Length(linha)
                linha = Replace(linha,";",CR)
                arrayValores is array of 13 strings
                StringToArray(linha, arrayValores)
                quantidadeArray is int = arrayValores..Occurrence
                contadorColuna = 1
                FOR contador = 1 TO quantidadeArray
                    TABLE_NCM_Importar[TABLE_NCM_Importar..Occurrence][contadorColuna]=arrayValores[contador]
                    contadorColuna++

                END
            END
        ELSE
            BREAK
        END
    END
    fClose(numeroArquivo)
END
TraceEnd()

Trace("Importando Ncm")
FOR EACH ROW OF TABLE_NCM_Importar
    Trace(TABLE_NCM_Importar.COL_Codigo)
    HReadSeekFirst(ncm,ncm_classificacao,TABLE_NCM_Importar.COL_Codigo)
    IF HFound(ncm) THEN
        ncm.ibpt_aliquota_estadual = TABLE_NCM_Importar.COL_estadual
        ncm.ibpt_aliquota_federal = TABLE_NCM_Importar.COL_nacionalFederal
        ncm.ibpt_aliquota_importado = TABLE_NCM_Importar.COL_importadosFederal
        ncm.ibpt_aliquota_nacional = TABLE_NCM_Importar.COL_municipal // PRECISA VERIFICAR ESSE AQUI NÃO SEI SE ESTÁ CORRETO, TEMOS 4 TRIBUTOS TAL COMO NA TABELA
                                                                    // MAS OS NOMES DESSES TRIBUTOS ESTÃO DIFERENTES, ENTÃO NÃO TENHO CERTEZA.
        HModify(ncm)
    ELSE
        HReset(ncm)
        ncm.cod_trib_nota=99
        //ncm.aliquota_ipi
        //ncm.cEnq
        //ncm.codigo_interno
        //ncm.ibpt_aliquota_nacional nao tem
        ncm.ibpt_aliquota_estadual = TABLE_NCM_Importar.COL_estadual
        ncm.ibpt_aliquota_federal = TABLE_NCM_Importar.COL_nacionalFederal
        ncm.ibpt_aliquota_importado = TABLE_NCM_Importar.COL_importadosFederal
        ncm.ibpt_aliquota_municipal = TABLE_NCM_Importar.COL_municipal // PRECISA VERIFICAR ESSE AQUI NÃO SEI SE ESTÁ CORRETO, TEMOS 4 TRIBUTOS TAL COMO NA TABELA
                                                                    // MAS OS NOMES DESSES TRIBUTOS ESTÃO DIFERENTES, ENTÃO NÃO TENHO CERTEZA.
        //ncm.mva
        //ncm.mva_inter_estadual
        ncm.ncm_classificacao = TABLE_NCM_Importar.COL_Codigo
        ncm.descricao_ncm=TABLE_NCM_Importar.COL_Descricao
        //ncm.unidade
        ncm.importado_ex=TABLE_NCM_Importar.COL_ex
        ncm.importado_tipo=TABLE_NCM_Importar.COL_Tipo
        ncm.importado_descricao=TABLE_NCM_Importar.COL_Descricao
        ncm.importado_vigencia_inicio=TABLE_NCM_Importar.COL_vigenciaInicio
        ncm.importado_vigencia_final=TABLE_NCM_Importar.COL_vigenciaFim
        ncm.importado_chave=TABLE_NCM_Importar.COL_chave
        ncm.importado_versao=TABLE_NCM_Importar.COL_versao
        ncm.importado_fonte=TABLE_NCM_Importar.COL_fonte
        HAdd(ncm)
    END
END
TraceEnd()

Páginas

quinta-feira, 10 de dezembro de 2015

WinDev - Curso - 165 - WinDev - Importar Ncm Site Olho Imposto - Como Fiz

Nenhum comentário:

Postar um comentário