Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

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:
Nome Tipo Descrição Default Obrigatório Referência
dPerIni Data Primeiro dia do mês Informado no cálculo de direitos autorais.
dPerFim Array of Record Último dia do mês Informado no cálculo de direitos autorais.
cQuery Array of Record Recebe 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