Histórico da Página

1a) Parte

#INCLUDE "RWMAKE.CH"
User Function PEF064()
Local cParam := PARAMIXB[1]
Local aReturn := {}

Do Case

Case cParam == 1

// CabecalhoEncabezado

//Campos padroesestándar

    aAdd( aReturn, { "QUOTEID", "D" } )

    aAdd( aReturn, { "PROPOSALID", "D" } )

    aAdd( aReturn, { "SUPPLIER", "D" } )

    aAdd( aReturn, { "REGISTERDATE", "D" } )

    aAdd( aReturn, "CONTACT" )

   aAdd( aReturn, { "PAYMENTPLANCODE","N", {"BRWPAYMENTPLAN", ;       

                            {"CPAYMENTPLANCODE", "CPAYMENTPLANCODE" } }, ;

                            {"CPAYMENTPLANCODE", "CDESCRIPTIONPAYMENTPLAN" } } )

//Campo Adicionaladicional

aAdd( aReturn, "C8_OBS" )

Case cParam == 2

//ItensÍtems

//Campos padroesestándar

    aAdd( aReturn, { "PROPOSALID", "N", 0, .F. } )

    aAdd( aReturn, { "SEQUENTIALID", "N", 0, .F. } ) 

    aAdd( aReturn, { "PRODUCTCODE", "N", 0, .F. } ) 

    aAdd( aReturn, { "DESCRIPTIONPRODUCT", "N", 0, .F. } ) 

    aAdd( aReturn, { "MEASUREUNIT", "N", 2, .F. } )

    aAdd( aReturn, { "QUANTITY", "N", 3 } )

    aAdd( aReturn, { "UNITPRICE", "N", 9, .T. } )

    aAdd( aReturn, { "TAXRATE", "N", 5 } )

    aAdd( aReturn, { "DISCOUNTPERCENT", "N", 3 } )

    aAdd( aReturn, { "TOTALVALUE", "N", 0, .T. } )

//Campo Adicional

    aAdd( aReturn, "C8_PRAZO")

    aAdd( aReturn, "C8_VALFRE")

EndCase

Return aReturn

==============================================================================

2a) Parte

#INCLUDE "RWMAKE.CH"

User Function WsUsrField()

Local cAlias := PARAMIXB[1]

Local aReturn := {}

Do Case

Case cAlias == "SC8"

    aAdd(aReturn,"C8_OBS")

    aAdd( aReturn,"C8_PRAZO")

    aAdd( aReturn,"C8_VALFRE")

End Case

Return aReturn