×
Linguagem de Programação ADVPL
Perguntas Portal do cliente
- Santos
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
11 anos 7 meses 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
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.090 segundos