Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Solucoes_totvs
SolucaoTOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linhas_totvs
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiços

Módulo:

Modulos_cross_segmentos
ModulosCrossSegmentosTOTVS Backoffice (Linha Protheus) - Gestão de serviços (SIGATEC)

Função:

TECA870.PRW

País:Brasil
Ticket:Não há.
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-19235



Aviso
titleObservação

Estas informações são somente uma sugestão para criação de processo específico do ambiente do cliente portanto não será dado manutenção e devendo ser usado e alterado conforme a necessidade específica de cada cliente.


02. SITUAÇÃO/REQUISITO

Necessidade de importar as agendas de atendentes de Orçamentos/Contratos para outros Orçamentos/Contratos através de funções/rotinas específicas.

...

Documentação contendo os detalhes para configurar ambiente e funções/rotinas específicas para permitir importar as agendas de atendentes de Orçamentos/Contratos para outros Orçamentos/Contratos.

Necessário a criação dos campos específicos conforme abaixo para permitir a inclusão de um Orçamento e informar os códigos de Orçamento, Locais e Recursos Humanos que serão usados para importação das agendas dos Atendentes para este novo Orçamento/Contrato.


Informações
titleAtenção

Necessário uso do ponto de entrada AT870NWMNU como sugestão para criação de opção no menu Ações Relacionadas na Gestão de Contratos, onde será disparado a importação das agendas dos Atendentes do Contrato conforme Orçamento, Locais e Recursos Humanos informados  neste Contrato posicionado.

Bloco de código
languagedelphi
#INCLUDE "PROTHEUS.CH"

//----------------------------------------------
/*/{Protheus.doc} Ponto de Entrada AT870NWMNU/*/
//----------------------------------------------
User Function AT870NWMNU()
Local aRetMenu := {}
Local nC   := 0
Local nTam := 0

If ValType(PARAMIXB) == "A"
    nTam := Len(PARAMIXB)
    For nC := 1 To nTam
        aAdd(aRetMenu, aClone(PARAMIXB[nC]))
    Next nC
EndIf

aAdd(aRetMenu, {"Importar Agendas", {|| FwMsgRun(Nil,{|oSay| u_MoveAgenda(oSay)}, Nil, "Atualizando...")}, 2})

Return aRetMenu

04. DEMAIS INFORMAÇÕES

Aviso
titleObservação

A melhoria depende da aplicação da atualização liberada no pacote de expedição do módulo RH a partir de 17/06/2024 e da execução do UPDDISTR com o dicionário diferencial para os releases iguais ou superiores à versão 12.1.33Esta funcionalidade depende da criação dos campos e consultas específicas usados no Cadastro de Orçamentos Simplif. para permitir relacionar os Postos/Recursos Humanos com Orçamentos;Contratos vigentes, conforme exemplos abaixo.


Toggle Cloak
idupddistr
Clique aqui para exibir ou esconder as alterações de dicionário.

@999
Cloak
idupddistr

Criação dos campos específicos:

CampoTipoTamanhoTítuloDescriçãoMascaraValidação
Opções
Consulta F3ContextoModo
TCW
TFJ_
REVISA
XCODORC
3RevisãoControle de Revisão
11Orç. Orig. Orçamento Origem@!
TFJReal
Visualizar
Alterar
TCW
TFL_
ULTIMA
XCODORC
1Ult. Revisão
6Local Orig,   Local Origem
Ultima Revisão           
@!
1=Sim;2=Não
U_ValLocOri()TFLORIReal
Visualizar
Alterar
TCX
TFF_
REVISA
XCODORC
3RevisãoControle de Revisão@999RealVisualizarTDZ_REVISAC3RevisãoControle de Revisão@999RealVisualizarTEX_REVISAC3RevisãoControle de Revisão@999RealVisualizarTXN_REVISAC3RevisãoControle de Revisão@999RealVisualizarTXO_REVISAC3RevisãoControle de Revisão@999RealVisualizarABW_RESTCWC3RevisãoControle de Revisão@999RealVisualizar

Foram alterados os índices:

IndiceOrdemChaveDescriçãoTCW1TCW_FILIAL+TCW_CODIGO+TCW_REVISACódigo + RevisãoTCX1TCX_FILIAL+TCX_CODIGO+TCX_REVISACódigo + RevisãoTDZ1TDZ_FILIAL+TDZ_CODIGO+TDZ_REVISACódigo + RevisãoTEX1TEX_FILIAL+TEX_CODIGO+TEX_REVISACódigo + RevisãoTXN1TXN_FILIAL+TXN_CODIGO+TXN_REVISACódigo + RevisãoTXO1TXO_FILIAL+TXO_COD+TXO_REVISACódigo + Revisão

Alterado consulta padrão:

AliasTipoSequenciaColunaDescriçãoConteúdoTCW40104RevisãoTCW_REVISATCW601TCW->TCW_ULTIMA<>"2"

...

6Posto Orig. Posto Origem@!U_ValRHOri()TFFORIRealAlterar

Criação das Consultas específicas:

ConsultaTipoSeq.ColunaDescriçãoConteúdo
TFLORI101DBLocais OrigemTFL
TFLORI20101Codigo
TFLORI40101CodigoTFL_CODIGO
TFLORI40102Local Atend.TFL_LOCAL
TFLORI40103Nr. ContratoTFL_CONTRT
TFLORI501

TFL->TFL_CODIGO
TFLORI601

@#U_ConsLocOri()
ConsultaTipoSeq.ColunaDescriçãoConteúdo
TFFORI101DBPostos OrigemTFF
TFFORI20101Codigo
TFFORI40101CodigoTFF_COD
TFFORI40102ProdutoTFF_PRODUT
TFFORI40103Local Atend.TFF_LOCAL
TFFORI40104Nr. ContratoTFF_CONTRT
TFFORI501

TFF->TFF_COD
TFFORI601

@#U_ConsRHOri()

05. ASSUNTOS RELACIONADOS