× Linguagem de Programação ADVPL

Perguntas Portal do cliente

Mais
11 anos 3 semanas atrás #13234 por Santos
Portal do cliente foi criado por Santos
Bom Dia,

Estou usando o ponto de entrada PEV044 para incluir os campos no portal do cliente, os campos condição de pagamento e numero do pedido, mas não estou conseguindo, alguém poderia me ajudar, segue o ponto

User Function PEV044()

Local cParam := PARAMIXB[1,2]
Local aReturn := {}


Do Case
Case cParam == 1 //cabeçalho
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Campos a serem mostrados ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aAdd( aReturn, { 'ORDERID', 'N' } )
aAdd( aReturn, 'CUSTOMERCODE')
aAdd( aReturn, { 'CUSTOMERCODE', 'N', { 'BRWCUSTOMER', ;
{ 'CCUSTOMERCODE', 'CCODE' }, ;
{ 'CCUSTOMERUNIT', 'CUNIT' } ;
}, ;
{ 'CCODE', 'CUNIT', 'CDESCRIPTION' } } )
aAdd( aReturn, 'CUSTOMERUNIT' )
aAdd( aReturn, { 'DELIVERYCUSTOMER', 'N' } )
aAdd( aReturn, { 'DELIVERYUNITCODE', 'N' } )
aAdd( aReturn, { 'CARRIERCODE', 'N', { 'GETCARRIER', ;
{ 'CCARRIERCODE', 'CCODE' } ;
}, ;
{ 'CCODE', 'CDESCRIPTION' } } )
aAdd( aReturn, { 'PAYMENTPLANCODE', 'N', { 'BRWPAYMENTPLAN', ;
{ 'CPAYMENTPLANCODE', 'CPAYMENTPLANCODE' } ;
}, ;
{ 'CPAYMENTPLANCODE', 'CDESCRIPTIONPAYMENTPLAN' } } )
aAdd( aReturn, { 'PAYMENTPLANCODE', 'N', { 'BRWPAYMENTPLAN', ;
{ 'CPAYMENTPLANCODE', 'CPAYMENTPLANCODE' } ;
}, ;
{ 'CPAYMENTPLANCODE', 'CDESCRIPTIONPAYMENTPLAN' } } )
aAdd( aReturn, { 'PRICELISTCODE', 'N' } )
aAdd( aReturn, { 'DISCOUNT1', 'N' } )
aAdd( aReturn, { 'DISCOUNT2', 'N' } )
aAdd( aReturn, { 'DISCOUNT3', 'N' } )
aAdd( aReturn, { 'DISCOUNT4', 'N' } )
aAdd( aReturn, { 'BANKCODE' , 'N' } )
aAdd( aReturn, { 'FINANCIALDISCOUNT', 'N' } )
aAdd( aReturn, { 'REGISTERDATE', 'N' } )
aAdd( aReturn, { 'BIDNUMBER', 'N'} )
aAdd( aReturn, { 'FREIGHTVALUE', 'N' } )
aAdd( aReturn, { 'INSURANCEVALUE', 'N' } )
aAdd( aReturn, { 'ADDITIONALEXPENSEVALUE', 'N' } )
aAdd( aReturn, { 'INDEPENDENTFREIGHT', 'N' } )
aAdd( aReturn, { 'ADJUSTMENTTYPE', 'N' } )
aAdd( aReturn, { 'SALESORDERCURRENCY', 'N' } )
aAdd( aReturn, { 'NETWEIGHT', 'N' } )
aAdd( aReturn, { 'GROSSWEIGHT', 'N' } )
aAdd( aReturn, { 'REDELIVERYCARRIERCODE', 'N' } )
aAdd( aReturn, { 'FINANCIALINCREASE', 'N' } )
aAdd( aReturn, { 'INVOICEMESSAGE', 'N' } )
aAdd( aReturn, { 'STANDARDMESSAGE1', 'N' } )
aAdd( aReturn, { 'INDEMNITYVALUE', 'N' } )
aAdd( aReturn, { 'INDEMNITYPERCENTAGE', 'N' } )
aAdd( aReturn, "C5_VOLUME1" )
aAdd( aReturn, "C5_ESPECI1" )
aAdd( aReturn, "C5_NATUREZ" )
aAdd( aReturn, "C5_TPDESCA" )
aAdd( aReturn, "C5_C5_CONDPAG" )
aAdd( aReturn, "C5_NUM" )
AAdd( aReturn, 'PAYMENTPLANCODE' ) //C5_CONDPAG
AAdd( aReturn, 'ORDERID' ) //C5_NUM

Case cParam == 2
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Campos a serem mostrados ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
aAdd( aReturn, { 'PRODUCTID', 'N', { 'GETCATALOG' , ;
{ 'CPRODUCTID', 'CPRODUCTCODE' } ;
}, ;
{ 'CPRODUCTCODE', 'CDESCRIPTION' }, 13 } )
aAdd( aReturn, { 'PRODUCTDESCRIPTION', 'N', 0, .F. } )
aAdd( aReturn, { 'QUANTITY', 'N', 10 } )
aAdd( aReturn, { 'NETUNITPRICE', 'N',0, .T. } )
aAdd( aReturn, { 'ORDERITEM','N',1} )
aAdd( aReturn, { 'NETTOTAL', 'N', 0, .F. } )


aAdd( aReturn, {'ITEMOUTFLOWTYPE','N', { 'BRWOUTFLOWTYPE',;
{'CITEMOUTFLOWTYPE', 'CITEMOUTFLOWTYPE'};
},;
{'CITEMOUTFLOWTYPE'}})

aAdd( aReturn, 'DELIVERYDATE' )



EndCase

Return aReturn

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.082 segundos
Joomla templates by a4joomla