/*--------------------------------------------------------------------------------------------------------------+ ! FICHA TECNICA DO PROGRAMA ! +---------------------------------------------------------------------------------------------------------------+ ! DADOS DO PROGRAMA ! +------------------+--------------------------------------------------------------------------------------------+ !Tipo ! Fonte chamado por gatilho ! +------------------+--------------------------------------------------------------------------------------------+ !Modulo ! FAT - Comercial ! +------------------+--------------------------------------------------------------------------------------------+ !Nome ! LC_ORCA1011.PRW ! +------------------+--------------------------------------------------------------------------------------------+ !Localização ! Chamdo pelo gatilho no início do Orçamento ! +------------------+--------------------------------------------------------------------------------------------+ !Desc Lumicenter ! Utilizado para verificar a validade do REGIME ESPECIAL do cliente, quando houver ! ! ! Campo A1_DTREGIM ! +------------------+--------------------------------------------------------------------------------------------+ !Autor ! Raphael D. PILATTI ! +------------------+--------------------------------------------------------------------------------------------+ !Data de Criação ! 10/06/2014 ! +------------------+--------------------------------------------------------------------------------------------+ ! ATUALIZACOES ! +-------------------------------------------+-----------+-----------+-------------------------------------------+ ! Descricao detalhada da atualizacao !Nome do ! Analista !Data da ! ! !Solicitante! Respons. !Atualiz. ! +-------------------------------------------+-----------+-----------+-------------------------------------------+ !Inclusão de envio de e-mail !Marcelo !Pilatti !20/06/2014 ! ! ! ! ! ! +-------------------------------------------+-----------+-----------+-------------------------------------------+ */ #include 'protheus.ch' #include 'rwmake.ch' #include "topconn.ch" #include "totvs.ch" User Function ORCA1011() Local aArea := GetArea() Local dDtReg := POSICIONE("SA1",1,xFILIAL("SA1")+M->CJ_CLIENTE+M->CJ_LOJA,"A1_DTREGIM") Local cRet := M->CJ_CLIENTE Local cMensagem :="" // Local cVecto :="" Local cDestino :="" If Funname() = "RPC" //Portal SMS Return Endif If !Empty(DTOS(dDtReg)) If dDtReg - Ddatabase <= 10 .AND. dDtReg - Ddatabase >= 0 cRet:="" ShowHelpDlg("Aviso", {"Regime Especial. ",""},5,{"O Regime especial do cliente irá vencer dia " + Transform(dDtReg,"@E DD/MM/YYYY") +". Favor atualizar Regime e data de validade no cadastro de clientes." ,""},5) cMensagem +="O Regime Especial do cliente abaixo irá vencer, é necessário atualização do documento e da data de vencimento do Regime."+CRLF cMensagem +="Código/Loja: "+ M->CJ_CLIENTE + " - " + M->CJ_LOJA + " " cMensagem +="Nome...... : "+ POSICIONE("SA1",1,xFILIAL("SA1")+M->CJ_CLIENTE+M->CJ_LOJA,"A1_NOME") + " " cMensagem +="Vencimento : "+ Transform(dDtReg,"@E DD/MM/YYYY") + " " cMensagem +="Usuário : "+ cUserName + " " Elseif dDtReg - Ddatabase < 0 cRet:="" ShowHelpDlg("Aviso", {"Regime Especial. ",""},5,{"O Regime especial do cliente venceu dia "+ Transform(dDtReg,"@E DD/MM/YYYY") +". Favor atualizar Regime e data de validade no cadastro de clientes." ,""},5) cMensagem +="O Regime Especial do cliente abaixo está vencido, é necessário atualização do documento e da data de vencimento do Regime."+CRLF cMensagem +="Código/Loja: "+ M->CJ_CLIENTE + " - " + M->CJ_LOJA + " " cMensagem +="Nome...... : "+ POSICIONE("SA1",1,xFILIAL("SA1")+M->CJ_CLIENTE+M->CJ_LOJA,"A1_NOME") + " " cMensagem +="Vencimento : "+ Transform(dDtReg,"@E DD/MM/YYYY") + " " cMensagem +="Usuário : "+ cUserName + " " Else cRet:=cRet EndIf If CFILANT == "01" cDestino:="marcelo.oliveira@lumicenter.com;rodrigo.wilges@lumicenter.com;katiane-sjp@lumicenter.com" Else cDestino:="marcelo-sjp@lumicentercom;rodrigo.wilges@lumicenter.com" EndIf U_EnvMail(cDestino,"","","Lumicenter - Cliente com Regime Especial Vencido/A Vencer - Orçamento "+ M->CJ_CLIENTE + " - " + M->CJ_LOJA,cMensagem,"") //(Destino, Com Copia, Com Copia Oculta, Titulo , Mensagem Corpo, Anexos) EndIf RestArea(aArea) Return(cRet)