Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagepy
themeEclipse
firstline1
titleExemplo de Utilização
linenumberstrue
User function NFEEXCEL()
Local xRet   := nil
Local cParam := iif( type("paramixb") == "A" .and. len(paramixb) > 0 , paramixb[1] , paramixb )

	Do case
		Case  cParam == "EXPDADOS"
			WKEXCEL->WK_NEWCPO := "NEW CAMPO"//Permite atribuir valores para os campos da Work que será gerada no Excel
				
		Case  cParam == "SET_ESTRUTURA"
			aAdd(aEstru,{"WK_NEWCPO","C",10,0})//Permite adicionar novos campo na Work que será gerada para a gravação dos dados
			
		Case  cParam == "IMPDADOS_WORK"
			WKDADOSXLS->WK_NEWCPO := "NEW CAMPO"//Permite atribuir valores para os campos da Work que será gerada no Excel
		
		Case  cParam == "TELA_RETORNO"
    		aAdd(aCampos,{"NOVO_CAMPO" ,"","Meu Campo Novo","" })
		
		Case  cParam == "SET_ESTRUTURA_MACRO"
		   //A estrura criada terá os sequinte forma
		   //Nome do campo + tipo + tamanho
		   //Tipo: Char ou Decimal
		   //Tamanho se tipo Char (x) se Decimal (x,x)
		   //Ex. WK_NOME Char(30), WK_DEC DECIMAL (10,2)
			cStru += "WK_COD_I Char(20),WK_QTDE Decimal(13,3)"
		
		Case  cParam == "IMPDADOS_BASE"
			SW9->W9_INCOTER := "FOB"//Permite personalizar a importação de dados na base

 		Case  cParam == "EXP_DADOS_DUIMP"
			// a posição 2 do paramixb são os campos padrões que serão exportados.
			// Deverá retornar um vetor da seguindo estrutura:
			//  { 1 - Campo da tabela ,
			//    2 - Se será editável ("true" - editável / "false" - não editável) ,
			//    3 - Cor da coluna em hexadecimal sem # }

            xRet := aClone(paramixb[2])
            aAdd( xRet, { "W6_DT_EMB", "false", "3065ee" })

		Case cParam == "EXECNFE"
 			lArqNFE := .T.

	
     End Case

Return xRet

03. PARÂMETROS

...