Gostaria de adicionar alguns campos na cabec do formulário de pedido de vendas do portal do vendedor alguém tem algum exemplo que possa compartilhar?? Esses campos são necessário para inclusão do pedido de vendas por ser campos obrigatórios.
Portal Vendedor - Pedido de Vendas
- Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
- Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
- Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
- Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
- Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!
2 respostas
-
Com muita pesquisa achei uma informação útil
1º Adicionar este ponto de entrada, ele é chamado no fonte
#Include 'Protheus.ch' #Include "RwMake.ch" User Function PEF053() Local aReturn := {} Local nTipo := PARAMIXB[1] Do Case Case nTipo == 1 // Cabecalho aAdd( aReturn, { "ORDERID", "D" } ) aAdd( aReturn, { "CUSTOMERCODE", "N", { "BRWCUSTOMER", ; { "CCUSTOMERCODE", "CCODE" }, ; { "CCUSTOMERUNIT", "CUNIT" } ; }, ; { "CCODE", "CUNIT", "CDESCRIPTION" } } ) aAdd( aReturn, "CUSTOMERUNIT" ) aAdd( aReturn, { "CARRIERCODE", "N", { "GETCARRIER", ; { "CCARRIERCODE", "CCODE" } ; }, ; { "CCODE", "CDESCRIPTION" } } ) aAdd( aReturn, { "PAYMENTPLANCODE", "N", { "BRWPAYMENTPLAN", ; { "CPAYMENTPLANCODE", "CPAYMENTPLANCODE" } ; }, ; { "CPAYMENTPLANCODE", "CDESCRIPTIONPAYMENTPLAN" } } ) aAdd( aReturn, "PRICELISTCODE" ) aAdd( aReturn, { "REGISTERDATE", "D" } ) aAdd( aReturn, "BIDNUMBER" ) aAdd( aReturn, { "FREIGHTVALUE", "D" } ) aAdd( aReturn, { "INSURANCEVALUE", "D" } ) aAdd( aReturn, { "ADDITIONALEXPENSEVALUE", "D" } ) aAdd( aReturn, { "INDEPENDENTFREIGHT", "D" } ) aAdd( aReturn, { "ADJUSTMENTTYPE", "D" } ) aAdd( aReturn, { "SALESORDERCURRENCY", "N" } ) aAdd( aReturn, { "NETWEIGHT", "D" } ) aAdd( aReturn, { "GROSSWEIGHT", "D" } ) aAdd( aReturn, { "REDELIVERYCARRIERCODE", "D" } ) aAdd( aReturn, { "FINANCIALINCREASE", "D" } ) aAdd( aReturn, { "INVOICEMESSAGE", "N" } ) aAdd( aReturn, { "STANDARDMESSAGE1", "D" } ) aAdd( aReturn, { "INDEMNITYVALUE", "D" } ) aAdd( aReturn, { "INDEMNITYPERCENTAGE", "D" } ) aAdd( aReturn, { "C5_XFORMA", "C" } ) aAdd( aReturn, { "C5_XORC", "C" } ) CASE nTipo == 2 aAdd( aReturn, { "ORDERITEM", "D", 2 } ) aAdd( aReturn, { "PRODUCTID", "N", { "GETCATALOG", ; { "CPRODUCTID", "CPRODUCTCODE" }, ; { "CPRODUCTDESCRIPTION", "CDESCRIPTION"} ; }, ; { "CPRODUCTCODE", "CDESCRIPTION" }, 13 } ) aAdd( aReturn, { "PRODUCTDESCRIPTION", "N", 30, .T. } ) aAdd( aReturn, { "QUANTITY", "N", 3 } ) aAdd( aReturn, { "NETUNITPRICE", "N", 9, .T. } ) aAdd( aReturn, { "DISCOUNTPERCENTAGE", "N", 3 } ) aAdd( aReturn, { "CUSTOMERORDERNUMBER", "N", 5 } ) aAdd( aReturn, { "NETTOTAL", "N", 0, .F. } ) Endcase return aReturn2º Criar outro fonte, este por sua vez responsável por adicionar ele ao dicionário do portal.
#Include 'Protheus.ch' #Include "RwMake.ch" User Function WSUSRFIELD() Local cTabela := PARAMIXB[1] Local aReturn := {} Do Case Case cTabela == "SC5" aAdd( aReturn,"C5_XORC") aAdd( aReturn,"C5_XFORMA") EndCase Return aReturn -
-
