Vou Mostrar nessa aula duas coisas.
Primeiro
tive problema de conexao em cliente e vou mostrar onde eu tinha errado na configuracao
do FireWall do Windows
Segundo
Vou mostrar uma Dica de Jose Jorge Matos, sobre como criar uma conexao usando o Wizar
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()
