Histórico da Página

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.

El punto de entrada se liberó por medio del paquete de expedición continua del módulo Financiero después del mes de octubre.

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

    aAddAAdd(aMenu, MENU1()) // exemploejemplo utilizando colunascolumnas SX3
    aAddAAdd(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ícono para oel menumenú, 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 Pedidos1'

    //user funcion que vai retornardevolverá ala query de buscabúsqueda
    jMenu['funcaoQuery'] := 'PCQRY01'

    //campo que vaise ser ordenadoordenará
    jMenu['orderQuery']  := 'C5_EMISSAO DESC'

    //alias dade la tabelatabla utilizada para tratamentostratamientos internos
    jMenu['tabela'] := 'SC5'

    //lista de campos dodel browse, oel sistema vaiutilizará utilizarel otítulo titulode dala SX3. Si Sese informarinforman fields, essase propriedadeignorará éesta ignoradapropiedad
    jMenu['colunas'] := {'c5_filial', 'c5_condpag', 'c5_num', 'c5_vend1', 'c5_nota', 'c5_emissao'}
     
    //configuracaoconfiguración de legendasleyeendas, array comcon value, color ey label
    jMenu['legendas'] := {}

    aAddAAdd(jMenu['legendas'], prepareStatus("N", "color-01", "Normal"))
    aAddAAdd(jMenu['legendas'], prepareStatus("C", "color-02", "Compl.PrecIo/Cantidad"))
    aAddAAdd(jMenu['legendas'], prepareStatus("I", "color-03", "Compl.ICMS"))
    aAddAAdd(jMenu['legendas'], prepareStatus("P", "color-04", "Compl.IPI"))
    aAddAAdd(jMenu['legendas'], prepareStatus("D", "color-05", "Dev.Compras"))
    aAddAAdd(jMenu['legendas'], prepareStatus("B", "color-06", "Utiliza proveedor"))

    jMenu['campoLegendas']  := 'c5_tipo'
    jMenu['tituloLegendas'] := 'Tipo'
 
    //campo para buscabúsqueda 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. Si Sese 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ítem
    jDetalhes['tituloAbaItens'] := 'ProdutosProductos'

    //user funcion que vaidevolverá retornarla aquery queryde doslos itensítems
    jDetalhes['funcaoQueryItens'] := 'PCITEM'

    //campo que vaise ser ordenadoordenará
    jDetalhes['orderQueryItens'] := 'c6_item desc'

    //alias dosde los 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
 
returnReturn jMenu
 
/*/{Protheus.doc} MENU2
    ConfiguracaoConfiguración dodel menumenú utilizando aslas propriedadespropiedades fields
    @type function
    @return json, configuracaoconfiguración do 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'] := 'MeusMis Pedidos2'
    jMenu['funcaoQuery']  := 'PCQRY01'
    jMenu['orderQuery']   := 'C5_DATA1 ASC'
    jMenu['tabela']       := 'SC5'
 
    //lista de campos dodel browse, utilizado cuando quandono se naoquiere querusar pegardatos dadosde dala SX3.
    //devedebe ser umun array de json comcon aslas propriedadespropiedades property, type ey label
    jMenu['fields'] := {}

    aAddAAdd(jMenu['fields'], prepareField("c5_filial" , "string", "FilialSucursal dodel pedido"))
    aAddAAdd(jMenu['fields'], prepareField("c5_num"    , "string", "Pedido"))
    aAddAAdd(jMenu['fields'], prepareField("c5_vend1"  , "string", "Vendedor"))
    aAddAAdd(jMenu['fields'], prepareField("c5_condpag", "string", "Forma de pagamentopago"))
    aAddAAdd(jMenu['fields'], prepareField("c5_nota"   , "string", "NFFact"))
 
    //campo para buscabúsqueda rapidarápida, utilizado cuando no quandose naoquiere querusar 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. SeSi se informarinforma fieldsBuscaAvancada essase propriedadeignorará éesta ignoradapropiedad
    jMenu['fieldsBuscaAvancada'] := {}

    aAddAAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_emissao", "date"  , "DataFecha"))
    aAddAAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_filial" , "string", "FilialSucursal"))
    aAddAAdd(jMenu['fieldsBuscaAvancada'], prepareField("c5_nota"   , "string", "NFFact"))
    aAddAAdd(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'

    //Utiliza aslas propriedadespropiedades PoDynamicViewField do po-dynamic-view poui. https://po-ui.io/documentation/po-dynamic-view
    jDetalhes['fieldsDetalhes'] := {}
     aAdd  

	AAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_num'    , 'string', 'Pedido'            , 'DadosDatos'     ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_tipo'   , 'string', 'Tipo dode pedido'                  ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_nota'   , 'string', 'NotaFactura'                            ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_emissao', 'date'  , 'DataFecha'                            ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_vend1'  , 'string', 'Vendedor'                        ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_tabela' , 'string', 'TabelaLista de preçosprecios'                ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_cliente', 'string', 'Código', 'Comprador'             ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_lojacli', 'string', 'LojaTienda'                            ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_transp' , 'string', 'CódigoCód Emp transportadoraTransportes', 'Entrega'  ))
    aAddAAdd(jDetalhes['fieldsDetalhes'], prepareField('c5_frete'  , 'string', 'Valor dode freteflete'                  ))
    aAddAAdd(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'

    //alias dosde los 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'] := {}

    aAddAAdd(jDetalhes['fields'], prepareField('c6_item'   , 'string'  , 'Item'))
    aAddAAdd(jDetalhes['fields'], prepareField('c6_produto', 'string'  , 'Código'))
    aAddAAdd(jDetalhes['fields'], prepareField('c6_qtdven' , 'string'  , 'QuantidadeCantidad'))
    aAddAAdd(jDetalhes['fields'], prepareField('c6_prcven' , 'currency', 'PreçoPrecio'))
    aAddAAdd(jDetalhes['fields'], prepareField('c6_valor'  , 'currency', 'Valor'))
 
    jMenu['detalhes'] := jDetalhes
returnReturn 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, titulotítulo
    @param cDivisor, character, titulotítulo dodel divisor (utilizado nosen los detalhes)
    @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

    ifIf !Empty(cDivisor)
        jField["divider"] := cDivisor
    endIfEndIf

Return jField
 
/*/{Protheus.doc} prepareStatus
    funcaofunción auxiliar para preparar las aspropiedades propriedadesde dala legendaleyenda
    @type function
    @param cValor, character, valor
    @param cCor, character, cor
    @param cTitulo, character, label
    @return variant, rconfiguracao de legendaleyenda
/*/
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

#Include 'Protheus.ch'  

/*/{Protheus.doc} PCQRY01
	Query para listar oslos itensítems dodel PE PCBROWSE
	@type function
	@return character, query
/*/
User functionFunction PCQRY01()
	localLocal aSA1   := Paramixb[1] // Array de clientes {{"D MG    ", "000002", "02"}, {"D RJ    ", "000002", "12"}}
	localLocal cLogin := Paramixb[2] // Login dodel portal 
	localLocal cQuery := ""
	localLocal cAlias := "SC5"
	localLocal nCli   := 1
	localLocal cOr    := ""

	cQuery := " SELECT #QueryFields#  "
	cQuery += " FROM " + RetSqlName(cAlias) + " SC5 "
	cQuery += " WHERE SC5.D_E_L_E_T_ = ' ' AND "
	cQuery += "("

	// lógica para filtro utilizando oslos código de clientes
	forFor nCli := 1 to len(aSA1)

		ifIf (nCli > 1)
			cOr := " OR "
		endIfEndIf

		cQuery +=  cOr + "(SC5.C5_CLIENTE = '" + aSA1[nCli][2] + "' AND SC5.C5_LOJACLI = '" + aSA1[nCli][3]+"')" 
	nextNext

	cQuery += ")"
	cQuery += " #QueryWhere# "

Return cQuery

/*/{Protheus.doc} PCITEM
	Query para listar oslos detalhesdetalles dodel itemítem dodel PE PCBROWSE
	@type function
	@return character, query
/*/
userUser functionFunction PCITEM()
    localLocal aSA1    := Paramixb[1] // Clientes
    localLocal cUser   := Paramixb[2] // Login dodel portal
    localLocal jFilter := Paramixb[3] // LinhaLínea selecionadaseleccionada para oslos detalhesdetalles
    localLocal cAlias  := "SC6"

    cQuery := " SELECT #QueryFields#  "
    cQuery += " FROM " + RetSqlName(cAlias) + " " + cAlias
    cQuery += " WHERE  " + cAlias + ".D_E_L_E_T_ = ' ' AND "
    cQuery += " C6_FILIAL = '" + jFilter['C5_FILIAL'] + "' AND "
    cQuery += " C6_NUM = '" + jFilter['C5_NUM'] + "'"
    cQuery += " #QueryWhere# "
returnReturn cQuery