Home

Linha Microsiga Protheus

Páginas filhas
  • DIRA160 - Cria Query customizada -- 90945

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
DIRA160 - Cria Query customizada
DIRA160 - Cria Query customizada

Ponto-de-Entrada: DIRA160 - Cria Query customizada
Abrangências: Microsiga Protheus 10
Versões: Todas
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição:
Este Ponto de Entrada permite a criação de query customizada para o cálculo do direito autoral e será executado após a confirmação da pergunta “Confirma cálculo do Dir.Autoral?”, após confirmar os parametros da rotina CDAA030. 
Programa Fonte
CDAA030.PRW
Sintaxe

DIRA160 - Cria Query customizada ( [ dPerIni ], [ dPerFim ], [ cQuery ] ) --> cQuery

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
dPerIniDataPrimeiro dia do mês Informado no cálculo de direitos autorais.
dPerFimArray of RecordÚltimo dia do mês Informado no cálculo de direitos autorais.
cQueryArray of RecordRecebe a query padrão utilizada pelo sistema.
Retorno
    cQuery(caracter)
  • Retorna a query após as alterações do usuário.
Exemplos
User Function DIRA160()Local dPerIni := paramixb[1]Local dPerFim := paramixb[2]Local cQuery := paramixb[3] cQuery := "Select SD2.D2_FILIAL FILIAL, SD2.D2_COD     PRODUTO, "		cQuery +=         "SD2.D2_EMISSAO DATAEMI, "		cQuery +=         "'1 SD2'        ORDEM, "		cQuery +=         "' '            EMISSAO, "		cQuery +=         "SD2.D2_QUANT   QUANT, "		cQuery +=         "SD2.D2_TES     TES, "		cQuery +=         "SD2.D2_PRUNIT  PRUNIT, "		cQuery +=         "SD2.D2_PRCVEN  PRCVEN, "		cQuery +=         "SD2.D2_DESC    DESCO, "		cQuery +=         "SD2.D2_DESCON  VALDESC, "		cQuery +=         "SD2.D2_VALICM  VALICM, "		cQuery +=         "SD2.D2_VALIPI  VALIPI, "		cQuery +=         "SD2.D2_CF      CF, "		cQuery +=         "SD2.D2_DOC     DOC, "		cQuery +=         "SD2.D2_SERIE   SERIE, "		cQuery +=         "SD2.D2_ITEM	  ITEM, "		cQuery +=         "' '			  NFORI, "		cQuery +=         "' ' 			  SERIORI, "		cQuery +=         "' ' 			  ITEMORI, "		cQuery +=         "SD2.D2_CLIENTE CLIENTE, "		cQuery +=         "SD2.D2_LOJA    LOJA, "		cQuery +=         "' '   		  OP, "		cQuery +=         "' '            CHAVE "		cQuery += "From " + RetSQLName("SD2") + " SD2 "		cQuery += "Where   SD2.D2_FILIAL='"+xFILIAL("SD2")+"' AND SD2.D2_EMISSAO BETWEEN '"+ Dtos(dPerIni) + "'"		cQuery += "  And '" + Dtos(dPerFim) + "'"Alert("Segue as informações que serão levadas na Query"+cQuery)	Return cQuery