Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

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

Punto de entrada - MT131VAL

Características

do Requisito

del requisito

Linha ProdutoStoryBanco Dados Operacionalis

Línea de

producto:

Protheus

Segmento:

Manufatura

Manufactura

Módulo:

SIGACOM - Compras

RotinaRutina:

Rotina

Rutina

Nome Técnico

Nombre técnico

MATA131

Gera Cotação

Genera cotización

Tickets relacionados

1097451

Requisito/

Story/Issue:

DMANMAT02-845

País(es):

Todos

Base(s) de

datos:

Todos

Sistema(s)

operativo(

s):

Todos

Ponto


Punto de

Entrada

entrada

DescriçãoO ponto tem funcionalidade se as cotações que foram marcadas podem ser geradas.Função Gerar CotaçõesParâmetrosNomeDescrição da cotação

Descripción:

El punto de entrada MT131VAL

tiene como

funcionalidad verificar

si se pueden generar las cotizaciones que se marcaron.

Ubicación:

La llamada del punto de entrada MT131VAL ocurre al activar la opción "Genera cotización", en la rutina Genera Cotizaciones

Localização:

A chamada do ponto de entrada MT131VAL ocorre ao acionar o botão "Gera Cotação" na rotina Gera Cotações (MATA131).

Programa Fontefuente:

MATA131.prw

Función:

MATA131 -

Generar cotizaciones


Parámetros:

Nombre

Tipo

Descripción

PARAMIXB[1]

Array

Marca

de la cotización

PARAMIXB[2]

Array

Filtro SC1


RetornoDevolución:

Nome

Nombre

Tipo

Descrição

Descripción

Obrigatório

Obligatorio

 lRet

Logico

Lógico

Verifica

se o processo pode

si el proceso puede continuar.

Sim

Sí


#Include 'Protheus.ch'

User Function MT131VAL()
   Local cMarca := PARAMIXB[1]
   Local cQuerySC1 := PARAMIXB[2]
   Local cQuery := ''
   Local cMy1Alias := GetNextAlias()
   Local lRet := .T.

  dbSelectArea("SC1")
   dbSetOrder(1)
   // Restringe o el uso do produto del producto 1163101
   cQuery := "SELECT * "
   cQuery += "FROM " + RetSqlName("SC1") + " SC1 "
   cQuery += "WHERE SC1.D_E_L_E_T_ = ' ' "
   cQuery += "AND " + cQuerySC1

   cQuery := ChangeQuery(cQuery)
   Iif( Select(cMy1Alias) > 0,(cMy1Alias)->(dbCloseArea()),Nil )
   dbUseArea( .T., "TOPCONN", TCGenQry( ,,cQuery ), cMy1Alias, .F., .T. )

   While (cMy1Alias)->(!Eof())
      If IsMark("C1_OK",cMarca)
         If Alltrim((cMy1Alias)->C1_PRODUTO) == "1163101"
             Help( , , 'Help', ,"O produto 1376101 não pode ser selecionado¡El producto 1376101 no se debe seleccionar!", 1, 0 )
             lRet := .F.
          EndIf
      EndIf
     (cMy1Alias)->(DbSkip())
   EndDo

Return lRet