Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Usuário desconhecido (mateus.barbosa)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Renata Aparecida Teodoro de Santana

Gravado em

Chave

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


01. DADOS GERAIS

Produto:

Solucoes_totvs
SolucaoTOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linhas_totvs
SegmentoDistribuição
RegionConstrução Projetos
LinhaLinha Protheus

Segmento:

Segmentos_totvs
SegmentoServiços

Módulo:Gestão de Serviços
Função:TECA894 - Uniformes
Ticket:Não há
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-9616


02. SITUAÇÃO/REQUISITO

Necessidade de implementar manutenções específicas no processamento de uniformes , após as operações de entrega, troca/substituição, trocas com pendências e devolução.

03. SOLUÇÃO

Implementado o ponto de entrada At894Uni que é acionado ao final da função padrão At894Mnt, após as operações de entrega, troca/substituição, trocas com pendências e devolução.

Este ponto de entrada recebe os seguintes parâmetros;:

ParâmetroDescrição
AitBrowseArray com informações processadas na operação. (detalhes a seguir).
Nopc

Variável numérica com número da operação selecionada pelo usuário, onde:

1 – Entrega;

2 – Troca / Susbstituição;

3 – Devolução;

4 – Trocas com Pendências.

...

Bloco de código
#include 'protheus.ch'
#include 'totvs.ch'

User Function At894Uni()

Local nX        := 0
Local nY        := 0
Local cMsg    := 'Log de '

Private aLog   := {}

cMsg += If(PARAMIXB[2] == 1, 'Entrega',;
                If(PARAMIXB[2] == 2, 'Troca / Substituicao',;
                If(PARAMIXB[2] == 3, 'Devolucao',  'Trocas Pendentes')))

cMsg += ' de Uniformes'		

For nX := 1 To Len(PARAMIXB[1])		

    If nX == 1
        Aadd( aLog,(PadR(PARAMIXB[1][nX][02],16,' ') + ' - ' +; //Código Produto
		  PadR(PARAMIXB[1][nX][03],30,' ') + ' - ' +; //Descrição
		  PadR(PARAMIXB[1][nX][04],10,' ') + ' - ' +; //Quantidade
		  PadR(PARAMIXB[1][nX][05],07,' ') + ' - ' +; //Armazém
		  PadR(PARAMIXB[1][nX][06],10,' ');             //Dt. Entrega
	    ) )	

     Else
        For nY := 1 To Len(PARAMIXB[1][nX])

	 If PARAMIXB[1][nX][nY][1]

	     Aadd( aLog,(PadR(PARAMIXB[1][nX][nY][2],16,' ') + ' - ' +; //Código Produto
		             PadR(PARAMIXB[1][nX][nY][3],30,' ') + ' - ' +; //Descrição
			StrZero(PARAMIXB[1][nX][nY][4],10)  + ' - ' +; //Quantidade
		              PadL(PARAMIXB[1][nX][nY][5],07,' ') + ' - ' +; //Armazém
			DToC(PARAMIXB[1][nX][nY][6]);                     //Dt. Entrega
			) )	
	  EndIf

        Next nY

      EndIf

Next nX

//Imprime Log
fMakeLog({aLog}, { "Gestao de Uniformes" } , "" , .T. , NIL , OemToAnsi(cMsg) , NIL , NIL , NIL , .F. )

Return

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.



Templatedocumentos

...