FAQs - Suporte técnico

TOTVS Manufactura - Totvs Manufactura (Línea Protheus) MI - Inspección de entradas (SIGAQIE) - Análisis de Consistencia PE MNTA7001

time.png Tiempo aproximado de lectura: 00:05:00 min

Ocurrencia

Cual es el Punto de entrada ejecutado en la rutina MNTA700 que llama a la validación del campo TQQ_CODMOT cuando el cliente no utiliza CPF del conductor como condicional para abastecimiento ?

 

Ambiente
TOTVS Manufactura - Totvs Manufactura (Línea Protheus) MI - Inspección de entradas (SIGAQIE) - Todas las versiones 12

 

Solución

Ejemplo del punto de entrada MNTA7001()
#Include 'Protheus.ch'
#Include 'MNTA700.ch'
 
//Programa que utilizará o codigo do motorista ao invés do CPF
User Function MNTA7001()
 
    Local lRetVh := .T.
    Local aAreaM := GetArea()
    Local dDemissao := Ctod('  /  /  ' )
     
    dbSelectArea('DA4')
    dbSetOrder(1)
    If dbSeek(xFilial('DA4')+M->TQQ_CODMOT)  
        If DA4->DA4_TIPMOT == '1'      
            dbSelectArea('SRA')   
            dbSetOrder(13)    
            dbSeek(DA4->DA4_COD)   
            While !Eof() .And. SRA->RA_MAT == DA4->DA4_COD             
                If Empty(SRA->RA_DEMISSA)            
                    dDemissao := Ctod('  /  /  ')           
                    Exit         
                EndIf            
                If SRA->RA_DEMISSA > dDemissao            
                    dDemissao := SRA->RA_DEMISSA      
                EndIf            
                dbSelectArea("SRA")      
                dbSkip()      
            End       
            If !Empty(dDemissao) .And. dDemissao < M->TQQ_DTABAS       
                Help(' ', 1, STR0042, , STR0045+Chr(13)+STR0044, 3, 1)       
                lRetVh := .F.     
            EndIf         
            If DA4->DA4_TIPMOT == '2'         
                Help(' ', 1, STR0042, , STR0046, 3, 1)       
                lRetVh := .F.     
            EndIf     
            If DA4->DA4_TIPMOT == '3'         
                Help(' ', 1, STR0042, , STR0046, 3, 1)       
                lRetVh := .F.     
            EndIf     
            dbSelectArea('SR8')   
            dbSetOrder(1)     
            dbSeek(xFilial('SR8')+DA4->DA4_COD)    
            If SR8->R8_TIPO = 'F'         
                If M->TQQ_DTABAS > SR8->R8_DATAINI .And. M->TQQ_DTABAS < SR8->R8_DATAFIM             
                    Help(' ', 1, STR0042, , STR0047, 3, 1)          
                    lRetVh := .F.        
                EndIf     
            EndIf  
        EndIf     
    Else  
        MsgInfo( STR0048, STR0036)  
        lRetVh := .F.
    EndIf
    RestArea(aAreaM)       
     
Return lRetVh
¿Fue útil este artículo?
Usuarios a los que les pareció útil: 0 de 0

0 Comentarios

Inicie sesión para dejar un comentario.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Rellene los campos siguientes para iniciar el chat:

Chat _