Pular para o conteúdo principal

type mismatch on compare on FWBRWTABLE:GOBOTTOM(FWBRWTABLE.PRW)

Tratavasse de uma rotina customizada, onde foi utilizado um arquivo de trabalho. No indice que estava sendo criado, utilizam um campo de data, dessa forma deveria ser convertido isso com a função DTOC(CAMPODATA)

 Partes do código:
Como era:
 IndRegua("TRB", cArqTRB, "DTW_DATINI" )

 Como fico:
IndRegua("TRB", cArqTRB, "DTOC(DTW_DATINI)" )

 Sempre tomar cuidado quando utilizar um índice no arquivo de trabalho

 
 THREAD ERROR (raphaelb, SRV-WTS01)   16/07/2014 14:20:22
type mismatch on compare  on FWBRWTABLE:GOBOTTOM(FWBRWTABLE.PRW) 02/05/2014 11:40:15 line : 857

[TOTVS build: 7.00.121227P-20131106]
Called from FWBRWTABLE:UPDATETOPBOT(FWBRWTABLE.PRW) 02/05/2014 11:40:15 line : 1848
Called from FWMBROWSE:UPDATETOPBOT(FWBROWSE.PRW) 08/05/2014 10:12:05 line : 10421
Called from FWMBROWSE:CREATEBROWSE(FWBROWSE.PRW) 08/05/2014 10:12:05 line : 3161
Called from FWMBROWSE:ACTIVATE(FWBROWSE.PRW) 08/05/2014 10:12:05 line : 1065
Called from FWMBROWSE:ACTIVATE(FWFORMBROWSE.PRW) 28/04/2014 16:10:26 line : 650
Called from FWMBROWSE:ACTIVATE(FWMBROWSE.PRW) 12/04/2014 00:34:40 line : 565
Called from FWMBROWSE(MSLIB.PRW) 26/03/2014 14:31:52 line : 11592
Called from MBROWSE(MSLIB.PRW) 26/03/2014 14:31:52 line : 156
Called from U_UTMSE02(UTMSE02.PRW) 12/05/2014 07:28:13 line : 63
Called from SIGAIXB(APLIB190.PRW) 24/06/2013 10:23:58 line : 228
Called from __EXECUTE(APLIB090.PRW) 28/03/2014 11:22:22 line : 502
Called from MDIEXECUTE(APLIB260.PRW) 09/04/2014 19:01:01 line : 730
Publicas
  Public 1: CPAISLOC(C) :BRA
  Public 2: LWSISPORTAL(L) :.F.
  Public 3: OAPP(O) :O
  Public 4: HELP(L) :.F.
  Public 5: USIGAADV(L) :.F.
  Public 6:

Postagens mais visitadas deste blog

REST Protheus Converter charset CP1252 para UTF8 com Header Accept UTF-8

O Protheus possui um tag que pode ser utilizada para conversão para UTF8 de forma transparente, basta enviar no header da requisição a TAG ACCEPT com charset=UTF-8, também pode-se adicionar o appllication/json. Accept : application/json; charset=UTF-8 ou Accept : charset=UTF-8 Isso ajuda pois não precisa mais utilizar as funções DecodeUTF8 e EncodeUT8 pois o próprio rest já vai fazer isso.

Recursividade Minha Linda! Estrutura Produtos Protheus SG1

Fato! Depois que você conhece recursividade em sua vida tudo fica mais leve (rss... ) a recursividade pode ser infinita (pode não ta!) se for infinita vai dar problema, não pode. Mas a recursividade nos ajuda a deixar nosso sistema mais flexível e dinâmico para montar uma série de regras de negócio. Hoje vou falar exatamente da SG1, tabela TOTVS Microsiga Protheus que é utilizada para montar a estrutura de um produto dentro PCP (Planejamento e Controle de Produção). Isso séria algo que a recursividade iria ajudar. Na SG1 temos o campos G1_COD (Pai) e G1_COMP (Filho). G1_COD->G1_COMP->G1_COD->G1_COMP->G1_COD->G1_COMP Seria assim o fluxo da informação. Sem mais delongas, abaixo vou deixar o script para MSSQL para apresentar esses dados. Inté! WITH ESTRUT( CODIGO, COD_PAI, COD_COMP, QTD, PERDA, DT_INI, DT_FIM ,TRT ,RECNO, NIVEL ) AS ( SELECT G1_COD PAI, G1_COD, G1_COMP, G1_QUANT, G1_PERDA, G1_INI, G1_FIM,G1_TRT,SG1.R_E_C_N_O_, 1 AS NIVEL FR

Cadastro de funções ADVPL

FWDirRemove( cDir, nType, lComplete, lKillFiles ) Função para remover diretórios, com a vantagem de remover somente o ultimo nível ou todo o caminho. cDir                   Diretório a ser removido lComplete          Remove todo o caminho (.T.) ou apenas o ultimo nível (.F.) lKillFiles             Remove os arquivos antes de tentar remover o diretório FWMakeDir( cDir, lShowMsg ) Função para criar diretório com seus subdiretórios, com a vantagem de criar todo o caminho. cDir                    Diretório a ser criado lShowMsg          Exibe ou não mensagem caso não consiga criar o diretório FwNoAccent( cString ) Retira acentos de uma string cString                 String a ser retirado os acentos Exemplo: cString := 'O avião não pôde aterrissar de manhã' cString := FwNoAccent( cString ) // Retorna : 'O aviao nao pode aterrissar de manha' FWGetSX5( cTable, cKey ) Função de retorno dos campos de uma tabela no SX5 cTable                  Tabela para pesquisa no SX5. Par