Árvore de páginas

 Tempo aproximado para leitura: 5 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Jurídico
Módulo:Pré Faturamento de Serviços - SIGAPFS
Função:Operações de Fatura - JURA204


02. PONTO DE ENTRADA

Descrição:

Este ponto de entrada permite customizar a rotina de reemissão da fatura, que faz parte da rotina "Operações de Faturas->Refazer".

Nele é possível tratar as opções disponíveis em tela para seleção no momento da reemissão, além de permitir o tratamento de informações enviadas para os relatórios que serão emitidos.

Localização:

Atualizações - Movimentações - Operação de Faturas

Programa Fonte:

JURA204

Função:

J204REFAZ

Parâmetros:Não se aplica
Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

LógicoIndica se deve ser feita reemissão da faturaSim
aRelatArray

Array com 6 posições que representam quais documentos serão emitidos ao refazer a fatura

NomeTipoDescrição
aRelat[1]LógicoIndica se será gerado o relatório da fatura
aRelat[2]LógicoIndica se será gerada a carta da fatura
aRelat[3]LógicoIndica se será gerado o recibo da fatura
aRelat[4]LógicoIndica se serão gerados os boletos da fatura
aRelat[5]LógicoIndica se será gerado o comprovante de despesas
aRelat[6]LógicoIndica se será gerado o arquivo e-billing
Sim
aParamsArray

Array com 23 posições que representam os parâmetros para emissão dos relatórios


NomeTipoDescrição
aParams[1]Caractere

Opções de emissão(Crystal): cOption + ';0;1;'

cOption - '2' = Impressora

cOption - '8' = Word

cOption - '1' = Tela

aParams[2]CaractereCódigo do usuário do Protheus
aParams[3]CaractereNúmero da fatura
aParams[4]CaractereEscritório
aParams[5]CaractereNome do Sócio da Fatura
aParams[6]CaractereCódigo do Cliente
aParams[7]CaractereMinuta de pré? ('S' / 'N')
aParams[8]CaractereExibe logotipo? ('S' / 'N')
aParams[9]CaractereUtiliza dados de depósito? ('S' / 'N')
aParams[10]CaractereUtiliza contra apresentação (substitui o vencimento por 'contra-apresentação') ('S' / 'N')
aParams[11]CaractereFatura Rateada? ('S' / 'N')
aParams[12]CaractereNome do relatório a ser emitido (sem extensão .RPT)
aParams[13]CaractereEmitir Recibo? ('S' / 'N')
aParams[14]CaractereEmitir Boleto? ('S' / 'N')
aParams[15]CaractereUtilizar Redação? ('S' / 'N')
aParams[16]CaractereOcultar despesas no Relatório? ('S' / 'N')
aParams[17]CaractereExibir Assinatura Eletrônica? ('S' / 'N')
aParams[18]CaractereRedator - Nome do participante de emissão
aParams[19]CaractereResultado do relatório: '1' - Impressora / '2' - Tela / '3' - Word / '4' - Nenhum
aParams[20]CaractereComando para adição de parâmetros customizados na carta - separados com ';' e terminado com ';'
aParams[21]CaractereComando para adição de parâmetros customizados no relatório - separados com ';' e terminado com ';'
aParams[22]CaractereComando para customização de parâmetros para tela - separados com ';' e terminado com ';'
aParams[23]CaractereEmitir Arquivo E-billing ('S' / 'N')
Sim


03. EXEMPLO

#Include 'Protheus.ch'

User Function J204REFAZ()
Local lRet := .T.

Local aParams := Array(23)

Local aRelat := Array(6)

Local cCbResult := '2'


aRelat[1] := .T.
aRelat[2] := .T.
aRelat[3] := .F.
aRelat[4] := .F.
aRelat[5] := .F.
aRelat[6] := .T.

Do Case

Case cCbResult = '1' // Impressora

cOptions := '2'

Case cCbResult = '3' // Word

cOptions := '8'

Otherwise //Tela

cOptions := '1'

EndCase

cOptions := cOptions + ';0;1;' // "Relatorio de Faturamento"

aParams[ 1] := cOptions
aParams[ 2] := __CUSERID
aParams[ 3] := NXA->NXA_COD
aParams[ 4] := NXA->NXA_CESCR
aParams[ 5] := "NOME RESPONSÁVEL"
aParams[ 6] := NXA->NXA_CCLIEN
aParams[ 7] := 'N'
aParams[ 8] := 'N'
aParams[ 9] := 'N'
aParams[10] := 'N'
aParams[11] := 'S'
aParams[12] := 'S'
aParams[13] := 'N'
aParams[14] := 'N'
aParams[15] := 'N'
aParams[16] := 'N'
aParams[17] := 'N'
aParams[18] := "Usuário"
aParams[19] := cCbResult //Resultado do relatório: '1' - Impressora / '2' - Tela / '3' - Word / '4' - Nenhum
aParams[20] := " "
aParams[21] := " "
aParams[22] := " "
aParams[23] := "S"

Return {lRet, aRelat, aParams}