Histórico da Página

El punto O ponto de entrada PCBROWSE está em fase de desenvolvimento em breve entrará em testes com clientes piloto, portanto ainda não está liberada em nenhum release do Protheus!

Será liberado através de pacote de expedição acumulado do módulo financeiro após Outubro.

en etapa de desarrollo y muy pronto entrará en prueba con clientes piloto, por lo tanto, aún no está liberado en ningún release del Protheus.

Se liberará por medio de un paquete de expedición acumulado del módulo financiero después del mes de Octubre.

#Include 'Protheus.ch'
 
/*/{Protheus.doc} PCBROWSE
    PontoPunto de entrada para adicionaragregar opcoesopciones de menú menuen noel OortalPortal dodel cliente
    @type function
    @return array, array de configuracaoconfiguración
/*/
user Function PCBROWSE()
    Local cUser := PARAMIXB[1] as Character // CodigoCódigo dodel usuario logadoconectado noal portal.
    Local aMenu := {} as Array

    aAdd(aMenu, MENU1()) // exemploejemplo utilizando colunascolumnas SX3
    aAdd(aMenu, MENU2()) // exemploejemplo configurando fields
Return aMenu
 
/*/{Protheus.doc} MENU1
    ConfiguracaoConfiguración dodel menumenú
    @type function
    @return json, configuracaoconfiguración dodel browse
/*/
Static Function MENU1()
    Local jMenu     := JsonObject():new() as Json
    Local jDetalhes := JsonObject():new() as Json
    //titulotítulo presentado apresentadoen noel menumenú
    jMenu['tituloMenu'] := 'Pedidos1'
    //icone para o menu, lista de icones https://po-ui.io/guides/icons
    jMenu['iconeMenu']  := 'po-icon po-icon-manufacture'
    //titulotítulo presentado apresentadoen nala paginapágina
    jMenu['tituloPagina'] := 'MeusMis Pedidos1pedidos1'
    //user funcion que vai retornardevolverá ala query de buscabúsqueda
    jMenu['funcaoQuery'] := 'PCQRY01'
    //campo que vaise ser ordenadoordenará
    jMenu['orderQuery']  := 'C5_EMISSAO DESC'

    //alias de dala tabelatabla utilizada para tratamentostratamientos internos
    jMenu['tabela'] := 'SC5'
    //lista de campos dodel browse, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. SeSi se informarinforma fields essase propriedadeignorará éesta ignoradapropiedad
    jMenu['colunas'] := {'c5_filial', 'c5_condpag', 'c5_num', 'c5_vend1', 'c5_nota', 'c5_emissao'}
     
    //configuracaoconfiguración de legendasleyendas, array comcon value, color ey label
    jMenu['legendas'] := {}
    aAdd(jMenu['legendas'], prepareStatus("N", "color-01", "Normal"))
    aAdd(jMenu['legendas'], prepareStatus("C", "color-02", "Compl.PrecIo/Cantidad"))
    aAdd(jMenu['legendas'], prepareStatus("I", "color-03", "Compl.ICMS"))
    aAdd(jMenu['legendas'], prepareStatus("P", "color-04", "Compl.IPI"))
    aAdd(jMenu['legendas'], prepareStatus("D", "color-05", "Dev.Compras"))
    aAdd(jMenu['legendas'], prepareStatus("B", "color-06", "Utiliza proveedor"))
    jMenu['campoLegendas']  := 'c5_tipo'
    jMenu['tituloLegendas'] := 'Tipo'
 
    //campo para buscabúsquea rapidarápida, SeSi se informarinforma fieldBusca, essase propriedadeignorará éesta ignoradapropiedad
    jMenu['campoBusca'] := 'c5_num'
    //lista de campos aprapara buscabúsqueda avancadaavanzada, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. SeSi se informarinforma fieldsBuscaAvancada, essase propriedadeignorará éesta ignoradapropiedad
    jMenu['camposBuscaAvancada'] := {'c5_filial', 'c5_vend1', 'c5_nota', 'c5_emissao', 'c5_transp'}
     
    //exemploejemplo de configuracaoconfiguración de detalhesdetalles
    //titulotítulo presentado apresentadoen nala paginapágina de detalhesdetalles
    jDetalhes['tituloPagina'] := 'DetalhesDetalles dodel pedido'
    //titulotítulo presentado apresentadoen nala abasolapa principal
    jDetalhes['tituloAbaPrincipal'] := 'DadosDatos geraisgenerales'
    //lista de campos que seraose apresentadospresentarán, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. Si Sese informarinforma fieldsDetalhes, essase propriedadeignorará éesta ignoradapropiedad
    jDetalhes['camposDetalhes'] := {'c5_num','c5_tipo', 'c5_nota', 'c5_emissao', 'c5_vend1', 'c5_tabela', 'c5_cliente', 'c5_lojacli', 'c5_transp', 'c5_frete', 'c5_seguro',}
 
    //titulotítulo presentado apresentadoen nala abasolapa itensítems
    jDetalhes['tituloAbaItens'] := 'Produtos'
    //user funcion que vaidevolverá retornarla aquery queryde doslos itensítems
    jDetalhes['funcaoQueryItens'] := 'PCITEM'
    //campo que vaiserá ser ordenado
    jDetalhes['orderQueryItens'] := 'c6_item desc'

    //alias de doslos itensítems
    jDetalhes['tabelaItens'] := 'SC6'
    //lista de campos dodel browse, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. Si Sese informarinforma fields, essase propriedadeignorará éesta ignoradapropiedad
    jDetalhes['colunas'] := {'c6_item', 'c6_produto', 'c6_descri', 'c6_qtdven', 'c6_prcven', 'c6_valor'}
     
    jMenu['detalhes'] := jDetalhes
 
return jMenu
 
/*/{Protheus.doc} MENU2
    ConfiguracaoConfiguración dodel menumenú utilizando aslas propriedadespropiedades fields
    @type function
    @return json, configuracaoconfiguración dodel browse
/*/
Static Function MENU2()
    Local jMenu     := JsonObject():new() as Json //Json comcon aslas propriedadespropiedades esperadas.
    Local jDetalhes := JsonObject():new() as Json
 
    jMenu['tituloMenu']   := 'Pedidos2'
    jMenu['iconeMenu']    := 'po-icon po-icon-manufacture'
    jMenu['tituloPagina'] := 'Meus Pedidos2'
    jMenu['funcaoQuery']  := 'PCQRY01'
    jMenu['orderQuery']  := 'C5_DATA1 ASC'
    jMenu['tabela']       := 'SC5'
 
    //lista de campos dodel browse, utilizado cuando no quandose naoquiere querutilizar pegardatos dadosde dala SX3.
    //devedebe ser umun array de json comcon aslas propriedadespropiedades property, type ey label
    jMenu['fields'] := {}
    aAdd(jMenu['fields'], prepareField("c5_filial" , "string", "FilialSucursal dodel pedido"))
    aAdd(jMenu['fields'], prepareField("c5_num"    , "string", "Pedido"))
    aAdd(jMenu['fields'], prepareField("c5_vend1"  , "string", "Vendedor"))
    aAdd(jMenu['fields'], prepareField("c5_condpag", "string", "Forma de pagamentopago"))
    aAdd(jMenu['fields'], prepareField("c5_nota"   , "string", "NFFact"))
 
    //campo para buscabúsqueda rapidarápida, utilizado cuando no quandose naoquiere querutilizar pegardatos dadosde dala SX3.
    //devedebe ser umun array de json comcon aslas propriedadespropiedades property, type ey label
    jMenu['fieldBusca'] := prepareField("c5_num", "string", "PesquisaBúsqueda por pedido")
 
    //lista de campos aprapara buscabúsqueda avancadaavanzada, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. Si Sese informarinforma fieldsBuscaAvancada, essase propriedadeignorará éesta ignoradapropiedad
    jMenu['fieldsBuscaAvancada'] := {}
    aAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_emissao", "date"  , "DataFecha"))
    aAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_filial" , "string", "FilialSucursal"))
    aAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_nota"   , "string", "NFFact"))
    aAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_num"    , "string", "Pedido"))
 
    //exemploejemplo de configuracaoconfiguración de detalhesdetalles
    //titulotítulo presentado apresentadoen nala paginapágina de detalhesdetalles
    jDetalhes['tituloPagina'] := 'DetalhesDetalles dodel pedido'
    //titulotítulo presentado apresentadoen nala abasolapa principal
    jDetalhes['tituloAbaPrincipal'] := 'DadosDatos geraisgenerales'
    //UtilizaSe utilizan aslas propriedadespropiedades PoDynamicViewField do po-dynamic-view poui. https://po-ui.io/documentation/po-dynamic-view
    jDetalhes['fieldsDetalhes'] := {}
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_num'    , 'string', 'Pedido'            , 'DadosDatos'     ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_tipo'   , 'string', 'Tipo dode pedido'                  ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_nota'   , 'string', 'NotaFactura'                            ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_emissao', 'date'  , 'DataFecha'                            ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_vend1'  , 'string', 'Vendedor'                        ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_tabela' , 'string', 'TabelaLista de preçosprecios'                ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_cliente', 'string', 'Código', 'Comprador'             ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_lojacli', 'string', 'LojaTienda'                            ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_transp' , 'string', 'Código transportadoraCód Emp de Transporte', 'Entrega'))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_frete'  , 'string', 'Valor dode freteflete'                  ))
    aAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_seguro' , 'string', 'Valor dode seguro'                 ))
 
    //titulotítulo presentado apresentadoen nala abasolapa itensítems
    jDetalhes['tituloAbaItens'] := 'ProdutosProductos'
    //user funcion que vaidevolverá retornarla aquery queryde doslos itensítems
    jDetalhes['funcaoQueryItens'] := 'PCITEM'
    //aliasalias de doslos itensítems
    jDetalhes['tabelaItens'] := 'SC6'
    //lista de campos dodel browse, devedebe ser umun array de json comcon aslas propriedadespropiedades property, type ey label
    jDetalhes['fields'] := {}
    aAdd(jDetalhes['fields'], prepareField('c6_item'   , 'string'  , 'ItemÍtem'))
    aAdd(jDetalhes['fields'], prepareField('c6_produto', 'string'  , 'Código'))
    aAdd(jDetalhes['fields'], prepareField('c6_qtdven' , 'string'  , 'QuantidadeCantidad'))
    aAdd(jDetalhes['fields'], prepareField('c6_prcven' , 'currency', 'PreçoPrecio'))
    aAdd(jDetalhes['fields'], prepareField('c6_valor'  , 'currency', 'Valor'))
 
    jMenu['detalhes'] := jDetalhes
return jMenu
 
/*/{Protheus.doc} prepareField
    funcaofunción auxiliar para preparar aslas propriedadespropiedades dodel field
    @type function
    @param cCampo, character, campo
    @param cTipo, character, tipo (string, date, number)
    @param cTitulo, character, titulo
    @param cDivisor, character, titulo do divisor (utilizado en noslos detalhesdetalles)
    @return json, json de field
/*/
Static Function prepareField(cCampo as Character, cTipo as Character, cTitulo as Character, cDivisor as Character)
    Local jField  := JsonObject():new() as Json
    jField["property"] := cCampo
    jField["type"]     := cTipo
    jField["label"]    := cTitulo
    if !Empty(cDivisor)
        jField["divider"] := cDivisor
    endIf
Return jField
 
/*/{Protheus.doc} prepareStatus
    funcaofunción auxiliar para preparar aslas propiedades propriedadesde dala legendaleyenda
    @type function
    @param cValor, character, valor
    @param cCor, character, cor
    @param cTitulo, character, label
    @return variant, rconfiguracao de legenda
/*/
Static Function prepareStatus(cValor as Character, cCor as Character, cTitulo as Character)
    Local jStatus  := JsonObject():new() as Json
    jStatus["value"] := cValor
    jStatus["color"] := cCor
    jStatus["label"] := cTitulo
Return jStatus