Histórico da Página

...

Portuguese

Pagetitle

	M330FCC
	M330FCC

Ponto-de-Entrada: M330FCC

Versões:

Advanced Protheus 7.10 ,

Microsiga Protheus

8.11 , Microsiga Protheus 10

11 e 12
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Nível de Acesso:	Nível 1 (Acesso Clientes)
Idiomas:	Espanhol , Inglês

Descrição:

LOCALIZAÇÃO

:

Function

MA330SalCC

UpdProMod -

Função

utilizada

para

Calcula

Calcular as

despesas

do

CC

no

mes

mês especificado.

EM

QUE

PONTO

:

O

ponto

e

chamado

no

momento

que

o

sistema

filtra

as

contas

contabeis

contábeis para

o

calculo

de

valor

nos

centros

de

custo

que

resultarão

no

valor

da

MOD.

Eventos

Programa Fonte

MATA330MATA330MOD.PRX

Sintaxe

M330FCC ( < PARAMIXB> ) --> aRetlRet ou cRet

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

PARAMIXB[1]

Vetor

Recebe como

parametro

parâmetro qual o alias do arquivo em que o sistema esta posicionado no momento:

SI1,CT1,SI3 ou CT3

CT1, CT7 (v. 11) CT1 e CQ3 (v.12)

X

PARAMIXB[2}

Vetor

Recebe como parâmetro o código do produto posicionado

X

Retorno

aRet(vetor) O ponto de entrada deve retornar uma variavel variável de valor logico ou caracter

Recebendo no paramixb[1] = 'CT1' o retorno deverá ser logico :

Se
Se retornar .T. a conta sera será considerada
Se Se retornar .F. a conta sera será inibida

Recebendo no paramixb[1] = 'CQ3' o retorno deverá ser um filtro de complemento da query

Observações

Exemplos

Exemplo pratico retorno logico :
User Function M330FCC()
Local cTabela := ParamIXB[1]  //--  Recebe como parametroparâmetro qual o alias do arquivo em que o sistema esta posicionado no momento: CT1, CT7 (v. 11) CT1 e CQ3 (v.12)
Local                                   cProduto:= ParamIXB[2]  //-- oCódigo sistemado estaproduto posicionado no momento: SI1,CT1,SI3 ou CT3Local
Local lRet := .TF. //-- (.T.) - Processa registro da tabela / ,(.F.) -- Não processa registro

//-- Validações adicionais do ClienteReturn lRet Cliente
If cProduto = 'TESTE'
   lret := .T.
EndIf
Return lRet 

Exemplo pratico retorno caracter:

USER FUNCTION M330FCC(calis,cSB1Alias)

LOCAL CGRPCTA := POSICIONE("SB1",1,XFILIAL("SB1") + PARAMIXB[2],"B1_GCCUSTO")
LOCAL CCCUSTO := POSICIONE("SB1",1,XFILIAL("SB1") + PARAMIXB[2],"B1_CCCUSTO")

LOCAL CRET := Nil
DEFAULT calis := ""
DEFAULT cSB1Alias := ""

IF ALLTRIM(PARAMIXB[1]) $ "CT7|CQ3" .AND. !EMPTY(ALLTRIM(CGRPCTA))
CRET := "CQ3_CCUSTO = '" + CCCUSTO + "' AND CQ3_CONTA IN (SELECT CT1_CONTA FROM " + RETSQLNAME("CT1") + " CT1 WHERE "
CRET += " CT1_FILIAL = '" + XFILIAL("CT1") + "' AND CT1_GRUPO = '" + CGRPCTA + "' AND CT1.D_E_L_E_T_ = '')"
ENDIF

RETURN(CRET)

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave