| |
|
|
Mensagem do
LUIZIN29
em 08/02/2024, 08:34 h
Local: MS Registro: 25/05/2023 Postagens: 4 |
Saudações pessoal!
Estou customizando o ponto de entrada MT100TOK da rotina de Documentos de Entrada.
Preciso puxar o Valor Bruto da nota no momento da inclusão para comparar se existe um titulo no financeiro já lançado com base nos valor total.
Até o momento já estou conseguindo puxar o Fornecedor, Loja e database do sistema.
#Include "Protheus.ch"
#INCLUDE "TopConn.ch"
/*/{Protheus.doc} MT100LOK
User Function MT100TOK()
Local lRet := .T.
Local aArea := SE2->(GetArea())
Local cQuery := ""
Local nTotalReg := 0
Local cMensagem := "Foi encontrado um titulo já lançado para este Fornecedor que coincide com os mesmos dados digitados nesta Nota Fiscal. Deseja Continuar?"
cQuery := " SELECT "
cQuery += " E2_NUM AS NUMERO, "
cQuery += " E2_PREFIXO AS PREFIXO, "
cQuery += " E2_FORNECE AS CODCLIENTE, "
cQuery += " E2_LOJA AS LOJA, "
cQuery += " E2_NOMFOR AS NOME, "
cQuery += " E2_VALOR AS VALOR "
cQuery += " FROM " + RetSQLName("SE2")+" SE2 "
cQuery += " WHERE E2_FORNECE = ‘"+ M->CA100FOR +" ‘ AND "
cQuery += " E2_LOJA = ‘"+ M->CLOJA +" ‘ AND "
cQuery += " E2_EMISSAO >= ‘"+ DTOS(dDataBase) + " ‘ - ‘7‘ AND "
cQuery += " E2_EMISSAO <= ‘"+ DTOS(dDataBase) +" ‘ AND "
cQuery += " E2_VALOR = ‘"+ cValToChar(M->F1_VALBRUT) + " ‘ AND" // AQUI PRECISO RECUPERAR O VALOR BRUTO DA NOTA FISCAL PARA PREENCHER A QUERY
cQuery += " D_E_L_E_T_ = ‘ ‘ "
TCQuery cQuery New Alias "xF1TEMP"
DbSelectArea("xF1TEMP")
Count to nTotalReg
xF1TEMP->(DbGoTop())
IF(nTotalReg > 0)
IF FwAlertNoYes(cMensagem,"Duplicidade Encontrada")
lRet := .T.
ELSE
lRet := .F.
ENDIF
ENDIF
xF1TEMP->(DbCloseArea())
RestArea(aArea)
Return lRet
Agradeço a quem puder ajudar. Muito obrigado!
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
