PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

|
|
|
US
Home → WINDEV 25 → OBTER O VALOR DO EURO DO DIA + VET E CALCULAR OS PREÇOS DE UM JSON EM EUROS PARA REAIS COM OS DEVIDOS IMPOSTOS E TAXAS
OBTER O VALOR DO EURO DO DIA + VET E CALCULAR OS PREÇOS DE UM JSON EM EUROS PARA REAIS COM OS DEVIDOS IMPOSTOS E TAXAS
Started by Boller, Feb., 08 2025 10:45 PM - No answer
#1
Registered member
3,774 messages
Posted on February, 08 2025 - 10:45 PM




// API URL CALCULA EURO DO DIA VET EM LISTA JSON DE PRODUTOS PCSOFT

sAPI_URL_EURO is string = "https://economia.awesomeapi.com.br/json/last/USD-BRL,EUR-BRL,BTC-BRL"

// Fetch exchange rate data
IF HTTPRequest(sAPI_URL_EURO) = False THEN
Error("Error fetching exchange rate data.")
RETURN -1 // Return an error value
END

// Get API response
sResponse1 is string = HTTPGetResult()

// Parse JSON response
jsExchangeData is Variant = JSONToVariant(sResponse1)

// Validate response structure
IF Length(jsExchangeData) = 0
Error("Invalid exchange rate response.")
RETURN -1
END

// Get the Euro exchange rate
nEuroRate is numeric = Val(jsExchangeData.EURBRL.bid) + 0.3 // Adding 30 CENTAVOS VET

// Display result (optional)
Info("Euro exchange rate (BRL): " + NumToString(nEuroRate, "2.2f"))


// API URL
sAPI_URL is string = "https://distri.pcsoft.fr/api/v0.2/products…"

sResponse2 is string

// Fetch API data
RES is boolean = HTTPRequest(sAPI_URL)
IF ErrorOccurred THEN
Error("Error fetching data from PCSOFT API.")
RETURN -1
ELSE
sResponse2 = HTTPGetResult()
END

// Parse JSON response
arrProducts is Variant = JSONToVariant(sResponse2)

// Validate response structure
IF arrProducts..Count = 0
Error("Invalid response format from API.")
RETURN -1
ELSE

// Currency exchange rate (Example: 1 EUR = 5.98 BRL) nEuroRate

// IOF tax for international purchases (Example: 0,0683)
nIOFTax is numeric = 0.0683

// Constants
nFreight is numeric = 100 // EUR freight for Full Edition
nSedex is numeric = 200 // BRL for shipping

// Array to store converted product prices
arrConvertedProducts is Variant

// Process each product
FOR EACH jsProduct OF arrProducts
// Extract relevant values
nPriceEuro is numeric = jsProduct.Price_Standard

// Initialize calculation variables
nGrossValueBRL is numeric = 0
nIOFValue is numeric = 0
nTotal is numeric = 0
nTotalWithInvoice is numeric = 0
nFinalFreight is numeric = 0
nFinalSedex is numeric = 0
nAlfandega is numeric = 0
nPriceEuroWithFreight is numeric = 0

// Check if product is an UPGRADE version
IF Position(Upper(jsProduct.Description), "UPGRADE") > 0 THEN
// Upgrade pricing calculation
nGrossValueBRL = nPriceEuro * nEuroRate
nIOFValue = nGrossValueBRL * nIOFTax
nTotal = nGrossValueBRL + nIOFValue
nTotalWithInvoice = nTotal * 1.05
ELSE
// Full Edition pricing calculation
nFinalFreight = nFreight
nPriceEuroWithFreight = nPriceEuro + nFinalFreight
nGrossValueBRL = nPriceEuroWithFreight * nEuroRate
nIOFValue = nGrossValueBRL * nIOFTax
nFinalSedex = nSedex
nAlfandega = 1000
nTotal = nGrossValueBRL + nIOFValue + nFinalSedex + nAlfandega
nTotalWithInvoice = nTotal * 1.05
END

// Create a new JSON object for the converted product
jsConvertedProduct is Variant
jsConvertedProduct.IDPRICE = jsProduct.IDPRICE
jsConvertedProduct.Category = jsProduct.Category
jsConvertedProduct.FromVersion = jsProduct.FromVersion
jsConvertedProduct.ToVersion = jsProduct.ToVersion
jsConvertedProduct.Description = jsProduct.Description
jsConvertedProduct.Ref_Example = jsProduct.Ref_Example
jsConvertedProduct.Price_S = jsProduct.Price_S
jsConvertedProduct.Price_P = jsProduct.Price_P
jsConvertedProduct.Price_Standard = jsProduct.Price_Standard
jsConvertedProduct.Price_Currency = "EUR"
jsConvertedProduct.value_euro_dia = nEuroRate
jsConvertedProduct.valor_frete = nFinalFreight
jsConvertedProduct.iof = nIOFValue
jsConvertedProduct.valor_bruto = nGrossValueBRL
jsConvertedProduct.sedex = nFinalSedex
jsConvertedProduct.nAlfandega = nAlfandega
jsConvertedProduct.value_nfe = nTotalWithInvoice - nTotal
jsConvertedProduct.value_total = nTotalWithInvoice

// Add the converted product to the list
ArrayAdd(arrConvertedProducts, jsConvertedProduct)
END

// Convert the list of converted products to JSON
sJsonConvertedProducts is string = VariantToJSON(arrConvertedProducts)

sJsonConvertedProducts = Replace( sJsonConvertedProducts, ",", ","+CRLF)

sJsonConvertedProducts = Replace( sJsonConvertedProducts, "{", "{"+CRLF)

sJsonConvertedProducts = Replace( sJsonConvertedProducts, "}", "}"+CRLF)

EDT_Price = sJsonConvertedProducts

// Display or save the resulting JSON
Info(sJsonConvertedProducts)

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/
Message modified, February, 08 2025 - 10:49 PM
Report
0
0
→ Go back to WINDEV 25