|
Inicio → WINDEV 25 → Exemplo de como importar uma planilha do Excell usando a plataforma Windev, Webdev e Windev Mobile |
Exemplo de como importar uma planilha do Excell usando a plataforma Windev, Webdev e Windev Mobile |
Iniciado por BOLLER, jan., 08 2020 11:42 PM - 2 respostas |
| |
| | | |
|
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 08 2020 - 11:42 PM |
Procedure BuscarXls()
EDT_MES_ANO = ""
TableImport.DeleteAll()
sFileName is string
sFileName = fSelect("", "", "Selecione a planilha do Excel Padrão...", "Excel Xls" + TAB + "*.xls" + CR + "Excel Xlsx" + TAB + "*.xlsx", "*.xls", fselOpen)
IF sFileName <> "" THEN EDT_FILE = sFileName END
Procedure Procedimento_01()
IF EDT_FILE = "" THEN Info("Informe caminho e o nome do arquivo a ser importado do Excel.") RETURN END
IF EDT_RESPONAVEL = "" THEN Info("Informe o seu nome como responsavel pela importação.") RETURN END
IF EDT_MES_ANO = "" THEN Info("Informe o mês e o ano referente a esse processamento.","Exemplo:","01/2019") RETURN END
nFileID is int nColumn is int nRow is int nFirstLine is int sLine is string nNbLines is int nNbColumns is int sFileName is string sData is string
IF EDT_FILE~="" THEN Error("Select an Excel file!") RETURN END
sFileName = EDT_FILE
HourGlass(True)
IF fSize(sFileName)<=0 THEN Error("Unable to find the specified file") RETURN END
nFileID = xlsOpen(sFileName) IF nFileID=-1 THEN Error("Unable to open the file.",... "Check whether it is not already opened on another application.",xlsMsgError(nFileID)) RETURN END
TableDeleteAll(TableImport)
FOR nColumn=1 TO COLNB TableImport[1][nColumn]..Caption = "" {"Column"+nColumn,indControl}..Visible=True END
nNbLines = xlsNbRow(nFileID) nNbColumns = xlsNbColumn(nFileID)
IF CBox_Title[1] = True THEN FOR nColumn=1 TO nNbColumns TableImport[1][nColumn]..Caption = xlsData(nFileID, 1, nColumn) END nFirstLine = 2 ELSE nFirstLine = 1 END
FOR nRow = nFirstLine TO nNbLines sLine = "" TableAddLine(TableImport) FOR nColumn = 1 TO nNbColumns sData = xlsData(nFileID, nRow, nColumn, False) {"Column"+nColumn,indControl}[TableCount(TableImport)]= sData IF NumToString(Val(sData))=sData THEN {"Column"+nColumn,indControl}..HorizontalAlignment=iRight ELSE {"Column"+nColumn,indControl}..HorizontalAlignment=iLeft END END END
FOR nColumn = nNbColumns+1 TO COLNB {"Column"+nColumn,indControl}..Visible=False END WinRedraw()
xlsClose(nFileID)
HourGlass(False)
Procedure Procedimento_02()
HDeleteAll(Planilha_Destino)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
TableDisplay(TABLE_Planilha_Destino,taInit)
// Summary: // Syntax: // Procedimento_03 () // // Parameters: // None // Return value: // None // // For instance: // Indicate an example. // PROCEDURE Procedimento_03()
//TABELA DESTINO
EDT_DATA_HORA = DateSys() + TimeSys()
TableDisplay(TABLE_Planilha_Destino,taInit)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
HourGlass(True)
X is int = 0
OBRIGATORIO is boolean = False
COD, UF, CONSELHO is string
CUSTO_SERVICO, FILME, HONORARIO is real
//LER PLANILHA CONVERTER PARA HFSQL LOOP(TableImport.Count(toTotal)) X++ //DADOS PRINCIPAIS IF TableImport[X].Column1..Caption = "SEQUENCIAL" Planilha_Destino.SEQUENCIAL = TableImport[X].Column1 END IF TableImport[X].Column2..Caption = "CONTRATO" Planilha_Destino.CONTRATO = TableImport[X].Column2 END IF TableImport[X].Column3..Caption = "CONTRATANTE" Planilha_Destino.EMPRESA = TableImport[X].Column3 END IF TableImport[X].Column5..Caption = "LOTACAO" Planilha_Destino.SEDE_ALOCADO = TableImport[X].Column5 END IF TableImport[X].Column6..Caption = "FAMILIA_RESPONSAVEL" Planilha_Destino.TITULAR = TableImport[X].Column6 END IF TableImport[X].Column43..Caption = "BENEFICIARIO_CPF" THEN TableImport[X].Column43 = Replace(TableImport[X].Column43,".","") TableImport[X].Column43 = Replace(TableImport[X].Column43,"-","") NPOS is int = Length(TableImport[X].Column43) IF NPOS < 11 THEN IF NPOS = 10 THEN Planilha_Destino.CPF_UTILIZADOR = "0"+TableImport[X].Column43 ELSE IF NPOS = 9 THEN Planilha_Destino.CPF_UTILIZADOR = "00"+TableImport[X].Column43 END ELSE Planilha_Destino.CPF_UTILIZADOR = TableImport[X].Column43 END END IF TableImport[X].Column9..Caption = "BENEFICIARIO" THEN OBRIGATORIO = True Planilha_Destino.NOME_UTILIZADOR = TableImport[X].Column9 END //CRM IF TableImport[X].Column25..Caption = "RECEBEDOR_INSCRICAO" THEN COD = TableImport[X].Column25 END IF TableImport[X].Column26..Caption = "RECEBEDOR_INSCRICAO_UF" THEN UF = TableImport[X].Column26 END IF TableImport[X].Column24..Caption = "RECEBEDOR_CONSELHO" THEN CONSELHO = TableImport[X].Column24 END IF COD <> "" AND COD <> "0" AND COD <> 0 Planilha_Destino.CRM_INSCRICAO = COD +"-"+ UF +"-"+ CONSELHO COD = "" UF = "" CONSELHO = "" END IF TableImport[X].Column34..Caption = "RECEBEDOR_CODIGO" THEN Planilha_Destino.COD_MEDICO_CLINICA = TableImport[X].Column34 END IF TableImport[X].Column35..Caption = "RECEBEDOR_NOME" THEN Planilha_Destino.NOME_MEDICO_CLINICA = TableImport[X].Column35 END IF TableImport[X].Column13..Caption = "GUIA_DT_ATENDIMENTO" THEN Planilha_Destino.DATA = Middle(TableImport[X].Column13,1,10) // FORMATAR END IF TableImport[X].Column19..Caption = "GUIA_HR_ATEND" THEN Planilha_Destino.HORA = Middle(TableImport[X].Column19,1,5) // FORMATAR END IF TableImport[X].Column17..Caption = "GUIA_TIPO_EXEC" THEN Planilha_Destino.TIPO = TableImport[X].Column17 END IF TableImport[X].Column42..Caption = "GUIA_REGIME_ATEND" THEN Planilha_Destino.SUBTIPO = TableImport[X].Column42 END IF TableImport[X].Column36..Caption = "ESPECIALIDADE" THEN Planilha_Destino.ESPECIALIDADE_MEDICA = TableImport[X].Column36 END IF TableImport[X].Column41..Caption = "PROCED_DESCRICAO" THEN Planilha_Destino.PROCEDIMENTO = TableImport[X].Column41 END IF TableImport[X].Column27..Caption = "CUSTO_SERVICO" THEN CUSTO_SERVICO = TableImport[X].Column27 Planilha_Destino.CUSTO_SERVICO = TableImport[X].Column27 END IF TableImport[X].Column28..Caption = "FILME" THEN FILME = TableImport[X].Column28 Planilha_Destino.CUSTO_FILME = TableImport[X].Column28 END IF TableImport[X].Column29..Caption = "HONORARIO" THEN HONORARIO = TableImport[X].Column29 Planilha_Destino.CUSTO_HONORARIO = TableImport[X].Column29 END Planilha_Destino.VALOR_TOTAL_REFERENCIA = CUSTO_SERVICO + FILME + HONORARIO IF TableImport[X].Column31..Caption = "VALOR_PAGO_SERVICO" THEN Planilha_Destino.VALOR_COPARTICIPACAO = TableImport[X].Column31 END //A CALCULAR Planilha_Destino.VALOR_TOTAL_COPAR_REF = 0 Planilha_Destino.VALOR_A_SER_PAGO_EMPRESA = 0 Planilha_Destino.VALOR_A_SER_PAGO_FUNCIONARIO = 0 Planilha_Destino.SALDO_DEVEDOR_MES_ANTERIOR = 0 Planilha_Destino.DESCONTO_EM_FOLHA = 0 Planilha_Destino.SALDO_DEVEDOR_FINAL = 0 //OUTROS CAMPOS IF TableImport[X].Column4..Caption = "LOTACAO_CODIGO" THEN Planilha_Destino.LOTACAO_CODIGO = TableImport[X].Column4 END IF TableImport[X].Column7..Caption = "FAMILIA" THEN Planilha_Destino.FAMILIA = TableImport[X].Column7 END IF TableImport[X].Column8..Caption = "CODIGO_AFINIDADE" THEN Planilha_Destino.CODIGO_AFINIDADE = TableImport[X].Column8 END IF TableImport[X].Column10..Caption = "DT_NASCIMENTO" THEN Planilha_Destino.DT_NASCIMENTO = StringToDate(TableImport[X].Column10) END IF TableImport[X].Column11..Caption = "SEXO" THEN Planilha_Destino.SEXO = TableImport[X].Column11 END IF TableImport[X].Column12..Caption = "GUIA_NUMERO" THEN Planilha_Destino.GUIA_NUMERO = TableImport[X].Column12 END IF TableImport[X].Column14..Caption = "GUIA_DT_INTERNACAO" THEN Planilha_Destino.GUIA_DT_INTERNACAO = Middle(TableImport[X].Column14,1,10) END IF TableImport[X].Column15..Caption = "GUIA_DT_ALTA" THEN Planilha_Destino.GUIA_DT_ALTA = Middle(TableImport[X].Column15,1,10) END IF TableImport[X].Column16..Caption = "RECEBEDOR" THEN Planilha_Destino.RECEBEDOR = TableImport[X].Column16 END IF TableImport[X].Column18..Caption = "GUIA_EMERGENCIA" THEN Planilha_Destino.GUIA_EMERGENCIA = TableImport[X].Column18 END IF TableImport[X].Column20..Caption = "REGIME_ATENDIMENTO" THEN Planilha_Destino.REGIME_ATENDIMENTO = TableImport[X].Column20 END IF TableImport[X].Column21..Caption = "PROCED_TIPO" THEN Planilha_Destino.PROCED_TIPO = TableImport[X].Column21 END IF TableImport[X].Column22..Caption = "PROCED_CODIGO" THEN Planilha_Destino.PROCED_CODIGO = TableImport[X].Column22 END IF TableImport[X].Column23..Caption = "GUIA_QTDE_PAGTO" THEN Planilha_Destino.GUIA_QTDE_PAGTO = TableImport[X].Column23 END IF TableImport[X].Column30..Caption = "TAXA" THEN Planilha_Destino.TAXA = TableImport[X].Column30 END IF TableImport[X].Column32..Caption = "BASE_INSS" THEN Planilha_Destino.BASE_INSS = TableImport[X].Column32 END IF TableImport[X].Column33..Caption = "MATRICULA_FUNCIONAL" THEN Planilha_Destino.MATRICULA_FUNCIONAL = TableImport[X].Column33 END IF TableImport[X].Column37..Caption = "CID_PRINCIPAL" THEN Planilha_Destino.CID_PRINCIPAL = TableImport[X].Column37 END IF TableImport[X].Column38..Caption = "DEPENDENTE_CODIGO" THEN Planilha_Destino.DEPENDENTE_CODIGO = TableImport[X].Column38 END IF TableImport[X].Column39..Caption = "PROCED_CODIGO1" THEN Planilha_Destino.PROCED_CODIGO1 = TableImport[X].Column39 END IF TableImport[X].Column40..Caption = "PROCED_ATEND" THEN Planilha_Destino.PROCED_ATEND = TableImport[X].Column40 END IF TableImport[X].Column44..Caption = "FATURA_NATUREZA" THEN Planilha_Destino.FATURA_NATUREZA = TableImport[X].Column44 END IF TableImport[X].Column45..Caption = "RECGLOSA_QTDERECONS" THEN Planilha_Destino.RECGLOSA_QTDERECONS = TableImport[X].Column45 END IF OBRIGATORIO = True HAdd(Planilha_Destino) END END
TableDisplay(TABLE_Planilha_Destino,taInit)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
HourGlass(False)
ToastDisplay("IMPORTADO!",toastLong,vaMiddle,haCenter,RGB(0,0,255))
Procedure Procedimento_03()
EDT_DATA_HORA = DateSys() + TimeSys()
TableDisplay(TABLE_Planilha_Destino,taInit)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
HourGlass(True)
X is int = 0
OBRIGATORIO is boolean = False
COD, UF, CONSELHO is string
CUSTO_SERVICO, FILME, HONORARIO is real
LOOP(TableImport.Count(toTotal)) X++ IF TableImport[X].Column1..Caption = "SEQUENCIAL" Planilha_Destino.SEQUENCIAL = TableImport[X].Column1 END IF TableImport[X].Column2..Caption = "CONTRATO" Planilha_Destino.CONTRATO = TableImport[X].Column2 END IF TableImport[X].Column3..Caption = "CONTRATANTE" Planilha_Destino.EMPRESA = TableImport[X].Column3 END IF TableImport[X].Column5..Caption = "LOTACAO" Planilha_Destino.SEDE_ALOCADO = TableImport[X].Column5 END IF TableImport[X].Column6..Caption = "FAMILIA_RESPONSAVEL" Planilha_Destino.TITULAR = TableImport[X].Column6 END IF TableImport[X].Column43..Caption = "BENEFICIARIO_CPF" THEN TableImport[X].Column43 = Replace(TableImport[X].Column43,".","") TableImport[X].Column43 = Replace(TableImport[X].Column43,"-","") NPOS is int = Length(TableImport[X].Column43) IF NPOS < 11 THEN IF NPOS = 10 THEN Planilha_Destino.CPF_UTILIZADOR = "0"+TableImport[X].Column43 ELSE IF NPOS = 9 THEN Planilha_Destino.CPF_UTILIZADOR = "00"+TableImport[X].Column43 END ELSE Planilha_Destino.CPF_UTILIZADOR = TableImport[X].Column43 END END IF TableImport[X].Column9..Caption = "BENEFICIARIO" THEN OBRIGATORIO = True Planilha_Destino.NOME_UTILIZADOR = TableImport[X].Column9 END IF TableImport[X].Column25..Caption = "RECEBEDOR_INSCRICAO" THEN COD = TableImport[X].Column25 END IF TableImport[X].Column26..Caption = "RECEBEDOR_INSCRICAO_UF" THEN UF = TableImport[X].Column26 END IF TableImport[X].Column24..Caption = "RECEBEDOR_CONSELHO" THEN CONSELHO = TableImport[X].Column24 END IF COD <> "" AND COD <> "0" AND COD <> 0 Planilha_Destino.CRM_INSCRICAO = COD +"-"+ UF +"-"+ CONSELHO COD = "" UF = "" CONSELHO = "" END IF TableImport[X].Column34..Caption = "RECEBEDOR_CODIGO" THEN Planilha_Destino.COD_MEDICO_CLINICA = TableImport[X].Column34 END IF TableImport[X].Column35..Caption = "RECEBEDOR_NOME" THEN Planilha_Destino.NOME_MEDICO_CLINICA = TableImport[X].Column35 END IF TableImport[X].Column13..Caption = "GUIA_DT_ATENDIMENTO" THEN Planilha_Destino.DATA = Middle(TableImport[X].Column13,1,10) END IF TableImport[X].Column19..Caption = "GUIA_HR_ATEND" THEN Planilha_Destino.HORA = Middle(TableImport[X].Column19,1,5) END IF TableImport[X].Column17..Caption = "GUIA_TIPO_EXEC" THEN Planilha_Destino.TIPO = TableImport[X].Column17 END IF TableImport[X].Column42..Caption = "GUIA_REGIME_ATEND" THEN Planilha_Destino.SUBTIPO = TableImport[X].Column42 END IF TableImport[X].Column36..Caption = "ESPECIALIDADE" THEN Planilha_Destino.ESPECIALIDADE_MEDICA = TableImport[X].Column36 END IF TableImport[X].Column41..Caption = "PROCED_DESCRICAO" THEN Planilha_Destino.PROCEDIMENTO = TableImport[X].Column41 END IF TableImport[X].Column27..Caption = "CUSTO_SERVICO" THEN CUSTO_SERVICO = TableImport[X].Column27 Planilha_Destino.CUSTO_SERVICO = TableImport[X].Column27 END IF TableImport[X].Column28..Caption = "FILME" THEN FILME = TableImport[X].Column28 Planilha_Destino.CUSTO_FILME = TableImport[X].Column28 END IF TableImport[X].Column29..Caption = "HONORARIO" THEN HONORARIO = TableImport[X].Column29 Planilha_Destino.CUSTO_HONORARIO = TableImport[X].Column29 END Planilha_Destino.VALOR_TOTAL_REFERENCIA = CUSTO_SERVICO + FILME + HONORARIO IF TableImport[X].Column31..Caption = "VALOR_PAGO_SERVICO" THEN Planilha_Destino.VALOR_COPARTICIPACAO = TableImport[X].Column31 END Planilha_Destino.VALOR_TOTAL_COPAR_REF = 0 Planilha_Destino.VALOR_A_SER_PAGO_EMPRESA = 0 Planilha_Destino.VALOR_A_SER_PAGO_FUNCIONARIO = 0 Planilha_Destino.SALDO_DEVEDOR_MES_ANTERIOR = 0 Planilha_Destino.DESCONTO_EM_FOLHA = 0 Planilha_Destino.SALDO_DEVEDOR_FINAL = 0 IF TableImport[X].Column4..Caption = "LOTACAO_CODIGO" THEN Planilha_Destino.LOTACAO_CODIGO = TableImport[X].Column4 END IF TableImport[X].Column7..Caption = "FAMILIA" THEN Planilha_Destino.FAMILIA = TableImport[X].Column7 END IF TableImport[X].Column8..Caption = "CODIGO_AFINIDADE" THEN Planilha_Destino.CODIGO_AFINIDADE = TableImport[X].Column8 END IF TableImport[X].Column10..Caption = "DT_NASCIMENTO" THEN Planilha_Destino.DT_NASCIMENTO = StringToDate(TableImport[X].Column10) END IF TableImport[X].Column11..Caption = "SEXO" THEN Planilha_Destino.SEXO = TableImport[X].Column11 END IF TableImport[X].Column12..Caption = "GUIA_NUMERO" THEN Planilha_Destino.GUIA_NUMERO = TableImport[X].Column12 END IF TableImport[X].Column14..Caption = "GUIA_DT_INTERNACAO" THEN Planilha_Destino.GUIA_DT_INTERNACAO = Middle(TableImport[X].Column14,1,10) END IF TableImport[X].Column15..Caption = "GUIA_DT_ALTA" THEN Planilha_Destino.GUIA_DT_ALTA = Middle(TableImport[X].Column15,1,10) END IF TableImport[X].Column16..Caption = "RECEBEDOR" THEN Planilha_Destino.RECEBEDOR = TableImport[X].Column16 END IF TableImport[X].Column18..Caption = "GUIA_EMERGENCIA" THEN Planilha_Destino.GUIA_EMERGENCIA = TableImport[X].Column18 END IF TableImport[X].Column20..Caption = "REGIME_ATENDIMENTO" THEN Planilha_Destino.REGIME_ATENDIMENTO = TableImport[X].Column20 END IF TableImport[X].Column21..Caption = "PROCED_TIPO" THEN Planilha_Destino.PROCED_TIPO = TableImport[X].Column21 END IF TableImport[X].Column22..Caption = "PROCED_CODIGO" THEN Planilha_Destino.PROCED_CODIGO = TableImport[X].Column22 END IF TableImport[X].Column23..Caption = "GUIA_QTDE_PAGTO" THEN Planilha_Destino.GUIA_QTDE_PAGTO = TableImport[X].Column23 END IF TableImport[X].Column30..Caption = "TAXA" THEN Planilha_Destino.TAXA = TableImport[X].Column30 END IF TableImport[X].Column32..Caption = "BASE_INSS" THEN Planilha_Destino.BASE_INSS = TableImport[X].Column32 END IF TableImport[X].Column33..Caption = "MATRICULA_FUNCIONAL" THEN Planilha_Destino.MATRICULA_FUNCIONAL = TableImport[X].Column33 END IF TableImport[X].Column37..Caption = "CID_PRINCIPAL" THEN Planilha_Destino.CID_PRINCIPAL = TableImport[X].Column37 END IF TableImport[X].Column38..Caption = "DEPENDENTE_CODIGO" THEN Planilha_Destino.DEPENDENTE_CODIGO = TableImport[X].Column38 END IF TableImport[X].Column39..Caption = "PROCED_CODIGO1" THEN Planilha_Destino.PROCED_CODIGO1 = TableImport[X].Column39 END IF TableImport[X].Column40..Caption = "PROCED_ATEND" THEN Planilha_Destino.PROCED_ATEND = TableImport[X].Column40 END IF TableImport[X].Column44..Caption = "FATURA_NATUREZA" THEN Planilha_Destino.FATURA_NATUREZA = TableImport[X].Column44 END IF TableImport[X].Column45..Caption = "RECGLOSA_QTDERECONS" THEN Planilha_Destino.RECGLOSA_QTDERECONS = TableImport[X].Column45 END IF OBRIGATORIO = True HAdd(Planilha_Destino) END END
TableDisplay(TABLE_Planilha_Destino,taInit)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
HourGlass(False)
ToastDisplay("IMPORTADO!",toastLong,vaMiddle,haCenter,RGB(0,0,255))
Procedure Procedimento_04()
HourGlass(True)
nErros is 8-bytes int
ok, achou is boolean = False
FOR EACH Planilha_Destino IF HFound(Planilha_Destino) = True THEN HReset(TMOV_COPAY) BufChaveComposta is Buffer = HBuildKeyValue(TMOV_COPAY,KUNICA,Planilha_Destino.CONTRATO,Planilha_Destino.EMPRESA,Planilha_Destino.SEDE_ALOCADO,Planilha_Destino.CPF_UTILIZADOR,Planilha_Destino.NOME_UTILIZADOR,Planilha_Destino.DATA,Planilha_Destino.HORA,Planilha_Destino.PROCEDIMENTO) IF HReadSeek(TMOV_COPAY,KUNICA,BufChaveComposta,hIdentical+hKeepFilter) = True THEN IF HFound(t002_clientes) = True achou = True END ELSE achou = False END TMOV_COPAY.SEQUENCIAL = Planilha_Destino.SEQUENCIAL TMOV_COPAY.CONTRATO = Planilha_Destino.CONTRATO TMOV_COPAY.EMPRESA = Planilha_Destino.EMPRESA TMOV_COPAY.SEDE_ALOCADO = Planilha_Destino.SEDE_ALOCADO TMOV_COPAY.TITULAR = Planilha_Destino.TITULAR TMOV_COPAY.CPF_UTILIZADOR = Planilha_Destino.CPF_UTILIZADOR TMOV_COPAY.NOME_UTILIZADOR = Planilha_Destino.NOME_UTILIZADOR TMOV_COPAY.CRM_INSCRICAO = Planilha_Destino.CRM_INSCRICAO TMOV_COPAY.COD_MEDICO_CLINICA = Planilha_Destino.COD_MEDICO_CLINICA TMOV_COPAY.NOME_MEDICO_CLINICA = Planilha_Destino.NOME_MEDICO_CLINICA TMOV_COPAY.DATA = StringToDate(Planilha_Destino.DATA) TMOV_COPAY.HORA = StringToTime(Planilha_Destino.HORA) TMOV_COPAY.TIPO = Planilha_Destino.TIPO TMOV_COPAY.SUBTIPO = Planilha_Destino.SUBTIPO TMOV_COPAY.ESPECIALIDADE_MEDICA = Planilha_Destino.ESPECIALIDADE_MEDICA TMOV_COPAY.PROCEDIMENTO = Planilha_Destino.PROCEDIMENTO TMOV_COPAY.VALOR_TOTAL_REFERENCIA = Planilha_Destino.VALOR_TOTAL_REFERENCIA TMOV_COPAY.VALOR_COPARTICIPACAO = Planilha_Destino.VALOR_COPARTICIPACAO TMOV_COPAY.VALOR_TOTAL_COPAR_REF = Planilha_Destino.VALOR_TOTAL_COPAR_REF TMOV_COPAY.VALOR_A_SER_PAGO_EMPRESA = Planilha_Destino.VALOR_A_SER_PAGO_EMPRESA TMOV_COPAY.VALOR_A_SER_PAGO_FUNCIONARIO = Planilha_Destino.VALOR_A_SER_PAGO_FUNCIONARIO TMOV_COPAY.SALDO_DEVEDOR_MES_ANTERIOR = Planilha_Destino.SALDO_DEVEDOR_MES_ANTERIOR TMOV_COPAY.DESCONTO_EM_FOLHA = Planilha_Destino.DESCONTO_EM_FOLHA TMOV_COPAY.SALDO_DEVEDOR_FINAL = Planilha_Destino.SALDO_DEVEDOR_FINAL TMOV_COPAY.LOTACAO_CODIGO = Planilha_Destino.LOTACAO_CODIGO TMOV_COPAY.FAMILIA = Planilha_Destino.FAMILIA TMOV_COPAY.CODIGO_AFINIDADE = Planilha_Destino.CODIGO_AFINIDADE TMOV_COPAY.DT_NASCIMENTO = Planilha_Destino.DT_NASCIMENTO TMOV_COPAY.SEXO = Planilha_Destino.SEXO TMOV_COPAY.GUIA_NUMERO = Planilha_Destino.GUIA_NUMERO TMOV_COPAY.GUIA_DT_INTERNACAO = StringToDate(Planilha_Destino.GUIA_DT_INTERNACAO) TMOV_COPAY.GUIA_DT_ALTA = StringToDate(Planilha_Destino.GUIA_DT_ALTA) TMOV_COPAY.RECEBEDOR = Planilha_Destino.RECEBEDOR TMOV_COPAY.GUIA_EMERGENCIA = Planilha_Destino.GUIA_EMERGENCIA TMOV_COPAY.REGIME_ATENDIMENTO = Planilha_Destino.REGIME_ATENDIMENTO TMOV_COPAY.PROCED_TIPO = Planilha_Destino.PROCED_TIPO TMOV_COPAY.PROCED_CODIGO = Planilha_Destino.PROCED_CODIGO TMOV_COPAY.GUIA_QTDE_PAGTO = Planilha_Destino.GUIA_QTDE_PAGTO TMOV_COPAY.TAXA = Planilha_Destino.TAXA TMOV_COPAY.BASE_INSS = Planilha_Destino.BASE_INSS TMOV_COPAY.MATRICULA_FUNCIONAL = Planilha_Destino.MATRICULA_FUNCIONAL TMOV_COPAY.CID_PRINCIPAL = Planilha_Destino.CID_PRINCIPAL TMOV_COPAY.DEPENDENTE_CODIGO = Planilha_Destino.DEPENDENTE_CODIGO TMOV_COPAY.PROCED_CODIGO1 = Planilha_Destino.PROCED_CODIGO1 TMOV_COPAY.PROCED_ATEND = Planilha_Destino.PROCED_ATEND TMOV_COPAY.FATURA_NATUREZA = Planilha_Destino.FATURA_NATUREZA TMOV_COPAY.RECGLOSA_QTDERECONS = Planilha_Destino.RECGLOSA_QTDERECONS TMOV_COPAY.MES_ANO = EDT_MES_ANO TMOV_COPAY.RESPONSAVEL = EDT_RESPONAVEL TMOV_COPAY.DATAHORACAD = EDT_DATA_HORA TMOV_COPAY.ARQUIVO = EDT_FILE TMOV_COPAY.DATAHORAMOV = StringToDate(Planilha_Destino.DATA) + StringToTime(Planilha_Destino.HORA) IF achou = False THEN ok = HAdd(TMOV_COPAY,hIgnoreDuplicates) IF ok = False THEN nErros += 1 END ELSE ok = HModify(TMOV_COPAY) IF ok = False THEN nErros += 1 END END END END
TableDisplay(TABLE_Planilha_Destino,taInit)
TableDisplay(TABLE_Planilha_Destino,taReExecuteQuery)
TableDisplay(TABLE_T001_MOVIMENTO,taInit)
TableDisplay(TABLE_T001_MOVIMENTO,taReExecuteQuery)
HourGlass(False)
IF nErros = 0 ToastDisplay("IMPORTADO!",toastLong,vaMiddle,haCenter,RGB(0,0,255)) ELSE Info("Total de Erros: "+nErros) END
Procedure Procedimento_05()
HourGlass(True)
nErros is 8-bytes int
ok, achou is boolean = False
FOR EACH TMOV_COPAY HReset(t002_clientes) IF HReadSeek(t002_clientes,t002_nome_titular,TMOV_COPAY.TITULAR,hIdentical) = True THEN IF HFound(t002_clientes) = True achou = True END ELSE achou = False END t002_clientes.t002_nome_titular = TMOV_COPAY.TITULAR t002_clientes.t002_company = TMOV_COPAY.EMPRESA t002_clientes.t002_matricula = TMOV_COPAY.MATRICULA_FUNCIONAL t002_clientes.t002_contrato = TMOV_COPAY.CONTRATO t002_clientes.t002_cod_familia = TMOV_COPAY.FAMILIA t002_clientes.t002_cod_afinidade = TMOV_COPAY.CODIGO_AFINIDADE t002_clientes.t002_nascimento = Middle(TMOV_COPAY.DT_NASCIMENTO,1,8) t002_clientes.t002_idade = CurrentYear() - Val(Middle(t002_clientes.t002_nascimento,1,4)) t002_clientes.t002_sexo = TMOV_COPAY.SEXO t002_clientes.t002_cpf = TMOV_COPAY.CPF_UTILIZADOR t002_clientes.t002_importado = "S" t002_clientes.t002_data_importado = DateSys() t002_clientes.t002_status_ativo = "A" IF TMOV_COPAY.TITULAR <> "" AND TMOV_COPAY.CPF_UTILIZADOR <> "" IF achou = False THEN ok = HAdd(t002_clientes,hIgnoreDuplicates) IF ok = False THEN nErros += 1 END ELSE ok = HModify(t002_clientes) IF ok = False THEN nErros += 1 END END END
END
HourGlass(False)
IF nErros = 0 ToastDisplay("IMPORTADO CLIENTES!",toastLong,vaMiddle,haCenter,RGB(0,0,255)) ELSE Info("Total de Erros: "+nErros) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 10 2020 - 12:52 PM |
sFile is string = fSelect("", "", "Selecione o arquivo TNUMM...", "All the files (*.*)" + TAB + "*.*" + CR + "*.xlsx" + TAB + "*.xlsx" + CR + "*.xls" + TAB + "*.xls", "*.*")
IF fFileExist(sFile) = True THEN xlsarquivo is xlsDocument HourGlass(True) Toast("Aguarde! Carregando dados do arquivo TNUMM!") xlsarquivo = xlsOpen(sFile,xlsCompatible) IF ErrorOccurred() THEN Error(ErrorInfo()) HourGlass(False) RETURN ELSE HourGlass(False) ToastDeleteAll() IF validaTNUMM_MED_XLS(xlsarquivo) = True THEN l is int = 3 nTotalRegistros is int = xlsarquivo..NumberRow HourGlass(True) ToastDisplay("Aguarde! Realizando importação dos registros! Este processo pode levar alguns minutos...!",toastShort,vaMiddle,haCenter,RGB(255,153,0)) LOOP (nTotalRegistros) F002_APS_TNUMM.F002_TNUMM_ID = GET_SEQ(F002_APS_TNUMM) F002_APS_TNUMM.F002_TNUMM_COD_TISS = xlsarquivo[l,1] F002_APS_TNUMM.F002_CODIGOANTERIOR = xlsarquivo[l,24] F002_APS_TNUMM.F002_NOMECOMERCIAL = xlsarquivo[l,2] F002_APS_TNUMM.F002_PRINCIPIOATIVO_DESCRICAO = xlsarquivo[l,3] F002_APS_TNUMM.F002_GRUPO_FARMACOLOGICA = xlsarquivo[l,5] F002_APS_TNUMM.F002_CLASSE_FARMACOLOGICA = xlsarquivo[l,7] F002_APS_TNUMM.F002_UNID_MIM_FRA = xlsarquivo[l,8] F002_APS_TNUMM.F002_CNPJFABRICANTE = xlsarquivo[l,9] F002_APS_TNUMM.F002_DETENTORREGISTRO = xlsarquivo[l,10] F002_APS_TNUMM.F002_REGISTROANVISA = xlsarquivo[l,11] F002_APS_TNUMM.F002_OBSERVACAO = xlsarquivo[l,23] F002_APS_TNUMM.F002_TIPOPRODUTO = xlsarquivo[l,25] F002_APS_TNUMM.F002_TIPOCODIFICACAO = xlsarquivo[l,26] F002_APS_TNUMM.F002_DTINICIO_VIGENCIA = xlsarquivo[l,27] F002_APS_TNUMM.F002_DTFIM_VIGENCIA = xlsarquivo[l,28] F002_APS_TNUMM.F002_DTFIM_IMPLANTACAO = xlsarquivo[l,30] F002_APS_TNUMM.F002_DATAIMPORT = DateSys() F002_APS_TNUMM.F002_MOTIVOINSERCAO = xlsarquivo[l,29] F002_APS_TNUMM.F002_MATMED = "MED" IF F002_APS_TNUMM.F002_TNUMM_COD_TISS <> "" THEN IF HAdd(F002_APS_TNUMM,hForceIdAuto) THEN ELSE ToastDisplay("Problemas ao Inserir tabela TNUMM!",toastShort,vaMiddle,haCenter,RGB(255,0,0)) END END l++ END HourGlass(False) ToastDeleteAll() TableDisplay(TABLEGRID_F002_APS_TNUMM,taInit) ToastDisplay("Arquivo TNUMM importado com Sucesso!",toastShort,vaMiddle,haCenter,RGB(0,102,0)) ELSE ToastDisplay("Arquivo com alguma inconsistência, favor contatar o administrador do sistema!",toastShort,vaMiddle,haCenter,RGB(255,0,0)) END xlsClose(xlsarquivo) END HourGlass(False) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Membro registado 3.651 mensagems Popularité : +175 (223 votes) |
|
Publicado em janeiro, 10 2020 - 12:53 PM |
Procedure validaTNUMM_MAT_XLS(xls is xlsDocument)
ok is boolean erro is int
col_01, col_02, Col_03, Col_04, Col_05, Col_06, Col_07, Col_08, Col_09, Col_10, Col_11, Col_12 is string Col_13, Col_14, Col_15, Col_16, Col_17, Col_18, Col_19, Col_20, Col_21, Col_22, Col_23, Col_24 is string
col_01 = "Código - versão TISS 3.04.00" IF xls[2,1] <> col_01 THEN erro++ END
col_02 = "Nome Comercial" IF xls[2,2] <> col_02 THEN erro++ END
Col_03 = "Descrição do Produto" IF xls[2,3] <> Col_03 THEN erro++ END
Col_04 = "Especialidade do Produto" IF xls[2,4] <> Col_04 THEN erro++ END
Col_05 = "Classificação do Produto" IF xls[2,5] <> Col_05 THEN erro++ END
Col_06 = "Nome Técnico" IF xls[2,6] <> Col_06 THEN erro++ END
Col_07 = "Unid Mín Fração" IF xls[2,7] <> Col_07 THEN erro++ END
Col_08 = "CNPJ Fabricante/Importador" IF xls[2,8] <> Col_08 THEN erro++ END
Col_09 = "Detentor do Registro na Anvisa" IF xls[2,9] <> Col_09 THEN erro++ END
Col_10 = "Registro ANVISA" IF xls[2,10] <> Col_10 THEN erro++ END
Col_11 = "Taxa de Custos" IF xls[2,11] <> Col_11 THEN erro++ END
Col_12 = "Valor Máximo Intercâmbio Nacional" IF xls[2,12] <> Col_12 THEN erro++ END
Col_13 = "Observações" IF xls[2,13] <> Col_13 THEN erro++ END
Col_14 = "Cód. Anterior" IF xls[2,14] <> Col_14 THEN erro++ END
Col_15 = "Ref/Tamanho/Modelo" IF xls[2,15] <> Col_15 THEN erro++ END
Col_16 = "Tipo de Produto" IF xls[2,16] <> Col_16 THEN erro++ END
Col_17 = "Tipo de Codificacao" IF xls[2,17] <> Col_17 THEN erro++ END
Col_18 = "Data Inicio Vigencia" IF xls[2,18] <> Col_18 THEN erro++ END
Col_19 = "Data Fim Vigencia" IF xls[2,19] <> Col_19 THEN erro++ END
Col_20 = "Motivo de insercao (Data fim de vigencia)" IF xls[2,20] <> Col_20 THEN erro++ END
Col_21 = "Data Fim de Implantacao" IF xls[2,21] <> Col_21 THEN erro++ END
Col_22 = "Cod Simpro" IF xls[2,22] <> Col_22 THEN erro++ END
Col_23 = "Descrição Produto Simpro" IF xls[2,23] <> Col_23 THEN erro++ END
Col_24 = "Equivalência Técnica" IF xls[2,24] <> Col_24 THEN erro++ END
IF erro > 0 THEN ok = False ELSE ok = True END
RESULT ok
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|