Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

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

Função:TECA700.PRX
País:Brasil
Ticket:15554775
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-15293


02. SITUAÇÃO/REQUISITO

Falta de integração do processo TECA700 (Programação do projeto) x TECA450 (Ordens de serviço) para os campos memo.

03. SOLUÇÃO

Os campos de notas do projeto e de cada etapa do projeto por padrão são apenas campos informativos e seu conteúdo não fica disponível na Ordem de serviço.

04. DEMAIS INFORMAÇÕES

Existe um ponto de entrada disponível no TECA700 (AT700PRO) que pode ser utilizado para customizações. Abaixo encontra-se um exemplo que fará com que o conteúdo do campo "notas" do grid da etapa do projeto (tabela ABI) seja inserido automaticamente no campo "Obs. Ocorrenc" da ordem de serviço (tabela AB7) gerada após a programação do projeto.

Exemplo de ponto de entrada:

AT700PRO 
User Function AT700PRO()
Local cTexto    := ""
Local cSeekABI  := ""
Local aAreaAB7  := AB7->(GetArea())
Local aAreaABI  := ABI->(GetArea())

ABI->(DbSelectArea(aAreaABI))
ABI->(DbSetOrder(1)) 	                          

cSeekABI := xFilial("ABI") + ABH->ABH_PROJET 
	
If ABI->(DbSeek(cSeekABI)) 

    While !ABI->( Eof() ) .And. cSeekABI == ABI->ABI_FILIAL + ABI->ABI_PROJET //Cada ABH pode ter mais de uma ABI
        cTexto := MSMM(ABI->ABI_CODMEM,,,,3,,,,) //retorna o campo Memo da ABI

        AB7->(DbSelectArea(aAreaAB7))
        AB7->(DbSetOrder(1)) 	                          

        AB7->(DbSeek(xFilial("AB7") + ABI->ABI_NUMOS)) 
        RecLock( "AB7", .F. )
            MSMM(AB7->AB7_MEMO1,,,cTexto,1,,,"AB7","AB7_MEMO1") //grava o campo memo da ABI na AB7
        AB7->( MsUnlock() )	
        RestArea(aAreaAB7)
        ABI->( DbSkip() )
    EndDo

EndIf

RestArea(aAreaABI)

Return

05. ASSUNTOS RELACIONADOS