Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

-

Segmento:

Serviços

Módulo:Gestão de Serviços
Função:TECA930 - Apuração
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-10168


02. SITUAÇÃO/REQUISITO

Necessidade de manipular PVs gerados pela Apuração (TECA930) do contrato.

03. SOLUÇÃO

Implementado o P.E. AT930PVG, que é executado ao término do commit do Encerramento de uma Medição (CNTA121) dentro do processo de Apuração (TECA930).

O ponto de entrada deve ser utilizado com o campo TFV_AGRUP = 1-Sim . Para mais detalhes sobre este campo, acesse DSERSGS-9321 DT Medição Agrupada

User Function AT930PVG()
Local aGerados := ParamIxb[1]
Local nX
Local aArea := GetArea()
If !EMPTY(aGerados) .AND. VALTYPE(aGerados) == 'A'
    //aGerados[x]
    //        [x][1] --Valor fixo "2" para PV
    //        [x][2] --Número do PV gerado

    DbSelectArea("SC5")
    DbSetOrder(1) //C5_FILIAL+C5_NUM
    
    For nX := 1 To LEN(aGerados)
        If aGerados[nX][1] == '2'
            If SC5->(DbSeek(xFilial("SC5") + aGerados[nX][2]))
                Conout("Pedido de Venda gerado para o cliente " + SC5->C5_CLIENTE)
            EndIf
        EndIf
    Next nX
EndIf
RestArea(aArea)
Return nil


04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.