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ógico | Indica se deve ser feita reemissão da fatura | Sim | | aRelat | Array | Array com 6 posições que representam quais documentos serão emitidos ao refazer a fatura | Nome | Tipo | Descrição |
|---|
| aRelat[1] | Lógico | Indica se será gerado o relatório da fatura | | aRelat[2] | Lógico | Indica se será gerada a carta da fatura | | aRelat[3] | Lógico | Indica se será gerado o recibo da fatura | | aRelat[4] | Lógico | Indica se serão gerados os boletos da fatura | | aRelat[5] | Lógico | Indica se será gerado o comprovante de despesas | | aRelat[6] | Lógico | Indica se será gerado o arquivo e-billing |
| Sim | | aParams | Array | Array com 23 posições que representam os parâmetros para emissão dos relatórios
| Nome | Tipo | Descrição |
|---|
| aParams[1] | Caractere | Opções de emissão(Crystal): cOption + ';0;1;' cOption - '2' = Impressora cOption - '8' = Word cOption - '1' = Tela | | aParams[2] | Caractere | Código do usuário do Protheus | | aParams[3] | Caractere | Número da fatura | | aParams[4] | Caractere | Escritório | | aParams[5] | Caractere | Nome do Sócio da Fatura | | aParams[6] | Caractere | Código do Cliente | | aParams[7] | Caractere | Minuta de pré? ('S' / 'N') | | aParams[8] | Caractere | Exibe logotipo? ('S' / 'N') | | aParams[9] | Caractere | Utiliza dados de depósito? ('S' / 'N') | | aParams[10] | Caractere | Utiliza contra apresentação (substitui o vencimento por 'contra-apresentação') ('S' / 'N') | | aParams[11] | Caractere | Fatura Rateada? ('S' / 'N') | | aParams[12] | Caractere | Nome do relatório a ser emitido (sem extensão .RPT) | | aParams[13] | Caractere | Emitir Recibo? ('S' / 'N') | | aParams[14] | Caractere | Emitir Boleto? ('S' / 'N') | | aParams[15] | Caractere | Utilizar Redação? ('S' / 'N') | | aParams[16] | Caractere | Ocultar despesas no Relatório? ('S' / 'N') | | aParams[17] | Caractere | Exibir Assinatura Eletrônica? ('S' / 'N') | | aParams[18] | Caractere | Redator - Nome do participante de emissão | | aParams[19] | Caractere | Resultado do relatório: '1' - Impressora / '2' - Tela / '3' - Word / '4' - Nenhum | | aParams[20] | Caractere | Comando para adição de parâmetros customizados na carta - separados com ';' e terminado com ';' | | aParams[21] | Caractere | Comando para adição de parâmetros customizados no relatório - separados com ';' e terminado com ';' | | aParams[22] | Caractere | Comando para customização de parâmetros para tela - separados com ';' e terminado com ';' | | aParams[23] | Caractere | Emitir 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}
Tempo aproximado para leitura: 5 min