• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

haztik

PHC Enterprise - Função CRIABOBI()

5 mensagens neste tópico

Boas.

O PHC Enterprise tem a seguinte função disponível no framework para criação de Dossiers. Usando a ajuda técnica apenas ficamos a saber quais os parâmetros que a função espera, mas não sei, por exemplo, qual a estrutura dos cursors.

Esta é a função e a lista de parâmetros:

CriaBoBi(Mndos, mbicursor, mbocursor, mbo2cursor, mlnaograva, mlpassano, mdataobra, mtemproj, mbi2cursor, mboecocursor)

Se souberem mais qualquer coisa sobre este assunto agradeço resposta.

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Olá,

Tens um exemplo de como utilizar a função CriaBOBI() na comunidade PHC..

Cumprimentos,

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Infelizmente não tenho acesso ao site da comunidade... No entanto, agradeço a tua dica.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

haztik, aqui vai um exemplo:


fecha("mbocursor")
fecha("mbo2cursor")
fecha("mbicursor")
fecha("mbicursor2")

* usar tabelas de dossiers
do dbfusebo
do dbfusebo2
do dbfusebi

* Utilizar a configuração do tipo de dossier nº1
do tsread with "",1

* criar os cursores mbocursor, mbo2cursor, mbicursor e mbicursor2 vazios
create cursor mbocursor (no n(10), estab n(3), memissao c(10),fref c(20))
u_sqlexec([select * from bo2 (nolock) where 1=0],[mbo2cursor])
u_sqlexec([select * from bi (nolock) where 1=0],[mbicursor])
u_sqlexec([select * from bi2 (nolock) where 1=0],[mbicursor2])

* limpar os cursores
select mbocursor
delete for .t.
append blank
select mbicursor
delete for .t.
select mbo2cursor
delete for .t.
select mbicursor2
delete for .t.

* preencher alguns campos do cabeçalho (mbocursor)
select mbocursor
replace mbocursor.no with 1
replace mbocursor.estab with 0
replace mbocursor.memissao with 'EURO'
replace mbocursor.fref with 'A001'

* criar uma linha no dossier com a referência 'A001'
select mbicursor
append blank
replace mbicursor.ref with 'A001'

* preenche o campo preço de venda (bi.edebito) da linha do artigo:
replace mbicursor.edebito with 1500

* preenche quantidade do artigo (bi.qtt):
replace mbicursor.qtt with 5

* preenche o campo Nº subtipo (bi.stipo) da linha do dossier:
replace mbicursor.stipo with 1

* totaliza a linha do artigo:
do u_bottdeb with 'mbicursor'

* cria o dossier 'Encomenda a Cliente' isto tendo em conta que a configuração de encomenda a cliente
* corresponde ao nº1 definido na tabela de configurações de dossiers internos (TS).
if not criabobi(1,'mbicursor','mbocursor','mbo2cursor',.f.,.f.,DATE(),.f.)
mensagem('Erro a gravar dossier','DIRECTA')
return
endif

* Verifica se existem eventos "Ao Introduzir" definidos para o ecrã de dossiers (SBO)
Do eventosexe with "SBO","INTRODUZIR"

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora