Windev21 Aulas,Estudos e Desenvolvimento

quinta-feira, 28 de janeiro de 2016

Wx - Exemplo Excel - Tom Silva

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/883-exemplo-excel/read.awp

https://www.dropbox.com/s/5fd53o3qn3eez75/exemploExcel.rar?dl=0

PROCEDURE WIN_MUESTRA_EXCEL()
//global declararion
gnFirstLineForOrderLine is int
gnLastLineForOrderLine is int

//Seleciona
// Opens the file picker
sFile is string = fSelect(fExeDir(), "", "Select a file...", "Excel or OpenOffice file" + TAB + "*.xls;*.xlsx", "*.xls;*.xlsx")

IF sFile <> "" THEN

    EDT_xslx_file = sFile

    GetNbWorksheets(sFile)

END

PROCEDURE GetNbWorksheets(sFile)

MyXlsDoc is a xlsDocument = xlsOpen(sFile)
nNbWorksheets is int = xlsNbWorksheet(MyXlsDoc)

ListDeleteAll(COMBO_Worksheet)
FOR i = 1 _TO_ nNbWorksheets
ListAdd(COMBO_Worksheet, i)
END
ListSelectPlus(COMBO_Worksheet,1)

//Cargar Datos en la Planilla
sFile is string
IF EDT_xslx_file = "" THEN

    // Opens the file picker
    sFile = fSelect(fExeDir(), "", "Select a file...", "Excel or OpenOffice file" + TAB + "*.xls;*.xlsx", "*.xls;*.xlsx")

    IF sFile <> "" THEN
        EDT_xslx_file = sFile
    END

END
IF EDT_xslx_file <> "" THEN
    SpreadsheetDeleteAll(PSHEET_PRODUCTOS)
    //The WLanguage SpreadsheetLoad function is used to load an Excel or OpenOffice Calc file in the Spreadsheet control of WinDev
    SpreadsheetLoad(PSHEET_PRODUCTOS, EDT_xslx_file, COMBO_Worksheet)
    SpreadsheetClose(PSHEET_PRODUCTOS)
END

CASE ERROR:
Error("The spreadsheet was not loaded.", ErrorInfo())

//left button
ExecuteProcess(MySelf, trtClick)
GR_1Step..Grayed = True
//GR_2Step..Grayed = False

EDT_TOTALINEAS = PSHEET_PRODUCTOS..NumberRow

//limpar
SpreadsheetDeleteAll(PSHEET_PRODUCTOS)

MySelf = fExeDir() + fSep() + "exemplo.xlsx"

WinDev - Data Por Extenso - Danilo Valim

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/885-data-por-extenso/read.awp

Procedure ExtensoData(pData)

dData is Date = pData
xDia is numeric = dData..Day
xAno is numeric = dData..Year

Unidade is array of 50 strings
Unidade[1]="Primeiro "
Unidade[2]="Segundo "
Unidade[3]="Terceiro "
Unidade[4]="Quarto "
Unidade[5]="Quinto "
Unidade[6]="Sexto "
Unidade[7]="Sétimo "
Unidade[8]="Oitavo "
Unidade[9]="Nono "
Unidade[10]="Décimo "
Unidade[20]="Vigésimo "
Unidade[30]="Trigésimo "

//TRATANDO DIA
sDiaextenso is string = ""
IF xDia > 31 THEN
NextTitle("Verifique..")
Error("Não existe dia do Mês maior que 31!!")
RESULT ""
ELSE
IF xDia < 10 OR xDia = 10 OR xDia = 20 OR xDia = 30 THEN
sDiaextenso = Unidade[xDia]
ELSE IF xDia > 10 AND xDia <= 19
sDiaextenso = Unidade[10]+" "+Unidade[Middle(xDia,2)]
ELSE IF xDia > 20 AND xDia <= 29
sDiaextenso = Unidade[20]+" "+Unidade[Middle(xDia,2)]
ELSE IF xDia > 30
sDiaextenso = Unidade[30]+" "+Unidade[Middle(xDia,2)]
END
END

