PEV084 - Inclusão ou alteração de orçamento

O ponto de entrada PEV084 é utilizado para apresentação de campos na tela de orçamentos.

PWSV080.PRW

PEV084 - Inclusão ou alteração de orçamento ( [ PARAMIXB[1] ] ) --> aWebCols

aWebCols(array_of_record)
• Array contendo os campos a ser visualizados na tela de orçamento.

User Function PEV084()Local cParam    := PARAMIXB[1]Local aWebCols  := {}Conout('Passou pelo ponto de entrada PEV084. - Parametro : '+Str(cParam))Do Case    Case cParam == 1			aAdd( aWebCols, { "BUDGETID", "D" } )		aAdd( aWebCols, { "REGISTERDATE", "D" } )		aAdd( aWebCols, { "CUSTOMERCODE", "N", 	{ "BRWCUSTOMER", ;												{ "CCUSTOMERCODE", "CCODE" }, ;												{ "CCUSTOMERUNIT", "CUNIT" } ;												}, ;												{ "CCODE", "CUNIT", "CDESCRIPTION" } } )		aAdd( aWebCols, "CUSTOMERUNIT" )		aAdd( aWebCols, { "DELIVERYCUSTOMER", "N", 	{ "BRWCUSTOMER", ;													{ "CDELIVERYCUSTOMER", "CCODE" }, ;													{ "CDELIVERYUNITCODE", "CUNIT" } ;													}, ;													{ "CCODE", "CUNIT", "CDESCRIPTION" } } )		aAdd( aWebCols, "DELIVERYUNITCODE" )					aAdd( aWebCols, { "PAYMENTPLANCODE", "N", { "BRWPAYMENTPLAN", ;													{ "CPAYMENTPLANCODE", "CPAYMENTPLANCODE" } ;													}, ;													{ "CPAYMENTPLANCODE", "CDESCRIPTIONPAYMENTPLAN" } } )		aAdd( aWebCols, { "PRICELISTCODE", "D" } )		aAdd( aWebCols, { "DISCOUNT1", "D" } )		aAdd( aWebCols, { "DISCOUNT2", "D" } )		aAdd( aWebCols, { "DISCOUNT3", "D" } )		aAdd( aWebCols, { "DISCOUNT4", "D" } )		aAdd( aWebCols, "QUOTATIONORORDERID" )		aAdd( aWebCols, { "FREIGHTVALUE", "D" } )		aAdd( aWebCols, { "INSURANCEVALUE", "D" } )		aAdd( aWebCols, { "ADDITIONALEXPENSEVALUE", "D" } )		aAdd( aWebCols, { "INDEPENDENTFREIGHT", "D" } )		aAdd( aWebCols, { "EXPIRATIONDATE", "D" } )		aAdd( aWebCols, { "INDEMNITYVALUE", "D" } )		aAdd( aWebCols, { "INDEMNITYPERCENTAGE", "D" } )		aAdd( aWebCols, { "DESCRIPTIONSTATUS", "D" } )			Case cParam == 2 			aAdd( aWebCols, { "PRODUCTID", "N", { "GETCATALOG", ;											{ "CPRODUCTID", "CPRODUCTCODE" } ;											}, ;											{ "CPRODUCTCODE", "CDESCRIPTION" }, 13 } )		aAdd( aWebCols, { "PRODUCTDESCRIPTION", "N", 0, .F. } )		aAdd( aWebCols, { "QUANTITY", "N", 3 } )		aAdd( aWebCols, { "NETUNITPRICE", "N", 9, .T. } )		aAdd( aWebCols, { "CUSTOMERBUDGETID", "N", 5 } )		aAdd( aWebCols, { "NETTOTAL", "N", 0, .F. } )		EndCase Return aWebCols