- Fórum
- Protheus/Microsiga/Totvs
- Módulos do Protheus
- Módulo Ponto Eletrônico
- Ponto de Entrada MT100TOK Modulo Compras
Perguntas Ponto de Entrada MT100TOK Modulo Compras
- bruno.goliato
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 18
- Obrigados Recebidos: 0
12 anos 5 meses atrás #2742
por bruno.goliato
Ponto de Entrada MT100TOK Modulo Compras foi criado por bruno.goliato
Ola a todos estou desenvolvendo uma critica no ponto de entrada MT100TOK para antes de incluir o sistema verificar se o conteudo do campo NFORICONH(Criado)ja existe cadastrado na tabela . So que a primeira parte ele faz ja a segunda nao.
Alguem poderia me ajudar.
Local lRel := .T.
Local cQuery
Local cAlias := CriaTrab(Nil,.F.)
If (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) == ''
Aviso("CONHECIMENTO","Campo Especie de Documento igual a CTE ou CTR o Campo NF ORI CONHECIMENTO não pode estar em branco ",{"OK"})
lRel := .F.
ELSEIf (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) <> ''
cQuery := " SELECT D1_ZNFCONH"
cQuery += " FROM " + RetSQLName("SD1") + " SD1 "
cQuery += " WHERE D1_FILIAL = '" + xFilial("SD1") + "' "
cQuery += " AND D1_ZNFCONH = '" + Alltrim( ACOLS[n][18]) + "' "
Aviso("CONHECIMENTO","NF ORI CONHECIMENTO ja cadastrado para esse conhecimneto ",{"OK"})
lRel := .F.
TCQuery cQuery NEW ALIAS (cAlias)
Alguem poderia me ajudar.
Local lRel := .T.
Local cQuery
Local cAlias := CriaTrab(Nil,.F.)
If (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) == ''
Aviso("CONHECIMENTO","Campo Especie de Documento igual a CTE ou CTR o Campo NF ORI CONHECIMENTO não pode estar em branco ",{"OK"})
lRel := .F.
ELSEIf (Alltrim(M->CESPECIE) == 'CTE' .OR. Alltrim(M->CESPECIE) == 'CTR') .AND. Alltrim(ACOLS[n][18]) <> ''
cQuery := " SELECT D1_ZNFCONH"
cQuery += " FROM " + RetSQLName("SD1") + " SD1 "
cQuery += " WHERE D1_FILIAL = '" + xFilial("SD1") + "' "
cQuery += " AND D1_ZNFCONH = '" + Alltrim( ACOLS[n][18]) + "' "
Aviso("CONHECIMENTO","NF ORI CONHECIMENTO ja cadastrado para esse conhecimneto ",{"OK"})
lRel := .F.
TCQuery cQuery NEW ALIAS (cAlias)
Por favor Acessar ou Registrar para participar da conversa.
- Sombra
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 593
- Obrigados Recebidos: 1
12 anos 5 meses atrás #2795
por Sombra
Respondido por Sombra no tópico Re: Ponto de Entrada MT100TOK Modulo Compras
Boa tarde Brino.
De uma ilhada nesse Material que fala sobre esse Ponto de Entrada. Espero que te ajude
Abs
MT100TOK - Valida a inclusão de NF
Ponto-de-Entrada: MT100TOK - Valida a inclusão de NF
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 ,
Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
LOCALIZAÇÃO : Function A103Tudok()
EM QUE PONTO : Este P.E. é chamado na função A103Tudok()
Pode ser usado para validar a inclusao da NF.
Esse Ponto de Entrada é chamado 2 vezes dentro
da rotina A103Tudok(). Para o controle do
número de vezes em que ele é chamado foi criada
a variável lógica lMT100TOK, que quando for
definida como (.F.) o ponto de entrada será
chamado somente uma vez.
Programa Fonte
MATA103.PRW
Sintaxe
MT100TOK - Valida a inclusão de NF ( < UPAR> ) --> lRet
Retorno
lRet(logico)
O Retorno devera ser Logico; Se Verdadeiro (.T.), atualizara o movimento, de acordo com os dados
digitados pelo usuario ; Se for falso (.F.) nao prosseguira com a implantacao.
De uma ilhada nesse Material que fala sobre esse Ponto de Entrada. Espero que te ajude
Abs
MT100TOK - Valida a inclusão de NF
Ponto-de-Entrada: MT100TOK - Valida a inclusão de NF
Versões: Advanced Protheus 7.10 , Microsiga Protheus 8.11 ,
Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição:
LOCALIZAÇÃO : Function A103Tudok()
EM QUE PONTO : Este P.E. é chamado na função A103Tudok()
Pode ser usado para validar a inclusao da NF.
Esse Ponto de Entrada é chamado 2 vezes dentro
da rotina A103Tudok(). Para o controle do
número de vezes em que ele é chamado foi criada
a variável lógica lMT100TOK, que quando for
definida como (.F.) o ponto de entrada será
chamado somente uma vez.
Programa Fonte
MATA103.PRW
Sintaxe
MT100TOK - Valida a inclusão de NF ( < UPAR> ) --> lRet
Retorno
lRet(logico)
O Retorno devera ser Logico; Se Verdadeiro (.T.), atualizara o movimento, de acordo com os dados
digitados pelo usuario ; Se for falso (.F.) nao prosseguira com a implantacao.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- Módulos do Protheus
- Módulo Ponto Eletrônico
- Ponto de Entrada MT100TOK Modulo Compras
Tempo para a criação da página:0.110 segundos