Search the Community
Showing results for tags 'TS'.
-
Olá pessoal, tenho essa rotina a baixo, no desktop funciona normal. Mas quando conecto no sistema pelo TS da o seguindo erro: se tem 3 item em solicita, ele so transfere 2 item para o pCotacaoI. Select Solicita Set orde TO 2 Solicita->(DbGoTop()) WHILE Solicita->(!EOF()) Solicita->(DbSkip(+1)) nRegI := Solicita->(RECNO()) Solicita->(DbSkip(-1)) IF Solicita->id_status == 2 IF Solicita->seleciona == 1 nItem++ SELECT pCotacaoI IF AddRec(10) pCotacaoI->id_cotacao := aGetPedCompra.cot_id_cotacao pCotacaoI->item := nItem pCotacaoI->id_produto := Solicita->id_produto pCotacaoI->codbarra := Solicita->codbarra pCotacaoI->referencia := Solicita->referencia pCotacaoI->descricao := Solicita->descricao pCotacaoI->unidade := Solicita->unidade pCotacaoI->quantidade := Solicita->quantidade pCotacaoI->id_cr := Solicita->id_cr pCotacaoI->id_solic := Solicita->id_solic pCotacaoI->id_status := "1" ENDIF Select Solicita IF BloqReg(10) Solicita->seleciona := 0 Solicita->id_status := 4 Solicita->nm_status := "Cotacao" FINALI() ENDIF ENDIF ENDIF Select Solicita Set orde TO 2 Solicita->(DbGoto(nRegI)) ENDDO