Histórico da Página

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. 

CDAA030.PRW

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

cQuery(caracter)
• Retorna a query após as alterações do usuário.

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