//TRATANDO MÊS
sMesextenso is string = DateToMonthInAlpha(dData)

//TRATANDO ANO
sAnoextenso is string = ""
IF xAno >= 1000 AND xAno <= 9999 //Ano permitido é de: 1000 a 9999 - pois no nosso caso não usará anos fora disso THEN

IF Left(xAno,1) = 1 THEN
sAnoextenso = "Mil "
ELSE
sAnoextenso = ExtCent(Left(xAno,1))+" Mil "
END
IF Middle(xAno,3,2) = "00" THEN
sAnoextenso += "e "
END

IF Middle(xAno,2,1) = "0" THEN
IF Middle(xAno,3,2) <> "00" THEN
sAnoextenso += "e "
END

IF Middle(xAno,3,1) = "0" THEN
sAnoextenso += ExtCent(Middle(xAno,4,1))
ELSE
sAnoextenso += ExtCent(Middle(xAno,3,2))
END
ELSE
sAnoextenso += ExtCent(Middle(xAno,2,3))
END

ELSE
NextTitle("Aviso..")
Warning("Não é possível escrever por Extenso o Ano Informado!!")
END

sDataPorExtenso is string = sDiaextenso +" Dia do Mês de "+sMesextenso+" do Ano de "+sAnoextenso

RESULT sDataPorExtenso

Procedure ExtCent(pNumero)

Txt is string

IF pNumero < 1 OR pNumero > 999 THEN RESULT ""

Nro is int = pNumero

SWITCH Nro

 CASE >= 900: Txt = "novecentos"

 CASE >= 800: Txt = "oitocentos"

 CASE >= 700: Txt = "setecentos"

 CASE >= 600: Txt = "seiscentos"

 CASE >= 500: Txt = "quinhentos"

 CASE >= 400: Txt = "quatrocentos"

 CASE >= 300: Txt = "trezentos"

 CASE >= 200: Txt = "duzentos"

 CASE >  100: Txt = "cento"

 CASE  = 100: RESULT "cem"

END

Nro = Modulo(Nro,100)

IF Nro = 0 THEN RESULT Txt 

IF Txt<>"" THEN Txt+=" e "

SWITCH Nro

 CASE >= 90 : Txt+= "noventa"

 CASE >= 80 : Txt+= "oitenta"

 CASE >= 70 : Txt+= "setenta"

 CASE >= 60 : Txt+= "sessenta"

 CASE >= 50 : Txt+= "cinquenta"

 CASE >= 40 : Txt+= "quarenta"

 CASE >= 30 : Txt+= "trinta"

 CASE >= 20 : Txt+= "vinte"

 CASE  = 19 : RESULT Txt + "dezenove"

 CASE  = 18 : RESULT Txt + "dezoito"

 CASE  = 17 : RESULT Txt + "dezessete"

 CASE  = 16 : RESULT Txt + "dezesseis"

 CASE  = 15 : RESULT Txt + "quinze"

 CASE  = 14 : RESULT Txt + "quatorze"

 CASE  = 13 : RESULT Txt + "treze"

 CASE  = 12 : RESULT Txt + "doze"

 CASE  = 11 : RESULT Txt + "onze"

 CASE  = 10 : RESULT Txt + "dez"

 OTHER CASE : IF Txt<>"" THEN Txt = Txt[[ TO Length(Txt)-3]] // Txt-=" e " // tira o "e" que não usou

END

Nro = Modulo(Nro,10)

IF Nro = 0 THEN RESULT Txt 

IF Txt<>""  THEN Txt+=" e "

SWITCH Nro

 CASE 1 : RESULT Txt + "um"

 CASE 2 : RESULT Txt + "dois"

 CASE 3 : RESULT Txt + "três"

 CASE 4 : RESULT Txt + "quatro"

 CASE 5 : RESULT Txt + "cinco"

 CASE 6 : RESULT Txt + "seis"

 CASE 7 : RESULT Txt + "sete"

 CASE 8 : RESULT Txt + "oito"

 CASE 9 : RESULT Txt + "nove"

 OTHER CASE : RESULT ""

END