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ção

Atualizações >> Cadastro >> Movimentações >> Emissão de Faturas

Parâmetro
NomeTipoDescriçãoObrigatório
Tipocaractere

Tipo da parcela 

1 - Honorários

2 - Despesas

Sim
aParcarray

Array das parcelas

NomeTipoDescrição
DatadataVencimento da parcela
ValornuméricoValor da parcela
Sim
Retorno
NomeTipoDescriçãoObrigatório
PARAMIXB[1]array

Array das parcelas com 2

NomeTipoDescrição
Datadata

Vencimento da parcela

ValornuméricoValor da parcela
Sim



03. DEMAIS INFORMAÇÕES

USER Function JA203CN1


Local nA         := 0
Local aArea      := GetArea()
//Local cTipo      := ParamIXB[1]
Local aParcelas  := ParamIXB[2]
Local cFila      := NXA->NXA_CFILA   //Tabela NXA ja posicionada
Local cCliPG     := NXA->NXA_CLIPG
Local cLojaPG    := NXA->NXA_LOJPG  

DbSelectArea("ZXC")
DbSetOrder(1) //ZXC_FILIAL+ZXC_FILA+ZXC_CLIPG+ZXC_LOJAPG+ZXC_PARCEL

Begin Sequence

    If  Empty(cFila) .Or. Empty(cCliPG) .Or. Empty(cLojaPG)
        Aviso("Fila ou Cliente e Loja pagadora em branco! Favor verificar!")
        Break
    EndIf

    If  Empty(aParcelas) .Or. (ValType(aParcelas) != "A")
        Break
    EndIf

    For nA := 1 to Len(aParcelas)
        If  DbSeek(xFilial("ZXC")+cFila+cCliPG+cLojaPG+StrZero(nA,Len(ZXC_PARCEL)))
            If  (nA == 1) .And. NXA->( DbRLock(Recno()) )     //Atualiza o NXA com o primeiro vencimento das parcelas.
                NXA->NXA_DTVENC := ZXC_VECMTO
                NXA->( MsUnLock() )
            EndIf
            aParcelas[nA][1] := ZXC_VECMTO  //Atualiza com o vencimento alterado anteriormente pelo usuario na fila de impressao.
        EndIf
    Next nA

End Sequence

RestArea(aArea)

Return aParcelas

04. ASSUNTOS RELACIONADOS