Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Gestão Jurídica - Linha SISJURI

Linha de Produto:

Linha Protheus

Segmento:

Jurídico

Módulo:

TOTVS Gestão Jurídica - Linha SISJURI - Pré Faturamento de Serviços (SIGAPFS)

Função:Emissão de Faturas - JURA203
País:Brasil


02. DESCRIÇÃO


LocalizaçãoAtualizações >> Cadastro >> Movimentações >> Emissão de Faturas
Parâmetro
NomeTipoDescriçãoObrigatório
PARAMIXBArray

Array com 3 posições com o Alias da query e a string da query

NomeTipoDescrição
PARAMIXB[1]ArrayArray contendo os parâmetros
PARAMIXB[2]caractereConjunto de caracteres contendo os parâmetros
PARAMIXB[3]caractere

Resultado do Relatório

1 - Impressora

2 - Tela

3 - Word

4 - Nenhum

Sim
Retorno

Não se aplica



03. DEMAIS INFORMAÇÕES

#INCLUDE "PROTHEUS.CH"


User Function J203CRYS()

Local aParams   := aClone(PARAMIXB[1])
Local cParams   := PARAMIXB[2]
Local cCbResult := PARAMIXB[3]
Local cFatura   := aParams[3]
Local aAreaNXA  := NXA->(GetArea())
Local aArea     := GetArea()
Local cArquivo  := Trim(aParams[3])+"_f"
Local cRptFile  := "JU203C"
Local lRptFile  := File("\crystal\" + cRptFile + ".rpt")

NXA->(DbSetOrder(5))

If lRptFile .And. NXA->(DbSeek(xFilial('NXA')+cFatura)) .And. NXA->NXA_CTPFAT $ '12'

    If cCbResult <> '3'
        CallCrys( 'JU203C', cParams, aParams[ 1] + "Relatório Consolidado" , .T. )
    EndIf
   
    CallCrys( 'JU203C', cParams, '6;0;1;'   + cArquivo, .T.)
Endif

NXA->(RestArea(aAreaNXA))
RestArea(aArea)

Return Nil

04. ASSUNTOS RELACIONADOS